Arreglo en los informes de listados para que se pueda filtrar por fecha de vencimiento en todos los que corresponda, se cambia tambien funcionalidad interna, en lugar de usar TDateTime se usa Variant a partir de ahora (COPIAR FICHEROS EN TECSITEL)
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@359 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
56aebeed9e
commit
62bc19e314
@ -44,6 +44,13 @@
|
|||||||
<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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
|
<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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||||
@ -60,51 +67,7 @@
|
|||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" />
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" />
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
<DCCReference Include="adortl.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\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\dxNavBarD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.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\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>
|
||||||
@ -119,7 +82,44 @@
|
|||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Controladores\uControllerBase.pas" />
|
<DCCReference Include="Controladores\uControllerBase.pas" />
|
||||||
<DCCReference Include="Controladores\uControllerDetallesBase.pas" />
|
<DCCReference Include="Controladores\uControllerDetallesBase.pas" />
|
||||||
|
<DCCReference Include="cxIntl6D11.dcp" />
|
||||||
|
<DCCReference Include="cxIntlPrintSys3D11.dcp" />
|
||||||
|
<DCCReference Include="cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="dbrtl.dcp" />
|
||||||
|
<DCCReference Include="dclIndyCore.dcp" />
|
||||||
|
<DCCReference Include="designide.dcp" />
|
||||||
|
<DCCReference Include="dsnap.dcp" />
|
||||||
|
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="dxNavBarD11.dcp" />
|
||||||
|
<DCCReference Include="dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="GUISDK_D11.dcp" />
|
||||||
|
<DCCReference Include="IndyCore.dcp" />
|
||||||
|
<DCCReference Include="IndyProtocols.dcp" />
|
||||||
|
<DCCReference Include="IndySystem.dcp" />
|
||||||
|
<DCCReference Include="Jcl.dcp" />
|
||||||
|
<DCCReference Include="JclVcl.dcp" />
|
||||||
|
<DCCReference Include="JSDialog100.dcp" />
|
||||||
|
<DCCReference Include="JvCmpD11R.dcp" />
|
||||||
|
<DCCReference Include="JvCoreD11R.dcp" />
|
||||||
|
<DCCReference Include="JvCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="JvDlgsD11R.dcp" />
|
||||||
|
<DCCReference Include="JvMMD11R.dcp" />
|
||||||
|
<DCCReference Include="JvNetD11R.dcp" />
|
||||||
|
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||||
|
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="pckMD5.dcp" />
|
||||||
|
<DCCReference Include="pckUCDataConnector.dcp" />
|
||||||
|
<DCCReference Include="pckUserControl_RT.dcp" />
|
||||||
|
<DCCReference Include="PluginSDK_D10R.dcp" />
|
||||||
|
<DCCReference Include="PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="rtl.dcp" />
|
||||||
<DCCReference Include="schBase_Intf.pas" />
|
<DCCReference Include="schBase_Intf.pas" />
|
||||||
|
<DCCReference Include="TB2k_D10.dcp" />
|
||||||
|
<DCCReference Include="tbx_d10.dcp" />
|
||||||
<DCCReference Include="uDataModuleBase.pas">
|
<DCCReference Include="uDataModuleBase.pas">
|
||||||
<Form>DataModuleBase</Form>
|
<Form>DataModuleBase</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
@ -148,6 +148,13 @@
|
|||||||
<DCCReference Include="Utiles\uPasswordUtils.pas" />
|
<DCCReference Include="Utiles\uPasswordUtils.pas" />
|
||||||
<DCCReference Include="Utiles\uSistemaFunc.pas" />
|
<DCCReference Include="Utiles\uSistemaFunc.pas" />
|
||||||
<DCCReference Include="Utiles\uStringsUtils.pas" />
|
<DCCReference Include="Utiles\uStringsUtils.pas" />
|
||||||
|
<DCCReference Include="vcl.dcp" />
|
||||||
|
<DCCReference Include="vclactnband.dcp" />
|
||||||
|
<DCCReference Include="vcldb.dcp" />
|
||||||
|
<DCCReference Include="vcljpg.dcp" />
|
||||||
|
<DCCReference Include="VclSmp.dcp" />
|
||||||
|
<DCCReference Include="vclx.dcp" />
|
||||||
|
<DCCReference Include="xmlrtl.dcp" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
Binary file not shown.
@ -57,12 +57,6 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 2,2,5,0
|
FILEVERSION 2,2,6,0
|
||||||
PRODUCTVERSION 2,2,5,0
|
PRODUCTVERSION 2,2,6,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", "2.2.5.0\0"
|
VALUE "FileVersion", "2.2.6.0\0"
|
||||||
VALUE "InternalName", "FactuGES\0"
|
VALUE "InternalName", "FactuGES\0"
|
||||||
VALUE "ProductName", "FactuGES\0"
|
VALUE "ProductName", "FactuGES\0"
|
||||||
VALUE "ProductVersion", "2.2.5.0\0"
|
VALUE "ProductVersion", "2.2.6.0\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
@ -1,10 +1,10 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39783,5243070023" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39792,5502135764" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||||
<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="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||||
<TfrxShapeView Name="Shape5" Left="694,14193" Top="37,10235" Width="315" Height="99" Shape="skRoundRectangle"/>
|
<TfrxShapeView Name="Shape5" Left="694,14193" Top="37,10235" Width="315" Height="99" Shape="skRoundRectangle"/>
|
||||||
<TfrxMemoView Name="NombreCliente" Left="704" Top="44,10235" Width="297" Height="32" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE"/>
|
<TfrxMemoView Name="NombreCliente" Left="704" Top="44,10235" Width="297" Height="32" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR"/>
|
||||||
<TfrxMemoView Name="CabParametros" Left="704" Top="96,10235" Width="297" Height="16" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="dd/mm/yyyy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Width="0,100000001490116" HAlign="haRight" ParentFont="False" Text="Desde [<FechaInicio>] hasta [<FechaFin>]"/>
|
<TfrxMemoView Name="CabParametros" Left="704" Top="96,10235" Width="297" Height="16" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="dd/mm/yyyy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Width="0,100000001490116" HAlign="haRight" ParentFont="False" Text="Desde [<FechaInicio>] hasta [<FechaFin>]"/>
|
||||||
<TfrxMemoView Name="Memo3" Left="703" Top="79,10235" Width="297" Height="16" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [<Date>]"/>
|
<TfrxMemoView Name="Memo3" Left="703" Top="79,10235" Width="297" Height="16" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [<Date>]"/>
|
||||||
<TfrxMemoView Name="Memo19" Left="703,63822" Top="113,3859" Width="296,85034" Height="17,00787402" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" HAlign="haRight" ParentFont="False" Text="Página [<Pagina>] de [<TotalPaginas>]"/>
|
<TfrxMemoView Name="Memo19" Left="703,63822" Top="113,3859" Width="296,85034" Height="17,00787402" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" HAlign="haRight" ParentFont="False" Text="Página [<Pagina>] de [<TotalPaginas>]"/>
|
||||||
@ -30,12 +30,12 @@
|
|||||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="279,68522" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="279,68522" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||||
<TfrxMemoView Name="Memo4" Left="301,60637732" Top="0" Width="342,8030715" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo4" Left="301,60637732" Top="0" Width="342,8030715" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="133,06299213" Top="0" Width="82,5984252" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA"]"/>
|
<TfrxMemoView Name="Memo21" Left="133,06299213" Top="0" Width="82,5984252" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="133,41735213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="133,41735213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,488188976378" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,488188976378" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||||
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,244094488189" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,244094488189" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||||
<TfrxMemoView Name="Memo31" Left="912,755905511811" Top="0" Width="94,64276" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo31" Left="912,755905511811" Top="0" Width="94,64276" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||||
<TfrxMemoView Name="Memo9" Left="216,21274" Top="0" Width="85,8188952" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo9" Left="216,21274" Top="0" Width="85,8188952" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="321,26005" Width="1009,13451">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="321,26005" Width="1009,13451">
|
||||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39783,5246234722" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39792,5503734375" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||||
<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="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||||
@ -34,8 +34,8 @@
|
|||||||
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,48818898" Height="17,007874015748" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,48818898" Height="17,007874015748" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||||
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" Height="17,007874015748" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" Height="17,007874015748" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||||
<TfrxMemoView Name="Memo31" Left="912,75590551" Top="0" Width="95,62204724" Height="17,007874015748" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo31" Left="912,75590551" Top="0" Width="95,62204724" Height="17,007874015748" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="117,65359213" Top="0" Width="84,5984252" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA"]"/>
|
<TfrxMemoView Name="Memo21" Left="117,65359213" Top="0" Width="84,5984252" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo10" Left="201,80334" Top="0" Width="85,8188952" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo10" Left="201,80334" Top="0" Width="85,8188952" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||||
<TfrxMemoView Name="Memo6" Left="913,13385827" Top="0,37774772" Width="95" Height="16" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
<TfrxMemoView Name="Memo6" Left="913,13385827" Top="0,37774772" Width="95" Height="16" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39783,5248654514" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39792,5505806829" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||||
<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="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||||
@ -30,8 +30,8 @@
|
|||||||
<TfrxMemoView Name="Memo4" Left="302,71417" Top="0" Width="415,37004213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo4" Left="302,71417" Top="0" Width="415,37004213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="135,30708661" Top="0" Width="82,5984252" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA"]"/>
|
<TfrxMemoView Name="Memo21" Left="135,30708661" Top="0" Width="82,5984252" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo9" Left="218,45669291" Top="0" Width="85,03937008" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo9" Left="218,45669291" Top="0" Width="85,03937008" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="321,26005" Width="1009,13451">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="321,26005" Width="1009,13451">
|
||||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39783,5251318287" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="39792,5497741204" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
|
||||||
<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="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="18,89765" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||||
@ -30,8 +30,8 @@
|
|||||||
<TfrxMemoView Name="Memo4" Left="305,71417" Top="0" Width="412,37004213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo4" Left="305,71417" Top="0" Width="412,37004213" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
<TfrxMemoView Name="Memo20" Left="831,70903" Top="0" Width="176,503937007874" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas."SITUACION"]"/>
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,929133858268" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="135,30708661" Top="0" Width="83,5984252" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA"]"/>
|
<TfrxMemoView Name="Memo21" Left="135,30708661" Top="0" Width="83,5984252" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||||
<TfrxMemoView Name="Memo10" Left="219,45669291" Top="0" Width="87,03937008" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
<TfrxMemoView Name="Memo10" Left="219,45669291" Top="0" Width="87,03937008" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,14173228" Height="16" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)] "/>
|
||||||
|
|||||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -39,12 +39,12 @@ type
|
|||||||
FConnection: IDAConnection;
|
FConnection: IDAConnection;
|
||||||
//Genera cada uno de los albaranes a imprimir
|
//Genera cada uno de los albaranes a imprimir
|
||||||
procedure _GenerarFactura(const ID: integer); overload;
|
procedure _GenerarFactura(const ID: integer); overload;
|
||||||
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
public
|
public
|
||||||
function GenerarFactura(const ListaID : TIntegerArray): Binary; overload;
|
function GenerarFactura(const ListaID : TIntegerArray): Binary; overload;
|
||||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -91,7 +91,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio,
|
function TRptFacturasCliente.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio,
|
||||||
FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
ATipoInforme: String;
|
ATipoInforme: String;
|
||||||
@ -107,7 +107,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
|
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
|
||||||
const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
ATipoInforme: String;
|
ATipoInforme: String;
|
||||||
@ -124,7 +124,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
|
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -187,7 +187,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente._GenerarInforme(const TipoInforme: String;
|
function TRptFacturasCliente._GenerarInforme(const TipoInforme: String;
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
Condicion: TDAWhereExpression;
|
Condicion: TDAWhereExpression;
|
||||||
|
|||||||
@ -22,6 +22,8 @@
|
|||||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||||
<Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" />
|
<Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" />
|
||||||
<Projects Include="..\Gestor de informes\Data\GestorInformes_data.dproj" />
|
<Projects Include="..\Gestor de informes\Data\GestorInformes_data.dproj" />
|
||||||
|
<Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" />
|
||||||
|
<Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
|
||||||
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
|
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
|
||||||
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
|
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
|
||||||
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
|
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
|
||||||
@ -261,14 +263,32 @@
|
|||||||
<Target Name="GestorInformes_data:Make">
|
<Target Name="GestorInformes_data:Make">
|
||||||
<MSBuild Projects="..\Gestor de informes\Data\GestorInformes_data.dproj" Targets="Make" />
|
<MSBuild Projects="..\Gestor de informes\Data\GestorInformes_data.dproj" Targets="Make" />
|
||||||
</Target>
|
</Target>
|
||||||
|
<Target Name="GestorInformes_view">
|
||||||
|
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="GestorInformes_view:Clean">
|
||||||
|
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="GestorInformes_view:Make">
|
||||||
|
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="GestorInformes_model">
|
||||||
|
<MSBuild Projects="..\Gestor de informes\Model\GestorInformes_model.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="GestorInformes_model:Clean">
|
||||||
|
<MSBuild Projects="..\Gestor de informes\Model\GestorInformes_model.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="GestorInformes_model:Make">
|
||||||
|
<MSBuild Projects="..\Gestor de informes\Model\GestorInformes_model.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
<Target Name="Build">
|
<Target Name="Build">
|
||||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;FacturasCliente_controller;GestorInformes_controller;GestorInformes_data" />
|
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;FacturasCliente_controller;GestorInformes_controller;GestorInformes_data;GestorInformes_view;GestorInformes_model" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Clean">
|
<Target Name="Clean">
|
||||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;FacturasCliente_controller:Clean;GestorInformes_controller:Clean;GestorInformes_data:Clean" />
|
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;FacturasCliente_controller:Clean;GestorInformes_controller:Clean;GestorInformes_data:Clean;GestorInformes_view:Clean;GestorInformes_model:Clean" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Make">
|
<Target Name="Make">
|
||||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;FacturasCliente_controller:Make;GestorInformes_controller:Make;GestorInformes_data:Make" />
|
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;FacturasCliente_controller:Make;GestorInformes_controller:Make;GestorInformes_data:Make;GestorInformes_view:Make;GestorInformes_model:Make" />
|
||||||
</Target>
|
</Target>
|
||||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||||
</Project>
|
</Project>
|
||||||
@ -63,9 +63,9 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
||||||
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
||||||
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' +
|
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' +
|
||||||
'ITUACION, NIF_CIF, FECHA_FACTURA AS FECHA, FECHA_VENCIMIENTO AS ' +
|
'ITUACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONI' +
|
||||||
'FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from ' +
|
'BLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where' +
|
||||||
'V_facturas_proveedor'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10#10
|
' {where}'#10'order by ANO, MES, NOMBRE'#10#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -124,9 +124,8 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
SQLOrigin = 'ANO'
|
SQLOrigin = 'ANO'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'FECHA'
|
DatasetField = 'FECHA_VENCIMIENTO'
|
||||||
TableField = '<unknown>'
|
TableField = 'FECHA_VENCIMIENTO'
|
||||||
SQLOrigin = 'FECHA'
|
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'ListadoFacturasProveedor'
|
Name = 'ListadoFacturasProveedor'
|
||||||
@ -173,11 +172,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
|||||||
Size = 15
|
Size = 15
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA'
|
Name = 'FECHA_FACTURA'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_FACTURA'
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
|
|||||||
@ -29,12 +29,12 @@ type
|
|||||||
procedure DataModuleCreate(Sender: TObject);
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
private
|
private
|
||||||
FConnection: IDAConnection;
|
FConnection: IDAConnection;
|
||||||
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
public
|
public
|
||||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: 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 ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -64,7 +64,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
|
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
|
||||||
const FechaInicio, FechaFin: DateTime;
|
const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -77,11 +77,12 @@ begin
|
|||||||
else
|
else
|
||||||
ATipoInforme := rptInformeIVA;
|
ATipoInforme := rptInformeIVA;
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDProveedores, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasProveedor.GenerarInformeListadoFacturas(
|
function TRptFacturasProveedor.GenerarInformeListadoFacturas(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -95,11 +96,12 @@ begin
|
|||||||
else
|
else
|
||||||
ATipoInforme := rptInformeListadoFacturasProveedor;
|
ATipoInforme := rptInformeListadoFacturasProveedor;
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
|
function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -129,11 +131,12 @@ begin
|
|||||||
ATipoInforme := rptInformeListadoFactuasProveedorPendiente;
|
ATipoInforme := rptInformeListadoFactuasProveedorPendiente;
|
||||||
|
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String;
|
function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String;
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
Condicion: TDAWhereExpression;
|
Condicion: TDAWhereExpression;
|
||||||
@ -175,6 +178,22 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
// Filtrar el informe por fechas de vencimiento
|
||||||
|
if not VarIsNull(FechaVenInicio)
|
||||||
|
and not VarIsNull(FechaVenFin) then
|
||||||
|
begin
|
||||||
|
with tbl_InformeListadoFacturas.DynamicWhere do
|
||||||
|
begin
|
||||||
|
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
|
||||||
|
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
|
||||||
|
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||||
|
if IsEmpty then
|
||||||
|
Expression := Condicion
|
||||||
|
else
|
||||||
|
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
// Filtrar el informe por proveedor
|
// Filtrar el informe por proveedor
|
||||||
if Assigned(ListaIDProveedores) then
|
if Assigned(ListaIDProveedores) then
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
|
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
|
||||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf280.tmp */
|
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C0.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
|
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
|
||||||
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
|
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
|
||||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf27E.tmp */
|
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1BE.tmp */
|
||||||
|
|||||||
@ -8,13 +8,13 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
|
IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
|
||||||
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
|
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,13 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeFacturasClienteReport = interface(IEditorInformeBase)
|
IEditorInformeFacturasClienteReport = interface(IEditorInformeBase)
|
||||||
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
|
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,17 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase)
|
IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase)
|
||||||
['{C0EFEC01-BF2C-4B56-9876-2818892FABFA}']
|
['{C0EFEC01-BF2C-4B56-9876-2818892FABFA}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,17 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase)
|
IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase)
|
||||||
['{0E60C309-336C-455D-825B-7E4892A6CBC5}']
|
['{0E60C309-336C-455D-825B-7E4892A6CBC5}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,13 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeIVAClientesReport = interface(IEditorInformeBase)
|
IEditorInformeIVAClientesReport = interface(IEditorInformeBase)
|
||||||
['{66F6F909-B1EC-4117-A115-12DFB62E6120}']
|
['{66F6F909-B1EC-4117-A115-12DFB62E6120}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,13 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase)
|
IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase)
|
||||||
['{1EC723DF-B7F7-49F9-83FA-DF628FEF4B26}']
|
['{1EC723DF-B7F7-49F9-83FA-DF628FEF4B26}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,13 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformePedidosReport = interface(IEditorInformeBase)
|
IEditorInformePedidosReport = interface(IEditorInformeBase)
|
||||||
['{70B07429-BCB2-416F-8C42-6D7BFFA152D5}']
|
['{70B07429-BCB2-416F-8C42-6D7BFFA152D5}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,13 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformePresupuestosReport = interface(IEditorInformeBase)
|
IEditorInformePresupuestosReport = interface(IEditorInformeBase)
|
||||||
['{99BBD05C-8AEF-4BA7-83C6-FC467F14488C}']
|
['{99BBD05C-8AEF-4BA7-83C6-FC467F14488C}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,17 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeRecibosCliPendientesReport = interface(IEditorInformeBase)
|
IEditorInformeRecibosCliPendientesReport = interface(IEditorInformeBase)
|
||||||
['{BD1EA0DE-B610-4170-9BFC-4A7C0F7ABF0E}']
|
['{BD1EA0DE-B610-4170-9BFC-4A7C0F7ABF0E}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,17 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeRecibosClienteReport = interface(IEditorInformeBase)
|
IEditorInformeRecibosClienteReport = interface(IEditorInformeBase)
|
||||||
['{F0DAD68E-198D-41BE-B04E-C76486208631}']
|
['{F0DAD68E-198D-41BE-B04E-C76486208631}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,17 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeRecibosProvPendientesReport = interface(IEditorInformeBase)
|
IEditorInformeRecibosProvPendientesReport = interface(IEditorInformeBase)
|
||||||
['{DC6AA05C-24F5-4F2A-BCB7-625629BF4297}']
|
['{DC6AA05C-24F5-4F2A-BCB7-625629BF4297}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -8,13 +8,17 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorInformeRecibosProveedorReport = interface(IEditorInformeBase)
|
IEditorInformeRecibosProveedorReport = interface(IEditorInformeBase)
|
||||||
['{63D1B0D1-9BDD-48B6-BD3B-C05AC6B49C9C}']
|
['{63D1B0D1-9BDD-48B6-BD3B-C05AC6B49C9C}']
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read getImporteMinimo;
|
property ImporteMinimo: Currency read getImporteMinimo;
|
||||||
|
|||||||
@ -377,7 +377,7 @@ begin
|
|||||||
AEditor.Controller := Self;
|
AEditor.Controller := Self;
|
||||||
AEditor.Title := 'Listado de facturas de proveedor';
|
AEditor.Title := 'Listado de facturas de proveedor';
|
||||||
AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID,
|
AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID,
|
||||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
|
AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
|
||||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||||
AEditor.LoadFromStream(AStream);
|
AEditor.LoadFromStream(AStream);
|
||||||
AEditor.Preview;
|
AEditor.Preview;
|
||||||
@ -400,7 +400,7 @@ begin
|
|||||||
AEditor.Controller := Self;
|
AEditor.Controller := Self;
|
||||||
AEditor.Title := 'Listado de facturas de proveedor pendientes';
|
AEditor.Title := 'Listado de facturas de proveedor pendientes';
|
||||||
AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID,
|
AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID,
|
||||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
|
AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
|
||||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||||
AEditor.LoadFromStream(AStream);
|
AEditor.LoadFromStream(AStream);
|
||||||
AEditor.Preview;
|
AEditor.Preview;
|
||||||
@ -446,7 +446,7 @@ begin
|
|||||||
try
|
try
|
||||||
AEditor.Controller := Self;
|
AEditor.Controller := Self;
|
||||||
AStream := FDataModule.GenerarInformeListadoRecibosCliente(AppFactuGES.EmpresaActiva.ID,
|
AStream := FDataModule.GenerarInformeListadoRecibosCliente(AppFactuGES.EmpresaActiva.ID,
|
||||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
|
AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDClientes,
|
||||||
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
||||||
AEditor.LoadFromStream(AStream);
|
AEditor.LoadFromStream(AStream);
|
||||||
AEditor.Preview;
|
AEditor.Preview;
|
||||||
@ -469,7 +469,7 @@ begin
|
|||||||
try
|
try
|
||||||
AEditor.Controller := Self;
|
AEditor.Controller := Self;
|
||||||
AStream := FDataModule.GenerarInformeListadoRecibosCliPendientes(AppFactuGES.EmpresaActiva.ID,
|
AStream := FDataModule.GenerarInformeListadoRecibosCliPendientes(AppFactuGES.EmpresaActiva.ID,
|
||||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
|
AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDClientes,
|
||||||
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
|
||||||
AEditor.LoadFromStream(AStream);
|
AEditor.LoadFromStream(AStream);
|
||||||
AEditor.Preview;
|
AEditor.Preview;
|
||||||
@ -493,7 +493,7 @@ begin
|
|||||||
try
|
try
|
||||||
AEditor.Controller := Self;
|
AEditor.Controller := Self;
|
||||||
AStream := FDataModule.GenerarInformeListadoRecibosProveedor(AppFactuGES.EmpresaActiva.ID,
|
AStream := FDataModule.GenerarInformeListadoRecibosProveedor(AppFactuGES.EmpresaActiva.ID,
|
||||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
|
AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
|
||||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||||
AEditor.LoadFromStream(AStream);
|
AEditor.LoadFromStream(AStream);
|
||||||
AEditor.Preview;
|
AEditor.Preview;
|
||||||
@ -516,7 +516,7 @@ begin
|
|||||||
try
|
try
|
||||||
AEditor.Controller := Self;
|
AEditor.Controller := Self;
|
||||||
AStream := FDataModule.GenerarInformeListadoRecibosProvPendientes(AppFactuGES.EmpresaActiva.ID,
|
AStream := FDataModule.GenerarInformeListadoRecibosProvPendientes(AppFactuGES.EmpresaActiva.ID,
|
||||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
|
AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
|
||||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||||
AEditor.LoadFromStream(AStream);
|
AEditor.LoadFromStream(AStream);
|
||||||
AEditor.Preview;
|
AEditor.Preview;
|
||||||
|
|||||||
@ -23,25 +23,25 @@ type
|
|||||||
// function GetItems : IBizFacturaCliente;
|
// function GetItems : IBizFacturaCliente;
|
||||||
|
|
||||||
//MODULO PRESUPUESTOS DE CLIENTE
|
//MODULO PRESUPUESTOS DE CLIENTE
|
||||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO FACTURAS DE CLIENTE
|
//MODULO FACTURAS DE CLIENTE
|
||||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS DE CLIENTE
|
//MODULO RECIBOS DE CLIENTE
|
||||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; 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;
|
||||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; 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;
|
||||||
|
|
||||||
//MODULO FACTURAS DE PROVEEDOR
|
//MODULO FACTURAS DE PROVEEDOR
|
||||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS DE CLIENTE
|
//MODULO RECIBOS DE CLIENTE
|
||||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
procedure getInforme;
|
procedure getInforme;
|
||||||
end;
|
end;
|
||||||
@ -62,7 +62,7 @@ begin
|
|||||||
RORemoteService.Message := dmConexion.Message;
|
RORemoteService.Message := dmConexion.Message;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function TDataModuleGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||||
@ -71,7 +71,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
|
function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
@ -82,7 +82,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli(
|
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
@ -93,7 +93,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes(
|
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
@ -104,29 +104,31 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv(
|
function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasProvPendientes(
|
function TDataModuleGestorInformes.GenerarInformeListadoFacturasProvPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoPresupuestos(
|
function TDataModuleGestorInformes.GenerarInformeListadoPresupuestos(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
@ -137,45 +139,49 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliente(
|
function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliente(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliPendientes(
|
function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoRecibosProveedor(
|
function TDataModuleGestorInformes.GenerarInformeListadoRecibosProveedor(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleGestorInformes.GenerarInformeListadoRecibosProvPendientes(
|
function TDataModuleGestorInformes.GenerarInformeListadoRecibosProvPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -12,25 +12,25 @@ type
|
|||||||
procedure getInforme;
|
procedure getInforme;
|
||||||
|
|
||||||
//MODULO PRESUPUESTOS DE CLIENTE
|
//MODULO PRESUPUESTOS DE CLIENTE
|
||||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO FACTURAS DE CLIENTE
|
//MODULO FACTURAS DE CLIENTE
|
||||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS DE CLIENTE
|
//MODULO RECIBOS DE CLIENTE
|
||||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; 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;
|
||||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; 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;
|
||||||
|
|
||||||
//MODULO FACTURAS DE PROVEEDOR
|
//MODULO FACTURAS DE PROVEEDOR
|
||||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS DE CLIENTE
|
//MODULO RECIBOS DE CLIENTE
|
||||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -46,25 +46,25 @@ type
|
|||||||
|
|
||||||
public
|
public
|
||||||
//MODULO PRESUPUESTOS CLIENTE
|
//MODULO PRESUPUESTOS CLIENTE
|
||||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO FACTURAS CLIENTE
|
//MODULO FACTURAS CLIENTE
|
||||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS CLIENTE
|
//MODULO RECIBOS CLIENTE
|
||||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; 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;
|
||||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; 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;
|
||||||
|
|
||||||
//MODULO FACTURAS PROVEEDOR
|
//MODULO FACTURAS PROVEEDOR
|
||||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
//MODULO RECIBOS PROVEEDOR
|
//MODULO RECIBOS PROVEEDOR
|
||||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -163,7 +163,7 @@ begin
|
|||||||
}
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
AReportGenerator : TRptFacturasCliente;
|
AReportGenerator : TRptFacturasCliente;
|
||||||
begin
|
begin
|
||||||
@ -176,7 +176,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer;
|
function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer;
|
||||||
const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
AReportGenerator : TRptFacturasProveedor;
|
AReportGenerator : TRptFacturasProveedor;
|
||||||
@ -190,7 +190,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer;
|
function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer;
|
||||||
const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
AReportGenerator : TRptFacturasCliente;
|
AReportGenerator : TRptFacturasCliente;
|
||||||
@ -204,7 +204,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes(
|
function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -219,7 +219,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoFacturasProv(
|
function TsrvGestorInformes.GenerarInformeListadoFacturasProv(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -227,14 +228,15 @@ var
|
|||||||
begin
|
begin
|
||||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes(
|
function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -242,14 +244,14 @@ var
|
|||||||
begin
|
begin
|
||||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
|
function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -263,23 +265,21 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoRecibosCliente(
|
function TsrvGestorInformes.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;
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
|
||||||
const ImporteMinimo: Currency): Binary;
|
|
||||||
var
|
var
|
||||||
AReportGenerator : TRptRecibosCliente;
|
AReportGenerator : TRptRecibosCliente;
|
||||||
begin
|
begin
|
||||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoRecibosCliPendientes(
|
function TsrvGestorInformes.GenerarInformeListadoRecibosCliPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -287,14 +287,15 @@ var
|
|||||||
begin
|
begin
|
||||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoRecibosProveedor(
|
function TsrvGestorInformes.GenerarInformeListadoRecibosProveedor(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -302,14 +303,15 @@ var
|
|||||||
begin
|
begin
|
||||||
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes.GenerarInformeListadoRecibosProvPendientes(
|
function TsrvGestorInformes.GenerarInformeListadoRecibosProvPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -317,7 +319,7 @@ var
|
|||||||
begin
|
begin
|
||||||
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -38,40 +38,46 @@
|
|||||||
<DelphiCompile Include="GestorInformes_view.dpk">
|
<DelphiCompile Include="GestorInformes_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="ApplicationBase.dcp" />
|
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||||
<DCCReference Include="Base.dcp" />
|
<DCCReference Include="..\Base.dcp" />
|
||||||
<DCCReference Include="ccpackD11.dcp" />
|
<DCCReference Include="..\ccpackD11.dcp" />
|
||||||
<DCCReference Include="cfpack_d11.dcp" />
|
<DCCReference Include="..\cfpack_d11.dcp" />
|
||||||
<DCCReference Include="Contactos_controller.dcp" />
|
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||||
<DCCReference Include="Contactos_model.dcp" />
|
<DCCReference Include="..\Contactos_model.dcp" />
|
||||||
<DCCReference Include="Contactos_view.dcp" />
|
<DCCReference Include="..\Contactos_view.dcp" />
|
||||||
<DCCReference Include="cxDataD11.dcp" />
|
<DCCReference Include="..\cxDataD11.dcp" />
|
||||||
<DCCReference Include="cxEditorsD11.dcp" />
|
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="cxLibraryD11.dcp" />
|
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="dbrtl.dcp" />
|
<DCCReference Include="..\dbrtl.dcp" />
|
||||||
<DCCReference Include="designide.dcp" />
|
<DCCReference Include="..\designide.dcp" />
|
||||||
<DCCReference Include="dxComnD11.dcp" />
|
<DCCReference Include="..\dxComnD11.dcp" />
|
||||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="dxThemeD11.dcp" />
|
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="frx11.dcp" />
|
<DCCReference Include="..\frx11.dcp" />
|
||||||
<DCCReference Include="frxe11.dcp" />
|
<DCCReference Include="..\frxe11.dcp" />
|
||||||
<DCCReference Include="fs11.dcp" />
|
<DCCReference Include="..\fs11.dcp" />
|
||||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
||||||
<DCCReference Include="GUIBase.dcp" />
|
<DCCReference Include="..\GUIBase.dcp" />
|
||||||
<DCCReference Include="GUISDK_D11.dcp" />
|
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||||
<DCCReference Include="Jcl.dcp" />
|
<DCCReference Include="..\Jcl.dcp" />
|
||||||
<DCCReference Include="JclVcl.dcp" />
|
<DCCReference Include="..\JclVcl.dcp" />
|
||||||
<DCCReference Include="JvCoreD11R.dcp" />
|
<DCCReference Include="..\JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
<DCCReference Include="..\JvPageCompsD11R.dcp" />
|
||||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="JvSystemD11R.dcp" />
|
<DCCReference Include="..\JvSystemD11R.dcp" />
|
||||||
<DCCReference Include="PngComponentsD10.dcp" />
|
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="PNG_D10.dcp" />
|
<DCCReference Include="..\PNG_D10.dcp" />
|
||||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="rtl.dcp" />
|
<DCCReference Include="..\rtl.dcp" />
|
||||||
<DCCReference Include="tb2k_d10.dcp" />
|
<DCCReference Include="..\tb2k_d10.dcp" />
|
||||||
<DCCReference Include="tbx_d10.dcp" />
|
<DCCReference Include="..\tbx_d10.dcp" />
|
||||||
|
<DCCReference Include="..\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="..\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\vclx.dcp" />
|
||||||
|
<DCCReference Include="..\xmlrtl.dcp" />
|
||||||
<DCCReference Include="uEditorInformeBase.pas">
|
<DCCReference Include="uEditorInformeBase.pas">
|
||||||
<Form>fEditorInformeBase</Form>
|
<Form>fEditorInformeBase</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
@ -137,12 +143,6 @@
|
|||||||
<Form>frViewPeriodoFechas</Form>
|
<Form>frViewPeriodoFechas</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="vcl.dcp" />
|
|
||||||
<DCCReference Include="vclactnband.dcp" />
|
|
||||||
<DCCReference Include="vcldb.dcp" />
|
|
||||||
<DCCReference Include="vcljpg.dcp" />
|
|
||||||
<DCCReference Include="vclx.dcp" />
|
|
||||||
<DCCReference Include="xmlrtl.dcp" />
|
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -66,18 +66,6 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 136
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 153
|
|
||||||
Width = 153
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
@ -85,6 +73,44 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
|||||||
Width = 85
|
Width = 85
|
||||||
end
|
end
|
||||||
inherited edtFechaFin: TcxDateEdit
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 72
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 72
|
||||||
|
ExplicitWidth = 100
|
||||||
|
Width = 100
|
||||||
|
end
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 100
|
||||||
|
Width = 100
|
||||||
|
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 = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -92,7 +118,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
|||||||
ExplicitWidth = 99
|
ExplicitWidth = 99
|
||||||
Width = 99
|
Width = 99
|
||||||
end
|
end
|
||||||
inherited edtFechaIni: TcxDateEdit
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -100,18 +126,20 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
|||||||
ExplicitWidth = 97
|
ExplicitWidth = 97
|
||||||
Width = 97
|
Width = 97
|
||||||
end
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 212
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
Top = 368
|
Top = 368
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
ExplicitTop = 456
|
ExplicitTop = 368
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 40
|
|
||||||
inherited TBXButton1: TTBXButton
|
inherited TBXButton1: TTBXButton
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 3
|
Left = 3
|
||||||
|
|||||||
@ -26,8 +26,8 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
@ -35,8 +35,8 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -80,14 +80,14 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime;
|
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
|
function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
|
||||||
|
|||||||
@ -66,25 +66,59 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 136
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
|
Height = 98
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
|
ExplicitHeight = 98
|
||||||
|
inherited Label3: TLabel
|
||||||
|
Width = 85
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 74
|
||||||
|
Top = 77
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 74
|
||||||
|
ExplicitTop = 77
|
||||||
|
ExplicitWidth = 99
|
||||||
|
Width = 99
|
||||||
|
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
|
inherited cbPeriodo: TcxComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 153
|
ExplicitWidth = 170
|
||||||
Width = 153
|
Width = 170
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Top = 136
|
||||||
Width = 182
|
Width = 182
|
||||||
|
Visible = False
|
||||||
|
ExplicitTop = 136
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
inherited Label3: TLabel
|
inherited Label4: TLabel
|
||||||
Width = 85
|
Width = 160
|
||||||
end
|
end
|
||||||
inherited edtFechaFin: TcxDateEdit
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -92,7 +126,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
|||||||
ExplicitWidth = 99
|
ExplicitWidth = 99
|
||||||
Width = 99
|
Width = 99
|
||||||
end
|
end
|
||||||
inherited edtFechaIni: TcxDateEdit
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -100,18 +134,20 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
|||||||
ExplicitWidth = 97
|
ExplicitWidth = 97
|
||||||
Width = 97
|
Width = 97
|
||||||
end
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 212
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
Top = 368
|
Top = 368
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
ExplicitTop = 440
|
ExplicitTop = 368
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 50
|
|
||||||
inherited TBXButton1: TTBXButton
|
inherited TBXButton1: TTBXButton
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 3
|
Left = 3
|
||||||
|
|||||||
@ -25,8 +25,8 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
@ -34,8 +34,8 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +79,14 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime;
|
function TfEditorInformeFacturasClienteReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasClienteReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeFacturasClienteReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;
|
function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;
|
||||||
|
|||||||
@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 136
|
Height = 240
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 240
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
|
inherited Label3: TLabel
|
||||||
|
Width = 85
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
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
|
inherited cbPeriodo: TcxComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 153
|
ExplicitWidth = 170
|
||||||
Width = 153
|
Width = 170
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 99
|
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
Width = 188
|
Width = 188
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
end
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 160
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 170
|
||||||
|
Width = 170
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
Top = 368
|
Top = 368
|
||||||
@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
|||||||
end
|
end
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 136
|
Top = 240
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 77
|
Height = 77
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 136
|
ExplicitTop = 240
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 77
|
ExplicitHeight = 77
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
|||||||
end
|
end
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 213
|
Top = 317
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 146
|
Height = 146
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 213
|
ExplicitTop = 317
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 146
|
ExplicitHeight = 146
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
|||||||
@ -26,8 +26,10 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDProveedores: TIntegerArray;
|
FListaIDProveedores: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
@ -35,8 +37,10 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -80,14 +84,24 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: TDateTime;
|
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasProveedorPendientesReport.GetImporteMinimo: Currency;
|
function TfEditorInformeFacturasProveedorPendientesReport.GetImporteMinimo: Currency;
|
||||||
@ -117,6 +131,8 @@ begin
|
|||||||
AppFactuGES.EmpresaActiva.ID,
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
FechaInicio,
|
FechaInicio,
|
||||||
FechaFin,
|
FechaFin,
|
||||||
|
FechaVenInicio,
|
||||||
|
FechaVenFin,
|
||||||
ListaIDProveedores,
|
ListaIDProveedores,
|
||||||
DesglosadoProveedor,
|
DesglosadoProveedor,
|
||||||
ImporteMinimo);
|
ImporteMinimo);
|
||||||
|
|||||||
@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 136
|
Height = 240
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 240
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 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
|
inherited cbPeriodo: TcxComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 153
|
ExplicitWidth = 170
|
||||||
Width = 153
|
Width = 170
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 172
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 99
|
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
Width = 188
|
Width = 188
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
end
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 160
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Left = 77
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 77
|
||||||
|
ExplicitWidth = 96
|
||||||
|
Width = 96
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 170
|
||||||
|
Width = 170
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
Top = 368
|
Top = 368
|
||||||
@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
|||||||
end
|
end
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 136
|
Top = 240
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 77
|
Height = 77
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 136
|
ExplicitTop = 240
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 77
|
ExplicitHeight = 77
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
|||||||
end
|
end
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 213
|
Top = 317
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 146
|
Height = 146
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 213
|
ExplicitTop = 317
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 146
|
ExplicitHeight = 146
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
|||||||
@ -25,8 +25,10 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDProveedores: TIntegerArray;
|
FListaIDProveedores: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
@ -34,8 +36,10 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +83,24 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasProveedorReport.GetFechaFin: TDateTime;
|
function TfEditorInformeFacturasProveedorReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasProveedorReport.GetFechaVenFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeFacturasProveedorReport.GetFechaVenInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeFacturasProveedorReport.GetImporteMinimo: Currency;
|
function TfEditorInformeFacturasProveedorReport.GetImporteMinimo: Currency;
|
||||||
@ -116,6 +130,8 @@ begin
|
|||||||
AppFactuGES.EmpresaActiva.ID,
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
FechaInicio,
|
FechaInicio,
|
||||||
FechaFin,
|
FechaFin,
|
||||||
|
FechaVenInicio,
|
||||||
|
FechaVenFin,
|
||||||
ListaIDProveedores,
|
ListaIDProveedores,
|
||||||
DesglosadoProveedor,
|
DesglosadoProveedor,
|
||||||
ImporteMinimo);
|
ImporteMinimo);
|
||||||
|
|||||||
@ -66,25 +66,53 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 136
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 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
|
inherited cbPeriodo: TcxComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 153
|
ExplicitWidth = 170
|
||||||
Width = 153
|
Width = 170
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
|
Visible = False
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
inherited Label3: TLabel
|
inherited Label4: TLabel
|
||||||
Width = 172
|
Width = 160
|
||||||
end
|
end
|
||||||
inherited edtFechaFin: TcxDateEdit
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -92,7 +120,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
|||||||
ExplicitWidth = 99
|
ExplicitWidth = 99
|
||||||
Width = 99
|
Width = 99
|
||||||
end
|
end
|
||||||
inherited edtFechaIni: TcxDateEdit
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -100,10 +128,13 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
|||||||
ExplicitWidth = 97
|
ExplicitWidth = 97
|
||||||
Width = 97
|
Width = 97
|
||||||
end
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 212
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
|||||||
@ -25,8 +25,8 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
@ -34,8 +34,8 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +79,14 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime;
|
function TfEditorInformeIVAClientesReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeIVAClientesReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeIVAClientesReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency;
|
function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency;
|
||||||
|
|||||||
@ -66,18 +66,6 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 136
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 153
|
|
||||||
Width = 153
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
@ -85,6 +73,46 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
|||||||
Width = 85
|
Width = 85
|
||||||
end
|
end
|
||||||
inherited edtFechaFin: TcxDateEdit
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
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 = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -92,7 +120,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
|||||||
ExplicitWidth = 99
|
ExplicitWidth = 99
|
||||||
Width = 99
|
Width = 99
|
||||||
end
|
end
|
||||||
inherited edtFechaIni: TcxDateEdit
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -100,10 +128,13 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
|||||||
ExplicitWidth = 97
|
ExplicitWidth = 97
|
||||||
Width = 97
|
Width = 97
|
||||||
end
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 212
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
|||||||
@ -25,8 +25,8 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDProveedores: TIntegerArray;
|
FListaIDProveedores: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
@ -34,8 +34,8 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +79,14 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeIVAProveedoresReport.GetFechaFin: TDateTime;
|
function TfEditorInformeIVAProveedoresReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeIVAProveedoresReport.GetImporteMinimo: Currency;
|
function TfEditorInformeIVAProveedoresReport.GetImporteMinimo: Currency;
|
||||||
|
|||||||
@ -66,18 +66,6 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 136
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 153
|
|
||||||
Width = 153
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
@ -85,6 +73,45 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
|||||||
Width = 85
|
Width = 85
|
||||||
end
|
end
|
||||||
inherited edtFechaFin: TcxDateEdit
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
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
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 160
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -92,7 +119,7 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
|||||||
ExplicitWidth = 99
|
ExplicitWidth = 99
|
||||||
Width = 99
|
Width = 99
|
||||||
end
|
end
|
||||||
inherited edtFechaIni: TcxDateEdit
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -100,10 +127,14 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
|||||||
ExplicitWidth = 97
|
ExplicitWidth = 97
|
||||||
Width = 97
|
Width = 97
|
||||||
end
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
|
||||||
Width = 188
|
|
||||||
ExplicitWidth = 188
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
|||||||
@ -25,8 +25,8 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
@ -34,8 +34,8 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +79,14 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformePresupuestosReport.GetFechaFin: TDateTime;
|
function TfEditorInformePresupuestosReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformePresupuestosReport.GetFechaInicio: TDateTime;
|
function TfEditorInformePresupuestosReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformePresupuestosReport.GetImporteMinimo: Currency;
|
function TfEditorInformePresupuestosReport.GetImporteMinimo: Currency;
|
||||||
|
|||||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 136
|
Height = 240
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -65,46 +65,81 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 240
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
|
inherited Label3: TLabel
|
||||||
|
Width = 172
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
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
|
inherited cbPeriodo: TcxComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 153
|
ExplicitWidth = 170
|
||||||
Width = 153
|
Width = 170
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 85
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 99
|
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
Width = 188
|
Width = 188
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
end
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 172
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 170
|
||||||
|
Width = 170
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
Top = 368
|
Top = 368
|
||||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
|||||||
end
|
end
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 136
|
Top = 240
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 77
|
Height = 77
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 136
|
ExplicitTop = 240
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 77
|
ExplicitHeight = 77
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
|||||||
end
|
end
|
||||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 213
|
Top = 317
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 146
|
Height = 146
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 213
|
ExplicitTop = 317
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 146
|
ExplicitHeight = 146
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
|||||||
@ -25,8 +25,10 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
@ -34,8 +36,10 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +83,24 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: TDateTime;
|
function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeRecibosCliPendientesReport.GetFechaVenFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeRecibosCliPendientesReport.GetFechaVenInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosCliPendientesReport.GetImporteMinimo: Currency;
|
function TfEditorInformeRecibosCliPendientesReport.GetImporteMinimo: Currency;
|
||||||
@ -116,6 +130,8 @@ begin
|
|||||||
AppFactuGES.EmpresaActiva.ID,
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
FechaInicio,
|
FechaInicio,
|
||||||
FechaFin,
|
FechaFin,
|
||||||
|
FechaVenInicio,
|
||||||
|
FechaVenFin,
|
||||||
ListaIDClientes,
|
ListaIDClientes,
|
||||||
DesglosadoCliente,
|
DesglosadoCliente,
|
||||||
ImporteMinimo);
|
ImporteMinimo);
|
||||||
|
|||||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 136
|
Height = 240
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -65,46 +65,81 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 240
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
|
inherited Label3: TLabel
|
||||||
|
Width = 172
|
||||||
|
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
|
inherited cbPeriodo: TcxComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 153
|
ExplicitWidth = 170
|
||||||
Width = 153
|
Width = 170
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited Label3: TLabel
|
|
||||||
Width = 85
|
|
||||||
end
|
|
||||||
inherited edtFechaFin: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 99
|
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
|
||||||
Width = 97
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
Width = 188
|
Width = 188
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
end
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 172
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 170
|
||||||
|
Width = 170
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
Top = 368
|
Top = 368
|
||||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
|||||||
end
|
end
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 136
|
Top = 240
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 77
|
Height = 77
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 136
|
ExplicitTop = 240
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 77
|
ExplicitHeight = 77
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
|||||||
end
|
end
|
||||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 213
|
Top = 317
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 146
|
Height = 146
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 213
|
ExplicitTop = 317
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 146
|
ExplicitHeight = 146
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
|||||||
@ -25,8 +25,10 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDClientes: TIntegerArray;
|
FListaIDClientes: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDClientes: TIntegerArray;
|
function GetListaIDClientes: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoCliente: Boolean;
|
function GetDesglosadoCliente: Boolean;
|
||||||
@ -34,8 +36,10 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +83,24 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosClienteReport.GetFechaFin: TDateTime;
|
function TfEditorInformeRecibosClienteReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosClienteReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeRecibosClienteReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeRecibosClienteReport.GetFechaVenFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeRecibosClienteReport.GetFechaVenInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosClienteReport.GetImporteMinimo: Currency;
|
function TfEditorInformeRecibosClienteReport.GetImporteMinimo: Currency;
|
||||||
@ -116,6 +130,8 @@ begin
|
|||||||
AppFactuGES.EmpresaActiva.ID,
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
FechaInicio,
|
FechaInicio,
|
||||||
FechaFin,
|
FechaFin,
|
||||||
|
FechaVenInicio,
|
||||||
|
FechaVenFin,
|
||||||
ListaIDClientes,
|
ListaIDClientes,
|
||||||
DesglosadoCliente,
|
DesglosadoCliente,
|
||||||
ImporteMinimo);
|
ImporteMinimo);
|
||||||
|
|||||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 136
|
Height = 240
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 240
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 153
|
|
||||||
Width = 153
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
@ -85,26 +73,73 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
Width = 85
|
Width = 85
|
||||||
end
|
end
|
||||||
inherited edtFechaFin: TcxDateEdit
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 99
|
ExplicitLeft = 76
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
ExplicitWidth = 97
|
||||||
Width = 97
|
Width = 97
|
||||||
end
|
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
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
Width = 188
|
Width = 188
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
end
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 160
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 170
|
||||||
|
Width = 170
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
Top = 368
|
Top = 368
|
||||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
end
|
end
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 136
|
Top = 240
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 77
|
Height = 77
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 136
|
ExplicitTop = 240
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 77
|
ExplicitHeight = 77
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
end
|
end
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 213
|
Top = 317
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 146
|
Height = 146
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 213
|
ExplicitTop = 317
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 146
|
ExplicitHeight = 146
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
|||||||
@ -25,8 +25,10 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDProveedores: TIntegerArray;
|
FListaIDProveedores: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
@ -34,8 +36,10 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +83,24 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: TDateTime;
|
function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeRecibosProvPendientesReport.GetFechaVenFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeRecibosProvPendientesReport.GetFechaVenInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosProvPendientesReport.GetImporteMinimo: Currency;
|
function TfEditorInformeRecibosProvPendientesReport.GetImporteMinimo: Currency;
|
||||||
@ -116,6 +130,8 @@ begin
|
|||||||
AppFactuGES.EmpresaActiva.ID,
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
FechaInicio,
|
FechaInicio,
|
||||||
FechaFin,
|
FechaFin,
|
||||||
|
FechaVenInicio,
|
||||||
|
FechaVenFin,
|
||||||
ListaIDProveedores,
|
ListaIDProveedores,
|
||||||
DesglosadoProveedor,
|
DesglosadoProveedor,
|
||||||
ImporteMinimo);
|
ImporteMinimo);
|
||||||
|
|||||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 136
|
Height = 240
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 136
|
ExplicitHeight = 240
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 182
|
|
||||||
ExplicitWidth = 182
|
|
||||||
inherited cbPeriodo: TcxComboBox
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 153
|
|
||||||
Width = 153
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
Width = 182
|
Width = 182
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 182
|
||||||
@ -85,26 +73,77 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
Width = 85
|
Width = 85
|
||||||
end
|
end
|
||||||
inherited edtFechaFin: TcxDateEdit
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 99
|
ExplicitLeft = 76
|
||||||
Width = 99
|
|
||||||
end
|
|
||||||
inherited edtFechaIni: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 97
|
ExplicitWidth = 97
|
||||||
Width = 97
|
Width = 97
|
||||||
end
|
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
|
end
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
Width = 188
|
Width = 188
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
end
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
Height = 99
|
||||||
|
ExplicitWidth = 182
|
||||||
|
ExplicitHeight = 99
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 160
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Top = 78
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitTop = 78
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 170
|
||||||
|
Width = 170
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
Top = 368
|
Top = 368
|
||||||
@ -130,7 +169,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
end
|
end
|
||||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 136
|
Top = 240
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 77
|
Height = 77
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -143,7 +182,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 136
|
ExplicitTop = 240
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 77
|
ExplicitHeight = 77
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
@ -163,7 +202,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
end
|
end
|
||||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 213
|
Top = 317
|
||||||
Width = 188
|
Width = 188
|
||||||
Height = 146
|
Height = 146
|
||||||
Align = alTop
|
Align = alTop
|
||||||
@ -176,7 +215,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 213
|
ExplicitTop = 317
|
||||||
ExplicitWidth = 188
|
ExplicitWidth = 188
|
||||||
ExplicitHeight = 146
|
ExplicitHeight = 146
|
||||||
inherited TBXLabel2: TTBXLabel
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
|||||||
@ -25,8 +25,10 @@ type
|
|||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
FListaIDProveedores: TIntegerArray;
|
FListaIDProveedores: TIntegerArray;
|
||||||
function GetFechaFin: TDateTime;
|
function GetFechaFin: Variant;
|
||||||
function GetFechaInicio: TDateTime;
|
function GetFechaInicio: Variant;
|
||||||
|
function GetFechaVenFin: Variant;
|
||||||
|
function GetFechaVenInicio: Variant;
|
||||||
function GetListaIDProveedores: TIntegerArray;
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
function GetImporteMinimo: Currency;
|
function GetImporteMinimo: Currency;
|
||||||
function GetDesglosadoProveedor: Boolean;
|
function GetDesglosadoProveedor: Boolean;
|
||||||
@ -34,8 +36,10 @@ type
|
|||||||
procedure RefrescarInforme;
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
public
|
public
|
||||||
property FechaInicio: TDateTime read GetFechaInicio;
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
property FechaFin: TDateTime read GetFechaFin;
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||||
|
property FechaVenFin: Variant read GetFechaVenFin;
|
||||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||||
@ -79,14 +83,24 @@ begin
|
|||||||
Result := False;
|
Result := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosProveedorReport.GetFechaFin: TDateTime;
|
function TfEditorInformeRecibosProveedorReport.GetFechaFin: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosProveedorReport.GetFechaInicio: TDateTime;
|
function TfEditorInformeRecibosProveedorReport.GetFechaInicio: Variant;
|
||||||
begin
|
begin
|
||||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeRecibosProveedorReport.GetFechaVenFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeRecibosProveedorReport.GetFechaVenInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInformeRecibosProveedorReport.GetImporteMinimo: Currency;
|
function TfEditorInformeRecibosProveedorReport.GetImporteMinimo: Currency;
|
||||||
@ -116,6 +130,8 @@ begin
|
|||||||
AppFactuGES.EmpresaActiva.ID,
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
FechaInicio,
|
FechaInicio,
|
||||||
FechaFin,
|
FechaFin,
|
||||||
|
FechaVenInicio,
|
||||||
|
FechaVenFin,
|
||||||
ListaIDProveedores,
|
ListaIDProveedores,
|
||||||
DesglosadoProveedor,
|
DesglosadoProveedor,
|
||||||
ImporteMinimo);
|
ImporteMinimo);
|
||||||
|
|||||||
@ -1,66 +1,24 @@
|
|||||||
inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||||
Width = 451
|
Width = 451
|
||||||
Height = 177
|
Height = 248
|
||||||
Align = alTop
|
Align = alTop
|
||||||
ExplicitWidth = 451
|
ExplicitWidth = 451
|
||||||
ExplicitHeight = 177
|
ExplicitHeight = 248
|
||||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
object TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 3
|
Left = 3
|
||||||
Top = 32
|
Top = 32
|
||||||
Width = 445
|
Width = 445
|
||||||
Height = 21
|
Height = 97
|
||||||
Margins.Left = 5
|
|
||||||
Margins.Right = 5
|
|
||||||
Align = alTop
|
|
||||||
AutoSize = True
|
|
||||||
TabOrder = 0
|
|
||||||
DesignSize = (
|
|
||||||
445
|
|
||||||
21)
|
|
||||||
object cbPeriodo: TcxComboBox
|
|
||||||
Left = 16
|
|
||||||
Top = 0
|
|
||||||
RepositoryItem = cxRepositoryPeriodos
|
|
||||||
Anchors = [akLeft, akTop, akRight]
|
|
||||||
Properties.OnChange = cbPeriodoPropertiesChange
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 0
|
|
||||||
Text = 'Este mes'
|
|
||||||
Width = 416
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object TBXAlignmentPanel2: TTBXAlignmentPanel
|
|
||||||
AlignWithMargins = True
|
|
||||||
Left = 3
|
|
||||||
Top = 59
|
|
||||||
Width = 445
|
|
||||||
Height = 74
|
|
||||||
Margins.Left = 5
|
Margins.Left = 5
|
||||||
Margins.Top = 5
|
Margins.Top = 5
|
||||||
Margins.Right = 5
|
Margins.Right = 5
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
TabOrder = 1
|
TabOrder = 0
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
445
|
445
|
||||||
74)
|
97)
|
||||||
object Label3: TLabel
|
object Label3: TLabel
|
||||||
Left = 5
|
Left = 5
|
||||||
Top = 5
|
Top = 5
|
||||||
@ -73,7 +31,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
end
|
end
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 29
|
Left = 29
|
||||||
Top = 29
|
Top = 52
|
||||||
Width = 34
|
Width = 34
|
||||||
Height = 13
|
Height = 13
|
||||||
Caption = 'Desde:'
|
Caption = 'Desde:'
|
||||||
@ -81,15 +39,15 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
end
|
end
|
||||||
object Label2: TLabel
|
object Label2: TLabel
|
||||||
Left = 32
|
Left = 32
|
||||||
Top = 56
|
Top = 79
|
||||||
Width = 31
|
Width = 31
|
||||||
Height = 13
|
Height = 13
|
||||||
Caption = 'hasta:'
|
Caption = 'hasta:'
|
||||||
Transparent = True
|
Transparent = True
|
||||||
end
|
end
|
||||||
object edtFechaFin: TcxDateEdit
|
object edtFechaFin: TcxDateEdit
|
||||||
Left = 72
|
Left = 69
|
||||||
Top = 53
|
Top = 76
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
Properties.DateButtons = [btnToday]
|
Properties.DateButtons = [btnToday]
|
||||||
Properties.PostPopupValueOnTab = True
|
Properties.PostPopupValueOnTab = True
|
||||||
@ -118,7 +76,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
end
|
end
|
||||||
object edtFechaIni: TcxDateEdit
|
object edtFechaIni: TcxDateEdit
|
||||||
Left = 72
|
Left = 72
|
||||||
Top = 26
|
Top = 49
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
Properties.DateButtons = [btnToday]
|
Properties.DateButtons = [btnToday]
|
||||||
Properties.PostPopupValueOnTab = True
|
Properties.PostPopupValueOnTab = True
|
||||||
@ -145,6 +103,33 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 360
|
Width = 360
|
||||||
end
|
end
|
||||||
|
object cbPeriodo: TcxComboBox
|
||||||
|
Left = 3
|
||||||
|
Top = 21
|
||||||
|
RepositoryItem = cxRepositoryPeriodos
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.OnChange = cbPeriodoPropertiesChange
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'Este mes'
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object TBXLabel2: TTBXLabel
|
object TBXLabel2: TTBXLabel
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -164,6 +149,133 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
Underline = True
|
Underline = True
|
||||||
end
|
end
|
||||||
|
object TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 3
|
||||||
|
Top = 135
|
||||||
|
Width = 445
|
||||||
|
Height = 98
|
||||||
|
Margins.Left = 5
|
||||||
|
Margins.Top = 5
|
||||||
|
Margins.Right = 5
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
TabOrder = 2
|
||||||
|
DesignSize = (
|
||||||
|
445
|
||||||
|
98)
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 5
|
||||||
|
Top = 5
|
||||||
|
Width = 435
|
||||||
|
Height = 13
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Rango de fechas de vencimiento:'
|
||||||
|
Transparent = True
|
||||||
|
ExplicitWidth = 160
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 29
|
||||||
|
Top = 53
|
||||||
|
Width = 34
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Desde:'
|
||||||
|
Transparent = True
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 32
|
||||||
|
Top = 80
|
||||||
|
Width = 31
|
||||||
|
Height = 13
|
||||||
|
Caption = 'hasta:'
|
||||||
|
Transparent = True
|
||||||
|
end
|
||||||
|
object edtFechaVenFin: TcxDateEdit
|
||||||
|
Left = 70
|
||||||
|
Top = 77
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.DateButtons = [btnToday]
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
Properties.OnValidate = edtFechaVenFinPropertiesValidate
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 362
|
||||||
|
end
|
||||||
|
object edtFechaVenIni: TcxDateEdit
|
||||||
|
Left = 72
|
||||||
|
Top = 50
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.DateButtons = [btnToday]
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
Properties.OnValidate = edtFechaVenIniPropertiesValidate
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 360
|
||||||
|
end
|
||||||
|
object cbPeriodo2: TcxComboBox
|
||||||
|
Left = 3
|
||||||
|
Top = 21
|
||||||
|
RepositoryItem = cxRepositoryPeriodos
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.OnChange = cbPeriodo2PropertiesChange
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'Este mes'
|
||||||
|
Width = 429
|
||||||
|
end
|
||||||
|
end
|
||||||
object cxRepository: TcxEditRepository
|
object cxRepository: TcxEditRepository
|
||||||
Left = 32
|
Left = 32
|
||||||
Top = 24
|
Top = 24
|
||||||
|
|||||||
@ -14,18 +14,26 @@ type
|
|||||||
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
|
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
TTipoFecha = (TFecha, TFechaVencimiento);
|
||||||
|
|
||||||
TfrViewPeriodoFechas = class(TfrViewParametrosInforme, IViewPeriodoFechas)
|
TfrViewPeriodoFechas = class(TfrViewParametrosInforme, IViewPeriodoFechas)
|
||||||
cxRepository: TcxEditRepository;
|
cxRepository: TcxEditRepository;
|
||||||
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
|
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
|
||||||
cbPeriodo: TcxComboBox;
|
|
||||||
edtFechaIni: TcxDateEdit;
|
edtFechaIni: TcxDateEdit;
|
||||||
edtFechaFin: TcxDateEdit;
|
edtFechaFin: TcxDateEdit;
|
||||||
TBXLabel2: TTBXLabel;
|
TBXLabel2: TTBXLabel;
|
||||||
TBXAlignmentPanel1: TTBXAlignmentPanel;
|
|
||||||
TBXAlignmentPanel2: TTBXAlignmentPanel;
|
TBXAlignmentPanel2: TTBXAlignmentPanel;
|
||||||
Label1: TLabel;
|
Label1: TLabel;
|
||||||
Label2: TLabel;
|
Label2: TLabel;
|
||||||
Label3: TLabel;
|
Label3: TLabel;
|
||||||
|
TBXAlignmentPanel3: TTBXAlignmentPanel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
edtFechaVenFin: TcxDateEdit;
|
||||||
|
edtFechaVenIni: TcxDateEdit;
|
||||||
|
cbPeriodo: TcxComboBox;
|
||||||
|
cbPeriodo2: TcxComboBox;
|
||||||
procedure cbPeriodoPropertiesChange(Sender: TObject);
|
procedure cbPeriodoPropertiesChange(Sender: TObject);
|
||||||
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
|
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
|
||||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||||
@ -33,25 +41,38 @@ type
|
|||||||
procedure edtFechaFinPropertiesValidate(Sender: TObject;
|
procedure edtFechaFinPropertiesValidate(Sender: TObject;
|
||||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||||
var Error: Boolean);
|
var Error: Boolean);
|
||||||
|
procedure cbPeriodo2PropertiesChange(Sender: TObject);
|
||||||
|
procedure edtFechaVenIniPropertiesValidate(Sender: TObject;
|
||||||
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
|
procedure edtFechaVenFinPropertiesValidate(Sender: TObject;
|
||||||
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
private
|
private
|
||||||
function GetFechaFinal: TDateTime;
|
function GetFechaFinal: Variant;
|
||||||
function GetFechaInicial: TDateTime;
|
function GetFechaInicial: Variant;
|
||||||
procedure SetFechaFinal(const Value: TDateTime);
|
procedure SetFechaFinal(const Value: Variant);
|
||||||
procedure SetFechaInicial(const Value: TDateTime);
|
procedure SetFechaInicial(const Value: Variant);
|
||||||
|
|
||||||
|
function GetFechaVenFinal: Variant;
|
||||||
|
function GetFechaVenInicial: Variant;
|
||||||
|
procedure SetFechaVenFinal(const Value: Variant);
|
||||||
|
procedure SetFechaVenInicial(const Value: Variant);
|
||||||
|
|
||||||
public
|
public
|
||||||
procedure Hoy;
|
procedure Hoy(const ATipoFecha: TTipoFecha);
|
||||||
procedure Ayer;
|
procedure Ayer(const ATipoFecha: TTipoFecha);
|
||||||
procedure EstaSemana;
|
procedure EstaSemana(const ATipoFecha: TTipoFecha);
|
||||||
procedure EsteMes;
|
procedure EsteMes(const ATipoFecha: TTipoFecha);
|
||||||
procedure EsteAno;
|
procedure EsteAno(const ATipoFecha: TTipoFecha);
|
||||||
procedure Ultimos7dias;
|
procedure Ultimos7dias(const ATipoFecha: TTipoFecha);
|
||||||
procedure Ultimos30dias;
|
procedure Ultimos30dias(const ATipoFecha: TTipoFecha);
|
||||||
procedure Ultimos3meses;
|
procedure Ultimos3meses(const ATipoFecha: TTipoFecha);
|
||||||
procedure MesAnterior;
|
procedure MesAnterior(const ATipoFecha: TTipoFecha);
|
||||||
procedure AnoAnterior;
|
procedure AnoAnterior(const ATipoFecha: TTipoFecha);
|
||||||
procedure Personalizado;
|
procedure Personalizado(const ATipoFecha: TTipoFecha);
|
||||||
property FechaInicial : TDateTime read GetFechaInicial write SetFechaInicial;
|
property FechaInicial : Variant read GetFechaInicial write SetFechaInicial;
|
||||||
property FechaFinal : TDateTime read GetFechaFinal write SetFechaFinal;
|
property FechaFinal : Variant read GetFechaFinal write SetFechaFinal;
|
||||||
|
property FechaVenInicial : Variant read GetFechaVenInicial write SetFechaVenInicial;
|
||||||
|
property FechaVenFinal : Variant read GetFechaVenFinal write SetFechaVenFinal;
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -61,106 +82,231 @@ uses DateUtils;
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.AnoAnterior;
|
procedure TfrViewPeriodoFechas.AnoAnterior(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1));
|
edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1));
|
||||||
edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1));
|
edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1));
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := StartOfTheYear(IncYear(Today, -1));
|
||||||
|
edtFechaVenFin.Date := EndOfTheYear(IncYear(Today, -1));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.Ayer;
|
procedure TfrViewPeriodoFechas.Ayer(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := Yesterday;
|
edtFechaIni.Date := Yesterday;
|
||||||
edtFechaFin.Date := Yesterday;
|
edtFechaFin.Date := Yesterday;
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := Yesterday;
|
||||||
|
edtFechaVenFin.Date := Yesterday;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.EstaSemana;
|
procedure TfrViewPeriodoFechas.EstaSemana(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := StartOfTheWeek(Today);
|
edtFechaIni.Date := StartOfTheWeek(Today);
|
||||||
edtFechaFin.Date := EndOfTheWeek(Today);
|
edtFechaFin.Date := EndOfTheWeek(Today);
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := StartOfTheWeek(Today);
|
||||||
|
edtFechaVenFin.Date := EndOfTheWeek(Today);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.EsteAno;
|
procedure TfrViewPeriodoFechas.EsteAno(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := StartOfTheYear(Today);
|
edtFechaIni.Date := StartOfTheYear(Today);
|
||||||
edtFechaFin.Date := EndOfTheYear(Today);
|
edtFechaFin.Date := EndOfTheYear(Today);
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := StartOfTheYear(Today);
|
||||||
|
edtFechaVenFin.Date := EndOfTheYear(Today);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.EsteMes;
|
procedure TfrViewPeriodoFechas.EsteMes(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := StartOfTheMonth(Today);
|
edtFechaIni.Date := StartOfTheMonth(Today);
|
||||||
edtFechaFin.Date := EndOfTheMonth(Today);
|
edtFechaFin.Date := EndOfTheMonth(Today);
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := StartOfTheMonth(Today);
|
||||||
|
edtFechaVenFin.Date := EndOfTheMonth(Today);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewPeriodoFechas.GetFechaFinal: TDateTime;
|
function TfrViewPeriodoFechas.GetFechaFinal: Variant;
|
||||||
begin
|
begin
|
||||||
Result := DateOf(edtFechaFin.Date);
|
Result := edtFechaFin.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewPeriodoFechas.GetFechaInicial: TDateTime;
|
function TfrViewPeriodoFechas.GetFechaInicial: Variant;
|
||||||
begin
|
begin
|
||||||
Result := DateOf(edtFechaIni.Date);
|
Result := edtFechaIni.EditValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.Hoy;
|
function TfrViewPeriodoFechas.GetFechaVenFinal: Variant;
|
||||||
begin
|
begin
|
||||||
|
Result := edtFechaVenFin.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewPeriodoFechas.GetFechaVenInicial: Variant;
|
||||||
|
begin
|
||||||
|
Result := edtFechaVenIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.Hoy(const ATipoFecha: TTipoFecha);
|
||||||
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := Today;
|
edtFechaIni.Date := Today;
|
||||||
edtFechaFin.Date := Today;
|
edtFechaFin.Date := Today;
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := Today;
|
||||||
|
edtFechaVenFin.Date := Today;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.MesAnterior;
|
procedure TfrViewPeriodoFechas.MesAnterior(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1));
|
edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1));
|
||||||
edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1));
|
edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1));
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := StartOfTheMonth(IncMonth(Today, -1));
|
||||||
|
edtFechaVenFin.Date := EndOfTheMonth(IncMonth(Today, -1));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.Personalizado;
|
procedure TfrViewPeriodoFechas.Personalizado(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.SetFocus;
|
edtFechaIni.SetFocus;
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.SetFocus;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: TDateTime);
|
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: Variant);
|
||||||
begin
|
begin
|
||||||
edtFechaFin.Date := Value;
|
edtFechaFin.EditValue := Value;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: TDateTime);
|
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: Variant);
|
||||||
begin
|
begin
|
||||||
edtFechaIni.Date := Value;
|
edtFechaIni.EditValue := Value;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.Ultimos30dias;
|
procedure TfrViewPeriodoFechas.SetFechaVenFinal(const Value: Variant);
|
||||||
begin
|
begin
|
||||||
|
edtFechaVenFin.EditValue := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.SetFechaVenInicial(const Value: Variant);
|
||||||
|
begin
|
||||||
|
edtFechaVenIni.EditValue := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.Ultimos30dias(const ATipoFecha: TTipoFecha);
|
||||||
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := IncDay(Today, -30);
|
edtFechaIni.Date := IncDay(Today, -30);
|
||||||
edtFechaFin.Date := Today
|
edtFechaFin.Date := Today
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := IncDay(Today, -30);
|
||||||
|
edtFechaVenFin.Date := Today
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.Ultimos3meses;
|
procedure TfrViewPeriodoFechas.Ultimos3meses(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := IncMonth(Today, -3);
|
edtFechaIni.Date := IncMonth(Today, -3);
|
||||||
edtFechaFin.Date := Today
|
edtFechaFin.Date := Today
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := IncMonth(Today, -3);
|
||||||
|
edtFechaVenFin.Date := Today
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.Ultimos7dias;
|
procedure TfrViewPeriodoFechas.Ultimos7dias(const ATipoFecha: TTipoFecha);
|
||||||
begin
|
begin
|
||||||
|
case ATipoFecha of
|
||||||
|
TFecha: begin
|
||||||
edtFechaIni.Date := IncDay(Today, -7);
|
edtFechaIni.Date := IncDay(Today, -7);
|
||||||
edtFechaFin.Date := Today
|
edtFechaFin.Date := Today
|
||||||
|
end;
|
||||||
|
TFechaVencimiento: begin
|
||||||
|
edtFechaVenIni.Date := IncDay(Today, -7);
|
||||||
|
edtFechaVenFin.Date := Today
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.cbPeriodo2PropertiesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case (Sender as TcxComboBox).ItemIndex of
|
||||||
|
0 : Hoy(TFechaVencimiento);
|
||||||
|
1 : Ayer(TFechaVencimiento);
|
||||||
|
2 : EstaSemana(TFechaVencimiento);
|
||||||
|
3 : EsteMes(TFechaVencimiento);
|
||||||
|
4 : EsteAno(TFechaVencimiento);
|
||||||
|
5 : Ultimos7dias(TFechaVencimiento);
|
||||||
|
6 : Ultimos30dias(TFechaVencimiento);
|
||||||
|
7 : Ultimos3meses(TFechaVencimiento);
|
||||||
|
8 : MesAnterior(TFechaVencimiento);
|
||||||
|
9 : AnoAnterior(TFechaVencimiento);
|
||||||
|
else
|
||||||
|
Personalizado(TFechaVencimiento);
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
|
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
case (Sender as TcxComboBox).ItemIndex of
|
case (Sender as TcxComboBox).ItemIndex of
|
||||||
0 : Hoy;
|
0 : Hoy(TFecha);
|
||||||
1 : Ayer;
|
1 : Ayer(TFecha);
|
||||||
2 : EstaSemana;
|
2 : EstaSemana(TFecha);
|
||||||
3 : EsteMes;
|
3 : EsteMes(TFecha);
|
||||||
4 : EsteAno;
|
4 : EsteAno(TFecha);
|
||||||
5 : Ultimos7dias;
|
5 : Ultimos7dias(TFecha);
|
||||||
6 : Ultimos30dias;
|
6 : Ultimos30dias(TFecha);
|
||||||
7 : Ultimos3meses;
|
7 : Ultimos3meses(TFecha);
|
||||||
8 : MesAnterior;
|
8 : MesAnterior(TFecha);
|
||||||
9 : AnoAnterior;
|
9 : AnoAnterior(TFecha);
|
||||||
else
|
else
|
||||||
Personalizado;
|
Personalizado(TFecha);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -168,7 +314,8 @@ constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
|
|||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
cbPeriodo.ItemIndex := 3;
|
cbPeriodo.ItemIndex := 3;
|
||||||
EsteMes;
|
cbPeriodo2.ItemIndex := -1;
|
||||||
|
EsteMes(TFecha);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
||||||
@ -176,6 +323,8 @@ procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
|||||||
var Error: Boolean);
|
var Error: Boolean);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
if Length(VarToStr(DisplayValue)) > 0 then
|
||||||
|
begin
|
||||||
if DisplayValue <> edtFechaIni.Date then
|
if DisplayValue <> edtFechaIni.Date then
|
||||||
cbPeriodo.ItemIndex := 12;
|
cbPeriodo.ItemIndex := 12;
|
||||||
if DisplayValue > edtFechaFin.Date then
|
if DisplayValue > edtFechaFin.Date then
|
||||||
@ -183,6 +332,38 @@ begin
|
|||||||
edtFechaFin.EditText := DisplayValue;
|
edtFechaFin.EditText := DisplayValue;
|
||||||
edtFechaFin.ValidateEdit(True);
|
edtFechaFin.ValidateEdit(True);
|
||||||
end;
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.edtFechaVenFinPropertiesValidate(Sender: TObject;
|
||||||
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
|
begin
|
||||||
|
if Length(VarToStr(DisplayValue)) > 0 then
|
||||||
|
begin
|
||||||
|
if DisplayValue <> edtFechaVenFin.Date then
|
||||||
|
cbPeriodo2.ItemIndex := 12;
|
||||||
|
if DisplayValue < edtFechaVenIni.Date then
|
||||||
|
begin
|
||||||
|
edtFechaVenIni.EditText := DisplayValue;
|
||||||
|
edtFechaVenIni.ValidateEdit(True);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPeriodoFechas.edtFechaVenIniPropertiesValidate(Sender: TObject;
|
||||||
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if Length(VarToStr(DisplayValue)) > 0 then
|
||||||
|
begin
|
||||||
|
if DisplayValue <> edtFechaVenIni.Date then
|
||||||
|
cbPeriodo2.ItemIndex := 12;
|
||||||
|
if DisplayValue > edtFechaVenFin.Date then
|
||||||
|
begin
|
||||||
|
edtFechaVenFin.EditText := DisplayValue;
|
||||||
|
edtFechaVenFin.ValidateEdit(True);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate(
|
procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate(
|
||||||
@ -190,6 +371,8 @@ procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate(
|
|||||||
var Error: Boolean);
|
var Error: Boolean);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
if Length(VarToStr(DisplayValue)) > 0 then
|
||||||
|
begin
|
||||||
if DisplayValue <> edtFechaFin.Date then
|
if DisplayValue <> edtFechaFin.Date then
|
||||||
cbPeriodo.ItemIndex := 12;
|
cbPeriodo.ItemIndex := 12;
|
||||||
if DisplayValue < edtFechaIni.Date then
|
if DisplayValue < edtFechaIni.Date then
|
||||||
@ -197,6 +380,7 @@ begin
|
|||||||
edtFechaIni.EditText := DisplayValue;
|
edtFechaIni.EditText := DisplayValue;
|
||||||
edtFechaIni.ValidateEdit(True);
|
edtFechaIni.ValidateEdit(True);
|
||||||
end;
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -42,11 +42,11 @@ type
|
|||||||
private
|
private
|
||||||
FConnection: IDAConnection;
|
FConnection: IDAConnection;
|
||||||
procedure _GenerarPresupuesto(const AID : Integer);
|
procedure _GenerarPresupuesto(const AID : Integer);
|
||||||
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
public
|
public
|
||||||
function GenerarPresupuesto(const ListaID : TIntegerArray): Binary;
|
function GenerarPresupuesto(const ListaID : TIntegerArray): Binary;
|
||||||
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray): Binary;
|
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray): Binary;
|
||||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -77,7 +77,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptPresupuestosCliente.GenerarInformeListadoPresupuestos(
|
function TRptPresupuestosCliente.GenerarInformeListadoPresupuestos(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -127,7 +127,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptPresupuestosCliente._GenerarInforme(const TipoInforme: String;
|
function TRptPresupuestosCliente._GenerarInforme(const TipoInforme: String;
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
Condicion: TDAWhereExpression;
|
Condicion: TDAWhereExpression;
|
||||||
|
|||||||
@ -36,11 +36,13 @@ type
|
|||||||
private
|
private
|
||||||
FConnection: IDAConnection;
|
FConnection: IDAConnection;
|
||||||
procedure _GenerarRecibo(const ID : Integer); overload;
|
procedure _GenerarRecibo(const ID : Integer); overload;
|
||||||
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
|
|
||||||
public
|
public
|
||||||
function GenerarRecibo(const ListaID : TIntegerArray): Binary; overload;
|
function GenerarRecibo(const ListaID : TIntegerArray): Binary; overload;
|
||||||
function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosPendientes(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;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -68,7 +70,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptRecibosCliente.GenerarInformeListadoRecibos(
|
function TRptRecibosCliente.GenerarInformeListadoRecibos(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; FechaVenFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -81,11 +84,12 @@ begin
|
|||||||
else
|
else
|
||||||
ATipoInforme := rptInformeListadoRecibosCliente;
|
ATipoInforme := rptInformeListadoRecibosCliente;
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptRecibosCliente.GenerarInformeListadoRecibosPendientes(
|
function TRptRecibosCliente.GenerarInformeListadoRecibosPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -115,7 +119,7 @@ begin
|
|||||||
ATipoInforme := rptInformeListadoRecibosCliPendientes;
|
ATipoInforme := rptInformeListadoRecibosCliPendientes;
|
||||||
|
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary;
|
function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary;
|
||||||
@ -133,7 +137,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptRecibosCliente._GenerarInforme(const TipoInforme: String;
|
function TRptRecibosCliente._GenerarInforme(const TipoInforme: String;
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio: Variant; FechaVenFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
Condicion: TDAWhereExpression;
|
Condicion: TDAWhereExpression;
|
||||||
@ -167,8 +172,24 @@ begin
|
|||||||
with tbl_InformeListadoRecibos.DynamicWhere do
|
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
// (FECHA_INICIO between FECHA_FIN)
|
// (FECHA_INICIO between FECHA_FIN)
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||||
|
if IsEmpty then
|
||||||
|
Expression := Condicion
|
||||||
|
else
|
||||||
|
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Filtrar el informe por fechas de vencimiento
|
||||||
|
if not VarIsNull(FechaVenInicio)
|
||||||
|
and not VarIsNull(FechaVenFin) then
|
||||||
|
begin
|
||||||
|
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||||
|
begin
|
||||||
|
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
|
||||||
|
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
|
||||||
|
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||||
if IsEmpty then
|
if IsEmpty then
|
||||||
Expression := Condicion
|
Expression := Condicion
|
||||||
else
|
else
|
||||||
|
|||||||
@ -29,10 +29,10 @@ type
|
|||||||
procedure DataModuleCreate(Sender: TObject);
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
private
|
private
|
||||||
FConnection: IDAConnection;
|
FConnection: IDAConnection;
|
||||||
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
public
|
public
|
||||||
function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -61,7 +61,8 @@ end;
|
|||||||
|
|
||||||
|
|
||||||
function TRptRecibosProveedor.GenerarInformeListadoRecibos(
|
function TRptRecibosProveedor.GenerarInformeListadoRecibos(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -74,11 +75,12 @@ begin
|
|||||||
else
|
else
|
||||||
ATipoInforme := rptInformeListadoRecibosProveedor;
|
ATipoInforme := rptInformeListadoRecibosProveedor;
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptRecibosProveedor.GenerarInformeListadoRecibosPendientes(
|
function TRptRecibosProveedor.GenerarInformeListadoRecibosPendientes(
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -107,11 +109,12 @@ begin
|
|||||||
else
|
else
|
||||||
ATipoInforme := rptInformeListadoRecibosProvPendientes;
|
ATipoInforme := rptInformeListadoRecibosProvPendientes;
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptRecibosProveedor._GenerarInforme(const TipoInforme: String;
|
function TRptRecibosProveedor._GenerarInforme(const TipoInforme: String;
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
|
const FechaVenInicio, FechaVenFin: Variant;
|
||||||
const ListaIDProveedores: TIntegerArray;
|
const ListaIDProveedores: TIntegerArray;
|
||||||
const ImporteMinimo: Currency): Binary;
|
const ImporteMinimo: Currency): Binary;
|
||||||
var
|
var
|
||||||
@ -146,8 +149,24 @@ begin
|
|||||||
with tbl_InformeListadoRecibos.DynamicWhere do
|
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
// (FECHA_INICIO between FECHA_FIN)
|
// (FECHA_INICIO between FECHA_FIN)
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||||
|
if IsEmpty then
|
||||||
|
Expression := Condicion
|
||||||
|
else
|
||||||
|
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Filtrar el informe por fechas de vencimiento
|
||||||
|
if not VarIsNull(FechaVenInicio)
|
||||||
|
and not VarIsNull(FechaVenFin) then
|
||||||
|
begin
|
||||||
|
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||||
|
begin
|
||||||
|
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
|
||||||
|
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
|
||||||
|
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||||
if IsEmpty then
|
if IsEmpty then
|
||||||
Expression := Condicion
|
Expression := Condicion
|
||||||
else
|
else
|
||||||
|
|||||||
@ -606,9 +606,9 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -624,9 +624,9 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -642,9 +642,9 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -660,9 +660,13 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -678,9 +682,9 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -696,9 +700,13 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -714,9 +722,13 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -732,9 +744,13 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -750,9 +766,13 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -768,9 +788,13 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenInicio" DataType="Variant" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="FechaVenFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
@ -786,9 +810,9 @@
|
|||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||||
</Parameter>
|
</Parameter>
|
||||||
|
|||||||
@ -776,27 +776,27 @@ type
|
|||||||
{ IsrvGestorInformes }
|
{ IsrvGestorInformes }
|
||||||
IsrvGestorInformes = interface(IDataAbstractService)
|
IsrvGestorInformes = interface(IDataAbstractService)
|
||||||
['{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}']
|
['{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}']
|
||||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
|
||||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -810,27 +810,27 @@ type
|
|||||||
protected
|
protected
|
||||||
function __GetInterfaceName:string; override;
|
function __GetInterfaceName:string; override;
|
||||||
|
|
||||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray;
|
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
|
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
|
||||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -2293,15 +2293,15 @@ begin
|
|||||||
result := 'srvGestorInformes';
|
result := 'srvGestorInformes';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAClientes');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAClientes');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2316,15 +2316,15 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAProveedores');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAProveedores');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2339,15 +2339,15 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCli');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCli');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2362,15 +2362,17 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProv');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProv');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2385,15 +2387,15 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCliPendientes');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCliPendientes');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2408,15 +2410,17 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProvPendientes');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProvPendientes');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2431,15 +2435,17 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliente');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliente');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2454,15 +2460,17 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProveedor');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProveedor');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2477,15 +2485,17 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliPendientes');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliPendientes');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2500,15 +2510,17 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProvPendientes');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProvPendientes');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -2523,15 +2535,15 @@ begin
|
|||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
function TsrvGestorInformes_Proxy.GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPresupuestos');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPresupuestos');
|
||||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
|
|||||||
@ -1281,12 +1281,12 @@ end;
|
|||||||
{ TsrvGestorInformes_Invoker }
|
{ TsrvGestorInformes_Invoker }
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
{ function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1297,8 +1297,8 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -1322,12 +1322,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
{ function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1338,8 +1338,8 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -1363,12 +1363,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray;
|
{ function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
ListadoIDClientes: FactuGES_Intf.TIntegerArray;
|
ListadoIDClientes: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1379,8 +1379,8 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -1404,12 +1404,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
{ function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
|
FechaVenInicio: Variant;
|
||||||
|
FechaVenFin: Variant;
|
||||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1420,13 +1422,15 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
|
|
||||||
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||||
|
|
||||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvResponse');
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
@ -1445,12 +1449,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
{ function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1461,8 +1465,8 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
@ -1486,12 +1490,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
{ function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
|
FechaVenInicio: Variant;
|
||||||
|
FechaVenFin: Variant;
|
||||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1502,13 +1508,15 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
|
|
||||||
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||||
|
|
||||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvPendientesResponse');
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvPendientesResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
@ -1527,12 +1535,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliente(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliente(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
{ function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
|
FechaVenInicio: Variant;
|
||||||
|
FechaVenFin: Variant;
|
||||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1543,13 +1553,15 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
|
|
||||||
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||||
|
|
||||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosClienteResponse');
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosClienteResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
@ -1568,12 +1580,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
{ function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
|
FechaVenInicio: Variant;
|
||||||
|
FechaVenFin: Variant;
|
||||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1584,13 +1598,15 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
|
|
||||||
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||||
|
|
||||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProveedorResponse');
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProveedorResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
@ -1609,12 +1625,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
{ function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
|
FechaVenInicio: Variant;
|
||||||
|
FechaVenFin: Variant;
|
||||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1625,13 +1643,15 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
|
|
||||||
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||||
|
|
||||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosCliPendientesResponse');
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosCliPendientesResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
@ -1650,12 +1670,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
{ function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
|
FechaVenInicio: Variant;
|
||||||
|
FechaVenFin: Variant;
|
||||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1666,13 +1688,15 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
|
__Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []);
|
||||||
|
__Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []);
|
||||||
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
|
|
||||||
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||||
|
|
||||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProvPendientesResponse');
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProvPendientesResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
@ -1691,12 +1715,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
{ function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }
|
||||||
var
|
var
|
||||||
IdEmpresa: Integer;
|
IdEmpresa: Integer;
|
||||||
FechaInicio: DateTime;
|
FechaInicio: Variant;
|
||||||
FechaFin: DateTime;
|
FechaFin: Variant;
|
||||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||||
Desglosado: Boolean;
|
Desglosado: Boolean;
|
||||||
ImporteMinimo: Currency;
|
ImporteMinimo: Currency;
|
||||||
@ -1707,8 +1731,8 @@ begin
|
|||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -28,7 +28,7 @@
|
|||||||
<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><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 27 de noviembre de 2008 11:02</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">6</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 10 de diciembre de 2008 12:35</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</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>
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
|
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 2,2,5,0
|
FILEVERSION 2,2,6,0
|
||||||
PRODUCTVERSION 2,2,5,0
|
PRODUCTVERSION 2,2,6,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", "2.2.5.0\0"
|
VALUE "FileVersion", "2.2.6.0\0"
|
||||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||||
VALUE "ProductVersion", "2.2.5.0\0"
|
VALUE "ProductVersion", "2.2.6.0\0"
|
||||||
VALUE "CompileDate", "jueves, 27 de noviembre de 2008 17:35\0"
|
VALUE "CompileDate", "miércoles, 10 de diciembre de 2008 13:58\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user