Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Informes nuevos azacan e informe de iva repercutido - soportado

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1072 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2013-02-27 15:46:39 +00:00
parent 0481ab95f4
commit 46ec921438
64 changed files with 1984 additions and 632 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,10 +55,10 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvJansD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\PluginSDK_D11R.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

102
Source/Base/Base.dproj
View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\adortl.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxDataD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxExportD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxGridD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxIntl6D11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\dbrtl.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\dclIndyCore.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\designide.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\dsnap.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\dxThemeD11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\IndyCore.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\IndyProtocols.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\IndySystem.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\Jcl.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JclVcl.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JSDialog100.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvDlgsD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvMMD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvNetD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\pckMD5.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\pckUCDataConnector.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\pckUserControl_RT.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\PNG_D10.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\rtl.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\TB2k_D10.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\tbx_d10.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\vcl.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\vclactnband.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\vcldb.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\vcljpg.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\VclSmp.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\vclx.dcp" />
<DCCReference Include="..\..\Resources\Logotipos Tecsitel\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,9,6,0 FILEVERSION 1,9,7,0
PRODUCTVERSION 1,9,6,0 PRODUCTVERSION 1,9,7,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.9.6.0\0" VALUE "FileVersion", "1.9.7.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.9.6.0\0" VALUE "ProductVersion", "1.9.7.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

50
Source/GUIBase/GUIBase.dproj
View File

@ -59,26 +59,30 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\Base.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxLibraryD11.dcp" />
<DCCReference Include="cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxTreeListD11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dbrtl.dcp" />
<DCCReference Include="dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxBarD11.dcp" />
<DCCReference Include="dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxComnD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxThemeD11.dcp" />
<DCCReference Include="frx11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\frx11.dcp" />
<DCCReference Include="frxe11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\frxe11.dcp" />
<DCCReference Include="fs11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\fs11.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>
@ -86,7 +90,7 @@
<Form>fDialogElegirEMail</Form> <Form>fDialogElegirEMail</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDialogListaEnvioEMail.pas"> <DCCReference Include="uDialogListaEnvioEMail.pas">
<Form>fEditorBase</Form> <Form>fDialogListaEnvioEMail</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorBase.pas"> <DCCReference Include="uEditorBase.pas">
@ -180,10 +184,6 @@
<Form>frViewTotales</Form> <Form>frViewTotales</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

80
Source/Informes/1/InformeIVAClientes.fr3
View File

File diff suppressed because one or more lines are too long

70
Source/Informes/1/InformeIVAComparativo.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

68
Source/Informes/1/InformePrueba.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

70
Source/Informes/2/InformeIVAComparativo.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/3/InformeIVAClientes.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7735204745" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4311981482" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -32,9 +32,9 @@
<TfrxMemoView Name="Memo31" Left="916,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" 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.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Left="916,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" 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.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="916" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="916" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="821" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Left="821" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="726" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Left="726" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="726" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="726" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451"> <TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">

8
Source/Informes/3/InformeIVAClientesDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7737874306" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10; &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,431846169" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10; &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -32,9 +32,9 @@
<TfrxMemoView Name="Memo31" Left="916,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" 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.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Left="916,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" 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.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="352" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="352" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="916" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="916" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="821" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Left="821" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="726" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Left="726" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="726" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="726" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="428" Width="1009,13451"> <TfrxHeader Name="Header1" Height="75" Left="0" Top="428" Width="1009,13451">

69
Source/Informes/3/InformeIVAComparativo.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/3/InformeIVAProveedores.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7739659375" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4321675347" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -32,9 +32,9 @@
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" 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.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" 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.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,8897637795276" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,88976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,54" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Left="724,54" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" 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="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>

8
Source/Informes/3/InformeIVAProveedoresDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7741513079" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4324803935" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -33,9 +33,9 @@
<TfrxMemoView Name="Memo31" Left="914,27" Top="0" Width="94,11" Height="17,00787402" ShowHint="False" 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.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Left="914,27" Top="0" Width="94,11" Height="17,00787402" ShowHint="False" 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.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,8897637795276" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,88976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,35436" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Left="724,35436" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="724,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="724,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17,007874015748" Left="0" Top="532" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0"> <TfrxMasterData Name="DatosMaestros2" Height="17,007874015748" Left="0" Top="532" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">

69
Source/Informes/3/InformeListadoBeneficiosGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/3/InformeListadoFacturasCliente.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7742865856" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4337949421" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -34,9 +34,9 @@
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="727" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="727" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="822" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Left="822" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="727" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Left="727" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451"> <TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="-16777211" 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 cliente"/> <TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="-16777211" 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 cliente"/>

8
Source/Informes/3/InformeListadoFacturasClienteDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7746186343" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4341014815" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -36,9 +36,9 @@
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="17" Left="0" Top="349" Width="1009,13451"> <TfrxGroupFooter Name="" Height="17" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo53" Align="baLeft" Left="0" Top="0" Width="725" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Align="baLeft" Left="0" Top="0" Width="725" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="915" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="915" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="820" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Left="820" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="725" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Left="725" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="426" Width="1009,13451"> <TfrxHeader Name="Header1" Height="75" Left="0" Top="426" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="-16777211" 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 cliente"/> <TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="-16777211" 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 cliente"/>

67
Source/Informes/3/InformeListadoFacturasClienteGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/3/InformeListadoFacturasClientePendientes.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,774841088" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4343554051" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="140" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="140" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -30,7 +30,7 @@
<TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="85,02" Height="17,00787402" ShowHint="False" 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.&#34;FECHA_VENCIMIENTO&#34;]"/> <TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="85,02" Height="17,00787402" ShowHint="False" 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.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="313" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="313" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="717,73228346" Top="0,37774772" Width="155,14173228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/> <TfrxMemoView Name="Memo6" Left="717,73228346" Top="0,37774772" Width="155,14173228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="872,87401574" Top="0,37774772" Width="135,5" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo14" Left="872,87401574" Top="0,37774772" Width="135,5" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>

4
Source/Informes/3/InformeListadoFacturasClientePendientesDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7750481481" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4345820139" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="140" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="140" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -30,7 +30,7 @@
<TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="85,02" Height="17,00787402" ShowHint="False" 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.&#34;FECHA_VENCIMIENTO&#34;]"/> <TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="85,02" Height="17,00787402" ShowHint="False" 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.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="353" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="353" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="717,73228346" Top="0,37774772" Width="155,14173228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/> <TfrxMemoView Name="Memo6" Left="717,73228346" Top="0,37774772" Width="155,14173228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="872,87401574" Top="0,37774772" Width="135,5" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo14" Left="872,87401574" Top="0,37774772" Width="135,5" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>

