SE quitan los vencimientos de los recibos de la factura de tecsitel mantenimiento, se repasan todos los informes de listado de facturas
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@846 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
2436563b27
commit
c4f4dcb141
@ -54,58 +54,58 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39821,591243125" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39829,6954651273" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -15,31 +15,31 @@
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="495,11843" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="260,78757" Width="1009,13451" Condition="frxDBInformeListadoFacturas."NOMBRE"" ReprintOnNewPage="True">
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="260,78757" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."NOMBRE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo52" Left="718,110236220472" Top="25" Width="113,89765" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="303,5906" Top="25" Width="414,37004213" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||
<TfrxMemoView Name="Memo49" Left="832" Top="25" Width="176,503937007874" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo8" Left="135" Top="25" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||
<TfrxMemoView Name="Memo1" Left="11,33859" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="11,33859" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="219,21274" Top="25,67718" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,763779527559" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="303,71417" Top="0" Width="414,37004213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="83,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="219,21274" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,76377953" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="303,71417" Top="0" Width="414,37004213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,50393701" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="83,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,92913386" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="219,21274" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,141732283465" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo14" Left="832,2519685" Top="0,37774772" Width="176,125984251969" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,732283464567" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes."TITULO"]:"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"">
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."MES"">
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."TITULO"]"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="411,96877" Width="1009,13451"/>
|
||||
</TfrxReportPage>
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39821,5915024537" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39829,6920516782" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -15,27 +15,27 @@
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="404,40971" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."MES"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo52" Left="718,110236220472" Top="25" Width="113,89765" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="304,5906" Top="25" Width="413,37004213" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Left="832" Top="25" Width="176,503937007874" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo8" Left="135" Top="25" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,1181102362205" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="219,99227" Top="24,67718" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="279,68522" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,763779527559" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="305,02122" Top="0" Width="413,06299213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="279,68522" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,76377953" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="305,02122" Top="0" Width="413,06299213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,50393701" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,92913386" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="321,26005" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,141732283465" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo14" Left="832,2519685" Top="0,37774772" Width="176,125984251969" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,732283464567" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes."TITULO"]:"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
</TfrxReportPage>
|
||||
|
||||
@ -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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39821,5915926968" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39829,693855787" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -15,31 +15,31 @@
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="495,11843" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="260,78757" Width="1009,13451" Condition="frxDBInformeListadoFacturas."NOMBRE"" ReprintOnNewPage="True">
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="260,78757" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."NOMBRE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo52" Left="718,110236220472" Top="25" Width="113,89765" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="304,92919" Top="25" Width="413,03145213" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Left="832" Top="25" Width="176,503937007874" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo8" Left="135" Top="25" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||
<TfrxMemoView Name="Memo1" Left="11,33859" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="11,33859" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="220,21274" Top="25,67718" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,763779527559" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="305,05276" Top="0" Width="413,03145213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="220,21274" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,76377953" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="305,05276" Top="0" Width="413,03145213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,50393701" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,92913386" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="220,21274" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,141732283465" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo14" Left="832,2519685" Top="0,37774772" Width="176,125984251969" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,732283464567" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes."TITULO"]:"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"">
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."MES"">
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."TITULO"]"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="411,96877" Width="1009,13451"/>
|
||||
</TfrxReportPage>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39821,6663905093" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39829,6981221065" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -15,31 +15,31 @@
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="495,11843" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="260,78757" Width="1009,13451" Condition="frxDBInformeListadoFacturas."NOMBRE"" ReprintOnNewPage="True">
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="260,78757" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."NOMBRE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo52" Left="718,110236220472" Top="25" Width="113,89765" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="305,04731" Top="25" Width="412,91333213" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||
<TfrxMemoView Name="Memo49" Left="832" Top="25" Width="176,503937007874" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo8" Left="135" Top="25" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||
<TfrxMemoView Name="Memo1" Left="11,33859" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="11,33859" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="220,21274" Top="25,45671" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,763779527559" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="304,95041" Top="0" Width="413,13380213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="220,21274" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,76377953" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="304,95041" Top="0" Width="413,13380213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,50393701" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,92913386" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="220,21274" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,141732283465" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo14" Left="832,2519685" Top="0,37774772" Width="176,125984251969" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,732283464567" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes."TITULO"]:"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"">
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."MES"">
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."TITULO"]"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="411,96877" Width="1009,13451"/>
|
||||
</TfrxReportPage>
|
||||
|
||||
@ -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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39821,6698337963" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39829,6988901505" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -15,27 +15,27 @@
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="404,40971" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."MES"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo52" Left="718,110236220472" Top="25" Width="113,89765" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="304,81107" Top="25" Width="413,14957213" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Left="832" Top="25" Width="176,503937007874" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo8" Left="135" Top="25" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,1181102362205" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="219,99227" Top="24,67718" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="279,68522" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,763779527559" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="306,4937" Top="0" Width="411,59051213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="85,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="279,68522" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,76377953" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="306,4937" Top="0" Width="411,59051213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,50393701" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,92913386" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="85,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="321,26005" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,141732283465" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo14" Left="832,2519685" Top="0,37774772" Width="176,125984251969" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,732283464567" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes."TITULO"]:"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
</TfrxReportPage>
|
||||
|
||||
@ -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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39821,6707128819" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39829,6997914815" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -15,31 +15,31 @@
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="495,11843" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="260,78757" Width="1009,13451" Condition="frxDBInformeListadoFacturas."NOMBRE"" ReprintOnNewPage="True">
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="260,78757" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."NOMBRE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo52" Left="718,110236220472" Top="25" Width="113,89765" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="304,60637" Top="25" Width="413,35427213" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo49" Left="832" Top="25" Width="176,503937007874" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo8" Left="135" Top="25" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||
<TfrxMemoView Name="Memo1" Left="11,33859" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="11,33859" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="219,99227" Top="25,45671" Width="85,03937008" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,763779527559" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="304,72994" Top="0" Width="413,35427213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="219,99227" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0">
|
||||
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="113,76377953" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo4" Left="304,72994" Top="0" Width="413,35427213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,50393701" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,92913386" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="219,99227" Top="0" Width="84,5923" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,141732283465" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasPendientes."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||
<TfrxMemoView Name="Memo14" Left="832,2519685" Top="0,37774772" Width="176,125984251969" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,732283464567" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes."TITULO"]:"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"">
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."MES"">
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes."TITULO"]"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="411,96877" Width="1009,13451"/>
|
||||
</TfrxReportPage>
|
||||
|
||||
@ -446,13 +446,18 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA' +
|
||||
'_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORT' +
|
||||
'E_TOTAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, M' +
|
||||
'ES, NOMBRE'#10#10
|
||||
'ES, fecha_vencimiento, NOMBRE'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MES'
|
||||
TableField = '<unknown>'
|
||||
@ -487,6 +492,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
DatasetField = 'FECHA_FACTURA'
|
||||
TableField = 'FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_VENCIMIENTO'
|
||||
TableField = 'FECHA_VENCIMIENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BASE_IMPONIBLE'
|
||||
TableField = 'BASE_IMPONIBLE'
|
||||
@ -498,15 +507,163 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasPendientes'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'MES'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'TITULO'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'V_FACTURAS_PROVEEDOR'
|
||||
SQL =
|
||||
'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
|
||||
'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
|
||||
' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
|
||||
'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
|
||||
'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
|
||||
'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
|
||||
'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
|
||||
'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
|
||||
'(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
|
||||
'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
|
||||
'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
|
||||
' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
|
||||
' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
|
||||
' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
|
||||
'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
|
||||
'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
|
||||
'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
|
||||
#10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
|
||||
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
||||
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
||||
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' +
|
||||
'ITUACION, NIF_CIF, FECHA_FACTURA, fecha_vencimiento, BASE_IMPONI' +
|
||||
'BLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where' +
|
||||
' {where}'#10'order by ANO, MES, fecha_factura, NOMBRE'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MES'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'MES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TITULO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'TITULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PROVEEDOR'
|
||||
TableField = 'ID_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'SITUACION'
|
||||
TableField = 'SITUACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIF_CIF'
|
||||
TableField = 'NIF_CIF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_FACTURA'
|
||||
TableField = 'FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_VENCIMIENTO'
|
||||
TableField = 'FECHA_VENCIMIENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BASE_IMPONIBLE'
|
||||
TableField = 'BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_IVA'
|
||||
TableField = 'IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturas'
|
||||
@ -1545,4 +1702,94 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Left = 576
|
||||
Top = 16
|
||||
end
|
||||
object tbl_InformeListadoFacturasPendientes: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'MES'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'TITULO'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABINAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InformeListadoFacturasPendientes'
|
||||
IndexDefs = <>
|
||||
Left = 768
|
||||
Top = 128
|
||||
end
|
||||
object DADSInformeListadoFacturasPendientes: TDADataSource
|
||||
DataSet = tbl_InformeListadoFacturasPendientes.Dataset
|
||||
DataTable = tbl_InformeListadoFacturasPendientes
|
||||
Left = 768
|
||||
Top = 72
|
||||
end
|
||||
object frxDBInformeListadoFacturasPendientes: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoFacturasPendientes'
|
||||
CloseDataSource = True
|
||||
DataSource = DADSInformeListadoFacturasPendientes
|
||||
Left = 768
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
|
||||
@ -80,11 +80,14 @@ type
|
||||
tbl_InformeListadoFacturas: TDAMemDataTable;
|
||||
DADSInformeListadoFacturas: TDADataSource;
|
||||
frxDBInformeListadoFacturas: TfrxDBDataset;
|
||||
tbl_InformeListadoFacturasPendientes: TDAMemDataTable;
|
||||
DADSInformeListadoFacturasPendientes: TDADataSource;
|
||||
frxDBInformeListadoFacturasPendientes: TfrxDBDataset;
|
||||
schReport: TDASchema;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||
function _GenerarInforme(ATabla: TDAMemDataTable; const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
public
|
||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -135,7 +138,7 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeIVA;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(tbl_InformeListadoFacturas, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeListadoFacturas(
|
||||
@ -154,7 +157,7 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeListadoFacturasProveedor;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(tbl_InformeListadoFacturas, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
|
||||
@ -167,11 +170,11 @@ var
|
||||
ATipoInforme: String;
|
||||
|
||||
begin
|
||||
if tbl_InformeListadoFacturas.Active then
|
||||
tbl_InformeListadoFacturas.Active := False;
|
||||
if tbl_InformeListadoFacturasPendientes.Active then
|
||||
tbl_InformeListadoFacturasPendientes.Active := False;
|
||||
|
||||
// Filtrar el informe por situacion
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
with tbl_InformeListadoFacturasPendientes.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorSITUACION), NewConstant('PAGADA', datString), dboNotEqual);
|
||||
@ -189,10 +192,10 @@ begin
|
||||
ATipoInforme := rptInformeListadoFactuasProveedorPendiente;
|
||||
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(tbl_InformeListadoFacturasPendientes, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String;
|
||||
function TRptFacturasProveedor._GenerarInforme(ATabla: TDAMemDataTable; const TipoInforme: String;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||
@ -207,11 +210,11 @@ begin
|
||||
|
||||
try
|
||||
|
||||
if tbl_InformeListadoFacturas.Active then
|
||||
tbl_InformeListadoFacturas.Active := False;
|
||||
if ATabla.Active then
|
||||
ATabla.Active := False;
|
||||
|
||||
// Filtrar el informe por empresa
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_EMPRESA), NewConstant(IdEmpresa, datInteger), dboEqual);
|
||||
@ -225,7 +228,7 @@ begin
|
||||
if not VarIsNull(FechaInicio)
|
||||
and not VarIsNull(FechaFin) then
|
||||
begin
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
@ -241,7 +244,7 @@ begin
|
||||
if not VarIsNull(FechaVenInicio)
|
||||
and not VarIsNull(FechaVenFin) then
|
||||
begin
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
|
||||
@ -256,7 +259,7 @@ begin
|
||||
// Filtrar el informe por proveedor
|
||||
if Assigned(ListaIDProveedores) then
|
||||
begin
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
for i := 0 to ListaIDProveedores.Count - 1 do
|
||||
begin
|
||||
@ -274,7 +277,7 @@ begin
|
||||
// Filtrar el informe por importe minimo
|
||||
if (ImporteMinimo > 0) then
|
||||
begin
|
||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (IMPORTE_TOTAL > ImporteMinimo)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorIMPORTE_TOTAL), NewConstant(ImporteMinimo, datCurrency), dboGreaterOrEqual);
|
||||
@ -286,7 +289,7 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
tbl_InformeListadoFacturas.Active := True;
|
||||
ATabla.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntTostr(IdEmpresa));
|
||||
if VarIsNull(AInforme) then
|
||||
|
||||
Binary file not shown.
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.6.3.0\0"
|
||||
VALUE "ProductVersion", "1.6.3.0\0"
|
||||
VALUE "CompileDate", "viernes, 16 de enero de 2009 15:08\0"
|
||||
VALUE "CompileDate", "viernes, 16 de enero de 2009 16:53\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user