Se adaptan los informes de facturas de proveedor para que salga el mismo resumen que en el programa antiguo
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@869 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
c87b4a5b5c
commit
238e5dedb1
@ -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="39743,7156450694" 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="39834,6948855093" 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="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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">
|
||||
@ -12,7 +12,7 @@
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxMemoView Name="Memo19" Left="657,63822" Top="113,3859" Width="296,85034" Height="17,00787402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" HAlign="haRight" ParentFont="False" Text="Página [<Pagina>] de [<TotalPaginas>]"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="404,40971" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="582,04762" 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">
|
||||
@ -23,9 +23,9 @@
|
||||
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,244094488189" 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 IVA"/>
|
||||
<TfrxMemoView Name="Memo52" Left="914,267716535433" Top="25" Width="94,1102362204724" 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="Memo8" Left="632" Top="25" Width="92,67718" 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="3,77953" Width="485,37013" Height="13" 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="3,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"]"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="279,68522" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<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="Memo18" Left="0" Top="0" Width="86,95698" Height="17,007874015748" 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="Memo4" Left="86,70872" Top="0" Width="464,25545" Height="17,007874015748" 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="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" 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."NIF_CIF"]"/>
|
||||
@ -41,5 +41,24 @@
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="724,57139" 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"]:"/>
|
||||
</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=""/>
|
||||
<TfrxMasterData Name="DatosMaestros2" Height="17,007874015748" Left="0" Top="464,88219" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="382,32282" Height="17,00787402" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" 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="[frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" 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="[frxDBInformeListadoFacturasResumen."IMPORTE_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="571,63018" Top="0" Width="94,64276" 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="[frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxReportSummary Name="ReportSummary1" Height="15,1181102362205" Left="0" Top="544,25232" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" 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="Total: "/>
|
||||
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0" Width="95" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,DatosMaestros2)]"/>
|
||||
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0" Width="95" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,DatosMaestros2)]"/>
|
||||
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0" Width="94,48818898" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,DatosMaestros2)]"/>
|
||||
</TfrxReportSummary>
|
||||
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo1" Left="0" Top="26,45671" 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="Resumen por meses de las facturas de proveedor"/>
|
||||
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="383,62987" 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="Resumen por meses de facturas de proveedor"/>
|
||||
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" 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="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" 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 IVA"/>
|
||||
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" 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"/>
|
||||
</TfrxHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
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="39829,6910754745" 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="39834,6847753819" 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="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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">
|
||||
@ -12,7 +12,7 @@
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxMemoView Name="Memo19" Left="657,63822" Top="113,3859" Width="296,85034" Height="17,00787402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" HAlign="haRight" ParentFont="False" Text="Página [<Pagina>] de [<TotalPaginas>]"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="404,40971" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="619,84292" 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">
|
||||
@ -21,9 +21,9 @@
|
||||
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" 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="Memo50" Left="724" Top="25" Width="95" 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="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" 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 IVA"/>
|
||||
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="94,488188976378" 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="Memo52" Left="913,35436" Top="25" Width="94,48818898" 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="Memo8" Left="88" 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="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="172,85838" 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">
|
||||
@ -31,17 +31,36 @@
|
||||
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" 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="88,06299213" Top="0" Width="85,0393652" 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="88,0629921259843" 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="Memo29" Left="724,15748031" Top="0" Width="94,488188976378" 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."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,244094488189" 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_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="912,755905511811" Top="0" Width="94,64276" 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="Memo29" Left="724,15748031" Top="0" Width="94,48818898" 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."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" 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_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="912,75590551" Top="0" Width="94,64276" 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="Memo5" Left="172,85838" Top="0" Width="85,0393652" 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>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="321,26005" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" 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="Memo6" Left="913,511811023622" Top="0,37774772" Width="94,48818898" 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="913,51181102" Top="0,37774772" Width="94,48818898" 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="Memo14" Left="817,13385827" Top="0,37774772" Width="96,3779527559055" 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_IVA">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,1102362204724" 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."BASE_IMPONIBLE">,DatosMaestros1)]"/>
|
||||
</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=""/>
|
||||
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="464,88219" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="382,32282" Height="17,00787402" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" 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="[frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" 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="[frxDBInformeListadoFacturasResumen."IMPORTE_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="571,63018" Top="0" Width="94,64276" 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="[frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="383,62987" 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="Resumen por meses de facturas de proveedor"/>
|
||||
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" 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="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" 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 IVA"/>
|
||||
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" 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="Memo23" Left="7,55906" Top="30,23624" 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="Resumen por meses de las facturas de proveedor"/>
|
||||
</TfrxHeader>
|
||||
<TfrxReportSummary Name="ReportSummary1" Height="52,91342" Left="0" Top="544,25232" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo24" Left="0" Top="0,11812" Width="383,62987" 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="Total: "/>
|
||||
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0,11812" Width="95" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,DatosMaestros2)] "/>
|
||||
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0,11812" Width="95" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,DatosMaestros2)]"/>
|
||||
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0,11812" Width="94,48818898" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,DatosMaestros2)]"/>
|
||||
</TfrxReportSummary>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -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,5914185417" 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="39834,6868127778" 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="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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">
|
||||
@ -12,39 +12,58 @@
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxMemoView Name="Memo19" Left="657,63822" Top="113,3859" Width="296,85034" Height="17,00787402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" HAlign="haRight" ParentFont="False" Text="Página [<Pagina>] de [<TotalPaginas>]"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="495,11843" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="710,55164" 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">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" 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="257,92919" Top="25" Width="386,4094" 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="Memo28" Left="256,92919" Top="25" Width="387,4094" 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="644" Top="25" Width="81,33859" 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="Memo50" Left="724" Top="25" Width="95" 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="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" 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 IVA"/>
|
||||
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="95" 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="Memo52" Left="913,35436" Top="25" Width="94,48818898" 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="Memo8" Left="88" 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="3,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."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="172,85838" 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."/>
|
||||
<TfrxMemoView Name="Memo7" Left="20,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="[frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="172,85838" 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="325,03958" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<TfrxMemoView Name="Memo4" Left="257,59060732" Top="0" Width="386,8188415" 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="644,40944882" Top="0" Width="79,7480315" Height="17,007874015748" 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="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" 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="88,06299213" Top="0" Width="85,0393652" 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="88,06299213" Height="17,007874015748" 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="Memo29" Left="724,15748031" Top="0" Width="94,48818898" Height="17,007874015748" 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."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" Height="17,007874015748" 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_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="912,75590551" Top="0" Width="95,62204724" Height="17,007874015748" 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="Memo9" Left="172,85838" Top="0" Width="85,0393652" 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"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,0629921259843" 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="Memo29" Left="724,15748031" Top="0" Width="94,48818898" 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."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" 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_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="912,75590551" Top="0" Width="94,64276" 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="Memo5" Left="172,85838" Top="0" Width="85,0393652" 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>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="913,133858267717" Top="0,37774772" Width="95" 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="Memo14" Left="816,22936" Top="0,37774772" Width="97,1338582677165" 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_IVA">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo15" Left="724,157480314961" Top="0,37774772" Width="94,488188976378" 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."BASE_IMPONIBLE">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="724,157480314961" 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="723,77952756" 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="Memo6" Left="913,51181102" Top="0,37774772" Width="94,48818898" 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="Memo14" Left="817,13385827" Top="0,37774772" Width="96,3779527559055" 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_IVA">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,1102362204724" 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."BASE_IMPONIBLE">,DatosMaestros1)]"/>
|
||||
</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=""/>
|
||||
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="555,59091" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="382,32282" Height="17,00787402" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" 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="[frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" 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="[frxDBInformeListadoFacturasResumen."IMPORTE_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="571,63018" Top="0" Width="94,64276" 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="[frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="457,32313" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="383,62987" 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="Resumen por meses de facturas de proveedor"/>
|
||||
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" 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="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" 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 IVA"/>
|
||||
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" 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="Memo23" Left="7,55906" Top="30,23624" 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="Resumen por meses de las facturas de proveedor"/>
|
||||
</TfrxHeader>
|
||||
<TfrxReportSummary Name="ReportSummary1" Height="52,91342" Left="0" Top="634,96104" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="16,03896" 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=""/>
|
||||
<TfrxMemoView Name="Memo24" Left="0" Top="0,11812" Width="383,62987" 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="Total: "/>
|
||||
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0,11812" Width="95" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,DatosMaestros2)]"/>
|
||||
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0,11812" Width="95" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,DatosMaestros2)]"/>
|
||||
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0,11812" Width="94,48818898" Height="15" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,DatosMaestros2)]"/>
|
||||
</TfrxReportSummary>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"">
|
||||
<TfrxMemoView Name="Memo1" Left="0" Top="2,77953" Width="492,92919" 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="Memo33" Left="7,55906" 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>
|
||||
<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="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">
|
||||
<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="39835,577435787" 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="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C6600000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||
<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">
|
||||
@ -12,35 +12,50 @@
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxMemoView Name="Memo19" Left="657,63822" Top="113,3859" Width="296,85034" Height="17,00787402" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" HAlign="haRight" ParentFont="False" Text="Página [<Pagina>] de [<TotalPaginas>]"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="495,11843" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="642,5201" 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 ..."/>
|
||||
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="4,70037" 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=""/>
|
||||
</TfrxPageFooter>
|
||||
<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="[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."/>
|
||||
<TfrxMemoView Name="Memo52" Left="823,36220961" Top="25" Width="106,33859" 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="97,88976378" 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="270,61417323" Top="25" Width="299,98414213" 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="930,26778" Top="25" Width="78,23615701" 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="97,88976378" Top="25" Width="88,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,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="Memo1" Left="185,952755905512" 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."/>
|
||||
<TfrxMemoView Name="Memo9" Left="570,5201" Top="24,67718" Width="252,46435213" 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="Banco"/>
|
||||
</TfrxGroupHeader>
|
||||
<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 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" Stretched="True">
|
||||
<TfrxMemoView Name="Memo31" Left="823,80314961" Top="0" Width="105,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="270,61417323" Top="0" Width="300,67709213" 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="929,97681" Top="0" Width="78,23615701" 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="97,8897637795276" Top="0" Width="87,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="97,1338582677165" 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="185,952755905512" 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"]"/>
|
||||
<TfrxMemoView Name="Memo10" Left="570,5201" Top="0" Width="253,37777213" 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."DATOS_BANCARIOS"]"/>
|
||||
</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,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,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"]:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="823,91371" Top="0,37774772" Width="108,24408228" 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="930,5197485" Top="0,37774772" Width="77,85820425" 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="823,55912346" 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="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"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="525,35467" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasPendResumen" DataSetName="frxDBInformeListadoFacturasPendResumen" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="252,37777213" 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=" [frxDBInformeListadoFacturasPendResumen."DATOS_BANCARIOS"]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="252,22851" Top="0" Width="107,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="[frxDBInformeListadoFacturasPendResumen."IMPORTE_TOTAL"] "/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="45,35436" Left="0" Top="457,32313" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendResumen."TITULO"">
|
||||
<TfrxMemoView Name="Memo13" Left="7,55906" Top="9" 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="RESUMEN POR BANCO [frxDBInformeListadoFacturasPendResumen."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo16" Left="0" Top="30,45671" Width="252,46435213" 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="Banco"/>
|
||||
<TfrxMemoView Name="Memo15" Left="252,22851" Top="30,23624" Width="108,33859" 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"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="411,96877" Width="1009,13451"/>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="15,8740157480315" Left="0" Top="566,9295" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="252,85009346" 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 [frxDBInformeListadoFacturasPendResumen."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo17" Left="252,20468" Top="0" Width="108,24408228" 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(<frxDBInformeListadoFacturasPendResumen."IMPORTE_TOTAL">,DatosMaestros2)] "/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxGroupHeader Name="GroupHeader2" Height="22,67718" Left="0" Top="215,43321" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes."MES"">
|
||||
<TfrxMemoView Name="Memo23" 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="GroupFooter2" Height="22,67718" Left="0" Top="411,96877" Width="1009,13451"/>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -16,6 +16,7 @@
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
|
||||
@ -261,14 +262,23 @@
|
||||
<Target Name="Contactos_controller:Make">
|
||||
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view:Clean">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view:Make">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -445,8 +445,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
|
||||
'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, fecha_vencimiento, NOMBRE'#10#10
|
||||
'E_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta ' +
|
||||
'bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS'#10#10#10'from V_f' +
|
||||
'acturas_proveedor'#10'where {where}'#10'order by ANO, MES, fecha_vencimi' +
|
||||
'ento, NOMBRE'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -507,6 +509,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasPendientes'
|
||||
@ -571,6 +577,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -729,6 +740,192 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
Default = True
|
||||
SQL =
|
||||
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
|
||||
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
|
||||
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
|
||||
'(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
|
||||
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
|
||||
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
|
||||
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
|
||||
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
|
||||
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
|
||||
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
|
||||
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
|
||||
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
|
||||
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
|
||||
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
|
||||
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
|
||||
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
|
||||
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
|
||||
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
|
||||
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
|
||||
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
|
||||
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
|
||||
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
|
||||
'LO,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta banca' +
|
||||
'ria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS,'#10'sum(IMPORTE_TO' +
|
||||
'TAL) as importe_total'#10#10'from V_facturas_proveedor'#10#10'group by 1,2,3' +
|
||||
',4,5'#10'order by 1,2,3,4,5'#10#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO'
|
||||
TableField = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MES'
|
||||
TableField = 'MES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TITULO'
|
||||
TableField = 'TITULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasPendientesResumen'
|
||||
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 = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
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'sum(BASE_IMPONIBLE) as BASE_IMPONIBL' +
|
||||
'E,'#10'sum(IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(IMPORTE_TOTAL) AS IMPORT' +
|
||||
'E_TOTAL'#10'from V_facturas_proveedor'#10'group by 1,2,3,4'#10'order by 1,2,' +
|
||||
'3,4'#10#10#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 = 'BASE_IMPONIBLE'
|
||||
TableField = 'BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_IVA'
|
||||
TableField = 'IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasResumen'
|
||||
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 = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
@ -1226,10 +1423,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Size = 255
|
||||
end
|
||||
end
|
||||
object DABINAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADSCabecera: TDADataSource
|
||||
DataSet = tbl_Cabecera.Dataset
|
||||
DataTable = tbl_Cabecera
|
||||
@ -1311,7 +1504,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABINAdapter
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailFields = 'ID_FACTURA'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
@ -1471,7 +1664,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABINAdapter
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InformeFacturasProveedor'
|
||||
@ -1517,7 +1710,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 39741.448087719910000000
|
||||
ReportOptions.LastChange = 39835.653141990740000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||
@ -1557,6 +1750,14 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'procedure CabParametrosOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if <FechaInicio> = null then'
|
||||
|
||||
' CabParametros.Visible := False; ' +
|
||||
' '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
@ -1681,7 +1882,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABINAdapter
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InformeListadoFacturas'
|
||||
@ -1765,13 +1966,18 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABINAdapter
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InformeListadoFacturasPendientes'
|
||||
@ -1792,4 +1998,91 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Left = 768
|
||||
Top = 16
|
||||
end
|
||||
object DADSInformeListadoFacturasPendResumen: TDADataSource
|
||||
DataSet = tbl_InformeListadoFacturasPendResumen.Dataset
|
||||
DataTable = tbl_InformeListadoFacturasPendResumen
|
||||
Left = 768
|
||||
Top = 264
|
||||
end
|
||||
object frxDBInformeListadoFacturasPendResumen: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoFacturasPendResumen'
|
||||
CloseDataSource = True
|
||||
DataSource = DADSInformeListadoFacturasPendResumen
|
||||
Left = 768
|
||||
Top = 208
|
||||
end
|
||||
object frxDBInformeListadoFacturasResumen: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoFacturasResumen'
|
||||
CloseDataSource = True
|
||||
DataSource = DADSInformeListadoFacturasResumen
|
||||
Left = 576
|
||||
Top = 216
|
||||
end
|
||||
object DADSInformeListadoFacturasResumen: TDADataSource
|
||||
DataSet = tbl_InformeListadoFacturasResumen.Dataset
|
||||
DataTable = tbl_InformeListadoFacturasResumen
|
||||
Left = 576
|
||||
Top = 272
|
||||
end
|
||||
object tbl_InformeListadoFacturasResumen: 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 = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
IndexDefs = <>
|
||||
Left = 576
|
||||
Top = 328
|
||||
end
|
||||
object tbl_InformeListadoFacturasPendResumen: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
IndexDefs = <>
|
||||
Left = 768
|
||||
Top = 328
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
|
||||
uDAMemDataTable, FactuGES_Intf, frxExportPDF;
|
||||
uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer;
|
||||
|
||||
type
|
||||
TRptFacturasProveedor = class(TDataModule)
|
||||
@ -21,7 +21,6 @@ type
|
||||
DataSource2: TDataSource;
|
||||
cabecera: TIBQuery;
|
||||
detalles: TIBQuery;
|
||||
DABINAdapter: TDABINAdapter;
|
||||
DADSCabecera: TDADataSource;
|
||||
DADSDetalles: TDADataSource;
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
@ -83,11 +82,28 @@ type
|
||||
tbl_InformeListadoFacturasPendientes: TDAMemDataTable;
|
||||
DADSInformeListadoFacturasPendientes: TDADataSource;
|
||||
frxDBInformeListadoFacturasPendientes: TfrxDBDataset;
|
||||
DADSInformeListadoFacturasPendResumen: TDADataSource;
|
||||
frxDBInformeListadoFacturasPendResumen: TfrxDBDataset;
|
||||
frxDBInformeListadoFacturasResumen: TfrxDBDataset;
|
||||
DADSInformeListadoFacturasResumen: TDADataSource;
|
||||
tbl_InformeListadoFacturasResumen: TDAMemDataTable;
|
||||
tbl_InformeListadoFacturasPendResumen: TDAMemDataTable;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schReport: TDASchema;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
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;
|
||||
FIdEmpresa: Integer;
|
||||
FFechaInicio: Variant;
|
||||
FFechaFin: Variant;
|
||||
FFechaVenInicio: Variant;
|
||||
FFechaVenFin: Variant;
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
FImporteMinimo: Currency;
|
||||
|
||||
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
|
||||
procedure PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
function _GenerarInforme(const TipoInforme: String): Binary;
|
||||
|
||||
public
|
||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -100,7 +116,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schFacturasProveedorClient_Intf;
|
||||
uSistemaFunc, StrUtils, uDataModuleServer, schFacturasProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptInformeIVA = 'InformeIVAProveedores.fr3';
|
||||
@ -110,6 +126,10 @@ const
|
||||
rptInformeListadoFactuasProveedorPendiente = 'InformeListadoFacturasProveedorPendientes.fr3';
|
||||
rptInformeListadoFactuasProveedorPendienteDesglosado = 'InformeListadoFacturasProveedorPendientesDesglosado.fr3';
|
||||
|
||||
{ Dataset names for schReport }
|
||||
ds_InformeListadoFacturasResumen = 'InformeListadoFacturasResumen';
|
||||
ds_InformeListadoFacturasPendientesResumen = 'InformeListadoFacturasPendientesResumen';
|
||||
|
||||
{ TRptFacturasProveedor }
|
||||
|
||||
|
||||
@ -129,16 +149,59 @@ function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
//DESGLOSADO POR PROVEEDOR EN ESTE INFORME NO SE DESGLOSARÁ POR PROVEEDOR
|
||||
AStream := TMemoryStream.Create;
|
||||
try
|
||||
//Inicializamos parametros
|
||||
FIdEmpresa := IdEmpresa;
|
||||
FFechaInicio := FechaInicio;
|
||||
FFechaFin := FechaFin;
|
||||
FFechaVenInicio := Null;
|
||||
FFechaVenFin := Null;
|
||||
FImporteMinimo := ImporteMinimo;
|
||||
|
||||
if Assigned(FListaIDProveedores) then
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDProveedores := ListaIDProveedores;
|
||||
|
||||
//Se van a prepara las tablas del informe
|
||||
if tbl_InformeListadoFacturas.Active then
|
||||
tbl_InformeListadoFacturas.Active := False;
|
||||
PrepararTablaInforme(tbl_InformeListadoFacturas);
|
||||
|
||||
//Se prepara la tabla del listado resumen del informe
|
||||
if tbl_InformeListadoFacturasResumen.Active then
|
||||
tbl_InformeListadoFacturasResumen.Active := False;
|
||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeListadoFacturasResumen, [], [], False);
|
||||
PrepararTablaResumenInforme(dsMaster);
|
||||
//Esto se hace para rellenar la tabla del datamodule que usa el informe.
|
||||
dsMaster.Open;
|
||||
AStream.Clear;
|
||||
Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
Bin2DataStreamer.ReadDataset(AStream, tbl_InformeListadoFacturasResumen, TRUE, '', TRUE, TRUE);
|
||||
|
||||
//DESGLOSADO POR PROVEEDOR EN ESTE INFORME NO SE DESGLOSARÁ POR PROVEEDOR
|
||||
if Desglosado then
|
||||
ATipoInforme := rptInformeIVADesglosado
|
||||
else
|
||||
ATipoInforme := rptInformeIVA;
|
||||
|
||||
Result := _GenerarInforme(tbl_InformeListadoFacturas, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDProveedores, ImporteMinimo);
|
||||
//Finalmente se abren las tablas del informe
|
||||
tbl_InformeListadoFacturas.Active := True;
|
||||
tbl_InformeListadoFacturasResumen.Active := True;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme);
|
||||
|
||||
finally
|
||||
AStream.Free;
|
||||
dsMaster := Nil;
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeListadoFacturas(
|
||||
@ -148,16 +211,59 @@ function TRptFacturasProveedor.GenerarInformeListadoFacturas(
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
|
||||
begin
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
|
||||
//DESGLOSADO POR PROVEEDOR EN ESTE INFORME NO SE DESGLOSARÁ POR PROVEEDOR
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
AStream := TMemoryStream.Create;
|
||||
try
|
||||
//Inicializamos parametros
|
||||
FIdEmpresa := IdEmpresa;
|
||||
FFechaInicio := FechaInicio;
|
||||
FFechaFin := FechaFin;
|
||||
FFechaVenInicio := FechaVenInicio;
|
||||
FFechaVenFin := FechaVenFin;
|
||||
FImporteMinimo := ImporteMinimo;
|
||||
|
||||
if Assigned(FListaIDProveedores) then
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDProveedores := ListaIDProveedores;
|
||||
|
||||
//Se prepara la tabla del listado general del informe
|
||||
if tbl_InformeListadoFacturas.Active then
|
||||
tbl_InformeListadoFacturas.Active := False;
|
||||
PrepararTablaInforme(tbl_InformeListadoFacturas);
|
||||
|
||||
//Se prepara la tabla del listado resumen del informe
|
||||
if tbl_InformeListadoFacturasResumen.Active then
|
||||
tbl_InformeListadoFacturasResumen.Active := False;
|
||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeListadoFacturasResumen, [], [], False);
|
||||
PrepararTablaResumenInforme(dsMaster);
|
||||
//Esto se hace para rellenar la tabla del datamodule que usa el informe.
|
||||
dsMaster.Open;
|
||||
AStream.Clear;
|
||||
Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
Bin2DataStreamer.ReadDataset(AStream, tbl_InformeListadoFacturasResumen, TRUE, '', TRUE, TRUE);
|
||||
|
||||
//DESGLOSADO POR PROVEEDOR EN ESTE INFORME NO SE DESGLOSARÁ POR PROVEEDOR
|
||||
if Desglosado then
|
||||
ATipoInforme := rptInformeListadoFacturasProveedorDesglosado
|
||||
else
|
||||
ATipoInforme := rptInformeListadoFacturasProveedor;
|
||||
|
||||
Result := _GenerarInforme(tbl_InformeListadoFacturas, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
//Finalmente se abren las tablas del informe
|
||||
tbl_InformeListadoFacturas.Active := True;
|
||||
tbl_InformeListadoFacturasResumen.Active := True;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme);
|
||||
|
||||
finally
|
||||
AStream.Free;
|
||||
dsMaster := Nil;
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
|
||||
@ -168,15 +274,36 @@ function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
ATipoInforme: String;
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
AStream := TMemoryStream.Create;
|
||||
try
|
||||
//Inicializamos parametros
|
||||
FIdEmpresa := IdEmpresa;
|
||||
FFechaInicio := FechaInicio;
|
||||
FFechaFin := FechaFin;
|
||||
FFechaVenInicio := FechaVenInicio;
|
||||
FFechaVenFin := FechaVenFin;
|
||||
FImporteMinimo := ImporteMinimo;
|
||||
|
||||
if Assigned(FListaIDProveedores) then
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDProveedores := ListaIDProveedores;
|
||||
|
||||
|
||||
//Se prepara la tabla del listado general del informe
|
||||
if tbl_InformeListadoFacturasPendientes.Active then
|
||||
tbl_InformeListadoFacturasPendientes.Active := False;
|
||||
tbl_InformeListadoFacturasPendientes.Active := False;
|
||||
PrepararTablaInforme(tbl_InformeListadoFacturasPendientes);
|
||||
|
||||
// Filtrar el informe por situacion
|
||||
with tbl_InformeListadoFacturasPendientes.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
// (SITUACION >= PAGADA)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorSITUACION), NewConstant('PAGADA', datString), dboNotEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
@ -184,127 +311,186 @@ begin
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
//Se prepara la tabla del listado resumen del informe
|
||||
if tbl_InformeListadoFacturasPendResumen.Active then
|
||||
tbl_InformeListadoFacturasPendResumen.Active := False;
|
||||
|
||||
//DESGLOSADO POR PROVEEDOR EN ESTE INFORME
|
||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeListadoFacturasPendientesResumen, [], [], False);
|
||||
PrepararTablaResumenInforme(dsMaster);
|
||||
// Filtrar el informe por situacion
|
||||
dsMaster.Where.AddText(' AND (SITUACION <> ''PAGADA'')');
|
||||
//Esto se hace para rellenar la tabla del datamodule que usa el informe.
|
||||
dsMaster.Open;
|
||||
AStream.Clear;
|
||||
Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
Bin2DataStreamer.ReadDataset(AStream, tbl_InformeListadoFacturasPendResumen, TRUE, '', TRUE, TRUE);
|
||||
|
||||
//DESGLOSADO POR PROVEEDOR EN ESTE INFORME
|
||||
if Desglosado then
|
||||
ATipoInforme := rptInformeListadoFactuasProveedorPendienteDesglosado
|
||||
else
|
||||
ATipoInforme := rptInformeListadoFactuasProveedorPendiente;
|
||||
|
||||
//Finalmente se abren las tablas del informe
|
||||
tbl_InformeListadoFacturasPendientes.Active := True;
|
||||
tbl_InformeListadoFacturasPendResumen.Active := True;
|
||||
|
||||
Result := _GenerarInforme(tbl_InformeListadoFacturasPendientes, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme);
|
||||
|
||||
finally
|
||||
AStream.Free;
|
||||
dsMaster := Nil;
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
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;
|
||||
procedure TRptFacturasProveedor.PrepararTablaInforme(ATabla: TDAMemDataTable);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
i: Integer;
|
||||
AInforme: Variant;
|
||||
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
// Filtrar el informe por empresa
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_EMPRESA), NewConstant(FIdEmpresa, datInteger), dboEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
try
|
||||
|
||||
if ATabla.Active then
|
||||
ATabla.Active := False;
|
||||
|
||||
// Filtrar el informe por empresa
|
||||
// Filtrar el informe por fechas
|
||||
if not VarIsNull(FFechaInicio)
|
||||
and not VarIsNull(FFechaFin) then
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_EMPRESA), NewConstant(IdEmpresa, datInteger), dboEqual);
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FFechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FFechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por fechas
|
||||
if not VarIsNull(FechaInicio)
|
||||
and not VarIsNull(FechaFin) then
|
||||
// Filtrar el informe por fechas de vencimiento
|
||||
if not VarIsNull(FFechaVenInicio)
|
||||
and not VarIsNull(FFechaVenFin) then
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FFechaVenInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FFechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por proveedor
|
||||
if Assigned(FListaIDProveedores) then
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
for i := 0 to FListaIDProveedores.Count - 1 do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
|
||||
// (ID_PROVEEDOR = ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_PROVEEDOR), NewConstant(FListaIDProveedores.Items[i], datInteger), dboEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por fechas de vencimiento
|
||||
if not VarIsNull(FechaVenInicio)
|
||||
and not VarIsNull(FechaVenFin) then
|
||||
// Filtrar el informe por importe minimo
|
||||
if (FImporteMinimo > 0) then
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
// (IMPORTE_TOTAL > ImporteMinimo)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorIMPORTE_TOTAL), NewConstant(FImporteMinimo, datCurrency), dboGreaterOrEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por proveedor
|
||||
if Assigned(ListaIDProveedores) then
|
||||
procedure TRptFacturasProveedor.PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
var
|
||||
i: Integer;
|
||||
AWhereStr : String;
|
||||
|
||||
begin
|
||||
// Filtrar el informe por empresa
|
||||
AWhereStr := ' (' + fld_FacturasProveedorID_EMPRESA + ' = ' + IntToStr(FIdEmpresa) + ') ';
|
||||
|
||||
// Filtrar el informe por fechas
|
||||
if not VarIsNull(FFechaInicio)
|
||||
and not VarIsNull(FFechaFin) then
|
||||
begin
|
||||
if Length(AWhereStr) > 0 then
|
||||
AWhereStr := AWhereStr + 'AND';
|
||||
AWhereStr := AWhereStr + ' (' + fld_FacturasProveedorFECHA_FACTURA + ' between ''' + ReplaceStr(VarToStr(FFechaInicio),'/','.') + ''' and ''' + ReplaceStr(VarToStr(FFechaFin),'/','.') + ''') ';
|
||||
end;
|
||||
|
||||
// Filtrar el informe por fechas de vencimiento
|
||||
if not VarIsNull(FFechaVenInicio)
|
||||
and not VarIsNull(FFechaVenFin) then
|
||||
begin
|
||||
if Length(AWhereStr) > 0 then
|
||||
AWhereStr := AWhereStr + 'AND';
|
||||
AWhereStr := AWhereStr + ' (' + fld_FacturasProveedorFECHA_VENCIMIENTO + ' between ''' + ReplaceStr(VarToStr(FFechaVenInicio),'/','.') + ''' and ''' + ReplaceStr(VarToStr(FFechaVenFin),'/','.') + ''') ';
|
||||
end;
|
||||
|
||||
// Filtrar el informe por proveedor
|
||||
if Assigned(FListaIDProveedores) then
|
||||
begin
|
||||
for i := 0 to FListaIDProveedores.Count - 1 do
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
for i := 0 to ListaIDProveedores.Count - 1 do
|
||||
begin
|
||||
|
||||
// (ID_PROVEEDOR = ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_PROVEEDOR), NewConstant(ListaIDProveedores.Items[i], datInteger), dboEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
if Length(AWhereStr) > 0 then
|
||||
AWhereStr := AWhereStr + 'AND';
|
||||
AWhereStr := AWhereStr + ' (' + fld_FacturasProveedorID_PROVEEDOR + ' = ' + IntToStr(FListaIDProveedores.Items[i]) + ') ';
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por importe minimo
|
||||
if (ImporteMinimo > 0) then
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (IMPORTE_TOTAL > ImporteMinimo)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorIMPORTE_TOTAL), NewConstant(ImporteMinimo, datCurrency), dboGreaterOrEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
// Filtrar el informe por importe minimo
|
||||
if (FImporteMinimo > 0) then
|
||||
begin
|
||||
if Length(AWhereStr) > 0 then
|
||||
AWhereStr := AWhereStr + 'AND';
|
||||
AWhereStr := AWhereStr + ' (' + fld_FacturasProveedorIMPORTE_TOTAL + ' >= ' + CurrToStr(FImporteMinimo) + ') ';
|
||||
end;
|
||||
|
||||
ATabla.Where.AddText(AWhereStr);
|
||||
end;
|
||||
|
||||
ATabla.Active := True;
|
||||
function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String): Binary;
|
||||
var
|
||||
AInforme: Variant;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntTostr(IdEmpresa));
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntTostr(FIdEmpresa));
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.Variables.Variables['FechaInicio'] := FechaInicio;
|
||||
frxReport.Variables.Variables['FechaFin'] := FechaFin;
|
||||
frxReport.Variables.Variables['FechaInicio'] := FFechaInicio;
|
||||
frxReport.Variables.Variables['FechaFin'] := FFechaFin;
|
||||
|
||||
frxReport.PrepareReport(False);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
|
||||
finally
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -70,7 +70,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
Width = 172
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Left = 76
|
||||
@ -109,7 +109,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label4: TLabel
|
||||
Width = 160
|
||||
Width = 172
|
||||
end
|
||||
inherited edtFechaVenFin: TcxDateEdit
|
||||
Left = 76
|
||||
|
||||
@ -54,7 +54,7 @@ implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
@ -87,6 +87,10 @@ end;
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
|
||||
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
|
||||
if not VarIsNull(Result) then
|
||||
Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: Variant;
|
||||
@ -97,6 +101,10 @@ end;
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
|
||||
|
||||
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
|
||||
if not VarIsNull(Result) then
|
||||
Result := DateOf(frViewPeriodoFechas1.edtFechaVenFin.Date);
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenInicio: Variant;
|
||||
|
||||
@ -53,7 +53,7 @@ implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
@ -86,6 +86,10 @@ end;
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
|
||||
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
|
||||
if not VarIsNull(Result) then
|
||||
Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: Variant;
|
||||
@ -96,6 +100,10 @@ end;
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaVenFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
|
||||
|
||||
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
|
||||
if not VarIsNull(Result) then
|
||||
Result := DateOf(frViewPeriodoFechas1.edtFechaVenFin.Date);
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaVenInicio: Variant;
|
||||
|
||||
@ -70,7 +70,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
Width = 172
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Left = 76
|
||||
@ -110,7 +110,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
Visible = False
|
||||
ExplicitWidth = 182
|
||||
inherited Label4: TLabel
|
||||
Width = 160
|
||||
Width = 172
|
||||
end
|
||||
inherited edtFechaVenFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -133,7 +133,6 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -49,7 +49,7 @@ implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, uGestorInformesController, uFactuGES_App;
|
||||
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
@ -82,6 +82,10 @@ end;
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
|
||||
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
|
||||
if not VarIsNull(Result) then
|
||||
Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: Variant;
|
||||
|
||||
@ -51,10 +51,12 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 171
|
||||
Width = 670
|
||||
Height = 72
|
||||
ExplicitTop = 171
|
||||
ExplicitWidth = 670
|
||||
ExplicitHeight = 72
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 126
|
||||
ExplicitWidth = 269
|
||||
inherited TBXItem5: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -66,12 +68,12 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 126
|
||||
Left = 269
|
||||
Top = 23
|
||||
DockPos = 104
|
||||
DockRow = 1
|
||||
Visible = False
|
||||
ExplicitLeft = 126
|
||||
ExplicitLeft = 269
|
||||
ExplicitTop = 23
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
@ -81,8 +83,11 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
ExplicitWidth = 670
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 334
|
||||
ExplicitLeft = 334
|
||||
Left = 330
|
||||
DockPos = 330
|
||||
Visible = False
|
||||
ExplicitLeft = 330
|
||||
ExplicitHeight = 23
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
@ -137,18 +142,18 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
end
|
||||
end
|
||||
inherited frViewRecibosCliente1: TfrViewRecibosCliente [5]
|
||||
Top = 246
|
||||
Top = 243
|
||||
Width = 670
|
||||
Height = 260
|
||||
ExplicitTop = 246
|
||||
Height = 263
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 670
|
||||
ExplicitHeight = 260
|
||||
ExplicitHeight = 263
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 670
|
||||
Height = 132
|
||||
Height = 135
|
||||
RootLevelOptions.DetailTabsPosition = dtpNone
|
||||
ExplicitWidth = 670
|
||||
ExplicitHeight = 132
|
||||
ExplicitHeight = 135
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
@ -167,12 +172,6 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
Kind = skCount
|
||||
Column = frViewRecibosCliente1.cxGridViewFECHA_EMISION
|
||||
end>
|
||||
inherited cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
|
||||
Visible = False
|
||||
end
|
||||
inherited cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -209,6 +208,16 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
ExplicitWidth = 351
|
||||
Width = 351
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 697
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 697
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 670
|
||||
@ -221,8 +230,8 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 234
|
||||
ExplicitTop = 234
|
||||
Top = 237
|
||||
ExplicitTop = 237
|
||||
ExplicitWidth = 670
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 670
|
||||
@ -238,6 +247,14 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
item
|
||||
GridView = frViewRecibosCliente1.cxGridView
|
||||
HitTypes = [gvhtCell]
|
||||
Index = 0
|
||||
end>
|
||||
end
|
||||
end
|
||||
object pnlFiltrar: TTBXDockablePanel [6]
|
||||
Left = 0
|
||||
@ -403,7 +420,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
Left = 288
|
||||
Top = 160
|
||||
end
|
||||
inherited JsImprimirDialog: TJSDialog
|
||||
inherited JsImprimirDialog: TJSDialog [16]
|
||||
Top = 160
|
||||
end
|
||||
object EditorSeleccionActionList: TActionList
|
||||
|
||||
@ -141,6 +141,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
DataBinding.FieldName = 'REFERENCIA_REMESA'
|
||||
Width = 48
|
||||
end
|
||||
object cxGridViewDATOS_BANCARIOS: TcxGridDBColumn
|
||||
Caption = 'Banco'
|
||||
DataBinding.FieldName = 'DATOS_BANCARIOS'
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'Todos'
|
||||
|
||||
@ -48,6 +48,7 @@ type
|
||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
||||
cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
|
||||
cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
|
||||
cxGridViewDATOS_BANCARIOS: TcxGridDBColumn;
|
||||
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||||
var ADone: Boolean);
|
||||
|
||||
@ -45,7 +45,7 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
||||
Width = 785
|
||||
ExplicitWidth = 785
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 561
|
||||
ExplicitWidth = 704
|
||||
object TBXSeparatorItem17: TTBXSeparatorItem [12]
|
||||
end
|
||||
end
|
||||
|
||||
Loading…
Reference in New Issue
Block a user