8
Source/Informes/3/InformeListadoFacturasProveedor.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7752058449" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4349205787" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -35,9 +35,9 @@
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="913,51181102" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="913,51181102" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="817,13385827" Top="0,37774772" Width="96,3779527559055" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Left="817,13385827" Top="0,37774772" Width="96,37795276" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,1102362204724" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,11023622" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="446" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0"> <TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="446" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="381,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/> <TfrxMemoView Name="Memo9" Left="0" Top="0" Width="381,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>

8
Source/Informes/3/InformeListadoFacturasProveedorDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7753883102" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0); &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1)); &#13;&#10;end;&#13;&#10;&#13;&#10;procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 &#13;&#10; if ((&#60;Pagina&#62; + 1) = &#60;TotalPaginas&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4352500926" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0); &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1)); &#13;&#10;end;&#13;&#10;&#13;&#10;procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 &#13;&#10; if ((&#60;Pagina&#62; + 1) = &#60;TotalPaginas&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -35,9 +35,9 @@
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="913,35" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="913,35" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="817,13385827" Top="0,37774772" Width="96,3779527559055" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Left="817,13385827" Top="0,37774772" Width="96,37795276" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,1102362204724" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,11023622" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="532" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0"> <TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="532" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="381,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/> <TfrxMemoView Name="Memo9" Left="0" Top="0" Width="381,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>

67
Source/Informes/3/InformeListadoFacturasProveedorGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7756178009" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo10OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo10.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4355908102" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo10OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo10.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="151,10235" Left="0" Top="16" Width="1009,13451"> <TfrxPageHeader Name="Band1" Height="151,10235" Left="0" Top="16" Width="1009,13451">
@ -34,7 +34,7 @@
<TfrxMemoView Name="Memo23" Align="baLeft" Left="167,88976378" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;FECHA_RECEPCION&#34;]"/> <TfrxMemoView Name="Memo23" Align="baLeft" Left="167,88976378" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;FECHA_RECEPCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="324" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="324" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="838,91371" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/> <TfrxMemoView Name="Memo6" Left="838,91371" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="939" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo14" Left="939" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="838,55912346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="838,55912346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
@ -50,7 +50,7 @@
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="15,8740157480315" Left="0" Top="467" Width="1009,13451"> <TfrxGroupFooter Name="GroupFooter1" Height="15,8740157480315" Left="0" Top="467" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/> <TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

6
Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7758103935" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo10OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo10.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4358949769" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo10OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo10.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="151,1" Left="0" Top="16" Width="1009,13451"> <TfrxPageHeader Name="Band1" Height="151,1" Left="0" Top="16" Width="1009,13451">
@ -35,7 +35,7 @@
<TfrxMemoView Name="Memo24" Align="baLeft" Left="167,88976378" Top="0" Width="91" Height="17,00787402" ShowHint="False" 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.&#34;FECHA_RECEPCION&#34;]"/> <TfrxMemoView Name="Memo24" Align="baLeft" Left="167,88976378" Top="0" Width="91" Height="17,00787402" ShowHint="False" 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.&#34;FECHA_RECEPCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="367" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="367" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="838,8" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/> <TfrxMemoView Name="Memo6" Left="838,8" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="938,27" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo14" Left="938,27" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="838,55912346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="838,55912346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
@ -50,7 +50,7 @@
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="15,87401575" Left="0" Top="553" Width="1009,13451"> <TfrxGroupFooter Name="GroupFooter1" Height="15,87401575" Left="0" Top="553" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="494,22851" Top="0" Width="108,24408228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/> <TfrxMemoView Name="Memo17" Left="494,22851" Top="0" Width="108,24408228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="22,67718" Left="0" Top="227" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;"> <TfrxGroupHeader Name="GroupHeader2" Height="22,67718" Left="0" Top="227" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo23" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/> <TfrxMemoView Name="Memo23" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>

97
Source/Informes/3/InformeListadoPresupuestosClienteGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/3/InformeListadoRecibosCliPendientes.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7763541898" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C15000000204E616D653D224E6577205661726961626C6531220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4367979167" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C15000000204E616D653D224E6577205661726961626C6531220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -32,7 +32,7 @@
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" ShowHint="False" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/> <TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" ShowHint="False" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0,377747720000002" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="799" Top="0,37774772" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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=""/>
</TfrxGroupFooter> </TfrxGroupFooter>
@ -48,7 +48,7 @@
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="16" Left="0" Top="447" Width="1009,13451"> <TfrxGroupFooter Name="GroupFooter1" Height="16" Left="0" Top="447" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/> <TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

6
Source/Informes/3/InformeListadoRecibosCliPendientesDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,788811331" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4370236111" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -32,7 +32,7 @@
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" ShowHint="False" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/> <TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" ShowHint="False" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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=""/>
</TfrxGroupFooter> </TfrxGroupFooter>
@ -48,7 +48,7 @@
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="16" Left="0" Top="527" Width="1009,13451"> <TfrxGroupFooter Name="GroupFooter1" Height="16" Left="0" Top="527" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/> <TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;"> <TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo10" Left="1" Top="0" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/> <TfrxMemoView Name="Memo10" Left="1" Top="0" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>

4
Source/Informes/3/InformeListadoRecibosCliente.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7759693519" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4362926505" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -30,7 +30,7 @@
<TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" 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="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" 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="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="875" Top="0,37774772" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" 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="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>

4
Source/Informes/3/InformeListadoRecibosClienteDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7761485648" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4365205093" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -31,7 +31,7 @@
<TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" 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="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" 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="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="875" Top="0,37774772" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451"> <TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">

6
Source/Informes/3/InformeListadoRecibosProvPendientes.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7895535301" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo5.Lines.Text := ' ' + ACadena; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4380893982" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo5.Lines.Text := ' ' + ACadena; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -32,7 +32,7 @@
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/> <TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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=""/>
</TfrxGroupFooter> </TfrxGroupFooter>
@ -48,7 +48,7 @@
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="447" Width="1009,13451"> <TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="447" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/> <TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

