Ticket #191 -> En todos los informes repasar la mascara de cantidades e importes para que salgan con dos decimales y el punto de miles x.xxx,xx
Ticket #188 -> Repasar informes de pedidos de proveedor para que el campo notas (observaciones) contemple 2 lineas Ticket #190 -> Repasar los informes de recibos de cliente de tecsitel mantenimiento porque no están bien Presupuestos: - Sacar la referencia aux al lado de la referencia normal al imprimir un presupuesto. Presupuestos: - Corregido sentencia SQL de la impresión de presupuestos en el caso de que un detalle tenga cantidad 0. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@949 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
9bc73a9f8b
commit
f2511f13a0
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" 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="39919,7017386343" 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="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
|
||||
<TfrxReport Version="4.7.71" 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="39951,4608738426" 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; procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent); var ACantidad: String; AIndice: Integer; AText : String; begin frxDBDetallesCANTIDAD.Memo.Clear; ACantidad := FloatToStr(<frxDBDetalles."CANTIDAD">); AIndice := Pos(',', ACantidad); if AIndice > 0 then AText := '[FormatFloat(''#,##0.00'',<frxDBDetalles."CANTIDAD">)] [frxDBDetalles."UNIDAD_MEDIDA"]' else AText := '[FormatFloat(''#,##0.##'',<frxDBDetalles."CANTIDAD">)] [frxDBDetalles."UNIDAD_MEDIDA"]'; frxDBDetallesCANTIDAD.Memo.Add(AText); 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="16" Width="642,5201" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||
@ -30,8 +30,8 @@
|
||||
<TfrxMemoView Name="Memo34" Left="0" Top="0" Width="642,5201" Height="18,89765" ShowHint="False" 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="349" 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" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," 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" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="Memo35" Left="468,79529024" Top="0" Width="77,48030276" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" 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" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesCANTIDAD" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" OnBeforePrint="frxDBDetallesCANTIDADOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," 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" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="Memo35" Left="468,79529024" Top="0" Width="77,48030276" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.ThousandSeparator="." 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" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
||||
<TfrxMemoView Name="Memo36" Left="546,03185" Top="0" Width="96,48825" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" 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" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesCONCEPTO" Left="86,92919" Top="0" Width="276,66136118" Height="22,67716535" ShowHint="False" StretchMode="smActualHeight" 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"]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="0" Top="0" Width="86,55115913" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataField="REFERENCIA" 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="15" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" 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="39919,702507037" 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 Memo35OnBeforePrint(Sender: TfrxComponent); begin { if not <ImprimirPrecio> then Memo35.Lines.Clear;} end; procedure Memo36OnBeforePrint(Sender: TfrxComponent); begin { if not <ImprimirPrecio> then Memo36.Lines.Clear;} end; procedure Memo6OnBeforePrint(Sender: TfrxComponent); begin { if not <ImprimirRefProveedor> then Memo6.Lines.Clear;} end; procedure PageHeader2OnBeforePrint(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; procedure Memo21OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."TIPO"> = 'D') then begin Memo21.Lines.Clear; Memo21.Lines.Add('ORDEN DE DEVOLUCION'); end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F72220000055374796C650100">
|
||||
<TfrxReport Version="4.7.71" 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="39951,644517662" 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 Memo35OnBeforePrint(Sender: TfrxComponent); begin { if not <ImprimirPrecio> then Memo35.Lines.Clear;} end; procedure Memo36OnBeforePrint(Sender: TfrxComponent); begin { if not <ImprimirPrecio> then Memo36.Lines.Clear;} end; procedure Memo6OnBeforePrint(Sender: TfrxComponent); begin { if not <ImprimirRefProveedor> then Memo6.Lines.Clear;} end; procedure PageHeader2OnBeforePrint(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; procedure Memo21OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."TIPO"> = 'D') then begin Memo21.Lines.Clear; Memo21.Lines.Add('ORDEN DE DEVOLUCION'); end; end; procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent); var ACantidad: String; AIndice: Integer; AText : String; begin frxDBDetallesCANTIDAD.Memo.Clear; ACantidad := FloatToStr(<frxDBDetalles."CANTIDAD">); AIndice := Pos(',', ACantidad); if AIndice > 0 then AText := '[FormatFloat(''#,##0.00'',<frxDBDetalles."CANTIDAD">)] [frxDBDetalles."UNIDAD_MEDIDA"]' else AText := '[FormatFloat(''#,##0.##'',<frxDBDetalles."CANTIDAD">)] [frxDBDetalles."UNIDAD_MEDIDA"]'; frxDBDetallesCANTIDAD.Memo.Add(AText); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F72220000055374796C650100">
|
||||
<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" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="20" RightMargin="20" TopMargin="15" BottomMargin="15" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="PageHeader2" Height="200,31509" Left="0" Top="16" Width="971,33921" OnBeforePrint="PageHeader2OnBeforePrint">
|
||||
@ -28,7 +28,7 @@
|
||||
<TfrxMemoView Name="Memo9" Left="744,56741" Top="0" Width="100,15748276" Height="22,67718" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="TOTAL"/>
|
||||
</TfrxFooter>
|
||||
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="322" Width="971,33921" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="frxDBDetallesPOSICION" Left="627,53562835" Top="0" Width="116,78739913" Height="22,67718" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="frxDBDetallesCANTIDAD" Left="627,53562835" Top="0" Width="116,78739913" Height="22,67718" OnBeforePrint="frxDBDetallesCANTIDADOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."CANTIDAD"] [frxDBDetalles."UNIDAD_MEDIDA"]"/>
|
||||
<TfrxMemoView Name="Memo35" Left="744,70098024" Top="0" Width="100,15748276" Height="22,67718" OnBeforePrint="Memo35OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" 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" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
||||
<TfrxMemoView Name="Memo36" Left="844,61472" Top="0" Width="126,72449" Height="22,67718" OnBeforePrint="Memo36OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" 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" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo6" Left="0" Top="0" Width="97,88974913" Height="22,67718" OnBeforePrint="Memo6OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles."REFERENCIA_PROVEEDOR"]"/>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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 := ''
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -52,16 +52,14 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Obras\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Obras\Base.dcp" />
|
||||
<DCCReference Include="..\..\Obras\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Obras\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Obras\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Obras\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Obras\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Obras\vcldb.dcp" />
|
||||
<DCCReference Include="..\Controller\adortlBase.dcp" />
|
||||
<DCCReference Include="..\Controller\Contactos_modelcontainsuIDataModulePresupuestosClientein.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
|
||||
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
|
||||
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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 := '';
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user