From 1603210f50e6750d267babd550c0f045eef285b1 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 8 Sep 2008 15:46:28 +0000 Subject: [PATCH] Unidades de medida en los informes de facturas de cliente y albaranes de cliente. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@580 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Informes/InfAlbaranCliente.fr3 | 4 +- Source/Informes/InfFacturaCliente.fr3 | 4 +- .../Reports/uRptAlbaranesCliente_Server.dfm | 27 ++++++++++--- .../Reports/uRptAlbaranesCliente_Server.pas | 2 +- .../Reports/uRptWordAlbaranCliente.dfm | 31 +++++++++++---- .../Reports/uRptWordAlbaranCliente.pas | 6 +-- .../uFacturasClienteReportController.pas | 1 + .../Reports/uRptFacturasCliente_Server.dfm | 26 +++++++++--- .../Reports/uRptFacturasCliente_Server.pas | 2 +- .../Reports/uRptWordFacturaCliente.dfm | 37 +++++++++++++++--- .../Reports/uRptWordFacturaCliente.pas | 6 +-- .../Views/FacturasCliente_view.res | Bin 384 -> 4748 bytes .../Reports/uRptWordPresupuestoCliente.dfm | 30 ++++++++++---- .../Reports/uRptWordPresupuestoCliente.pas | 4 +- 14 files changed, 132 insertions(+), 48 deletions(-) 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 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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