6
Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7897063542" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo5.Lines.Text := ' ' + ACadena; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10; &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4383087731" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo5.Lines.Text := ' ' + ACadena; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10; &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451">
@ -32,7 +32,7 @@
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/> <TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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=""/>
</TfrxGroupFooter> </TfrxGroupFooter>
@ -47,7 +47,7 @@
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="527" Width="1009,13451"> <TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="527" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/> <TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;"> <TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo10" Left="0" Top="1" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/> <TfrxMemoView Name="Memo10" Left="0" Top="1" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>

4
Source/Informes/3/InformeListadoRecibosProveedor.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7891406482" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4372731713" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -30,7 +30,7 @@
<TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" 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="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" 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="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="875" Top="0,37774772" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451"> <TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">

4
Source/Informes/3/InformeListadoRecibosProveedorDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41331,7893531481" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41332,4378776042" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <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=""> <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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -30,7 +30,7 @@
<TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" 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="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" 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="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451"> <TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Left="875" Top="0,37774772" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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 [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451"> <TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">

14
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -42,19 +42,19 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contactos_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contactos_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Contactos_data.dpk"> <DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\vcl.dcp" />
<DCCReference Include="uDataModuleClientes.pas"> <DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form> <Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>

BIN
Source/Modulos/Contactos/Data/Contactos_data.res
View File

Binary file not shown.

10
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -49,12 +49,12 @@
<DelphiCompile Include="Contactos_model.dpk"> <DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Gestor de informes\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\Base.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\rtl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcl.dcp" />
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" /> <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="Data\uIDataModuleClientes.pas" /> <DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" /> <DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEmpleados.pas" /> <DCCReference Include="Data\uIDataModuleEmpleados.pas" />

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

422
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -2189,6 +2189,194 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'PORCENTAJE_AUMENTO_BENEFICIOS' Name = 'PORCENTAJE_AUMENTO_BENEFICIOS'
DataType = datCurrency DataType = datCurrency
end> end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_FACTURAS_CLIENTE'
SQL =
'select f.ID_EMPRESA, f.ID_TIPO_IVA, t.descripcion, f.IVA, f.RE,'#10 +
'sum(f.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(f.IMPORTE_RE) as IMPORTE_' +
'RE,'#10'sum(f.BASE_IMPONIBLE) as BASE_IMPONIBLE, sum((f.IMPORTE_TOTA' +
'L - f.BASE_IMPONIBLE)) as CUOTA_DEVENGADA'#10#10'from v_facturas_clien' +
'te f'#10'left join tipos_iva t on (t.id = f.id_tipo_iva)'#10'where {whe' +
're}'#10'group by 1,2,3,4,5'#10'order by 4'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'DESCRIPCION'
TableField = '<unknown>'
SQLOrigin = 'DESCRIPCION'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'CUOTA_DEVENGADA'
TableField = '<unknown>'
SQLOrigin = 'CUOTA_DEVENGADA'
end>
end>
Name = 'InformeListadoIVAComparativoFacturasCli'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'IVA'
DataType = datCurrency
end
item
Name = 'RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'CUOTA_DEVENGADA'
DataType = datCurrency
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROVEEDOR'
SQL =
'select f.ID_EMPRESA, f.ID_TIPO_IVA, t.descripcion, f.IVA, f.RE,'#10 +
'sum(f.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(f.IMPORTE_RE) as IMPORTE_' +
'RE,'#10'sum(f.BASE_IMPONIBLE) as BASE_IMPONIBLE, sum((f.IMPORTE_TOTA' +
'L - f.BASE_IMPONIBLE)) as CUOTA_DEDUCIBLE'#10#10'from v_facturas_prove' +
'edor f'#10'left join tipos_iva t on (t.id = f.id_tipo_iva)'#10'where {w' +
'here}'#10'group by 1,2,3,4,5'#10'order by 4'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'DESCRIPCION'
TableField = '<unknown>'
SQLOrigin = 'DESCRIPCION'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'CUOTA_DEDUCIBLE'
TableField = '<unknown>'
SQLOrigin = 'CUOTA_DEDUCIBLE'
end>
end>
Name = 'InformeListadoIVAComparativoFacturasPro'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'IVA'
DataType = datCurrency
end
item
Name = 'RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'CUOTA_DEDUCIBLE'
DataType = datCurrency
end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -2983,103 +3171,27 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40610.539457418990000000 ReportOptions.LastChange = 41332.550662326390000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'procedure Chart1OnBeforePrint(Sender: TfrxComponent);' 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' ' ' if Engine.FinalPass then'
' if (<frxDBInformeListadoFacturasGrafComp."ANO1"> <> 0) then'
' begin '
' TLineSeries(Chart1.Series[0]).Title := '#39'Ingresos '#39' + IntToS' +
'tr(<frxDBInformeListadoFacturasGrafComp."ANO1">);'
' TLineSeries(Chart1.Series[1]).Title := '#39'Gastos '#39' + IntToStr' +
'(<frxDBInformeListadoFacturasGrafComp."ANO1">);'
' TLineSeries(Chart1.Series[2]).Title := '#39'Beneficios '#39' + IntT' +
'oStr(<frxDBInformeListadoFacturasGrafComp."ANO1">); '
' end;'
' '
' if (<frxDBInformeListadoFacturasGrafComp."ANO2"> <> 0) then'
' begin '
' TLineSeries(Chart1.Series[3]).Title := '#39'Ingresos '#39' + IntToS' +
'tr(<frxDBInformeListadoFacturasGrafComp."ANO2">);'
' TLineSeries(Chart1.Series[4]).Title := '#39'Gastos '#39' + IntToStr' +
'(<frxDBInformeListadoFacturasGrafComp."ANO2">);'
' TLineSeries(Chart1.Series[5]).Title := '#39'Beneficios '#39' + IntT' +
'oStr(<frxDBInformeListadoFacturasGrafComp."ANO2">); '
' end'
' else'
' begin '
' Chart1.Series[3].Active := False;'
' Chart1.Series[4].Active := False;'
' Chart1.Series[5].Active := False; '
' end;'
''
' if (<Serie> <> 0) then'
' begin' ' begin'
'//Solo Ingresos ' ' if (<Page#> = <TotalPages#>) then'
' if (<Serie> = 1) then' ' begin '
' begin' ' mContinua.Visible := False;'
' Chart1.Series[0].Active := True;' ' end '
' Chart1.Series[1].Active := False;' ' else'
' Chart1.Series[2].Active := False;' ' begin '
' Chart1.Series[3].Active := True;' ' mContinua.Visible := True;'
' Chart1.Series[4].Active := False;' ' end '
' Chart1.Series[5].Active := False;' ' end; '
' end'
'//Solo Gastos '
' else if (<Serie> = 2) then'
' begin'
' Chart1.Series[0].Active := False;'
' Chart1.Series[1].Active := True;'
' Chart1.Series[2].Active := False;'
' Chart1.Series[3].Active := False;'
' Chart1.Series[4].Active := True;'
' Chart1.Series[5].Active := False;'
' end'
'//Solo Beneficios '
' else if (<Serie> = 3) then'
' begin'
' Chart1.Series[0].Active := False;'
' Chart1.Series[1].Active := False;'
' Chart1.Series[2].Active := True;'
' Chart1.Series[3].Active := False;'
' Chart1.Series[4].Active := False;'
' Chart1.Series[5].Active := True;'
' end; '
' '
' end; '
'end;'
''
'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
'var'
' Valor:Double; '
'begin'
'{ '
' Valor := SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOT' +
'AL1">) * 100; '
' if (SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">)' +
' = 0) then'
' Valor := 100 - Valor '
' else'
' Valor := 100 - (Valor/SUM(<frxDBInformeListadoFacturasGrafC' +
'omp."IMPORTE_TOTAL">)); '
''
' memo16.lines.add(FormatFloat('#39'#,##0.00 %'#39',Valor));'
'} '
'end;' 'end;'
'' ''
'begin' 'begin'
'end. ') ''
'end.')
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
OnStartReport = 'frxReportOnStartReport' OnStartReport = 'frxReportOnStartReport'
@ -4055,4 +4167,134 @@ object RptFacturasCliente: TRptFacturasCliente
Left = 824 Left = 824
Top = 496 Top = 496
end end
object frxDBDInformeIVAComparativoFacturasCli: TfrxDBDataset
UserName = 'frxDBInformeIVAComparativoFacturasCli'
CloseDataSource = False
DataSource = DADSInformeIVAComparativoFacturasCli
BCDToCurrency = False
Left = 128
Top = 664
end
object DADSInformeIVAComparativoFacturasCli: TDADataSource
DataSet = tbl_InformeIVAComparativoFacturasCli.Dataset
DataTable = tbl_InformeIVAComparativoFacturasCli
Left = 128
Top = 720
end
object tbl_InformeIVAComparativoFacturasCli: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'IVA'
DataType = datCurrency
end
item
Name = 'RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'CUOTA_DEVENGADA'
DataType = datCurrency
end>
Params = <>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'InformeListadoIVAComparativoFacturasCli'
IndexDefs = <>
Left = 128
Top = 776
end
object frxDBDInformeIVAComparativoFacturasPro: TfrxDBDataset
UserName = 'frxDBInformeIVAComparativoFacturasPro'
CloseDataSource = False
DataSource = DADSInformeIVAComparativoFacturasPro
BCDToCurrency = False
Left = 432
Top = 664
end
object DADSInformeIVAComparativoFacturasPro: TDADataSource
DataSet = tbl_InformeIVAComparativoFacturasPro.Dataset
DataTable = tbl_InformeIVAComparativoFacturasPro
Left = 432
Top = 720
end
object tbl_InformeIVAComparativoFacturasPro: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'IVA'
DataType = datCurrency
end
item
Name = 'RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'CUOTA_DEDUCIBLE'
DataType = datCurrency
end>
Params = <>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'InformeListadoIVAComparativoFacturasPro'
IndexDefs = <>
Left = 432
Top = 776
end
end end

