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>
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -60,51 +67,7 @@
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\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="adortl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
@ -119,7 +82,44 @@
|
||||
</DCCReference>
|
||||
<DCCReference Include="Controladores\uControllerBase.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="TB2k_D10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="uDataModuleBase.pas">
|
||||
<Form>DataModuleBase</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -148,6 +148,13 @@
|
||||
<DCCReference Include="Utiles\uPasswordUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSistemaFunc.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>
|
||||
</Project>
|
||||
<!-- 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="$(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>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,2,5,0
|
||||
PRODUCTVERSION 2,2,5,0
|
||||
FILEVERSION 2,2,6,0
|
||||
PRODUCTVERSION 2,2,6,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "2.2.5.0\0"
|
||||
VALUE "ProductVersion", "2.2.6.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -1,10 +1,10 @@
|
||||
<?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"/>
|
||||
<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">
|
||||
<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="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>]"/>
|
||||
@ -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">
|
||||
<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="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="Memo29" Left="724,15748031" Top="0" Width="94,488188976378" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,244094488189" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="912,755905511811" Top="0" Width="94,64276" Height="17,00787402" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="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>
|
||||
<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"]:"/>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="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"/>
|
||||
<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">
|
||||
@ -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="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="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="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="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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="913,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"?>
|
||||
<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"/>
|
||||
<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">
|
||||
@ -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="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="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="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="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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="321,26005" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="114,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"?>
|
||||
<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"/>
|
||||
<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">
|
||||
@ -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="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="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="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="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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_VENCIMIENTO"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="366,61441" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="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;
|
||||
//Genera cada uno de los albaranes a imprimir
|
||||
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
|
||||
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 GenerarInformeListadoFacturas(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: 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: Variant; const FechaFin: Variant; 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;
|
||||
|
||||
implementation
|
||||
@ -91,7 +91,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
@ -107,7 +107,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
@ -124,7 +124,7 @@ begin
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -187,7 +187,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
@ -22,6 +22,8 @@
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.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="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
|
||||
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
|
||||
@ -261,14 +263,32 @@
|
||||
<Target Name="GestorInformes_data:Make">
|
||||
<MSBuild Projects="..\Gestor de informes\Data\GestorInformes_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view:Clean">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GestorInformes_view:Make">
|
||||
<MSBuild Projects="..\Gestor de informes\Views\GestorInformes_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -63,9 +63,9 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
||||
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
||||
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' +
|
||||
'ITUACION, NIF_CIF, FECHA_FACTURA AS FECHA, FECHA_VENCIMIENTO AS ' +
|
||||
'FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from ' +
|
||||
'V_facturas_proveedor'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10#10
|
||||
'ITUACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONI' +
|
||||
'BLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where' +
|
||||
' {where}'#10'order by ANO, MES, NOMBRE'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -124,9 +124,8 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
SQLOrigin = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'FECHA'
|
||||
DatasetField = 'FECHA_VENCIMIENTO'
|
||||
TableField = 'FECHA_VENCIMIENTO'
|
||||
end>
|
||||
end>
|
||||
Name = 'ListadoFacturasProveedor'
|
||||
@ -173,11 +172,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'FECHA'
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
|
||||
@ -29,12 +29,12 @@ type
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
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
|
||||
function GenerarInformeIVA(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: DateTime; const FechaFin: DateTime; 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 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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -64,7 +64,7 @@ begin
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: DateTime;
|
||||
const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -77,11 +77,12 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeIVA;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -95,11 +96,12 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeListadoFacturasProveedor;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -129,11 +131,12 @@ begin
|
||||
ATipoInforme := rptInformeListadoFactuasProveedorPendiente;
|
||||
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -175,6 +178,22 @@ begin
|
||||
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
|
||||
if Assigned(ListaIDProveedores) then
|
||||
begin
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* 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\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
|
||||
IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
|
||||
['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformeFacturasClienteReport = interface(IEditorInformeBase)
|
||||
['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase)
|
||||
['{C0EFEC01-BF2C-4B56-9876-2818892FABFA}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase)
|
||||
['{0E60C309-336C-455D-825B-7E4892A6CBC5}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformeIVAClientesReport = interface(IEditorInformeBase)
|
||||
['{66F6F909-B1EC-4117-A115-12DFB62E6120}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase)
|
||||
['{1EC723DF-B7F7-49F9-83FA-DF628FEF4B26}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformePedidosReport = interface(IEditorInformeBase)
|
||||
['{70B07429-BCB2-416F-8C42-6D7BFFA152D5}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,13 @@ uses
|
||||
type
|
||||
IEditorInformePresupuestosReport = interface(IEditorInformeBase)
|
||||
['{99BBD05C-8AEF-4BA7-83C6-FC467F14488C}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeRecibosCliPendientesReport = interface(IEditorInformeBase)
|
||||
['{BD1EA0DE-B610-4170-9BFC-4A7C0F7ABF0E}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeRecibosClienteReport = interface(IEditorInformeBase)
|
||||
['{F0DAD68E-198D-41BE-B04E-C76486208631}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeRecibosProvPendientesReport = interface(IEditorInformeBase)
|
||||
['{DC6AA05C-24F5-4F2A-BCB7-625629BF4297}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
type
|
||||
IEditorInformeRecibosProveedorReport = interface(IEditorInformeBase)
|
||||
['{63D1B0D1-9BDD-48B6-BD3B-C05AC6B49C9C}']
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
|
||||
@ -377,7 +377,7 @@ begin
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de facturas de proveedor';
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -400,7 +400,7 @@ begin
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Listado de facturas de proveedor pendientes';
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -446,7 +446,7 @@ begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -469,7 +469,7 @@ begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -493,7 +493,7 @@ begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -516,7 +516,7 @@ begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
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.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
|
||||
@ -23,25 +23,25 @@ type
|
||||
// function GetItems : IBizFacturaCliente;
|
||||
|
||||
//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
|
||||
function GenerarInformeIVAClientes(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: TDateTime; const FechaFin: TDateTime; 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 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: Variant; const FechaFin: Variant; 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
|
||||
function GenerarInformeListadoRecibosCliPendientes(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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoFacturasProv(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: 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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoRecibosProveedor(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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
procedure getInforme;
|
||||
end;
|
||||
@ -62,7 +62,7 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
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
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo);
|
||||
@ -71,7 +71,7 @@ begin
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
@ -82,7 +82,7 @@ begin
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
@ -93,7 +93,7 @@ begin
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
@ -104,29 +104,31 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeListadoPresupuestos(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
@ -137,45 +139,49 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -12,25 +12,25 @@ type
|
||||
procedure getInforme;
|
||||
|
||||
//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
|
||||
function GenerarInformeIVAClientes(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: TDateTime; const FechaFin: TDateTime; 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 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: Variant; const FechaFin: Variant; 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
|
||||
function GenerarInformeListadoRecibosCliPendientes(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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoFacturasProv(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: 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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoRecibosProveedor(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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
@ -46,25 +46,25 @@ type
|
||||
|
||||
public
|
||||
//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
|
||||
function GenerarInformeIVAClientes(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: DateTime; const FechaFin: DateTime; 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 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: Variant; const FechaFin: Variant; 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
|
||||
function GenerarInformeListadoRecibosCliente(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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoFacturasProv(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: 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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//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 GenerarInformeListadoRecibosProvPendientes(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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -163,7 +163,7 @@ begin
|
||||
}
|
||||
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
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
@ -176,7 +176,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
AReportGenerator : TRptFacturasProveedor;
|
||||
@ -190,7 +190,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
@ -204,7 +204,7 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -219,7 +219,8 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -227,14 +228,15 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -242,14 +244,14 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -263,23 +265,21 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeListadoRecibosCliente(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
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;
|
||||
var
|
||||
AReportGenerator : TRptRecibosCliente;
|
||||
begin
|
||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -287,14 +287,15 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -302,14 +303,15 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -317,7 +319,7 @@ var
|
||||
begin
|
||||
AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -38,40 +38,46 @@
|
||||
<DelphiCompile Include="GestorInformes_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="cfpack_d11.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="Contactos_view.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="frx11.dcp" />
|
||||
<DCCReference Include="frxe11.dcp" />
|
||||
<DCCReference Include="fs11.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\frx11.dcp" />
|
||||
<DCCReference Include="..\frxe11.dcp" />
|
||||
<DCCReference Include="..\fs11.dcp" />
|
||||
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Jcl.dcp" />
|
||||
<DCCReference Include="..\JclVcl.dcp" />
|
||||
<DCCReference Include="..\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\tb2k_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">
|
||||
<Form>fEditorInformeBase</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
@ -137,12 +143,6 @@
|
||||
<Form>frViewPeriodoFechas</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</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>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -66,18 +66,6 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,6 +73,44 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
||||
Width = 85
|
||||
end
|
||||
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 = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +118,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,18 +126,20 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 456
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 40
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
|
||||
@ -26,8 +26,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -35,8 +35,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -80,14 +80,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -66,25 +66,59 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
Height = 98
|
||||
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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
ExplicitWidth = 170
|
||||
Width = 170
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Top = 136
|
||||
Width = 182
|
||||
Visible = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
inherited Label4: TLabel
|
||||
Width = 160
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
inherited edtFechaVenFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +126,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,18 +134,20 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
TabOrder = 2
|
||||
ExplicitTop = 440
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 50
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
|
||||
@ -25,8 +25,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +34,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +79,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeFacturasClienteReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
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
|
||||
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
|
||||
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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -26,8 +26,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -35,8 +37,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -80,14 +84,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetImporteMinimo: Currency;
|
||||
@ -117,6 +131,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Left = 77
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 77
|
||||
ExplicitWidth = 96
|
||||
Width = 96
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Left = 76
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 76
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
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
|
||||
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
|
||||
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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeFacturasProveedorReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -66,25 +66,53 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Left = 77
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 77
|
||||
ExplicitWidth = 96
|
||||
Width = 96
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Left = 76
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 76
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
ExplicitWidth = 170
|
||||
Width = 170
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
Visible = False
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 172
|
||||
inherited Label4: TLabel
|
||||
Width = 160
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
inherited edtFechaVenFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +120,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,10 +128,13 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
|
||||
@ -25,8 +25,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +34,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +79,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeIVAClientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeIVAClientesReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -66,18 +66,6 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,6 +73,46 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 170
|
||||
Width = 170
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
Visible = False
|
||||
ExplicitWidth = 182
|
||||
inherited Label4: TLabel
|
||||
Width = 160
|
||||
end
|
||||
inherited edtFechaVenFin: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +120,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,10 +128,13 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 212
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
|
||||
@ -25,8 +25,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -34,8 +34,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +79,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeIVAProveedoresReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeIVAProveedoresReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -66,18 +66,6 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,6 +73,45 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
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
|
||||
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 = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -92,7 +119,7 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
ExplicitWidth = 99
|
||||
Width = 99
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -100,10 +127,14 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
|
||||
@ -25,8 +25,8 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +34,8 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +79,14 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformePresupuestosReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformePresupuestosReport.GetFechaInicio: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformePresupuestosReport.GetImporteMinimo: Currency;
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,46 +65,81 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
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
|
||||
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 = 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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeRecibosCliPendientesReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDClientes,
|
||||
DesglosadoCliente,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,46 +65,81 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 136
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
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
|
||||
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 = 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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoCliente: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosClienteReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeRecibosClienteReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosClienteReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeRecibosClienteReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeRecibosClienteReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDClientes,
|
||||
DesglosadoCliente,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,26 +73,73 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Left = 76
|
||||
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 = ''
|
||||
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
|
||||
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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +165,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +178,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +198,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +211,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeRecibosProvPendientesReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 136
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
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
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
@ -85,26 +73,77 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
Width = 85
|
||||
end
|
||||
inherited edtFechaFin: TcxDateEdit
|
||||
Left = 76
|
||||
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 = ''
|
||||
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
|
||||
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
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
@ -130,7 +169,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Align = alTop
|
||||
@ -143,7 +182,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
@ -163,7 +202,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Align = alTop
|
||||
@ -176,7 +215,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
|
||||
@ -25,8 +25,10 @@ type
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetFechaFin: TDateTime;
|
||||
function GetFechaInicio: TDateTime;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
function GetFechaVenInicio: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
@ -34,8 +36,10 @@ type
|
||||
procedure RefrescarInforme;
|
||||
|
||||
public
|
||||
property FechaInicio: TDateTime read GetFechaInicio;
|
||||
property FechaFin: TDateTime read GetFechaFin;
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
property FechaVenFin: Variant read GetFechaVenFin;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
@ -79,14 +83,24 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosProveedorReport.GetFechaFin: TDateTime;
|
||||
function TfEditorInformeRecibosProveedorReport.GetFechaFin: Variant;
|
||||
begin
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.Date;
|
||||
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeRecibosProveedorReport.GetFechaInicio: TDateTime;
|
||||
function TfEditorInformeRecibosProveedorReport.GetFechaInicio: Variant;
|
||||
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;
|
||||
|
||||
function TfEditorInformeRecibosProveedorReport.GetImporteMinimo: Currency;
|
||||
@ -116,6 +130,8 @@ begin
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
FechaInicio,
|
||||
FechaFin,
|
||||
FechaVenInicio,
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
|
||||
@ -1,66 +1,24 @@
|
||||
inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
Width = 451
|
||||
Height = 177
|
||||
Height = 248
|
||||
Align = alTop
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 177
|
||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
ExplicitHeight = 248
|
||||
object TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 32
|
||||
Width = 445
|
||||
Height = 21
|
||||
Height = 97
|
||||
Margins.Left = 5
|
||||
Margins.Top = 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.Top = 5
|
||||
Margins.Right = 5
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
TabOrder = 1
|
||||
DesignSize = (
|
||||
445
|
||||
74)
|
||||
97)
|
||||
object Label3: TLabel
|
||||
Left = 5
|
||||
Top = 5
|
||||
@ -73,7 +31,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 29
|
||||
Top = 29
|
||||
Top = 52
|
||||
Width = 34
|
||||
Height = 13
|
||||
Caption = 'Desde:'
|
||||
@ -81,15 +39,15 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 32
|
||||
Top = 56
|
||||
Top = 79
|
||||
Width = 31
|
||||
Height = 13
|
||||
Caption = 'hasta:'
|
||||
Transparent = True
|
||||
end
|
||||
object edtFechaFin: TcxDateEdit
|
||||
Left = 72
|
||||
Top = 53
|
||||
Left = 69
|
||||
Top = 76
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Properties.DateButtons = [btnToday]
|
||||
Properties.PostPopupValueOnTab = True
|
||||
@ -118,7 +76,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
end
|
||||
object edtFechaIni: TcxDateEdit
|
||||
Left = 72
|
||||
Top = 26
|
||||
Top = 49
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Properties.DateButtons = [btnToday]
|
||||
Properties.PostPopupValueOnTab = True
|
||||
@ -145,6 +103,33 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
TabOrder = 1
|
||||
Width = 360
|
||||
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
|
||||
object TBXLabel2: TTBXLabel
|
||||
Left = 0
|
||||
@ -164,6 +149,133 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
|
||||
ParentFont = False
|
||||
Underline = True
|
||||
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
|
||||
Left = 32
|
||||
Top = 24
|
||||
|
||||
@ -14,18 +14,26 @@ type
|
||||
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
|
||||
end;
|
||||
|
||||
TTipoFecha = (TFecha, TFechaVencimiento);
|
||||
|
||||
TfrViewPeriodoFechas = class(TfrViewParametrosInforme, IViewPeriodoFechas)
|
||||
cxRepository: TcxEditRepository;
|
||||
cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem;
|
||||
cbPeriodo: TcxComboBox;
|
||||
edtFechaIni: TcxDateEdit;
|
||||
edtFechaFin: TcxDateEdit;
|
||||
TBXLabel2: TTBXLabel;
|
||||
TBXAlignmentPanel1: TTBXAlignmentPanel;
|
||||
TBXAlignmentPanel2: TTBXAlignmentPanel;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
TBXAlignmentPanel3: TTBXAlignmentPanel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
edtFechaVenFin: TcxDateEdit;
|
||||
edtFechaVenIni: TcxDateEdit;
|
||||
cbPeriodo: TcxComboBox;
|
||||
cbPeriodo2: TcxComboBox;
|
||||
procedure cbPeriodoPropertiesChange(Sender: TObject);
|
||||
procedure edtFechaIni2PropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
@ -33,25 +41,38 @@ type
|
||||
procedure edtFechaFinPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
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
|
||||
function GetFechaFinal: TDateTime;
|
||||
function GetFechaInicial: TDateTime;
|
||||
procedure SetFechaFinal(const Value: TDateTime);
|
||||
procedure SetFechaInicial(const Value: TDateTime);
|
||||
function GetFechaFinal: Variant;
|
||||
function GetFechaInicial: Variant;
|
||||
procedure SetFechaFinal(const Value: Variant);
|
||||
procedure SetFechaInicial(const Value: Variant);
|
||||
|
||||
function GetFechaVenFinal: Variant;
|
||||
function GetFechaVenInicial: Variant;
|
||||
procedure SetFechaVenFinal(const Value: Variant);
|
||||
procedure SetFechaVenInicial(const Value: Variant);
|
||||
|
||||
public
|
||||
procedure Hoy;
|
||||
procedure Ayer;
|
||||
procedure EstaSemana;
|
||||
procedure EsteMes;
|
||||
procedure EsteAno;
|
||||
procedure Ultimos7dias;
|
||||
procedure Ultimos30dias;
|
||||
procedure Ultimos3meses;
|
||||
procedure MesAnterior;
|
||||
procedure AnoAnterior;
|
||||
procedure Personalizado;
|
||||
property FechaInicial : TDateTime read GetFechaInicial write SetFechaInicial;
|
||||
property FechaFinal : TDateTime read GetFechaFinal write SetFechaFinal;
|
||||
procedure Hoy(const ATipoFecha: TTipoFecha);
|
||||
procedure Ayer(const ATipoFecha: TTipoFecha);
|
||||
procedure EstaSemana(const ATipoFecha: TTipoFecha);
|
||||
procedure EsteMes(const ATipoFecha: TTipoFecha);
|
||||
procedure EsteAno(const ATipoFecha: TTipoFecha);
|
||||
procedure Ultimos7dias(const ATipoFecha: TTipoFecha);
|
||||
procedure Ultimos30dias(const ATipoFecha: TTipoFecha);
|
||||
procedure Ultimos3meses(const ATipoFecha: TTipoFecha);
|
||||
procedure MesAnterior(const ATipoFecha: TTipoFecha);
|
||||
procedure AnoAnterior(const ATipoFecha: TTipoFecha);
|
||||
procedure Personalizado(const ATipoFecha: TTipoFecha);
|
||||
property FechaInicial : Variant read GetFechaInicial write SetFechaInicial;
|
||||
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;
|
||||
end;
|
||||
|
||||
@ -61,106 +82,231 @@ uses DateUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrViewPeriodoFechas.AnoAnterior;
|
||||
procedure TfrViewPeriodoFechas.AnoAnterior(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1));
|
||||
edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1));
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := StartOfTheYear(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;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ayer;
|
||||
procedure TfrViewPeriodoFechas.Ayer(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := Yesterday;
|
||||
edtFechaFin.Date := Yesterday;
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := Yesterday;
|
||||
edtFechaFin.Date := Yesterday;
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := Yesterday;
|
||||
edtFechaVenFin.Date := Yesterday;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.EstaSemana;
|
||||
procedure TfrViewPeriodoFechas.EstaSemana(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheWeek(Today);
|
||||
edtFechaFin.Date := EndOfTheWeek(Today);
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := StartOfTheWeek(Today);
|
||||
edtFechaFin.Date := EndOfTheWeek(Today);
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := StartOfTheWeek(Today);
|
||||
edtFechaVenFin.Date := EndOfTheWeek(Today);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.EsteAno;
|
||||
procedure TfrViewPeriodoFechas.EsteAno(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheYear(Today);
|
||||
edtFechaFin.Date := EndOfTheYear(Today);
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := StartOfTheYear(Today);
|
||||
edtFechaFin.Date := EndOfTheYear(Today);
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := StartOfTheYear(Today);
|
||||
edtFechaVenFin.Date := EndOfTheYear(Today);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.EsteMes;
|
||||
procedure TfrViewPeriodoFechas.EsteMes(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheMonth(Today);
|
||||
edtFechaFin.Date := EndOfTheMonth(Today);
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := StartOfTheMonth(Today);
|
||||
edtFechaFin.Date := EndOfTheMonth(Today);
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := StartOfTheMonth(Today);
|
||||
edtFechaVenFin.Date := EndOfTheMonth(Today);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrViewPeriodoFechas.GetFechaFinal: TDateTime;
|
||||
function TfrViewPeriodoFechas.GetFechaFinal: Variant;
|
||||
begin
|
||||
Result := DateOf(edtFechaFin.Date);
|
||||
Result := edtFechaFin.EditValue;
|
||||
end;
|
||||
|
||||
function TfrViewPeriodoFechas.GetFechaInicial: TDateTime;
|
||||
function TfrViewPeriodoFechas.GetFechaInicial: Variant;
|
||||
begin
|
||||
Result := DateOf(edtFechaIni.Date);
|
||||
Result := edtFechaIni.EditValue;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Hoy;
|
||||
function TfrViewPeriodoFechas.GetFechaVenFinal: Variant;
|
||||
begin
|
||||
edtFechaIni.Date := Today;
|
||||
edtFechaFin.Date := Today;
|
||||
Result := edtFechaVenFin.EditValue;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.MesAnterior;
|
||||
function TfrViewPeriodoFechas.GetFechaVenInicial: Variant;
|
||||
begin
|
||||
edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1));
|
||||
edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1));
|
||||
Result := edtFechaVenIni.EditValue;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Personalizado;
|
||||
procedure TfrViewPeriodoFechas.Hoy(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.SetFocus;
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := Today;
|
||||
edtFechaFin.Date := Today;
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := Today;
|
||||
edtFechaVenFin.Date := Today;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: TDateTime);
|
||||
procedure TfrViewPeriodoFechas.MesAnterior(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaFin.Date := Value;
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := StartOfTheMonth(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;
|
||||
|
||||
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: TDateTime);
|
||||
procedure TfrViewPeriodoFechas.Personalizado(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
edtFechaIni.Date := Value;
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.SetFocus;
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.SetFocus;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ultimos30dias;
|
||||
procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: Variant);
|
||||
begin
|
||||
edtFechaIni.Date := IncDay(Today, -30);
|
||||
edtFechaFin.Date := Today
|
||||
edtFechaFin.EditValue := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ultimos3meses;
|
||||
procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: Variant);
|
||||
begin
|
||||
edtFechaIni.Date := IncMonth(Today, -3);
|
||||
edtFechaFin.Date := Today
|
||||
edtFechaIni.EditValue := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ultimos7dias;
|
||||
procedure TfrViewPeriodoFechas.SetFechaVenFinal(const Value: Variant);
|
||||
begin
|
||||
edtFechaIni.Date := IncDay(Today, -7);
|
||||
edtFechaFin.Date := Today
|
||||
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);
|
||||
edtFechaFin.Date := Today
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := IncDay(Today, -30);
|
||||
edtFechaVenFin.Date := Today
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ultimos3meses(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := IncMonth(Today, -3);
|
||||
edtFechaFin.Date := Today
|
||||
end;
|
||||
TFechaVencimiento: begin
|
||||
edtFechaVenIni.Date := IncMonth(Today, -3);
|
||||
edtFechaVenFin.Date := Today
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.Ultimos7dias(const ATipoFecha: TTipoFecha);
|
||||
begin
|
||||
case ATipoFecha of
|
||||
TFecha: begin
|
||||
edtFechaIni.Date := IncDay(Today, -7);
|
||||
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;
|
||||
|
||||
procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
case (Sender as TcxComboBox).ItemIndex of
|
||||
0 : Hoy;
|
||||
1 : Ayer;
|
||||
2 : EstaSemana;
|
||||
3 : EsteMes;
|
||||
4 : EsteAno;
|
||||
5 : Ultimos7dias;
|
||||
6 : Ultimos30dias;
|
||||
7 : Ultimos3meses;
|
||||
8 : MesAnterior;
|
||||
9 : AnoAnterior;
|
||||
0 : Hoy(TFecha);
|
||||
1 : Ayer(TFecha);
|
||||
2 : EstaSemana(TFecha);
|
||||
3 : EsteMes(TFecha);
|
||||
4 : EsteAno(TFecha);
|
||||
5 : Ultimos7dias(TFecha);
|
||||
6 : Ultimos30dias(TFecha);
|
||||
7 : Ultimos3meses(TFecha);
|
||||
8 : MesAnterior(TFecha);
|
||||
9 : AnoAnterior(TFecha);
|
||||
else
|
||||
Personalizado;
|
||||
Personalizado(TFecha);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -168,7 +314,8 @@ constructor TfrViewPeriodoFechas.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
cbPeriodo.ItemIndex := 3;
|
||||
EsteMes;
|
||||
cbPeriodo2.ItemIndex := -1;
|
||||
EsteMes(TFecha);
|
||||
end;
|
||||
|
||||
procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
||||
@ -176,12 +323,46 @@ procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate(
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if DisplayValue <> edtFechaIni.Date then
|
||||
cbPeriodo.ItemIndex := 12;
|
||||
if DisplayValue > edtFechaFin.Date then
|
||||
if Length(VarToStr(DisplayValue)) > 0 then
|
||||
begin
|
||||
edtFechaFin.EditText := DisplayValue;
|
||||
edtFechaFin.ValidateEdit(True);
|
||||
if DisplayValue <> edtFechaIni.Date then
|
||||
cbPeriodo.ItemIndex := 12;
|
||||
if DisplayValue > edtFechaFin.Date then
|
||||
begin
|
||||
edtFechaFin.EditText := DisplayValue;
|
||||
edtFechaFin.ValidateEdit(True);
|
||||
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;
|
||||
|
||||
@ -190,12 +371,15 @@ procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate(
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if DisplayValue <> edtFechaFin.Date then
|
||||
cbPeriodo.ItemIndex := 12;
|
||||
if DisplayValue < edtFechaIni.Date then
|
||||
if Length(VarToStr(DisplayValue)) > 0 then
|
||||
begin
|
||||
edtFechaIni.EditText := DisplayValue;
|
||||
edtFechaIni.ValidateEdit(True);
|
||||
if DisplayValue <> edtFechaFin.Date then
|
||||
cbPeriodo.ItemIndex := 12;
|
||||
if DisplayValue < edtFechaIni.Date then
|
||||
begin
|
||||
edtFechaIni.EditText := DisplayValue;
|
||||
edtFechaIni.ValidateEdit(True);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -42,11 +42,11 @@ type
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
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
|
||||
function GenerarPresupuesto(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;
|
||||
|
||||
implementation
|
||||
@ -77,7 +77,7 @@ begin
|
||||
end;
|
||||
|
||||
function TRptPresupuestosCliente.GenerarInformeListadoPresupuestos(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime;
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -127,7 +127,7 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
@ -36,11 +36,13 @@ type
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
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
|
||||
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 GenerarInformeListadoRecibosPendientes(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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -68,7 +70,8 @@ begin
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -81,11 +84,12 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeListadoRecibosCliente;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -115,7 +119,7 @@ begin
|
||||
ATipoInforme := rptInformeListadoRecibosCliPendientes;
|
||||
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
||||
end;
|
||||
|
||||
function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary;
|
||||
@ -133,7 +137,8 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -167,8 +172,24 @@ begin
|
||||
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
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
|
||||
Expression := Condicion
|
||||
else
|
||||
|
||||
@ -29,10 +29,10 @@ type
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
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
|
||||
function GenerarInformeListadoRecibos(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: 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: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -61,7 +61,8 @@ end;
|
||||
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -74,11 +75,12 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeListadoRecibosProveedor;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -107,11 +109,12 @@ begin
|
||||
else
|
||||
ATipoInforme := rptInformeListadoRecibosProvPendientes;
|
||||
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo);
|
||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo);
|
||||
end;
|
||||
|
||||
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 ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
@ -146,8 +149,24 @@ begin
|
||||
with tbl_InformeListadoRecibos.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
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
|
||||
Expression := Condicion
|
||||
else
|
||||
|
||||
@ -606,9 +606,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -624,9 +624,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -642,9 +642,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -660,9 +660,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -678,9 +682,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -696,9 +700,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -714,9 +722,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -732,9 +744,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -750,9 +766,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -768,9 +788,13 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</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 Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
@ -786,9 +810,9 @@
|
||||
</Parameter>
|
||||
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaInicio" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="FechaFin" DataType="DateTime" Flag="In" >
|
||||
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
|
||||
@ -776,27 +776,27 @@ type
|
||||
{ IsrvGestorInformes }
|
||||
IsrvGestorInformes = interface(IDataAbstractService)
|
||||
['{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;
|
||||
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;
|
||||
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;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: 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;
|
||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: 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 GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoPresupuestos(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 FechaVenFin: Variant; const ListaIDProveedores: 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 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 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 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 GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
@ -810,27 +810,27 @@ type
|
||||
protected
|
||||
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;
|
||||
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;
|
||||
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;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: 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;
|
||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: 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 GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoPresupuestos(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 FechaVenFin: Variant; const ListaIDProveedores: 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 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 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 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 GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
@ -2293,15 +2293,15 @@ begin
|
||||
result := 'srvGestorInformes';
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAClientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2316,15 +2316,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAProveedores');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2339,15 +2339,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCli');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2362,15 +2362,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProv');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2385,15 +2387,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCliPendientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2408,15 +2410,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProvPendientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2431,15 +2435,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliente');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2454,15 +2460,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProveedor');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2477,15 +2485,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliPendientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2500,15 +2510,17 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function TsrvGestorInformes_Proxy.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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProvPendientes');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -2523,15 +2535,15 @@ begin
|
||||
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;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPresupuestos');
|
||||
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
|
||||
@ -1281,12 +1281,12 @@ end;
|
||||
{ TsrvGestorInformes_Invoker }
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1297,8 +1297,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1322,12 +1322,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1338,8 +1338,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1363,12 +1363,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListadoIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1379,8 +1379,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1404,12 +1404,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1420,13 +1422,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1445,12 +1449,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1461,8 +1465,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
|
||||
@ -1486,12 +1490,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1502,13 +1508,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1527,12 +1535,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1543,13 +1553,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1568,12 +1580,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1584,13 +1598,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1609,12 +1625,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1625,13 +1643,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1650,12 +1670,14 @@ begin
|
||||
end;
|
||||
|
||||
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;
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
FechaVenInicio: Variant;
|
||||
FechaVenFin: Variant;
|
||||
ListaIDProveedores: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1666,13 +1688,15 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__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('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -1691,12 +1715,12 @@ begin
|
||||
end;
|
||||
|
||||
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; }
|
||||
var
|
||||
IdEmpresa: Integer;
|
||||
FechaInicio: DateTime;
|
||||
FechaFin: DateTime;
|
||||
FechaInicio: Variant;
|
||||
FechaFin: Variant;
|
||||
ListaIDClientes: FactuGES_Intf.TIntegerArray;
|
||||
Desglosado: Boolean;
|
||||
ImporteMinimo: Currency;
|
||||
@ -1707,8 +1731,8 @@ begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
|
||||
__Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]);
|
||||
__Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]);
|
||||
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
|
||||
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
|
||||
__Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
|
||||
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
|
||||
__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.ProjectType/>
|
||||
<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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,2,5,0
|
||||
PRODUCTVERSION 2,2,5,0
|
||||
FILEVERSION 2,2,6,0
|
||||
PRODUCTVERSION 2,2,6,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductVersion", "2.2.5.0\0"
|
||||
VALUE "CompileDate", "jueves, 27 de noviembre de 2008 17:35\0"
|
||||
VALUE "ProductVersion", "2.2.6.0\0"
|
||||
VALUE "CompileDate", "miércoles, 10 de diciembre de 2008 13:58\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user