diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index 098c7b50..7b5de8cd 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Output/Debug/Servidor/FactuGES_Server.exe b/Output/Debug/Servidor/FactuGES_Server.exe index 7fbd7d8e..86255c9b 100644 Binary files a/Output/Debug/Servidor/FactuGES_Server.exe and b/Output/Debug/Servidor/FactuGES_Server.exe differ diff --git a/Output/Debug/Servidor/Informes/InfRemesaCliente.fr3 b/Output/Debug/Servidor/Informes/InfRemesaCliente.fr3 index 33551dd5..c89ef04b 100644 --- a/Output/Debug/Servidor/Informes/InfRemesaCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfRemesaCliente.fr3 @@ -1,7 +1,7 @@ - + - + @@ -40,15 +40,15 @@ - + - + - + diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 45cac629..92935853 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas index 528877fa..e596d439 100644 --- a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas +++ b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas @@ -153,7 +153,7 @@ begin PlzTitCta := ''; CPtTitCta := ''; CampConc1 := 'Recibo ' + ARemesa.Recibos.REFERENCIA; - fImporteEu := ARemesa.Recibos.IMPORTE; + fImporteEu := ARemesa.Recibos.IMPORTE_TOTAL; CompRegistro; diff --git a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.res b/Source/Modulos/Banca electronica/Data/BancaElectronica_data.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Banca electronica/Data/BancaElectronica_data.res differ diff --git a/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm b/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm index 2fec101c..c57f54e0 100644 --- a/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm +++ b/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm @@ -99,24 +99,24 @@ object RptRemesasCliente: TRptRemesasCliente Statements = < item Connection = 'IBX' - TargetTable = 'REMESAS_CLIENTE' + TargetTable = 'V_REMESAS_CLIENTE' SQL = - 'SELECT'#10' REMESAS_CLIENTE.ID,'#10' REMESAS_CLIENTE.ID_EMPRESA,'#10' ' + - ' REMESAS_CLIENTE.REFERENCIA,'#10' REMESAS_CLIENTE.FECHA_REMESA,' + - #10' REMESAS_CLIENTE.IMPORTE_TOTAL,'#10' EMPRESAS.NOMBRE as TITUL' + - 'AR,'#10' EMPRESAS_DATOS_BANCO.ENTIDAD,'#10' EMPRESAS_DATOS_BANCO.S' + - 'UCURSAL,'#10' EMPRESAS_DATOS_BANCO.DC,'#10' EMPRESAS_DATOS_BANCO.C' + - 'UENTA,'#10' REMESAS_CLIENTE.DESCRIPCION,'#10#10' EMPRESAS.NIF_CIF as' + - ' NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as C' + - 'ALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRE' + - 'SAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CO' + - 'DIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPR' + - 'ESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESA' + - 'S.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10#10'FROM'#10' REMESAS_CLIENTE' + - #10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = REMESAS_CLIENTE.ID' + - '_EMPRESA)'#10' LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DA' + - 'TOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)'#10'WHERE'#10' REMESAS_C' + - 'LIENTE.ID = :ID' + 'SELECT'#10' V_REMESAS_CLIENTE.ID,'#10' V_REMESAS_CLIENTE.ID_EMPRES' + + 'A,'#10' V_REMESAS_CLIENTE.REFERENCIA,'#10' V_REMESAS_CLIENTE.FECHA' + + '_REMESA,'#10' V_REMESAS_CLIENTE.IMPORTE_TOTAL,'#10' EMPRESAS.NOMBR' + + 'E as TITULAR,'#10' EMPRESAS_DATOS_BANCO.ENTIDAD,'#10' EMPRESAS_DAT' + + 'OS_BANCO.SUCURSAL,'#10' EMPRESAS_DATOS_BANCO.DC,'#10' EMPRESAS_DAT' + + 'OS_BANCO.CUENTA,'#10' V_REMESAS_CLIENTE.DESCRIPCION,'#10#10' EMPRESA' + + 'S.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESA' + + 'S.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRES' + + 'A,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_' + + 'POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRES' + + 'AS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_' + + 'WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10#10'FROM'#10' V_R' + + 'EMESAS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_RE' + + 'MESAS_CLIENTE.ID_EMPRESA)'#10' LEFT OUTER JOIN EMPRESAS_DATOS_BANCO' + + ' ON (EMPRESAS_DATOS_BANCO.ID = V_REMESAS_CLIENTE.ID_DATOS_BANCO)' + + #10'WHERE'#10' V_REMESAS_CLIENTE.ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -523,14 +523,15 @@ object RptRemesasCliente: TRptRemesasCliente 'TURA,'#10' V_RECIBOS_CLIENTE.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REF' + 'ERENCIA_REMESA,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO,'#10' V_R' + 'ECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBSERVACIONES,' + - #10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE.FECHA_FACT' + - 'URA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLI' + - 'ENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RE' + - 'CIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIE' + - 'NTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENT' + - 'E.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECI' + - 'BOS_CLIENTE.CUENTA_CLIENTE'#10#10#10'FROM V_RECIBOS_CLIENTE'#10'WHERE ID_REM' + - 'ESA = :ID_REMESA'#10'ORDER BY FECHA_VENCIMIENTO' + #10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE.OTROS_GAST' + + 'OS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.F' + + 'ECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RE' + + 'CIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.ID_EMPRESA,' + + #10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF' + + '_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIB' + + 'OS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' ' + + ' V_RECIBOS_CLIENTE.CUENTA_CLIENTE'#10#10#10'FROM V_RECIBOS_CLIENTE'#10'WHE' + + 'RE ID_REMESA = :ID_REMESA'#10'ORDER BY FECHA_VENCIMIENTO' StatementType = stSQL ColumnMappings = < item @@ -612,6 +613,14 @@ object RptRemesasCliente: TRptRemesasCliente item DatasetField = 'CUENTA_CLIENTE' TableField = 'CUENTA_CLIENTE' + end + item + DatasetField = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' end> end> Name = 'Informe_Detalles' @@ -731,6 +740,28 @@ object RptRemesasCliente: TRptRemesasCliente Lookup = False LookupCache = False end + item + Name = 'OTROS_GASTOS' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'FECHA_FACTURA' DataType = datDateTime @@ -872,7 +903,7 @@ object RptRemesasCliente: TRptRemesasCliente PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39170.827494212960000000 + ReportOptions.LastChange = 39258.760263842600000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 72219fb4..e5fb6a5a 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