48
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -103,6 +103,12 @@ type
tbl_InformeListadoBeneficiosGrafCompMensual: TDAMemDataTable; tbl_InformeListadoBeneficiosGrafCompMensual: TDAMemDataTable;
tbl_InformeListadoBeneficiosGrafCompTrimestral: TDAMemDataTable; tbl_InformeListadoBeneficiosGrafCompTrimestral: TDAMemDataTable;
tbl_InformeListadoBeneficiosGrafCompSemestral: TDAMemDataTable; tbl_InformeListadoBeneficiosGrafCompSemestral: TDAMemDataTable;
frxDBDInformeIVAComparativoFacturasCli: TfrxDBDataset;
DADSInformeIVAComparativoFacturasCli: TDADataSource;
tbl_InformeIVAComparativoFacturasCli: TDAMemDataTable;
frxDBDInformeIVAComparativoFacturasPro: TfrxDBDataset;
DADSInformeIVAComparativoFacturasPro: TDADataSource;
tbl_InformeIVAComparativoFacturasPro: TDAMemDataTable;
schReport: TDASchema; schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
@ -140,6 +146,7 @@ type
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary; function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
end; end;
implementation implementation
@ -160,6 +167,7 @@ const
rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3'; rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3';
rptInformeListadoFacturasClienteGrafComp = 'InformeListadoFacturasClienteGrafComp.fr3'; rptInformeListadoFacturasClienteGrafComp = 'InformeListadoFacturasClienteGrafComp.fr3';
rptInformeListadoBeneficiosGrafComp = 'InformeListadoBeneficiosGrafComp.fr3'; rptInformeListadoBeneficiosGrafComp = 'InformeListadoBeneficiosGrafComp.fr3';
rptInformeIVAComparativo = 'InformeIVAComparativo.fr3';
{ Dataset names for schReport } { Dataset names for schReport }
ds_InformeListadoFacturasResumen = 'InformeListadoFacturasResumen'; ds_InformeListadoFacturasResumen = 'InformeListadoFacturasResumen';
@ -383,6 +391,46 @@ begin
end; end;
end; end;
function TRptFacturasCliente.GenerarInformeIVAComparativo(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant): Binary;
var
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 := Null;
FFechaVenFin := Null;
//Se van a prepara las tablas del informe
if tbl_InformeIVAComparativoFacturasCli.Active then
tbl_InformeIVAComparativoFacturasCli.Active := False;
PrepararTablaResumenInforme(tbl_InformeIVAComparativoFacturasCli);
if tbl_InformeIVAComparativoFacturasPro.Active then
tbl_InformeIVAComparativoFacturasPro.Active := False;
PrepararTablaResumenInforme(tbl_InformeIVAComparativoFacturasPro);
//Finalmente se abren las tablas del informe
tbl_InformeIVAComparativoFacturasCli.Active := True;
tbl_InformeIVAComparativoFacturasPro.Active := True;
Result := _GenerarInforme(rptInformeIVAComparativo);
finally
AStream.Free;
dsMaster := Nil;
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;
end;
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer; function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

3
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk
View File

