diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3 index 8386bcbc..41b58244 100644 --- a/Source/Informes/InfFacturaCliente.fr3 +++ b/Source/Informes/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -8,20 +8,20 @@ - + - + - - + + @@ -38,13 +38,13 @@ - - - - - - - + + + + + + + @@ -75,7 +75,7 @@ - + diff --git a/Source/Informes/InfReciboCliente.fr3 b/Source/Informes/InfReciboCliente.fr3 index f29b06ef..e6f086d5 100644 --- a/Source/Informes/InfReciboCliente.fr3 +++ b/Source/Informes/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -20,25 +20,18 @@ - + - - - - + + - - - + - - - - - + + @@ -56,25 +49,18 @@ - + - - - - + + - - - + - - - - - + + @@ -92,10 +78,10 @@ - + - + diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm index 9a1e898c..4b2e3822 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm @@ -311,22 +311,21 @@ object RptRecibosCliente: TRptRecibosCliente 'TE,'#10' V_RECIBOS_CLIENTE.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IM' + 'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' + 'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' + - 'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' + - 'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIB' + - 'OS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTA' + - 'L_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10' V_RECIBO' + - 'S_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENT' + - 'E,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENT' + - 'A_CLIENTE,'#10' V_RECIBOS_CLIENTE.ID_TIENDA,'#10' V_RECIBOS_CLIENT' + - 'E.TIENDA,'#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZO' + - 'N_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACIO' + - 'N as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPR' + - 'ESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRES' + - 'AS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,' + - #10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.' + - 'LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON' + - ' (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_' + - 'CLIENTE.ID = :ID'#10 + 'A,'#10' V_RECIBOS_CLIENTE.NOMBRE,'#10' V_RECIBOS_CLIENTE.NIF_CIF,'#10 + + ' V_RECIBOS_CLIENTE.CALLE,'#10' V_RECIBOS_CLIENTE.PROVINCIA,'#10' ' + + ' V_RECIBOS_CLIENTE.CODIGO_POSTAL,'#10' V_RECIBOS_CLIENTE.POBLACI' + + 'ON,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE' + + '.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIB' + + 'OS_CLIENTE.CUENTA_CLIENTE,'#10' V_RECIBOS_CLIENTE.ID_TIENDA,'#10' ' + + 'V_RECIBOS_CLIENTE.TIENDA,'#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRES' + + 'A, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, E' + + 'MPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA a' + + 's PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMP' + + 'RESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, E' + + 'MPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERC' + + 'ANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER ' + + 'JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WH' + + 'ERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -419,36 +418,6 @@ object RptRecibosCliente: TRptRecibosCliente TableField = '' SQLOrigin = 'IMPORTE_FACTURA' end - item - DatasetField = 'NOMBRE_CLIENTE' - TableField = '' - SQLOrigin = 'NOMBRE_CLIENTE' - end - item - DatasetField = 'NIF_CIF_CLIENTE' - TableField = '' - SQLOrigin = 'NIF_CIF_CLIENTE' - end - item - DatasetField = 'CALLE_CLIENTE' - TableField = '' - SQLOrigin = 'CALLE_CLIENTE' - end - item - DatasetField = 'PROVINCIA_CLIENTE' - TableField = '' - SQLOrigin = 'PROVINCIA_CLIENTE' - end - item - DatasetField = 'CODIGO_POSTAL_CLIENTE' - TableField = '' - SQLOrigin = 'CODIGO_POSTAL_CLIENTE' - end - item - DatasetField = 'POBLACION_CLIENTE' - TableField = '' - SQLOrigin = 'POBLACION_CLIENTE' - end item DatasetField = 'ENTIDAD_CLIENTE' TableField = '' @@ -543,6 +512,36 @@ object RptRecibosCliente: TRptRecibosCliente DatasetField = 'LOGOTIPO' TableField = '' SQLOrigin = 'LOGOTIPO' + end + item + DatasetField = 'NOMBRE' + TableField = '' + SQLOrigin = 'NOMBRE' + end + item + DatasetField = 'NIF_CIF' + TableField = '' + SQLOrigin = 'NIF_CIF' + end + item + DatasetField = 'CALLE' + TableField = '' + SQLOrigin = 'CALLE' + end + item + DatasetField = 'PROVINCIA' + TableField = '' + SQLOrigin = 'PROVINCIA' + end + item + DatasetField = 'CODIGO_POSTAL' + TableField = '' + SQLOrigin = 'CODIGO_POSTAL' + end + item + DatasetField = 'POBLACION' + TableField = '' + SQLOrigin = 'POBLACION' end> end> Name = 'Informe_Cabecera' @@ -631,32 +630,32 @@ object RptRecibosCliente: TRptRecibosCliente DataType = datCurrency end item - Name = 'NOMBRE_CLIENTE' + Name = 'NOMBRE' DataType = datString Size = 255 end item - Name = 'NIF_CIF_CLIENTE' + Name = 'NIF_CIF' DataType = datString Size = 15 end item - Name = 'CALLE_CLIENTE' + Name = 'CALLE' DataType = datString Size = 255 end item - Name = 'PROVINCIA_CLIENTE' + Name = 'PROVINCIA' DataType = datString Size = 255 end item - Name = 'CODIGO_POSTAL_CLIENTE' + Name = 'CODIGO_POSTAL' DataType = datString Size = 10 end item - Name = 'POBLACION_CLIENTE' + Name = 'POBLACION' DataType = datString Size = 255 end @@ -781,7 +780,7 @@ object RptRecibosCliente: TRptRecibosCliente ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.Description.Strings = ( 'Demonstrates how to create simple list report.') - ReportOptions.LastChange = 39504.692557326390000000 + ReportOptions.LastChange = 39563.534544155100000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' @@ -839,13 +838,46 @@ object RptRecibosCliente: TRptRecibosCliente 'begin' ' if ( < 1) then' ' begin' - ' Memo40.Lines.Clear; ' - - '// Memo40.Lines.Add('#39'Calle: '#39'); ' + - ' ' + ' Memo40.visible := False;' + ' Memo25.visible := False; ' + ' eFormaPagoFactura.visible := False;' + ' Memo26.visible := False; ' ' end' 'end;' '' + 'procedure Memo35OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if ( < 1) then' + ' begin' + ' Memo35.visible := False;' + ' Memo44.visible := False; ' + ' eFechaFactura.visible := False;' + ' Memo47.visible := False; ' + ' end' + 'end;' + '' + 'procedure Memo42OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if ( < 1) then' + ' begin' + + ' Memo42.visible := False; ' + + ' ' + ' Memo45.visible := False;' + ' Memo38.visible := False;' + ' Memo39.visible := False;' + ' Memo43.visible := False;' + '' + + ' Memo27.visible := False; ' + + ' ' + ' Memo28.visible := False;' + ' Memo48.visible := False;' + ' Memo49.visible := False;' + ' Memo52.visible := False; ' + ' end;' + 'end;' + '' 'begin' '' 'end.')