diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index 3d3cdd6f..a9f3c6a2 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 b/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 index 2007728e..0bb9e959 100644 --- a/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -7,10 +7,10 @@ - + - + @@ -18,10 +18,10 @@ - + - + @@ -32,6 +32,8 @@ + + diff --git a/Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3 b/Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3 index c32da015..2d0b1614 100644 --- a/Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3 +++ b/Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -7,10 +7,10 @@ - + - + @@ -18,10 +18,10 @@ - + - + @@ -30,6 +30,8 @@ + + diff --git a/Output/Debug/Servidor/Informes/InfComisiones.fr3 b/Output/Debug/Servidor/Informes/InfComisiones.fr3 index 30ee2efc..7b853959 100644 --- a/Output/Debug/Servidor/Informes/InfComisiones.fr3 +++ b/Output/Debug/Servidor/Informes/InfComisiones.fr3 @@ -1,5 +1,5 @@ - + @@ -34,7 +34,7 @@ - + diff --git a/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 b/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 index 49dd0a20..db1d0f46 100644 --- a/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 @@ -1,7 +1,7 @@ - + - + @@ -27,7 +27,7 @@ - + @@ -36,10 +36,10 @@ - + - + @@ -52,7 +52,7 @@ - + @@ -68,9 +68,10 @@ - - - + + + + diff --git a/Output/Debug/Servidor/Informes/InfPedidoCliente.fr3 b/Output/Debug/Servidor/Informes/InfPedidoCliente.fr3 index bcf499bf..1ee12e68 100644 --- a/Output/Debug/Servidor/Informes/InfPedidoCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfPedidoCliente.fr3 @@ -1,15 +1,15 @@ - + - + - + - + @@ -18,7 +18,7 @@ - + diff --git a/Output/Debug/Servidor/Informes/InfPedidoProveedor.fr3 b/Output/Debug/Servidor/Informes/InfPedidoProveedor.fr3 index 5b8cf7e4..fdf3c1ef 100644 --- a/Output/Debug/Servidor/Informes/InfPedidoProveedor.fr3 +++ b/Output/Debug/Servidor/Informes/InfPedidoProveedor.fr3 @@ -1,15 +1,15 @@ - + - + - + - + @@ -17,10 +17,10 @@ - + - + diff --git a/Output/Debug/Servidor/Informes/InfReciboCliente.fr3 b/Output/Debug/Servidor/Informes/InfReciboCliente.fr3 index e683e34f..ca12163e 100644 --- a/Output/Debug/Servidor/Informes/InfReciboCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -16,7 +16,7 @@ - + diff --git a/Output/Debug/Servidor/Informes/InfRemesaCliente.fr3 b/Output/Debug/Servidor/Informes/InfRemesaCliente.fr3 index 8a504296..9b9bf4f4 100644 --- a/Output/Debug/Servidor/Informes/InfRemesaCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfRemesaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -8,7 +8,7 @@ - + diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index abdd3649..c0342041 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -1027,7 +1027,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39245.779040972220000000 + ReportOptions.LastChange = 39251.734224537040000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '' @@ -1084,11 +1084,25 @@ object RptAlbaranesCliente: TRptAlbaranesCliente '' 'procedure Memo2OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' Memo2.Lines.Clear;' + ' Memo2.Lines.Clear;' ' if (StrToFloat() < 0) then' ' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')' ' else' - ' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')' + ' Memo2.Lines.Add('#39'ALBAR'#193'N DE PROVEEDOR'#39')' + 'end;' + '' + 'procedure Memo5OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' Memo5.Lines.Clear;' + ' if (StrToFloat() < 0) then' + ' Memo5.Lines.Add('#39'N'#186' orden:'#39');' + 'end;' + '' + 'procedure Memo1OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' Memo1.Lines.Clear;' + ' if (StrToFloat() < 0) then' + ' Memo1.Lines.Add('#39'Fecha orden:'#39');' 'end;' '' 'begin' diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 5ed74c24..43e0645f 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -908,9 +908,10 @@ object RptFacturasCliente: TRptFacturasCliente Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE' SQL = - 'SELECT'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO'#10'FROM V_RECIBOS_CL' + - 'IENTE'#10'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = :ID_FACTURA'#10'ORDER BY ' + - 'V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO' + 'SELECT'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENT' + + 'E.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'WHERE V_RECIBOS_CLIENTE.I' + + 'D_FACTURA = :ID_FACTURA'#10'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMI' + + 'ENTO' StatementType = stSQL ColumnMappings = < item @@ -930,6 +931,17 @@ object RptFacturasCliente: TRptFacturasCliente 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> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript @@ -1240,7 +1252,7 @@ object RptFacturasCliente: TRptFacturasCliente PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39248.500509259260000000 + ReportOptions.LastChange = 39251.691691435180000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index e655b308..5973f3b2 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -27,10 +27,10 @@ type frxDBDetalles: TfrxDBDataset; DADataVencimientos: TDADataSource; tbl_Vencimientos: TDACDSDataTable; + frxDBDataset1: TfrxDBDataset; schReport: TDASchema; DataDictionary: TDADataDictionary; frxReport: TfrxReport; - frxDBDataset1: TfrxDBDataset; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas index 446c51f8..72cc0817 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas +++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas @@ -422,9 +422,10 @@ begin //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID); ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente) + //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen //existiendo deltas, de esta forma los limpiamos - ARemesaCliente.Recibos.DataTable.Refresh; +// ARemesaCliente.Recibos.DataTable.Refresh; ARemesaCliente.DataTable.ApplyUpdates;