@ -47,6 +47,7 @@ contains
uIEditorInformeFacturasProveedorReportGrafComp in 'View\uIEditorInformeFacturasProveedorReportGrafComp.pas', uIEditorInformeFacturasProveedorReportGrafComp in 'View\uIEditorInformeFacturasProveedorReportGrafComp.pas',
uIEditorInformeFacturasClienteReportGrafComp in 'View\uIEditorInformeFacturasClienteReportGrafComp.pas', uIEditorInformeFacturasClienteReportGrafComp in 'View\uIEditorInformeFacturasClienteReportGrafComp.pas',
uIEditorInformeBeneficiosReportGrafComp in 'View\uIEditorInformeBeneficiosReportGrafComp.pas', uIEditorInformeBeneficiosReportGrafComp in 'View\uIEditorInformeBeneficiosReportGrafComp.pas',
uIEditorInformePresupuestosClienteReportGrafComp in 'View\uIEditorInformePresupuestosClienteReportGrafComp.pas'; uIEditorInformePresupuestosClienteReportGrafComp in 'View\uIEditorInformePresupuestosClienteReportGrafComp.pas',
uIEditorInformeIVAComparativoReport in 'View\uIEditorInformeIVAComparativoReport.pas';
end. end.

1
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj
View File

@ -51,6 +51,7 @@
<DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasProveedorReportGrafComp.pas" /> <DCCReference Include="View\uIEditorInformeFacturasProveedorReportGrafComp.pas" />
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" /> <DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAComparativoReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" /> <DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" />
<DCCReference Include="View\uIEditorInformePedidosReport.pas" /> <DCCReference Include="View\uIEditorInformePedidosReport.pas" />
<DCCReference Include="View\uIEditorInformePresupuestosClienteReportGrafComp.pas" /> <DCCReference Include="View\uIEditorInformePresupuestosClienteReportGrafComp.pas" />

20
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAComparativoReport.pas Normal file
View File

@ -0,0 +1,20 @@
unit uIEditorInformeIVAComparativoReport;
interface
uses
FactuGES_Intf, uIEditorInformeBase;
type
IEditorInformeIVAComparativoReport = interface(IEditorInformeBase)
['{0C5629EC-C38C-4CA0-A991-97C84013D04D}']
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
end;
implementation
end.

