Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Informes word nuevos azacan y listados

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1071 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2013-02-26 17:58:56 +00:00
parent 7f1b0e9c19
commit 0481ab95f4
26 changed files with 1172 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Informes/3/AlbaranProveedor.rdx Normal file
View File

Binary file not shown.

BIN
Source/Informes/3/FacturaCliente.rdx Normal file
View File

Binary file not shown.

60
Source/Informes/3/InformeIVAClientes.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

64
Source/Informes/3/InformeIVAClientesDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

61
Source/Informes/3/InformeIVAProveedores.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

65
Source/Informes/3/InformeIVAProveedoresDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

61
Source/Informes/3/InformeListadoFacturasCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

67
Source/Informes/3/InformeListadoFacturasClienteDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

38
Source/Informes/3/InformeListadoFacturasClientePendientes.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

42
Source/Informes/3/InformeListadoFacturasClientePendientesDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

62
Source/Informes/3/InformeListadoFacturasProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

67
Source/Informes/3/InformeListadoFacturasProveedorDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

60
Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

54
Source/Informes/3/InformeListadoRecibosCliPendientes.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

58
Source/Informes/3/InformeListadoRecibosCliPendientesDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

51
Source/Informes/3/InformeListadoRecibosCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

55
Source/Informes/3/InformeListadoRecibosClienteDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

54
Source/Informes/3/InformeListadoRecibosProvPendientes.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

57
Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

50
Source/Informes/3/InformeListadoRecibosProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

54
Source/Informes/3/InformeListadoRecibosProveedorDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

BIN
Source/Informes/3/PedidoProveedor.rdx Normal file
View File

Binary file not shown.

21
Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas
View File

@ -247,15 +247,18 @@ begin
ReplaceBookmark('NotasAlbaran', FieldByName('OBSERVACIONES').AsString);
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('NombreEmpresa2', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
ReplaceBookmark('DireccionEmpresa',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('NombreEmpresa2', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
ReplaceBookmark('DireccionEmpresa',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
end;
end;
Result := True;
end;

22
Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
View File

@ -299,16 +299,18 @@ begin
SysUtils.DeleteFile(NombreFichero);
end;
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
ReplaceBookmark('DireccionEmpresa',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
ReplaceBookmark('DatosRegistroMercantil', tbl_Empresa.FieldByName('REGISTRO_MERCANTIL').AsString);
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
ReplaceBookmark('DireccionEmpresa',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
ReplaceBookmark('DatosRegistroMercantil', tbl_Empresa.FieldByName('REGISTRO_MERCANTIL').AsString);
end;
if not FVerSello then
ReplaceBookmark('Sello', '');

21
Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas
View File

@ -241,15 +241,18 @@ begin
ReplaceBookmark('NotasPedido', FieldByName('OBSERVACIONES').AsString);
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('NombreEmpresa2', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
ReplaceBookmark('DireccionEmpresa',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('NombreEmpresa2', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
ReplaceBookmark('DireccionEmpresa',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
end;
end;
Result := True;
end;