diff --git a/Source/Informes/InfAlbaranCliente.fr3 b/Source/Informes/InfAlbaranCliente.fr3 index a959b9c6..ba9e8720 100644 --- a/Source/Informes/InfAlbaranCliente.fr3 +++ b/Source/Informes/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -32,7 +32,7 @@ - + diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3 index 37d2d193..2872cb88 100644 --- a/Source/Informes/InfFacturaCliente.fr3 +++ b/Source/Informes/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -51,7 +51,7 @@ - + diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index f45e7f9a..acafde66 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -243,12 +243,13 @@ object RptAlbaranesCliente: TRptAlbaranesCliente '.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' + 'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' + 'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' + - 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, AL' + - 'BARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFEREN' + - 'CIA'#10'FROM ALBARANES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON ' + - '(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ' + - ' ID_ALBARAN = :ID_ALBARAN AND (VISIBLE <> 0) AND {Where}'#10'ORDER' + - ' BY ID_ALBARAN, POSICION'#10 + 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10' ' + + ' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE' + + '_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM ALBARA' + + 'NES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (ALBARANES_CLIE' + + 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_ALBARAN =' + + ' :ID_ALBARAN AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_ALBARAN,' + + ' POSICION'#10 StatementType = stSQL ColumnMappings = < item @@ -286,6 +287,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item DatasetField = 'ID_ALBARAN' TableField = 'ID_ALBARAN' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'Informe_Detalles' @@ -316,6 +321,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -1094,6 +1104,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index cdbbd58b..e3ada53d 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas @@ -59,9 +59,9 @@ type detallesREFERENCIA: TIBStringField; tbl_Cabecera: TDAMemDataTable; tbl_Detalles: TDAMemDataTable; + frxPDFExport1: TfrxPDFExport; schReport: TDASchema; DataDictionary: TDADataDictionary; - frxPDFExport1: TfrxPDFExport; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm index 2080188a..b02bbf38 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm @@ -187,7 +187,7 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente Params = < item Name = 'ID_ALBARAN' - Value = '' + Value = '2' ParamType = daptInput end> Statements = < @@ -200,12 +200,13 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente '.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' + 'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' + 'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' + - 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, AL' + - 'BARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFEREN' + - 'CIA'#10'FROM ALBARANES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON ' + - '(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10' WHERE ' + - '{Where}'#10' AND (VISIBLE) <> 0'#10' AND (ID_ALBARAN = :ID_ALBARAN' + - ')'#10' ORDER BY ID_ALBARAN, POSICION'#10 + 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10' ' + + ' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE' + + '_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM ALBARA' + + 'NES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (ALBARANES_CLIE' + + 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10' WHERE {Where}'#10' AND' + + ' (VISIBLE) <> 0'#10' AND (ID_ALBARAN = :ID_ALBARAN)'#10' ORDER BY ID' + + '_ALBARAN, POSICION'#10 StatementType = stSQL ColumnMappings = < item @@ -243,6 +244,10 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'Informe_Detalles' @@ -274,6 +279,11 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -438,6 +448,11 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -454,7 +469,7 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente Params = < item Name = 'ID_ALBARAN' - Value = '' + Value = '2' ParamType = daptInput end> MasterParamsMappings.Strings = ( diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas index fbfb408d..e19d9b24 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas @@ -13,9 +13,9 @@ type DABin2DataStreamer: TDABin2DataStreamer; tbl_Cabecera: TDAMemDataTable; tbl_Detalles: TDAMemDataTable; + tbl_Empresa: TDAMemDataTable; schReport: TDASchema; DataDictionary: TDADataDictionary; - tbl_Empresa: TDAMemDataTable; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; @@ -186,8 +186,8 @@ 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; {------- PENDIENTE + ' ' + - FieldByName('UNIDADESMEDIDA').AsString; ------} + Cell(iRowCount, 3).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + + FieldByName('UNIDAD_MEDIDA').AsString; if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then Cell(iRowCount, 4).Range.Text := '' else diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas index 6466556c..a1fa13d8 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas @@ -123,6 +123,7 @@ begin with AEditor do begin AEditor.Controller := Self; + ListaID := AListaID; LoadFromStream(AStream); Preview; Release; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 1aa38d9d..78886fcb 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -301,12 +301,12 @@ object RptFacturasCliente: TRptFacturasCliente Connection = 'IBX' SQL = 'SELECT'#10' DET.ID, DET.ID_FACTURA, DET.POSICION, DET.TIPO_DETALL' + - 'E, ARTICULOS.REFERENCIA,'#10' DET.CONCEPTO, DET.CANTIDAD, DET.IMP' + - 'ORTE_UNIDAD, DET.DESCUENTO,'#10' DET.IMPORTE_TOTAL, DET.VISIBLE'#10'F' + - 'ROM FACTURAS_CLIENTE_DETALLES AS DET'#10'LEFT OUTER JOIN ARTICULOS O' + - 'N (ARTICULOS.ID = DET.ID_ARTICULO)'#10'WHERE DET.ID_FACTURA = :ID_FA' + - 'CTURA AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_FACTURA, D' + - 'ET.POSICION;'#10 + 'E, ARTICULOS.REFERENCIA,'#10' DET.CONCEPTO, DET.CANTIDAD, DET.UNI' + + 'DAD_MEDIDA, DET.IMPORTE_UNIDAD,'#10' DET.DESCUENTO, DET.IMPORTE_T' + + 'OTAL, DET.VISIBLE'#10'FROM FACTURAS_CLIENTE_DETALLES AS DET'#10'LEFT OUT' + + 'ER JOIN ARTICULOS ON (ARTICULOS.ID = DET.ID_ARTICULO)'#10'WHERE DET.' + + 'ID_FACTURA = :ID_FACTURA AND DET.VISIBLE = 1 AND {Where}'#10'ORDER B' + + 'Y DET.ID_FACTURA, DET.POSICION;'#10 StatementType = stSQL ColumnMappings = < item @@ -352,6 +352,10 @@ object RptFacturasCliente: TRptFacturasCliente item DatasetField = 'VISIBLE' TableField = 'VISIBLE' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'InformeFacturasCliente_Detalles' @@ -394,6 +398,11 @@ object RptFacturasCliente: TRptFacturasCliente DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -1012,6 +1021,11 @@ object RptFacturasCliente: TRptFacturasCliente DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index 4addcff8..faa36925 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -79,8 +79,8 @@ type cabeceraDATOS_BANCARIOS: TIBStringField; vencimientosFECHA_VENCIMIENTO: TDateField; vencimientosIMPORTE_TOTAL: TIBBCDField; - schReport: TDASchema; frxPDFExport1: TfrxPDFExport; + schReport: TDASchema; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm index 84e0e674..7181091f 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm @@ -286,11 +286,12 @@ object RptWordFacturaCliente: TRptWordFacturaCliente SQL = 'SELECT'#10' DET.ID, DET.ID_FACTURA, DET.POSICION, DET.TIPO_DETALL' + 'E, ARTICULOS.REFERENCIA,'#10' F_RTFTOTEXT(CONCEPTO) as CONCEPTO, ' + - 'CONCEPTO as CONCEPTO_RTF, CANTIDAD,'#10' DET.IMPORTE_UNIDAD, DET.' + - 'DESCUENTO,'#10' DET.IMPORTE_TOTAL, DET.VISIBLE'#10'FROM FACTURAS_CLIE' + - 'NTE_DETALLES AS DET'#10'LEFT OUTER JOIN ARTICULOS ON (ARTICULOS.ID =' + - ' DET.ID_ARTICULO)'#10'WHERE DET.ID_FACTURA = :ID_FACTURA AND DET.VIS' + - 'IBLE = 1 AND {Where}'#10'ORDER BY DET.ID_FACTURA, DET.POSICION;'#10 + 'CONCEPTO as CONCEPTO_RTF, CANTIDAD,'#10' DET.UNIDAD_MEDIDA,'#10' D' + + 'ET.IMPORTE_UNIDAD, DET.DESCUENTO,'#10' DET.IMPORTE_TOTAL, DET.VIS' + + 'IBLE'#10'FROM FACTURAS_CLIENTE_DETALLES AS DET'#10'LEFT OUTER JOIN ARTIC' + + 'ULOS ON (ARTICULOS.ID = DET.ID_ARTICULO)'#10'WHERE DET.ID_FACTURA = ' + + ':ID_FACTURA AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_FACT' + + 'URA, DET.POSICION;'#10 StatementType = stSQL ColumnMappings = < item @@ -340,6 +341,10 @@ object RptWordFacturaCliente: TRptWordFacturaCliente item DatasetField = 'CONCEPTO_RTF' TableField = 'CONCEPTO_RTF' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'Informe_Detalles' @@ -381,6 +386,11 @@ object RptWordFacturaCliente: TRptWordFacturaCliente Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -625,15 +635,30 @@ object RptWordFacturaCliente: TRptWordFacturaCliente DataType = datString Size = 10 end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end item Name = 'CONCEPTO' DataType = datString + Size = 254 + end + item + Name = 'CONCEPTO_RTF' + DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -653,7 +678,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente Params = < item Name = 'ID_FACTURA' - Value = '' + Value = '2' ParamType = daptInput end> MasterParamsMappings.Strings = ( diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas index 1f762daf..64b8b8ce 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas @@ -14,9 +14,9 @@ type tbl_Cabecera: TDAMemDataTable; tbl_Detalles: TDAMemDataTable; tbl_Empresa: TDAMemDataTable; + tbl_Vencimientos: TDAMemDataTable; schReport: TDASchema; DataDictionary: TDADataDictionary; - tbl_Vencimientos: TDAMemDataTable; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; @@ -327,8 +327,8 @@ 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('UNIDADESMEDIDA').AsString;} + Cell(iRowCount, 3).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + + 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/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res index 8b251f31..1641339f 100644 Binary files a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res and b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res differ diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm index 2d35be80..229c6c97 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm @@ -269,11 +269,11 @@ 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' IMPORTE_UNIDAD, DESCUENTO, IMP' + - 'ORTE_PORTE,'#10' IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFI' + - 'CACION'#10' FROM'#10' PRESUPUESTOS_CLIENTE_DETALLES'#10' WHERE {Where}'#10 + - ' AND (VISIBLE) <> 0'#10' AND (ID_PRESUPUESTO = :ID_PRESUPUESTO' + - ')'#10' ORDER BY ID_PRESUPUESTO, POSICION'#10 + 'TO as CONCEPTO_RTF, CANTIDAD,'#10' UNIDAD_MEDIDA, IMPORTE_UNIDAD,' + + ' DESCUENTO, IMPORTE_PORTE,'#10' IMPORTE_TOTAL, VISIBLE, FECHA_ALT' + + 'A, FECHA_MODIFICACION'#10' FROM'#10' PRESUPUESTOS_CLIENTE_DETALLES'#10' ' + + ' WHERE {Where}'#10' AND (VISIBLE) <> 0'#10' AND (ID_PRESUPUESTO = ' + + ':ID_PRESUPUESTO)'#10' ORDER BY ID_PRESUPUESTO, POSICION'#10 StatementType = stSQL ColumnMappings = < item @@ -335,6 +335,10 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente item DatasetField = 'CONCEPTO_RTF' TableField = 'CONCEPTO_RTF' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'Informe_Detalles' @@ -364,7 +368,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente item Name = 'CONCEPTO' DataType = datString - Size = 2000 + Size = 254 end item Name = 'CONCEPTO_RTF' @@ -375,6 +379,11 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -584,17 +593,22 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente item Name = 'CONCEPTO' DataType = datString - Size = 2000 + Size = 254 end item Name = 'CONCEPTO_RTF' DataType = datString - Size = 254 + Size = 2000 end item Name = 'CANTIDAD' DataType = datInteger end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas index df369d9a..218a493b 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas @@ -162,8 +162,8 @@ 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; {------- PENDIENTE + ' ' + - FieldByName('UNIDADESMEDIDA').AsString; ------} + Cell(iContador, 2).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + + FieldByName('UNIDAD_MEDIDA').AsString; if FImportes then Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat) else