27
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -27,6 +27,7 @@ type
procedure VerInformeFacturasCliGrafComp; procedure VerInformeFacturasCliGrafComp;
function DarListaAnosFacturasCli: TStringList; function DarListaAnosFacturasCli: TStringList;
procedure VerInformeBeneficiosCliGrafComp; procedure VerInformeBeneficiosCliGrafComp;
procedure VerInformeIVAComparativo;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
procedure VerInformeListadoRecibosCliPendientes; procedure VerInformeListadoRecibosCliPendientes;
@ -83,6 +84,7 @@ type
procedure VerInformeFacturasCliGrafComp; procedure VerInformeFacturasCliGrafComp;
function DarListaAnosFacturasCli: TStringList; function DarListaAnosFacturasCli: TStringList;
procedure VerInformeBeneficiosCliGrafComp; procedure VerInformeBeneficiosCliGrafComp;
procedure VerInformeIVAComparativo;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
procedure VerInformeListadoRecibosCliPendientes; procedure VerInformeListadoRecibosCliPendientes;
@ -122,7 +124,8 @@ uses
uIEditorInformeFacturasProveedorReportGrafComp, uIEditorInformeFacturasProveedorReportGrafComp,
uIEditorInformeFacturasClienteReportGrafComp, uIEditorInformeFacturasClienteReportGrafComp,
uIEditorInformeBeneficiosReportGrafComp, uIEditorInformeBeneficiosReportGrafComp,
uIEditorInformePresupuestosClienteReportGrafComp; uIEditorInformePresupuestosClienteReportGrafComp,
uIEditorInformeIVAComparativoReport;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente; {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -403,6 +406,28 @@ begin
end; end;
end; end;
procedure TGestorInformesController.VerInformeIVAComparativo;
var
AStream: Binary;
AEditor : IEditorInformeIVAComparativoReport;
begin
AEditor := NIL;
CreateEditor('EditorInformeIVAComparativoReport', IEditorInformeIVAComparativoReport, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self;
AEditor.Title := 'Listado resumen de IVA repercutido/sopoartado';
AStream := FDataModule.GenerarInformeIVAComparativo(AppFactuGES.EmpresaActiva.ID,
AEditor.FechaInicio, AEditor.FechaFin);
AEditor.LoadFromStream(AStream);
AEditor.Preview;
finally
AEditor.Release;
AEditor := Nil;
FreeAndNil(AStream);
end;
end;
procedure TGestorInformesController.VerInformeIVAProveedores; procedure TGestorInformesController.VerInformeIVAProveedores;
var var
AStream: Binary; AStream: Binary;

10
Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
View File

@ -34,6 +34,7 @@ type
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary; function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList; function DarListaAnosFacturasCli: TStringList;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -157,6 +158,15 @@ begin
end; end;
end; end;
function TDataModuleGestorInformes.GenerarInformeIVAComparativo(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant): Binary;
begin
try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAComparativo(IdEmpresa, FechaInicio, FechaFin);
finally
end;
end;
function TDataModuleGestorInformes.GenerarInformeIVAProveedores( function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;

1
Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
View File

@ -24,6 +24,7 @@ type
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary; function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList; function DarListaAnosFacturasCli: TStringList;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

10
Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm
View File

@ -155,6 +155,12 @@ object PluginGestorInformes: TPluginGestorInformes
ImageIndex = 2 ImageIndex = 2
OnExecute = actInformePresupuestosClienteGrafCompExecute OnExecute = actInformePresupuestosClienteGrafCompExecute
end end
object actInformeIVAComparativo: TAction
Category = 'Facturas de cliente'
Caption = 'Informe IVA comparativo'
ImageIndex = 0
OnExecute = actInformeIVAComparativoExecute
end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
Images = LargeImages Images = LargeImages
@ -174,6 +180,10 @@ object PluginGestorInformes: TPluginGestorInformes
Tag = 30 Tag = 30
Action = actInformeFacturasClienteIVA Action = actInformeFacturasClienteIVA
end end
object InformeIVAcomparativo1: TMenuItem
Tag = 35
Action = actInformeIVAComparativo
end
object N2: TMenuItem object N2: TMenuItem
Tag = 40 Tag = 40
Caption = '-' Caption = '-'

9
Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas
View File

@ -50,6 +50,8 @@ type
actInformeBeneficiosGrafComp1: TMenuItem; actInformeBeneficiosGrafComp1: TMenuItem;
actInformePresupuestosClienteGrafComp: TAction; actInformePresupuestosClienteGrafComp: TAction;
Informecomparativodesituacindepresupuestos1: TMenuItem; Informecomparativodesituacindepresupuestos1: TMenuItem;
actInformeIVAComparativo: TAction;
InformeIVAcomparativo1: TMenuItem;
procedure actInformeFacturasClienteExecute(Sender: TObject); procedure actInformeFacturasClienteExecute(Sender: TObject);
procedure actInformeFacturasClientePendientesExecute(Sender: TObject); procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
procedure actInformeFacturasClienteIVAExecute(Sender: TObject); procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
@ -64,6 +66,7 @@ type
procedure actInformeFacturasClienteGrafCompExecute(Sender: TObject); procedure actInformeFacturasClienteGrafCompExecute(Sender: TObject);
procedure actInformeBeneficiosGrafCompExecute(Sender: TObject); procedure actInformeBeneficiosGrafCompExecute(Sender: TObject);
procedure actInformePresupuestosClienteGrafCompExecute(Sender: TObject); procedure actInformePresupuestosClienteGrafCompExecute(Sender: TObject);
procedure actInformeIVAComparativoExecute(Sender: TObject);
private private
FController : IGestorInformesController; FController : IGestorInformesController;
public public
@ -141,6 +144,12 @@ begin
FController.VerInformeListadoFacturasProvPendientes; FController.VerInformeListadoFacturasProvPendientes;
end; end;
procedure TPluginGestorInformes.actInformeIVAComparativoExecute(
Sender: TObject);
begin
FController.VerInformeIVAComparativo;
end;
procedure TPluginGestorInformes.actInformePresupuestosClienteGrafCompExecute( procedure TPluginGestorInformes.actInformePresupuestosClienteGrafCompExecute(
Sender: TObject); Sender: TObject);
begin begin

15
Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
View File

@ -51,6 +51,7 @@ type
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary; function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
function DarListaAnosFacturasCli: StringArray; function DarListaAnosFacturasCli: StringArray;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS CLIENTE //MODULO RECIBOS CLIENTE
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -175,6 +176,20 @@ begin
end; end;
end; end;
function TsrvGestorInformes.GenerarInformeIVAComparativo(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarInformeIVAComparativo(IdEmpresa, FechaInicio, FechaFin);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer; function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer;
const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

3
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk
View File

@ -93,6 +93,7 @@ contains
uEditorInformeFacturasClienteReportGrafComp in 'uEditorInformeFacturasClienteReportGrafComp.pas' {fEditorInformeFacturasClienteReportGrafComp: TForm}, uEditorInformeFacturasClienteReportGrafComp in 'uEditorInformeFacturasClienteReportGrafComp.pas' {fEditorInformeFacturasClienteReportGrafComp: TForm},
uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm}, uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm},
uEditorInformeBeneficiosReportGrafComp in 'uEditorInformeBeneficiosReportGrafComp.pas' {fEditorInformeBeneficiosReportGrafComp: TForm}, uEditorInformeBeneficiosReportGrafComp in 'uEditorInformeBeneficiosReportGrafComp.pas' {fEditorInformeBeneficiosReportGrafComp: TForm},
uEditorInformePresupuestosClienteReportGrafComp in 'uEditorInformePresupuestosClienteReportGrafComp.pas' {fEditorInformePresupuestosClienteReportGrafComp: TForm}; uEditorInformePresupuestosClienteReportGrafComp in 'uEditorInformePresupuestosClienteReportGrafComp.pas' {fEditorInformePresupuestosClienteReportGrafComp: TForm},
uEditorInformeIVAComparativoReport in 'uEditorInformeIVAComparativoReport.pas' {fEditorInformeIVAComparativoReport: TForm};
end. end.

6
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
View File

@ -111,6 +111,10 @@
<Form>fEditorInformeIVAClientesReport</Form> <Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformeIVAComparativoReport.pas">
<Form>fEditorInformePresupuestosClienteReportGrafComp</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeIVAProveedoresReport.pas"> <DCCReference Include="uEditorInformeIVAProveedoresReport.pas">
<Form>fEditorInformeIVAProveedoresReport</Form> <Form>fEditorInformeIVAProveedoresReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -120,7 +124,7 @@
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformePresupuestosClienteReportGrafComp.pas"> <DCCReference Include="uEditorInformePresupuestosClienteReportGrafComp.pas">
<Form>fEditorInformeBeneficiosReportGrafComp</Form> <Form>fEditorInformePresupuestosClienteReportGrafComp</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformePresupuestosReport.pas"> <DCCReference Include="uEditorInformePresupuestosReport.pas">

235
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAComparativoReport.dfm Normal file
View File

@ -0,0 +1,235 @@
inherited fEditorInformeIVAComparativoReport: TfEditorInformeIVAComparativoReport
Caption = 'fEditorInformeIVAComparativoReport'
ClientHeight = 655
ClientWidth = 895
ExplicitWidth = 903
ExplicitHeight = 689
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 895
ExplicitWidth = 895
inherited Image1: TImage
Left = 868
ExplicitLeft = 868
end
end
inherited TBXDock: TTBXDock
Width = 895
ExplicitWidth = 895
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 895
end
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 591
object TBXItem58: TTBXItem [0]
Action = actRefrescar
DisplayMode = nbdmImageAndText
Images = SmallImages
end
end
end
inherited StatusBar: TJvStatusBar
Top = 636
Width = 895
ExplicitTop = 636
ExplicitWidth = 895
end
inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 534
ExplicitHeight = 534
end
inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 703
Width = 192
Height = 534
ExplicitLeft = 703
ExplicitWidth = 192
ExplicitHeight = 534
inherited pnlParametros: TTBXDockablePanel
DockedWidth = 188
ExplicitWidth = 192
ExplicitHeight = 518
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0
Top = 0
Width = 188
Height = 136
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 188
ExplicitHeight = 136
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
Width = 85
end
inherited edtFechaFin: TcxDateEdit
Left = 77
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 77
ExplicitWidth = 96
Width = 96
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
Visible = False
ExplicitWidth = 182
inherited Label4: TLabel
Width = 160
end
inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 99
Width = 99
end
inherited edtFechaVenIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo2: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368
TabOrder = 2
ExplicitTop = 368
ExplicitWidth = 188
inherited TBXButton1: TTBXButton
AlignWithMargins = True
Left = 3
Top = 3
Width = 182
Height = 37
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 8
Align = alTop
ExplicitLeft = 3
ExplicitTop = 3
ExplicitWidth = 182
ExplicitHeight = 37
end
end
inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0
Top = 136
Width = 188
Height = 77
Align = alTop
AutoSize = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
ReadOnly = False
ExplicitTop = 136
ExplicitWidth = 188
ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0
Top = 213
Width = 188
Height = 146
Align = alTop
AutoSize = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
Visible = False
ReadOnly = False
ExplicitTop = 213
ExplicitWidth = 188
ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited bElegirCliente: TBitBtn
Width = 108
ExplicitWidth = 108
end
inherited edtCliente: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 141
Width = 141
end
end
end
end
end

86
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAComparativoReport.pas Normal file
View File

@ -0,0 +1,86 @@
unit uEditorInformeIVAComparativoReport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAComparativoReport;
type
TfEditorInformeIVAComparativoReport = class(TfEditorInformeBase, IEditorInformeIVAComparativoReport)
TBXItem58: TTBXItem;
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroImportes1: TfrViewFiltroImportes;
frViewFiltroClientes1: TfrViewFiltroClientes;
procedure actRefrescarExecute(Sender: TObject);
private
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
procedure RefrescarInforme;
public
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
end;
implementation
{$R *.dfm}
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
{ TfEditorGestorInformesReport }
procedure TfEditorInformeIVAComparativoReport.actRefrescarExecute(Sender: TObject);
begin
inherited;
RefrescarInforme;
end;
function TfEditorInformeIVAComparativoReport.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 TfEditorInformeIVAComparativoReport.GetFechaInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
procedure TfEditorInformeIVAComparativoReport.RefrescarInforme;
var
AStream: Binary;
begin
ShowHourglassCursor;
try
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeIVAComparativo(
AppFactuGES.EmpresaActiva.ID,
FechaInicio,
FechaFin);
LoadFromStream(AStream);
Report.ShowPreparedReport;
finally
FreeAndNil(AStream);
HideHourglassCursor;
end;
end;
end.

4
Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas
View File

@ -11,7 +11,7 @@ uses
uEditorRegistryUtils, uEditorRegistryUtils,
uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport,
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport, uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport,
uEditorInformePresupuestosReport, uEditorInformePedidosReport, uEditorInformePresupuestosReport, uEditorInformePedidosReport, uEditorInformeIVAComparativoReport,
uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport, uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport, uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport,
@ -39,6 +39,7 @@ begin
EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReportGrafComp, 'EditorInformeFacturasClienteReportGrafComp'); EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReportGrafComp, 'EditorInformeFacturasClienteReportGrafComp');
EditorRegistry.RegisterClass(TfEditorInformeBeneficiosReportGrafComp, 'EditorInformeBeneficiosReportGrafComp'); EditorRegistry.RegisterClass(TfEditorInformeBeneficiosReportGrafComp, 'EditorInformeBeneficiosReportGrafComp');
EditorRegistry.RegisterClass(TfEditorInformePresupuestosClienteReportGrafComp, 'EditorInformePresupuestosClienteReportGrafComp'); EditorRegistry.RegisterClass(TfEditorInformePresupuestosClienteReportGrafComp, 'EditorInformePresupuestosClienteReportGrafComp');
EditorRegistry.RegisterClass(TfEditorInformeIVAComparativoReport, 'EditorInformeIVAComparativoReport');
end; end;
procedure UnregisterViews; procedure UnregisterViews;
@ -61,6 +62,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReportGrafComp); EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReportGrafComp);
EditorRegistry.UnRegisterClass(TfEditorInformeBeneficiosReportGrafComp); EditorRegistry.UnRegisterClass(TfEditorInformeBeneficiosReportGrafComp);
EditorRegistry.UnRegisterClass(TfEditorInformePresupuestosClienteReportGrafComp); EditorRegistry.UnRegisterClass(TfEditorInformePresupuestosClienteReportGrafComp);
EditorRegistry.UnRegisterClass(TfEditorInformeIVAComparativoReport);
end; end;
end. end.

