diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3 index 3d5eddc8..5bbe84f1 100644 --- a/Source/Informes/1/InfAlbaranCliente.fr3 +++ b/Source/Informes/1/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -30,8 +30,8 @@ - - + + diff --git a/Source/Informes/1/InfAlbaranProveedor.fr3 b/Source/Informes/1/InfAlbaranProveedor.fr3 index 30072b59..9e125e93 100644 --- a/Source/Informes/1/InfAlbaranProveedor.fr3 +++ b/Source/Informes/1/InfAlbaranProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -28,7 +28,7 @@ - + diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3 index d94a2a84..9b5c2918 100644 --- a/Source/Informes/1/InfFacturaCliente.fr3 +++ b/Source/Informes/1/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -58,7 +58,7 @@ - + diff --git a/Source/Informes/1/InfPedidoProveedor.fr3 b/Source/Informes/1/InfPedidoProveedor.fr3 index 204e4376..7901d52a 100644 --- a/Source/Informes/1/InfPedidoProveedor.fr3 +++ b/Source/Informes/1/InfPedidoProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -29,7 +29,7 @@ - + @@ -44,7 +44,7 @@ - + diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3 index 13dffe81..062a92e4 100644 --- a/Source/Informes/1/InfPresupuestoCliente.fr3 +++ b/Source/Informes/1/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -57,9 +57,9 @@ - - - + + + @@ -72,7 +72,7 @@ - + diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3 index d7aebf54..ee6e09c0 100644 --- a/Source/Informes/2/InfAlbaranCliente.fr3 +++ b/Source/Informes/2/InfAlbaranCliente.fr3 @@ -1,42 +1,42 @@ - + - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + - - - - - - + + + + + + - - + + - - - - - - + + + + + + diff --git a/Source/Informes/2/InfAlbaranProveedor.fr3 b/Source/Informes/2/InfAlbaranProveedor.fr3 index 7a9eb2d5..ac2e9aa3 100644 --- a/Source/Informes/2/InfAlbaranProveedor.fr3 +++ b/Source/Informes/2/InfAlbaranProveedor.fr3 @@ -1,59 +1,59 @@ - + - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - + + + - - - - - - - + + + + + + + - - + + - - - - - - + + + + + + diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3 index c9646761..ed0d59b1 100644 --- a/Source/Informes/2/InfFacturaCliente.fr3 +++ b/Source/Informes/2/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -55,7 +55,7 @@ - + diff --git a/Source/Informes/2/InfPedidoProveedor.fr3 b/Source/Informes/2/InfPedidoProveedor.fr3 index 40f274aa..63889b88 100644 --- a/Source/Informes/2/InfPedidoProveedor.fr3 +++ b/Source/Informes/2/InfPedidoProveedor.fr3 @@ -1,65 +1,65 @@ - + - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - + + + + + + + - - - + + + - - - - - - - + + + + + + + - - + + - - - - - - + + + + + + - - + + diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3 index 8d49ab8c..7d0383ce 100644 --- a/Source/Informes/2/InfPresupuestoCliente.fr3 +++ b/Source/Informes/2/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -72,7 +72,7 @@ - + diff --git a/Source/Informes/2/InfReciboCliente.fr3 b/Source/Informes/2/InfReciboCliente.fr3 index 1898039d..abfe86ef 100644 --- a/Source/Informes/2/InfReciboCliente.fr3 +++ b/Source/Informes/2/InfReciboCliente.fr3 @@ -1,69 +1,70 @@ - + - - + + + - - - - - - - + + - - - - - - + + + + + + - - - + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - + diff --git a/Source/Informes/2/InformeListadoFacturasProveedor.fr3 b/Source/Informes/2/InformeListadoFacturasProveedor.fr3 index 6bdfba9f..e92b6e37 100644 --- a/Source/Informes/2/InformeListadoFacturasProveedor.fr3 +++ b/Source/Informes/2/InformeListadoFacturasProveedor.fr3 @@ -1,66 +1,63 @@ - + - - - - - - - - + + + + + + - - + - - - - - - - - - + + + + + + + + + - - - - - - - - + + + + + + + + - - - - + + + + - - - - - - - - - - - - + + + + + - - - - - + + + + + + + + + + + + diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm index 95f34d43..50684dbe 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm @@ -417,8 +417,6 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 168 @@ -485,8 +483,6 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 264 @@ -504,8 +500,6 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Empresa' IndexDefs = <> Left = 168 diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas index 50d51d1d..68a40cec 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas @@ -169,6 +169,9 @@ procedure TRptWordAlbaranCliente.RellenarDatosDetalle; var numRows, numCols, mergesplit : OleVariant; MaxCols, iRowCount : Integer; + ACantidad: String; + AIndice: Integer; + AText : String; begin iRowCount := 2; numrows := 2; @@ -184,8 +187,17 @@ begin Rows.Item (iRowCount).Cells.Split (numRows, numCols, mergesplit); Cell(iRowCount, 1).Range.Text := FieldByName('REFERENCIA').AsString; Cell(iRowCount, 2).Range.Text := FieldByName('CONCEPTO').AsString; - Cell(iRowCount, 3).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + - FieldByName('UNIDAD_MEDIDA').AsString; + + ACantidad := FloatToStr(FieldByName('CANTIDAD').AsFloat); + AIndice := Pos(',', ACantidad); + if AIndice > 0 then + AText := FormatFloat('#,0.00', FieldByName('CANTIDAD').AsFloat) + else + AText := FormatFloat('#,0.##', FieldByName('CANTIDAD').AsFloat); + + Cell(iRowCount, 3).Range.Text := AText + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; + + if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then Cell(iRowCount, 4).Range.Text := '' else diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.dfm index 1327fa21..943dca06 100644 --- a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.dfm @@ -208,19 +208,19 @@ object RptWordAlbaranProveedor: TRptWordAlbaranProveedor Default = True SQL = 'SELECT DET.ID, DET.ID_ALBARAN,'#10' DET.POSICION, DET.TIPO_DET' + - 'ALLE,'#10' ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDAD,'#10' ' + - ' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDA' + - 'D * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, DET.IM' + - 'PORTE_TOTAL,'#10' ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REF' + - 'ERENCIA_PROVEEDOR,'#10' ARTICULOS.REFERENCIA_FABR as REFERENCI' + - 'A_FABRICANTE'#10'FROM ALBARANES_PROVEEDOR_DETALLES DET'#10'LEFT OUTER JO' + - 'IN ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN ALBAR' + - 'ANES_PROVEEDOR ON (ALBARANES_PROVEEDOR.ID = DET.ID_ALBARAN)'#10'LEFT' + - ' JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDORES.ID_ARTICU' + - 'LO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = ALB' + - 'ARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE DET.ID_ALBARAN = :ID_ALBAR' + - 'AN AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.' + - 'POSICION;'#10#10 + 'ALLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(CONCEPTO) as CONC' + + 'EPTO, DET.CANTIDAD,'#10' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD' + + ' - (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as I' + + 'MPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10' ARTICULOS_PROVEEDORES.R' + + 'EFERENCIA_PROV as REFERENCIA_PROVEEDOR,'#10' ARTICULOS.REFEREN' + + 'CIA_FABR as REFERENCIA_FABRICANTE'#10'FROM ALBARANES_PROVEEDOR_DETAL' + + 'LES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICULO' + + 'S.ID)'#10'LEFT JOIN ALBARANES_PROVEEDOR ON (ALBARANES_PROVEEDOR.ID =' + + ' DET.ID_ALBARAN)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_' + + 'PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDOR' + + 'ES.ID_PROVEEDOR = ALBARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE DET.I' + + 'D_ALBARAN = :ID_ALBARAN AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY' + + ' DET.ID_ALBARAN, DET.POSICION;'#10#10 StatementType = stSQL ColumnMappings = < item @@ -441,8 +441,6 @@ object RptWordAlbaranProveedor: TRptWordAlbaranProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 168 @@ -518,8 +516,6 @@ object RptWordAlbaranProveedor: TRptWordAlbaranProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 264 @@ -537,8 +533,6 @@ object RptWordAlbaranProveedor: TRptWordAlbaranProveedor LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Empresa' IndexDefs = <> Left = 168 diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas index c7c9cbee..fd7fbcac 100644 --- a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas @@ -114,6 +114,9 @@ function TRptWordAlbaranProveedor.RellenarDatosDetalle : Boolean; var numRows, numCols, mergesplit : OleVariant; MaxCols, iRowCount : Integer; + ACantidad: String; + AIndice: Integer; + AText : String; begin iRowCount := 2; numrows := 2; @@ -132,7 +135,15 @@ begin Cell(iRowCount, 2).Range.Text := FieldByName('REFERENCIA_FABRICANTE').AsString; Cell(iRowCount, 3).Range.Text := FieldByName('CONCEPTO').AsString; - Cell(iRowCount, 4).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; + + ACantidad := FloatToStr(FieldByName('CANTIDAD').AsFloat); + AIndice := Pos(',', ACantidad); + if AIndice > 0 then + AText := FormatFloat('#,0.00', FieldByName('CANTIDAD').AsFloat) + else + AText := FormatFloat('#,0.##', FieldByName('CANTIDAD').AsFloat); + + Cell(iRowCount, 4).Range.Text := AText + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then Cell(iRowCount, 5).Range.Text := '' diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm index 45bc8917..1a6065c4 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm @@ -644,8 +644,6 @@ object RptWordFacturaCliente: TRptWordFacturaCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 168 @@ -725,8 +723,6 @@ object RptWordFacturaCliente: TRptWordFacturaCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 264 @@ -744,8 +740,6 @@ object RptWordFacturaCliente: TRptWordFacturaCliente LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Empresa' IndexDefs = <> Left = 168 @@ -779,8 +773,6 @@ object RptWordFacturaCliente: TRptWordFacturaCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Vencimientos' IndexDefs = <> Left = 352 diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas index 33f32478..1d023dae 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas @@ -136,6 +136,9 @@ var numRows, numCols, mergeSplit, shiftCells : OleVariant; iContador : Integer; TotalConceptos : Double; + ACantidad: String; + AIndice: Integer; + AText : String; begin numRows := 2; numCols := 1; @@ -153,7 +156,16 @@ begin // Partir la celda actual en 2 filas de 1 columna. Rows.Item(iContador).Cells.Split (numRows, numCols, mergesplit); Cell(iContador, 1).Range.Text := FieldByName('CONCEPTO').AsString; - Cell(iContador, 2).Range.Text := FieldByName('CANTIDAD').AsString; + + ACantidad := FloatToStr(FieldByName('CANTIDAD').AsFloat); + AIndice := Pos(',', ACantidad); + if AIndice > 0 then + AText := FormatFloat('#,0.00', FieldByName('CANTIDAD').AsFloat) + else + AText := FormatFloat('#,0.##', FieldByName('CANTIDAD').AsFloat); + + Cell(iContador, 2).Range.Text := AText; + if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then Cell(iContador, 3).Range.Text := '' @@ -315,6 +327,9 @@ var Seleccion : TWordRange; TotalCapitulo : Double; EsCapitulo : Boolean; + ACantidad: String; + AIndice: Integer; + AText : String; begin Result := False; iRowCount := 2; @@ -356,8 +371,15 @@ begin else begin Cell(iRowCount, 1).Range.Text := FieldByName('REFERENCIA').AsString; Cell(iRowCount, 2).Range.Text := FieldByName('CONCEPTO').AsString; - Cell(iRowCount, 3).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + - FieldByName('UNIDAD_MEDIDA').AsString; + + ACantidad := FloatToStr(FieldByName('CANTIDAD').AsFloat); + AIndice := Pos(',', ACantidad); + if AIndice > 0 then + AText := FormatFloat('#,0.00', FieldByName('CANTIDAD').AsFloat) + else + AText := FormatFloat('#,0.##', FieldByName('CANTIDAD').AsFloat); + + Cell(iRowCount, 3).Range.Text := AText + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; Cell(iRowCount, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat); Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat); TotalCapitulo := TotalCapitulo + FieldByName('IMPORTE_TOTAL').AsFloat; diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm index 3c448f41..9df97873 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm @@ -445,8 +445,6 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 168 @@ -527,8 +525,6 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 264 @@ -546,8 +542,6 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Empresa' IndexDefs = <> Left = 168 diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas index 47db31a7..b384f0da 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas @@ -118,6 +118,9 @@ function TRptWordPedidoProveedor.RellenarDatosDetalle : Boolean; var numRows, numCols, mergesplit : OleVariant; MaxCols, iRowCount : Integer; + ACantidad: String; + AIndice: Integer; + AText : String; begin iRowCount := 2; numrows := 2; @@ -136,7 +139,15 @@ begin Cell(iRowCount, 2).Range.Text := FieldByName('REFERENCIA_FABRICANTE').AsString; Cell(iRowCount, 3).Range.Text := FieldByName('CONCEPTO').AsString; - Cell(iRowCount, 4).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; + + ACantidad := FloatToStr(FieldByName('CANTIDAD').AsFloat); + AIndice := Pos(',', ACantidad); + if AIndice > 0 then + AText := FormatFloat('#,0.00', FieldByName('CANTIDAD').AsFloat) + else + AText := FormatFloat('#,0.##', FieldByName('CANTIDAD').AsFloat); + + Cell(iRowCount, 4).Range.Text := AText + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; if ImprimirPrecio and (FieldByName('IMPORTE_UNIDAD').AsFloat <> 0) then diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj index 47dbef97..a9dc5118 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj +++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj @@ -52,16 +52,14 @@ MainSource - - - - - - - - - - + + + + + + + + diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index 081ab16a..33e02bc6 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -207,28 +207,29 @@ object RptPresupuestosCliente: TRptPresupuestosCliente SQL = 'SELECT'#10' V_PRESUPUESTOS_CLIENTE.ID, V_PRESUPUESTOS_CLIENTE.ID_' + 'EMPRESA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,'#10' V_PRE' + - 'SUPUESTOS_CLIENTE.REFERENCIA,'#10' V_PRESUPUESTOS_CLIENTE.PORTADA' + - ','#10' V_PRESUPUESTOS_CLIENTE.MEMORIA, V_PRESUPUESTOS_CLIENTE.OBS' + - 'ERVACIONES,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PRESUPUES' + - 'TOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CLIENTE.DESCUENTO,' + - ' V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PRESUPUESTOS_CL' + - 'IENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10' V_PRESUPUE' + - 'STOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' + - 'LIENTE,'#10' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10' CONTACTOS.' + - 'NIF_CIF, CONTACTOS.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IV' + - 'A, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_' + - 'DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTA' + - 'CTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' ' + - ' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA' + - ') AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL' + - ', CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_' + - 'CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.DESCRIPCION' + - '_BONIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION'#10'F' + - 'ROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONT' + - 'ACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOI' + - 'N CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPU' + - 'ESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID ' + - '= :ID'#10 + 'SUPUESTOS_CLIENTE.REFERENCIA || '#39' '#39' || COALESCE(V_PRESUPUESTOS_C' + + 'LIENTE.REFERENCIA_AUX, '#39#39') AS REFERENCIA,'#10' V_PRESUPUESTOS_CLI' + + 'ENTE.PORTADA,'#10' V_PRESUPUESTOS_CLIENTE.MEMORIA, V_PRESUPUESTOS' + + '_CLIENTE.OBSERVACIONES,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO,' + + ' V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CLIENT' + + 'E.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PRE' + + 'SUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10' ' + + ' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.' + + 'REFERENCIA_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10' ' + + ' CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_PRESUPUESTOS_CLIENT' + + 'E.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESC' + + 'E(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' CO' + + 'ALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS ' + + 'POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACT' + + 'OS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.C' + + 'ODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_P' + + 'RESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE' + + '.DESCRIPCION_BONIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_BO' + + 'NIFICACION'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTAC' + + 'TOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LE' + + 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' + + ' = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS' + + '_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas index 1e7c247e..05611db9 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas @@ -79,9 +79,9 @@ type frxDBInformeListadoPresupuestosResumen: TfrxDBDataset; DADSInformeListadoPresupuestosResumen: TDADataSource; tbl_InformeListadoPresupuestosResumen: TDAMemDataTable; + tbl_Detalles: TDAMemDataTable; schReport: TDASchema; DataDictionary: TDADataDictionary; - tbl_Detalles: TDAMemDataTable; procedure DataModuleCreate(Sender: TObject); procedure DataModuleDestroy(Sender: TObject); function frxReportUserFunction(const MethodName: string; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm index 8e6e512f..06633a37 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm @@ -20,28 +20,29 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente SQL = 'SELECT'#10' V_PRESUPUESTOS_CLIENTE.ID, V_PRESUPUESTOS_CLIENTE.ID_' + 'EMPRESA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,'#10' V_PRE' + - 'SUPUESTOS_CLIENTE.REFERENCIA,'#10' V_PRESUPUESTOS_CLIENTE.PORTADA' + - ','#10' V_PRESUPUESTOS_CLIENTE.MEMORIA, V_PRESUPUESTOS_CLIENTE.OBS' + - 'ERVACIONES,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PRESUPUES' + - 'TOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CLIENTE.DESCUENTO,' + - ' V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PRESUPUESTOS_CL' + - 'IENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10' V_PRESUPUE' + - 'STOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' + - 'LIENTE,'#10' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10' CONTACTOS.' + - 'NIF_CIF, CONTACTOS.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IV' + - 'A, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_' + - 'DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTA' + - 'CTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' ' + - ' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA' + - ') AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL' + - ', CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_' + - 'CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.DESCRIPCION' + - '_BONIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION'#10'F' + - 'ROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONT' + - 'ACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOI' + - 'N CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPU' + - 'ESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID ' + - '= :ID'#10 + 'SUPUESTOS_CLIENTE.REFERENCIA || '#39' '#39' || COALESCE(V_PRESUPUESTOS_C' + + 'LIENTE.REFERENCIA_AUX, '#39#39') AS REFERENCIA,'#10' V_PRESUPUESTOS_CLI' + + 'ENTE.PORTADA,'#10' V_PRESUPUESTOS_CLIENTE.MEMORIA, V_PRESUPUESTOS' + + '_CLIENTE.OBSERVACIONES,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO,' + + ' V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CLIENT' + + 'E.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PRE' + + 'SUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10' ' + + ' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.' + + 'REFERENCIA_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10' ' + + ' CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_PRESUPUESTOS_CLIENT' + + 'E.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESC' + + 'E(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' CO' + + 'ALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS ' + + 'POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACT' + + 'OS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.C' + + 'ODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_P' + + 'RESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE' + + '.DESCRIPCION_BONIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_BO' + + 'NIFICACION'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTAC' + + 'TOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LE' + + 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' + + ' = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS' + + '_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -293,12 +294,13 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente SQL = 'SELECT '#10' ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTIC' + 'ULO, '#10' F_RTFTOTEXT(F_RTFTOTEXT(CONCEPTO)) as CONCEPTO, CONCEP' + - 'TO as CONCEPTO_RTF, CANTIDAD,'#10' UNIDAD_MEDIDA,'#10' (IMPORTE_TO' + - 'TAL / CANTIDAD) AS IMPORTE_UNIDAD,'#10' DESCUENTO, IMPORTE_PORTE,' + - #10' IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION'#10' FR' + - 'OM'#10' PRESUPUESTOS_CLIENTE_DETALLES'#10' WHERE {Where}'#10' AND (VI' + - 'SIBLE <> 0)'#10' AND (ID_PRESUPUESTO = :ID_PRESUPUESTO)'#10' ORDER B' + - 'Y ID_PRESUPUESTO, POSICION'#10 + 'TO as CONCEPTO_RTF, CANTIDAD,'#10' UNIDAD_MEDIDA,'#10' CASE WHEN C' + + 'ANTIDAD = 0 THEN 0'#10' ELSE (IMPORTE_TOTAL / CANTIDAD) END AS IM' + + 'PORTE_UNIDAD,'#10' DESCUENTO, IMPORTE_PORTE,'#10' IMPORTE_TOTAL, V' + + 'ISIBLE, FECHA_ALTA, FECHA_MODIFICACION'#10' FROM'#10' PRESUPUESTOS_C' + + 'LIENTE_DETALLES'#10' WHERE {Where}'#10' AND (VISIBLE <> 0)'#10' AND (' + + 'ID_PRESUPUESTO = :ID_PRESUPUESTO)'#10' ORDER BY ID_PRESUPUESTO, POS' + + 'ICION'#10 StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas index ce608bd1..eca9e9b1 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas @@ -142,6 +142,9 @@ var numRows, numCols, mergeSplit, shiftCells : OleVariant; iContador : Integer; TotalConceptos : Double; + ACantidad: String; + AIndice: Integer; + AText : String; begin TotalConceptos := 0; numRows := 2; @@ -160,16 +163,24 @@ begin // Partir la celda actual en 2 filas de 1 columna. Rows.Item(iContador).Cells.Split (numRows, numCols, mergesplit); Cell(iContador, 1).Range.Text := FieldByName('CONCEPTO').AsString; - Cell(iContador, 2).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + - FieldByName('UNIDAD_MEDIDA').AsString; - if FImportes - and (FieldByName('IMPORTE_UNIDAD').AsFloat <> 0) then + + ACantidad := FloatToStr(FieldByName('CANTIDAD').AsFloat); + AIndice := Pos(',', ACantidad); + if AIndice > 0 then + AText := FormatFloat('#,0.00', FieldByName('CANTIDAD').AsFloat) + else + AText := FormatFloat('#,0.##', FieldByName('CANTIDAD').AsFloat); + + Cell(iContador, 2).Range.Text := AText + ' ' + FieldByName('UNIDAD_MEDIDA').AsString; + + if FImportes and + (FieldByName('IMPORTE_UNIDAD').AsFloat <> 0) then Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat) else Cell(iContador, 3).Range.Text := ''; - if FImportes - and (FieldByName('IMPORTE_TOTAL').AsFloat <> 0) then + if FImportes and + (FieldByName('IMPORTE_TOTAL').AsFloat <> 0) then Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat) else Cell(iContador, 4).Range.Text := ''; diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm index 8eeef385..dc5e4a71 100644 --- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm +++ b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm @@ -500,7 +500,6 @@ object srvRemesasProveedor: TsrvRemesasProveedor InsertCommandName = 'Insert_RemesasProveedor' DeleteCommandName = 'Delete_RemesasProveedor' UpdateCommandName = 'Update_RemesasProveedor' - RefreshDatasetName = 'RemesasProveedor_Refresh' ReferencedDataset = 'RemesasProveedor' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly