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
This commit is contained in:
parent
4d6f36d0e9
commit
1603210f50
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39506,876883125" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin { DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); } end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin { NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); } end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin { ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '') then ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := ACadena + ' ' + <frxDBCabecera."PERSONA_CONTACTO">; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); } end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin { if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1));} end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
|
||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39699,7012467014" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin { DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); } end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin { NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); } end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin { ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '') then ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := ACadena + ' ' + <frxDBCabecera."PERSONA_CONTACTO">; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); } end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin { if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1));} end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page3" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="20" RightMargin="20" TopMargin="20" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="PageHeader2" Height="222,99227" Left="0" Top="18,89765" Width="642,5201">
|
||||
@ -32,7 +32,7 @@
|
||||
<TfrxMemoView Name="Memo34" Left="0" Top="0" Width="642,5201" Height="18,89765" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" HAlign="haRight" ParentFont="False" Text=""/>
|
||||
</TfrxFooter>
|
||||
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="355,27582" Width="642,5201" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="frxDBDetallesPOSICION" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" StretchMode="smMaxHeight" DataField="CANTIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesPOSICION" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="Memo35" Left="468,79529024" Top="0" Width="77,48030276" Height="22,67718" StretchMode="smMaxHeight" DataField="IMPORTE_UNIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
||||
<TfrxMemoView Name="Memo36" Left="546,03185" Top="0" Width="96,48825" Height="22,67718" StretchMode="smMaxHeight" DataField="IMPORTE_TOTAL" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesCONCEPTO" Left="86,92919" Top="0" Width="276,66136118" Height="22,67716535" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles."CONCEPTO"]"/>
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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 = (
|
||||
|
||||
@ -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
|
||||
|
||||
@ -123,6 +123,7 @@ begin
|
||||
with AEditor do
|
||||
begin
|
||||
AEditor.Controller := Self;
|
||||
ListaID := AListaID;
|
||||
LoadFromStream(AStream);
|
||||
Preview;
|
||||
Release;
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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 = (
|
||||
|
||||
@ -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;
|
||||
|
||||
Binary file not shown.
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user