2
Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas
View File

@ -318,7 +318,7 @@ begin
inherited; inherited;
cbPeriodo.ItemIndex := 0; cbPeriodo.ItemIndex := 0;
cbPeriodo2.ItemIndex := 0; cbPeriodo2.ItemIndex := 0;
// EsteMes(TFecha); EsteAno(TFecha);
end; end;
procedure TfrViewPeriodoFechas.CualquierFecha(const ATipoFecha: TTipoFecha); procedure TfrViewPeriodoFechas.CualquierFecha(const ATipoFecha: TTipoFecha);

12
Source/Servicios/FactuGES.RODL
View File

@ -984,6 +984,18 @@
</Parameter> </Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeIVAComparativo" UID="{AF28A0BF-B2E0-41A3-B731-B9FB064609E7}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="FechaIni" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations> </Operations>
</Interface> </Interface>
</Interfaces> </Interfaces>

21
Source/Servicios/FactuGES_Intf.pas
View File

@ -801,6 +801,7 @@ type
function DarListaAnosFacturasProv: StringArray; function DarListaAnosFacturasProv: StringArray;
function DarListaAnosFacturasCli: StringArray; function DarListaAnosFacturasCli: StringArray;
function DarListaIntervalos: StringArray; function DarListaIntervalos: StringArray;
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaIni: Variant; const FechaFin: Variant): Binary;
end; end;
{ CosrvGestorInformes } { CosrvGestorInformes }
@ -847,6 +848,7 @@ type
function DarListaAnosFacturasProv: StringArray; function DarListaAnosFacturasProv: StringArray;
function DarListaAnosFacturasCli: StringArray; function DarListaAnosFacturasCli: StringArray;
function DarListaIntervalos: StringArray; function DarListaIntervalos: StringArray;
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaIni: Variant; const FechaFin: Variant): Binary;
end; end;
implementation implementation
@ -2815,6 +2817,25 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaIni: Variant; const FechaFin: Variant): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAComparativo');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('FechaIni', TypeInfo(Variant), FechaIni, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
initialization initialization
RegisterROClass(TRdxLoginInfo); RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray); RegisterROClass(TRdxEmpresasArray);

33
Source/Servicios/FactuGES_Invk.pas
View File

@ -312,6 +312,7 @@ type
procedure Invoke_DarListaAnosFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_DarListaAnosFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaAnosFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_DarListaAnosFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaIntervalos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_DarListaIntervalos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeIVAComparativo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
implementation implementation
@ -2516,5 +2517,37 @@ begin
end; end;
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAComparativo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaIni: Variant; const FechaFin: Variant): Binary; }
var
IdEmpresa: Integer;
FechaIni: Variant;
FechaFin: Variant;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('FechaIni', TypeInfo(Variant), FechaIni, []);
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeIVAComparativo(IdEmpresa, FechaIni, FechaFin);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeIVAComparativoResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
initialization initialization
end. end.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

661
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,335 +1,334 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 25 de febrero de 2013 12:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 25 de febrero de 2013 12:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </ProjectExtensions>
</ProjectExtensions> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <ItemGroup>
<ItemGroup> <DelphiCompile Include="FactuGES_Server.dpr">
<DelphiCompile Include="FactuGES_Server.dpr"> <MainSource>MainSource</MainSource>
<MainSource>MainSource</MainSource> </DelphiCompile>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <Form>srvEmpresas</Form>
<Form>srvEmpresas</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <Form>srvProvinciasPoblaciones_Impl</Form>
<Form>srvProvinciasPoblaciones_Impl</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <Form>srvUsuarios</Form>
<Form>srvUsuarios</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" /> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <Form>RptAlbaranesCliente</Form>
<Form>RptAlbaranesCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <Form>RptWordAlbaranCliente</Form>
<Form>RptWordAlbaranCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <Form>srvAlbaranesCliente</Form>
<Form>srvAlbaranesCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas"> <Form>RptAlbaranesProveedor</Form>
<Form>RptAlbaranesProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas"> <Form>RptWordAlbaranProveedor</Form>
<Form>RptWordAlbaranProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <Form>srvAlbaranesProveedor</Form>
<Form>srvAlbaranesProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <Form>srvAlmacenes</Form>
<Form>srvAlmacenes</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" /> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <Form>srvArticulos</Form>
<Form>srvArticulos</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <Form>RptEtiquetasContacto</Form>
<Form>RptEtiquetasContacto</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <Form>RptFichasEmpleado</Form>
<Form>RptFichasEmpleado</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <Form>srvContactos</Form>
<Form>srvContactos</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <Form>srvFabricantes</Form>
<Form>srvFabricantes</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <Form>RptFacturasCliente</Form>
<Form>RptFacturasCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <Form>RptWordFacturaCliente</Form>
<Form>RptWordFacturaCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <Form>srvFacturasCliente</Form>
<Form>srvFacturasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <Form>RptFacturasProveedor</Form>
<Form>RptFacturasProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <Form>srvFacturasProveedor</Form>
<Form>srvFacturasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <Form>srvFamilias</Form>
<Form>srvFamilias</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <Form>srvFormasPago</Form>
<Form>srvFormasPago</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <Form>srvGestorDocumentos</Form>
<Form>srvGestorDocumentos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <Form>srvGestorInformes</Form>
<Form>srvGestorInformes</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <Form>srvHistoricoMovimientos</Form>
<Form>srvHistoricoMovimientos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <Form>srvInventario</Form>
<Form>srvInventario</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" /> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <Form>srvObras</Form>
<Form>srvObras</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <Form>RptPedidosProveedor</Form>
<Form>RptPedidosProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <Form>RptWordPedidoProveedor</Form>
<Form>RptWordPedidoProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <Form>srvPedidosProveedor</Form>
<Form>srvPedidosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <Form>RptPresupuestosCliente</Form>
<Form>RptPresupuestosCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> <Form>RptWordCertificadoTrabajo</Form>
<Form>RptWordCertificadoTrabajo</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <Form>RptWordPresupuestoCliente</Form>
<Form>RptWordPresupuestoCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <Form>srvPresupuestosCliente</Form>
<Form>srvPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <Form>RptRecibosCliente</Form>
<Form>RptRecibosCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <Form>srvRecibosCliente</Form>
<Form>srvRecibosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <Form>RptRecibosProveedor</Form>
<Form>RptRecibosProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <Form>srvRecibosProveedor</Form>
<Form>srvRecibosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <Form>srvReferencias</Form>
<Form>srvReferencias</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <Form>srvRemesasCliente</Form>
<Form>srvRemesasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <Form>srvRemesasProveedor</Form>
<Form>srvRemesasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <Form>srvTiposIVA</Form>
<Form>srvTiposIVA</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <Form>srvUnidadesMedida</Form>
<Form>srvUnidadesMedida</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <Form>srvConfiguracion</Form>
<Form>srvConfiguracion</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConexionBD.pas">
<DCCReference Include="Configuracion\uConexionBD.pas"> <Form>frConexionBD</Form>
<Form>frConexionBD</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DCCReference Include="Configuracion\uConfGeneral.pas"> <Form>frConfGeneral</Form>
<Form>frConfGeneral</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DCCReference Include="Configuracion\uConfiguracion.pas"> <Form>fConfiguracion</Form>
<Form>fConfiguracion</Form> <DesignClass>TForm</DesignClass>
<DesignClass>TForm</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <Form>FrameConfiguracion</Form>
<Form>FrameConfiguracion</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="srvLogin_Impl.pas">
<DCCReference Include="srvLogin_Impl.pas"> <Form>srvLogin</Form>
<Form>srvLogin</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="uAcercaDe.pas"> <Form>fAcercaDe</Form>
<Form>fAcercaDe</Form> </DCCReference>
</DCCReference> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="uDataModuleServer.pas"> <Form>dmServer</Form>
<Form>dmServer</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="uServerMainForm.pas"> <Form>fServerForm</Form>
<Form>fServerForm</Form> </DCCReference>
</DCCReference> <DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\AHWord97.pas" /> <DCCReference Include="Utiles\MidasSpeedFix.pas"/>
<DCCReference Include="Utiles\MidasSpeedFix.pas" /> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> </ItemGroup>
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,9,6,0 FILEVERSION 1,9,7,0
PRODUCTVERSION 1,9,6,0 PRODUCTVERSION 1,9,7,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.9.6.0\0" VALUE "FileVersion", "1.9.7.0\0"
VALUE "ProductVersion", "1.9.6.0\0" VALUE "ProductVersion", "1.9.7.0\0"
VALUE "CompileDate", "lunes, 25 de febrero de 2013 12:25\0" VALUE "CompileDate", "miércoles, 27 de febrero de 2013 13:41\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"