Version 2.3.2
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1165 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
966daf4251
commit
51f090e36e
Binary file not shown.
|
After Width: | Height: | Size: 24 KiB |
BIN
Resources/Firmas Tecsitel/sello-tecsitel-firma-carlos.jpg
Normal file
BIN
Resources/Firmas Tecsitel/sello-tecsitel-firma-carlos.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/Firmas Tecsitel/sello-tecsitel-firma-jose-luis.jpg
Normal file
BIN
Resources/Firmas Tecsitel/sello-tecsitel-firma-jose-luis.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 46 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 25 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 21 KiB |
BIN
Resources/Firmas Tecsitel/sello-tecsitel-firma-oscar.jpg
Normal file
BIN
Resources/Firmas Tecsitel/sello-tecsitel-firma-oscar.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 40 KiB |
@ -54,58 +54,58 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -53,7 +53,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</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.3.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,2,0,0
|
||||
PRODUCTVERSION 2,2,0,0
|
||||
FILEVERSION 2,3,2,0
|
||||
PRODUCTVERSION 2,3,2,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.0.0\0"
|
||||
VALUE "FileVersion", "2.3.2.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "2.2.0.0\0"
|
||||
VALUE "ProductVersion", "2.3.2.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
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
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42501,5103784491" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="43816,5014707523" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403890003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<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="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -7,7 +7,7 @@
|
||||
<TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
|
||||
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO COMPARATIVO DE IVA REPERCUTIDO - SOPORTADO"/>
|
||||
<TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" 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>] - Página [Page#] de [TotalPages#] [TextoParametros]"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="82" Top="37" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL S.L. CIF: B81747396 C/ Hierro, 33 1ª Plta Oficina 10. 28045 Madrid Telf: 91-507-56-92 / 63 Fax: 91-785-96-35 e-mail: clientes@tecsitel.com"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="82" Top="37" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL S.L. CIF: B81747396 C/ Luis I nº 71 nave 1. 28031 Madrid Telf: 91-507-56-92 / 63 Fax: 91-785-96-35 e-mail: clientes@tecsitel.com"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="664" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
|
||||
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
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
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
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -8,7 +8,8 @@ uses
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
|
||||
uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer;
|
||||
uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer,
|
||||
DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
TRptFacturasCliente = class(TDataModule)
|
||||
@ -110,6 +111,9 @@ type
|
||||
DADSInformeIVAComparativoFacturasPro: TDADataSource;
|
||||
tbl_InformeIVAComparativoFacturasPro: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
tbl_InformeListadoBeneficiosGrafCompSemestralTipoGasto: TDAMemDataTable;
|
||||
tbl_InformeListadoBeneficiosGrafCompTrimestralTipoGasto: TDAMemDataTable;
|
||||
tbl_InformeListadoBeneficiosGrafCompMensualTipoGasto: TDAMemDataTable;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
private
|
||||
@ -127,7 +131,9 @@ type
|
||||
FImporteMinimo: Currency;
|
||||
FDesglosado : Boolean;
|
||||
FTopN: Integer;
|
||||
|
||||
FListaIDTiposdeGasto: TIntegerArray;
|
||||
FListaNombreTiposGasto: StringArray;
|
||||
|
||||
//Genera cada una de las facturas a imprimir
|
||||
procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True; const VerCopia: Boolean = True);
|
||||
|
||||
@ -145,7 +151,7 @@ type
|
||||
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
|
||||
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
|
||||
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
|
||||
end;
|
||||
|
||||
@ -155,7 +161,7 @@ implementation
|
||||
|
||||
uses
|
||||
uSistemaFunc, StrUtils, uDataModuleServer, schFacturasClienteClient_Intf,
|
||||
uROServer, DataAbstract4_Intf, srvGestorInformes_Impl;
|
||||
uROServer, srvGestorInformes_Impl;
|
||||
|
||||
const
|
||||
rptFacturaCliente = 'InfFacturaCliente.fr3';
|
||||
@ -234,10 +240,12 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
|
||||
function TRptFacturasCliente.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
ACadena: TStringList;
|
||||
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -250,14 +258,39 @@ begin
|
||||
FAno2 := Ano2;
|
||||
FIntervalo := Intervalo;
|
||||
|
||||
//Preparamos la tabla correspondiente y la abrimos para el informe
|
||||
if (FIntervalo = CTE_MENSUAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompMensual)
|
||||
else if (FIntervalo = CTE_TRIMESTRAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompTrimestral)
|
||||
else
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompSemestral);
|
||||
if Assigned(FListaIDTiposdeGasto) then
|
||||
FListaIDTiposdeGasto.Free;
|
||||
FListaIDTiposdeGasto := ListaIDTiposGasto;
|
||||
|
||||
if Assigned(FListaNombreTiposGasto) then
|
||||
FreeAndNil(FListaNombreTiposGasto);
|
||||
FListaNombreTiposGasto := ListaNombreTiposGasto;
|
||||
|
||||
//Cargamos las tablas con parametro ID_TIPO_GASTO
|
||||
if (FListaIDTiposdeGasto.Count = 1) then
|
||||
begin
|
||||
//Preparamos la tabla correspondiente y la abrimos para el informe
|
||||
if (FIntervalo = CTE_MENSUAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompMensualTipoGasto)
|
||||
else if (FIntervalo = CTE_TRIMESTRAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompTrimestralTipoGasto)
|
||||
else
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompSemestralTipoGasto);
|
||||
|
||||
DASInformeListadoFacturasGrafComp.DataTable.ParamByName('ID_TIPO_GASTO').AsInteger := FListaIDTiposdeGasto.Items[0];
|
||||
end
|
||||
else
|
||||
begin
|
||||
//Preparamos la tabla correspondiente y la abrimos para el informe
|
||||
if (FIntervalo = CTE_MENSUAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompMensual)
|
||||
else if (FIntervalo = CTE_TRIMESTRAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompTrimestral)
|
||||
else
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompSemestral);
|
||||
end;
|
||||
|
||||
DASInformeListadoFacturasGrafComp.DataTable.Active := True;
|
||||
Result := Binary.Create;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInformeListadoBeneficiosGrafComp, IntTostr(FIdEmpresa));
|
||||
@ -267,6 +300,15 @@ begin
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
// IniciarParametrosInforme;
|
||||
|
||||
ACadena := TStringList.Create;
|
||||
ACadena.Add('Todos los tipos de gasto');
|
||||
if Assigned(FListaIDTiposdeGasto) and (FListaIDTiposdeGasto.Count > 0) then
|
||||
begin
|
||||
ACadena.Clear;
|
||||
ACadena.Add('Solo tipo de gasto ' + FListaNombreTiposGasto.Items[0]);
|
||||
end;
|
||||
|
||||
frxReport.Variables.Variables['TextoParametros']:= ACadena.Text;
|
||||
frxReport.Variables.Variables['Ano1']:= Ano1;
|
||||
frxReport.Variables.Variables['Ano2']:= Ano2;
|
||||
frxReport.Variables.Variables['Serie']:= Serie;
|
||||
@ -276,6 +318,7 @@ begin
|
||||
finally
|
||||
AStream.Free;
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
FreeAndNil(ACadena);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -694,7 +737,6 @@ begin
|
||||
ATabla.ParamByName('ID_EMPRESA2').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ANO1').AsVariant := FAno1;
|
||||
ATabla.ParamByName('ANO2').AsVariant := FAno2;
|
||||
ATabla.Active := True;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasCliente.PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
|
||||
Binary file not shown.
@ -64,6 +64,7 @@
|
||||
<DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirDomiciliacion.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirFechaVencimiento.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirTipoGasto.pas" />
|
||||
<DCCReference Include="View\uIEditorFacturaProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorFacturasProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" />
|
||||
|
||||
Binary file not shown.
@ -54,9 +54,11 @@ type
|
||||
|
||||
function DarListaAnosFacturas: TStringList;
|
||||
procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
|
||||
function darTiposFacturaProveedor: IBizTiposFacturaProveedor;
|
||||
|
||||
function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
|
||||
function AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
|
||||
function AsignarTipoGasto(AFacturas: IBizFacturaProveedor): TStringList;
|
||||
end;
|
||||
|
||||
TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
|
||||
@ -124,9 +126,11 @@ type
|
||||
|
||||
function DarListaAnosFacturas: TStringList;
|
||||
procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
|
||||
function darTiposFacturaProveedor: IBizTiposFacturaProveedor;
|
||||
|
||||
function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
|
||||
function AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
|
||||
function AsignarTipoGasto(AFacturas: IBizFacturaProveedor): TStringList;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -142,7 +146,7 @@ uses
|
||||
uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
|
||||
uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
|
||||
uFormasPagoController, uBizFormasPago, uStringsUtils,
|
||||
uIEditorElegirDomiciliacion, uIEditorElegirFechaVencimiento,
|
||||
uIEditorElegirDomiciliacion, uIEditorElegirFechaVencimiento, uIEditorElegirTipoGasto,
|
||||
|
||||
cxEdit;
|
||||
|
||||
@ -305,6 +309,45 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorController.AsignarTipoGasto(AFacturas: IBizFacturaProveedor): TStringList;
|
||||
//Devolverá la lista de facturas que no han podido ser modificadas referencia=nombreproveedor
|
||||
var
|
||||
AEditor : IEditorElegirTipoGasto;
|
||||
ATipoGasto: Integer;
|
||||
|
||||
begin
|
||||
Result := TStringList.Create;
|
||||
|
||||
if Assigned(AFacturas) then
|
||||
begin
|
||||
CreateEditor('EditorElegirTipoGasto', IEditorElegirTipoGasto, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
if (AEditor.ShowModal = mrOk) then
|
||||
ATipoGasto := AEditor.TipodeGasto;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
end;
|
||||
|
||||
with AFacturas.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
if (AFacturas.ID_TIPO_FACTURA <> ATipoGasto) then
|
||||
begin
|
||||
Edit;
|
||||
AFacturas.ID_TIPO_FACTURA := ATipoGasto;
|
||||
Post;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
ApplyUpdates;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorController.AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
|
||||
//Devolverá la lista de facturas que no han podido ser modificadas referencia=nombreproveedor
|
||||
var
|
||||
@ -494,6 +537,11 @@ begin
|
||||
Result := FDataModule.GetAnosItems;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorController.darTiposFacturaProveedor: IBizTiposFacturaProveedor;
|
||||
begin
|
||||
Result := FDataModule.darTiposFacturaProveedor;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorController.DescartarCambios(AFactura: IBizFacturaProveedor);
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 318
|
||||
Height = 454
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
@ -273,6 +273,15 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
item
|
||||
Name = 'FACTURA_WEB'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_FACTURA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'GASTO_FACTURA'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -516,4 +525,30 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
Left = 208
|
||||
Top = 160
|
||||
end
|
||||
object ds_TiposFacturaProveedor: TDADataSource
|
||||
DataSet = tbl_TiposFacturaProveedor.Dataset
|
||||
DataTable = tbl_TiposFacturaProveedor
|
||||
Left = 72
|
||||
Top = 216
|
||||
end
|
||||
object tbl_TiposFacturaProveedor: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_FacturasProveedor
|
||||
LogicalName = 'TiposFacturaProveedor'
|
||||
IndexDefs = <>
|
||||
Left = 72
|
||||
Top = 264
|
||||
end
|
||||
end
|
||||
|
||||
@ -25,6 +25,8 @@ type
|
||||
ds_FacturasProveedor_Pedidos: TDADataSource;
|
||||
tbl_ListaAnosFacturas: TDAMemDataTable;
|
||||
ds_ListaAnosFacturas: TDADataSource;
|
||||
ds_TiposFacturaProveedor: TDADataSource;
|
||||
tbl_TiposFacturaProveedor: TDAMemDataTable;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
private
|
||||
function _GetDetalles : IBizDetallesFacturaProveedor;
|
||||
@ -33,6 +35,7 @@ type
|
||||
function GetItems : IBizFacturaProveedor;
|
||||
function GetItem(const ID : Integer) : IBizFacturaProveedor;
|
||||
function NewItem : IBizFacturaProveedor;
|
||||
function darTiposFacturaProveedor : IBizTiposFacturaProveedor;
|
||||
|
||||
// Report
|
||||
function GetReport(const AFacturaID: String): Binary;
|
||||
@ -102,6 +105,20 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor.darTiposFacturaProveedor: IBizTiposFacturaProveedor;
|
||||
var
|
||||
ATipos : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ATipos := CloneDataTable(tbl_TiposFacturaProveedor);
|
||||
ATipos.BusinessRulesID := BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR;
|
||||
Result := (ATipos as IBizTiposFacturaProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor.GetAnosItems: TStringList;
|
||||
var
|
||||
AListaAnos: TStringList;
|
||||
|
||||
@ -131,15 +131,6 @@
|
||||
<Target Name="PedProv_AlbProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view">
|
||||
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view:Clean">
|
||||
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view:Make">
|
||||
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedProv_FacProv_relation">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -149,6 +140,15 @@
|
||||
<Target Name="PedProv_FacProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view">
|
||||
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view:Clean">
|
||||
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view:Make">
|
||||
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_plugin">
|
||||
<MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -312,13 +312,13 @@
|
||||
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;FacturasProveedor_view;PedProv_FacProv_relation;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_view:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_view:Make;PedProv_FacProv_relation:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -13,6 +13,7 @@ type
|
||||
function GetItems: IBizFacturaProveedor;
|
||||
function GetItem(const ID : Integer) : IBizFacturaProveedor;
|
||||
function NewItem : IBizFacturaProveedor;
|
||||
function darTiposFacturaProveedor : IBizTiposFacturaProveedor;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -9,13 +9,15 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturas = '{B4BDA784-E7CD-4E5D-AD82-CA1AD2FA210E}';
|
||||
RID_FacturasProveedor = '{88C6D669-25A9-4965-ADC8-DD1920257A84}';
|
||||
RID_FacturasProveedor_Detalles = '{858A5CAE-E03F-4CAB-8AAF-D03986B66CD3}';
|
||||
RID_FacturasProveedor_Pedidos = '{3B26DC10-C424-4261-8421-52BDE6ECDF82}';
|
||||
RID_ListaAnosFacturas = '{C658E9F4-FBA4-41A1-BED6-48877E65A655}';
|
||||
RID_TiposFacturaProveedor = '{8CCF560A-60F5-4A99-9550-2E850599ACEE}';
|
||||
RID_FacturasProveedor = '{3359F0D6-D054-434E-B975-8F45A24E1BEE}';
|
||||
RID_FacturasProveedor_Detalles = '{26E6A51E-3426-49D3-83DD-3C815C15441D}';
|
||||
RID_FacturasProveedor_Pedidos = '{96119A69-D5BF-4255-93F2-726A658369D6}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
nme_TiposFacturaProveedor = 'TiposFacturaProveedor';
|
||||
nme_FacturasProveedor = 'FacturasProveedor';
|
||||
nme_FacturasProveedor_Detalles = 'FacturasProveedor_Detalles';
|
||||
nme_FacturasProveedor_Pedidos = 'FacturasProveedor_Pedidos';
|
||||
@ -26,6 +28,14 @@ const
|
||||
{ ListaAnosFacturas field indexes }
|
||||
idx_ListaAnosFacturasANO = 0;
|
||||
|
||||
{ TiposFacturaProveedor fields }
|
||||
fld_TiposFacturaProveedorID = 'ID';
|
||||
fld_TiposFacturaProveedorDESCRIPCION = 'DESCRIPCION';
|
||||
|
||||
{ TiposFacturaProveedor field indexes }
|
||||
idx_TiposFacturaProveedorID = 0;
|
||||
idx_TiposFacturaProveedorDESCRIPCION = 1;
|
||||
|
||||
{ FacturasProveedor fields }
|
||||
fld_FacturasProveedorID = 'ID';
|
||||
fld_FacturasProveedorID_EMPRESA = 'ID_EMPRESA';
|
||||
@ -66,6 +76,8 @@ const
|
||||
fld_FacturasProveedorID_PEDIDO = 'ID_PEDIDO';
|
||||
fld_FacturasProveedorREFERENCIA_PEDIDO = 'REFERENCIA_PEDIDO';
|
||||
fld_FacturasProveedorFACTURA_WEB = 'FACTURA_WEB';
|
||||
fld_FacturasProveedorID_TIPO_FACTURA = 'ID_TIPO_FACTURA';
|
||||
fld_FacturasProveedorGASTO_FACTURA = 'GASTO_FACTURA';
|
||||
|
||||
{ FacturasProveedor field indexes }
|
||||
idx_FacturasProveedorID = 0;
|
||||
@ -107,6 +119,8 @@ const
|
||||
idx_FacturasProveedorID_PEDIDO = 36;
|
||||
idx_FacturasProveedorREFERENCIA_PEDIDO = 37;
|
||||
idx_FacturasProveedorFACTURA_WEB = 38;
|
||||
idx_FacturasProveedorID_TIPO_FACTURA = 39;
|
||||
idx_FacturasProveedorGASTO_FACTURA = 40;
|
||||
|
||||
{ FacturasProveedor_Detalles fields }
|
||||
fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA';
|
||||
@ -171,7 +185,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{05484AA0-6BB3-4627-AACC-ACA197D91A7A}']
|
||||
['{3A6537F5-9F02-4F34-AF69-4177A3BE5307}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -204,9 +218,56 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ ITiposFacturaProveedor }
|
||||
ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{563B959F-593F-455A-86CE-8F84B71242A0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
end;
|
||||
|
||||
{ TTiposFacturaProveedorDataTableRules }
|
||||
TTiposFacturaProveedorDataTableRules = class(TIntfObjectDADataTableRules, ITiposFacturaProveedor)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IFacturasProveedor }
|
||||
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{AD3265C8-FA1C-4EF5-AE75-30202C4F636C}']
|
||||
['{F16B7B17-828D-4E04-8227-F7B796C34113}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -363,6 +424,14 @@ type
|
||||
procedure SetFACTURA_WEBValue(const aValue: SmallInt);
|
||||
function GetFACTURA_WEBIsNull: Boolean;
|
||||
procedure SetFACTURA_WEBIsNull(const aValue: Boolean);
|
||||
function GetID_TIPO_FACTURAValue: Integer;
|
||||
procedure SetID_TIPO_FACTURAValue(const aValue: Integer);
|
||||
function GetID_TIPO_FACTURAIsNull: Boolean;
|
||||
procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
|
||||
function GetGASTO_FACTURAValue: String;
|
||||
procedure SetGASTO_FACTURAValue(const aValue: String);
|
||||
function GetGASTO_FACTURAIsNull: Boolean;
|
||||
procedure SetGASTO_FACTURAIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -444,6 +513,10 @@ type
|
||||
property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
|
||||
property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
|
||||
property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
|
||||
property ID_TIPO_FACTURA: Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
|
||||
property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
|
||||
property GASTO_FACTURA: String read GetGASTO_FACTURAValue write SetGASTO_FACTURAValue;
|
||||
property GASTO_FACTURAIsNull: Boolean read GetGASTO_FACTURAIsNull write SetGASTO_FACTURAIsNull;
|
||||
end;
|
||||
|
||||
{ TFacturasProveedorDataTableRules }
|
||||
@ -608,6 +681,14 @@ type
|
||||
procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
|
||||
function GetFACTURA_WEBIsNull: Boolean; virtual;
|
||||
procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_TIPO_FACTURAValue: Integer; virtual;
|
||||
procedure SetID_TIPO_FACTURAValue(const aValue: Integer); virtual;
|
||||
function GetID_TIPO_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetGASTO_FACTURAValue: String; virtual;
|
||||
procedure SetGASTO_FACTURAValue(const aValue: String); virtual;
|
||||
function GetGASTO_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetGASTO_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -688,6 +769,10 @@ type
|
||||
property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
|
||||
property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
|
||||
property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
|
||||
property ID_TIPO_FACTURA: Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
|
||||
property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
|
||||
property GASTO_FACTURA: String read GetGASTO_FACTURAValue write SetGASTO_FACTURAValue;
|
||||
property GASTO_FACTURAIsNull: Boolean read GetGASTO_FACTURAIsNull write SetGASTO_FACTURAIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -697,7 +782,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_Detalles }
|
||||
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{F659E93B-D0FA-48CD-86DF-07903E7F8687}']
|
||||
['{BE622FAF-3843-477A-8F04-F9FDD937F179}']
|
||||
{ Property getters and setters }
|
||||
function GetID_TIPO_IVAValue: Integer;
|
||||
procedure SetID_TIPO_IVAValue(const aValue: Integer);
|
||||
@ -948,7 +1033,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_Pedidos }
|
||||
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
|
||||
['{EED4D71C-4868-4437-B0F5-CE738331D865}']
|
||||
['{4A33A986-4CE2-4064-AE22-C0823A36AA54}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1090,6 +1175,60 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposFacturaProveedorDataTableRules }
|
||||
constructor TTiposFacturaProveedorDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TTiposFacturaProveedorDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_TiposFacturaProveedorID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TTiposFacturaProveedorDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_TiposFacturaProveedorID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_TiposFacturaProveedorID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TTiposFacturaProveedorDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_TiposFacturaProveedorID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TTiposFacturaProveedorDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TTiposFacturaProveedorDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasProveedorDataTableRules }
|
||||
constructor TFacturasProveedorDataTableRules.Create(aDataTable: TDADataTable);
|
||||
var
|
||||
@ -1927,6 +2066,48 @@ begin
|
||||
DataTable.Fields[idx_FacturasProveedorFACTURA_WEB].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorDataTableRules.GetID_TIPO_FACTURAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorDataTableRules.SetID_TIPO_FACTURAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorDataTableRules.GetID_TIPO_FACTURAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorDataTableRules.SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorDataTableRules.GetGASTO_FACTURAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProveedorGASTO_FACTURA].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorDataTableRules.SetGASTO_FACTURAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasProveedorGASTO_FACTURA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorDataTableRules.GetGASTO_FACTURAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProveedorGASTO_FACTURA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorDataTableRules.SetGASTO_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasProveedorGASTO_FACTURA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasProveedor_DetallesDataTableRules }
|
||||
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -2500,6 +2681,7 @@ end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules);
|
||||
RegisterDataTableRules(RID_TiposFacturaProveedor, TTiposFacturaProveedorDataTableRules);
|
||||
RegisterDataTableRules(RID_FacturasProveedor, TFacturasProveedorDataTableRules);
|
||||
RegisterDataTableRules(RID_FacturasProveedor_Detalles, TFacturasProveedor_DetallesDataTableRules);
|
||||
RegisterDataTableRules(RID_FacturasProveedor_Pedidos, TFacturasProveedor_PedidosDataTableRules);
|
||||
|
||||
@ -9,15 +9,16 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturasDelta = '{597C7E92-4D92-447E-B929-17142EC8D988}';
|
||||
RID_FacturasProveedorDelta = '{ACBA8C9D-A8DA-42B8-82C6-443D313A128F}';
|
||||
RID_FacturasProveedor_DetallesDelta = '{A8B404BC-49F6-4337-B720-7E89EE78B376}';
|
||||
RID_FacturasProveedor_PedidosDelta = '{27E068A8-51CD-4289-AB94-31B7C5120DC4}';
|
||||
RID_ListaAnosFacturasDelta = '{58AB1D93-ECF9-4709-9940-4EABA82A3837}';
|
||||
RID_TiposFacturaProveedorDelta = '{ACA94265-BCFA-4352-AD0A-3047643CDBE1}';
|
||||
RID_FacturasProveedorDelta = '{6C73408A-5093-494D-9629-DA14CCD2809C}';
|
||||
RID_FacturasProveedor_DetallesDelta = '{8C06187D-4437-4059-B72D-81D07D5EA1B2}';
|
||||
RID_FacturasProveedor_PedidosDelta = '{09AF7634-49D5-466B-A428-D969048F0E0E}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{597C7E92-4D92-447E-B929-17142EC8D988}']
|
||||
['{58AB1D93-ECF9-4709-9940-4EABA82A3837}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -49,9 +50,55 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ ITiposFacturaProveedorDelta }
|
||||
ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
|
||||
['{ACA94265-BCFA-4352-AD0A-3047643CDBE1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
end;
|
||||
|
||||
{ TTiposFacturaProveedorBusinessProcessorRules }
|
||||
TTiposFacturaProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposFacturaProveedor, ITiposFacturaProveedorDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IFacturasProveedorDelta }
|
||||
IFacturasProveedorDelta = interface(IFacturasProveedor)
|
||||
['{ACBA8C9D-A8DA-42B8-82C6-443D313A128F}']
|
||||
['{6C73408A-5093-494D-9629-DA14CCD2809C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -92,6 +139,8 @@ type
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldREFERENCIA_PEDIDOValue : String;
|
||||
function GetOldFACTURA_WEBValue : SmallInt;
|
||||
function GetOldID_TIPO_FACTURAValue : Integer;
|
||||
function GetOldGASTO_FACTURAValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -133,6 +182,8 @@ type
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
|
||||
property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
|
||||
property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
|
||||
property OldGASTO_FACTURA : String read GetOldGASTO_FACTURAValue;
|
||||
end;
|
||||
|
||||
{ TFacturasProveedorBusinessProcessorRules }
|
||||
@ -375,6 +426,18 @@ type
|
||||
function GetOldFACTURA_WEBIsNull: Boolean; virtual;
|
||||
procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
|
||||
procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_TIPO_FACTURAValue: Integer; virtual;
|
||||
function GetID_TIPO_FACTURAIsNull: Boolean; virtual;
|
||||
function GetOldID_TIPO_FACTURAValue: Integer; virtual;
|
||||
function GetOldID_TIPO_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetID_TIPO_FACTURAValue(const aValue: Integer); virtual;
|
||||
procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetGASTO_FACTURAValue: String; virtual;
|
||||
function GetGASTO_FACTURAIsNull: Boolean; virtual;
|
||||
function GetOldGASTO_FACTURAValue: String; virtual;
|
||||
function GetOldGASTO_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetGASTO_FACTURAValue(const aValue: String); virtual;
|
||||
procedure SetGASTO_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -533,6 +596,14 @@ type
|
||||
property FACTURA_WEBIsNull : Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
|
||||
property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
|
||||
property OldFACTURA_WEBIsNull : Boolean read GetOldFACTURA_WEBIsNull;
|
||||
property ID_TIPO_FACTURA : Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
|
||||
property ID_TIPO_FACTURAIsNull : Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
|
||||
property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
|
||||
property OldID_TIPO_FACTURAIsNull : Boolean read GetOldID_TIPO_FACTURAIsNull;
|
||||
property GASTO_FACTURA : String read GetGASTO_FACTURAValue write SetGASTO_FACTURAValue;
|
||||
property GASTO_FACTURAIsNull : Boolean read GetGASTO_FACTURAIsNull write SetGASTO_FACTURAIsNull;
|
||||
property OldGASTO_FACTURA : String read GetOldGASTO_FACTURAValue;
|
||||
property OldGASTO_FACTURAIsNull : Boolean read GetOldGASTO_FACTURAIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -542,7 +613,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_DetallesDelta }
|
||||
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
|
||||
['{A8B404BC-49F6-4337-B720-7E89EE78B376}']
|
||||
['{8C06187D-4437-4059-B72D-81D07D5EA1B2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_TIPO_IVAValue : Integer;
|
||||
function GetOldIVAValue : Float;
|
||||
@ -792,7 +863,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_PedidosDelta }
|
||||
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
|
||||
['{27E068A8-51CD-4289-AB94-31B7C5120DC4}']
|
||||
['{09AF7634-49D5-466B-A428-D969048F0E0E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -944,6 +1015,80 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposFacturaProveedorBusinessProcessorRules }
|
||||
constructor TTiposFacturaProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TTiposFacturaProveedorBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID];
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID]);
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorID];
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorID]);
|
||||
end;
|
||||
|
||||
procedure TTiposFacturaProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TTiposFacturaProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID] := Null;
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION]);
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TTiposFacturaProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorDESCRIPCION]);
|
||||
end;
|
||||
|
||||
procedure TTiposFacturaProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TTiposFacturaProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasProveedorBusinessProcessorRules }
|
||||
constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
var
|
||||
@ -2172,6 +2317,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFACTURA_WEB] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetID_TIPO_FACTURAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA];
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetID_TIPO_FACTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA]);
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetOldID_TIPO_FACTURAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_TIPO_FACTURA];
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetOldID_TIPO_FACTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_TIPO_FACTURA]);
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorBusinessProcessorRules.SetID_TIPO_FACTURAValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorBusinessProcessorRules.SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetGASTO_FACTURAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorGASTO_FACTURA];
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetGASTO_FACTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorGASTO_FACTURA]);
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetOldGASTO_FACTURAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorGASTO_FACTURA];
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetOldGASTO_FACTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorGASTO_FACTURA]);
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorBusinessProcessorRules.SetGASTO_FACTURAValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorGASTO_FACTURA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorBusinessProcessorRules.SetGASTO_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorGASTO_FACTURA] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasProveedor_DetallesBusinessProcessorRules }
|
||||
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -3005,6 +3212,7 @@ end;
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_TiposFacturaProveedorDelta, TTiposFacturaProveedorBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_FacturasProveedorDelta, TFacturasProveedorBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_FacturasProveedor_DetallesDelta, TFacturasProveedor_DetallesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_FacturasProveedor_PedidosDelta, TFacturasProveedor_PedidosBusinessProcessorRules);
|
||||
|
||||
@ -9,6 +9,7 @@ uses
|
||||
|
||||
const
|
||||
BIZ_CLIENT_FACTURA_PROVEEDOR = 'Client.FacturaProveedor';
|
||||
BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR = 'Client.TiposFacturaProveedor';
|
||||
|
||||
CTE_TIPO_ABONO = 'A';
|
||||
CTE_TIPO_FACTURA = 'F';
|
||||
@ -18,6 +19,10 @@ const
|
||||
CTE_PAGADA = 'PAGADA';
|
||||
|
||||
type
|
||||
IBizTiposFacturaProveedor = interface(ITiposFacturaProveedor)
|
||||
['{40F9AF09-459A-4F89-ABD1-16FB6659FA61}']
|
||||
end;
|
||||
|
||||
IBizFacturaProveedor = interface(IFacturasProveedor)
|
||||
['{4BC473E5-3B82-4C1A-8E52-2A227490F94E}']
|
||||
|
||||
@ -43,6 +48,8 @@ type
|
||||
procedure CalcularImporteTotal;
|
||||
end;
|
||||
|
||||
TBizTiposFacturaProveedor = class(TTiposFacturaProveedorDataTableRules, IBizTiposFacturaProveedor)
|
||||
end;
|
||||
|
||||
TBizFacturaProveedor = class(TFacturasProveedorDataTableRules, IBizFacturaProveedor, ISeleccionable)
|
||||
private
|
||||
@ -383,6 +390,7 @@ end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_FACTURA_PROVEEDOR, TBizFacturaProveedor);
|
||||
RegisterDataTableRules(BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR, TBizTiposFacturaProveedor);
|
||||
|
||||
finalization
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -9,7 +9,9 @@ uses
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
|
||||
uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer,
|
||||
uDARemoteDataAdapter;
|
||||
uDARemoteDataAdapter,
|
||||
{Used RODLs:} DataAbstract4_Intf
|
||||
;
|
||||
|
||||
type
|
||||
TRptFacturasProveedor = class(TDataModule)
|
||||
@ -48,6 +50,11 @@ type
|
||||
frxDBInformeListadoProveedoresMayorDescuentoResumen: TfrxDBDataset;
|
||||
DADSInformeListadoProveedoresMayorDescuentoResumen: TDADataSource;
|
||||
tbl_InformeListadoProveedoresMayorDescuentoResumen: TDAMemDataTable;
|
||||
InformeListadoFacturasGrafCompMensualTipoGasto: TDAMemDataTable;
|
||||
tbl_InformeListadoFacturasGrafCompTrimestralTipoGasto: TDAMemDataTable;
|
||||
tbl_InformeListadoFacturasGrafCompSemestralTipoGasto: TDAMemDataTable;
|
||||
tbl_InformeListadoProveedoresMayorFacturacionResumenTipoGasto: TDAMemDataTable;
|
||||
tbl_InformeListadoProveedoresMayorDescuentoResumenTipoGasto: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
@ -66,6 +73,9 @@ type
|
||||
FImporteMinimo: Currency;
|
||||
FDesglosado : Boolean;
|
||||
FTopN: Integer;
|
||||
FListaIDTiposdeGasto: TIntegerArray;
|
||||
FListaNombreTiposGasto: StringArray;
|
||||
|
||||
procedure RecuperarNombresProveedores;
|
||||
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
|
||||
procedure PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
@ -74,10 +84,16 @@ type
|
||||
procedure IniciarParametrosInforme;
|
||||
function _GenerarInforme(const TipoInforme: String): Binary;
|
||||
public
|
||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
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;
|
||||
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
|
||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): 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;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): 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; const ListaIDTiposGasto: TIntegerArray;
|
||||
const ListaNombreTiposGasto: StringArray): Binary;
|
||||
|
||||
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -86,7 +102,7 @@ implementation
|
||||
|
||||
uses
|
||||
uSistemaFunc, StrUtils, uDataModuleServer, schFacturasProveedorClient_Intf,
|
||||
uROServer, DataAbstract4_Intf, srvGestorInformes_Impl;
|
||||
uROServer, srvGestorInformes_Impl;
|
||||
|
||||
const
|
||||
rptInformeIVA = 'InformeIVAProveedores.fr3';
|
||||
@ -120,10 +136,12 @@ end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeFacturasGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
|
||||
const ListaIDProveedores: TIntegerArray; const TopN: Integer;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
ACadena: TStringList;
|
||||
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -141,17 +159,57 @@ begin
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDProveedores := ListaIDProveedores;
|
||||
|
||||
//Preparamos la tabla correspondiente y la abrimos para el informe
|
||||
if (FIntervalo = CTE_MENSUAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompMensual)
|
||||
else if (FIntervalo = CTE_TRIMESTRAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompTrimestral)
|
||||
else
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompSemestral);
|
||||
if Assigned(FListaIDTiposdeGasto) then
|
||||
FListaIDTiposdeGasto.Free;
|
||||
FListaIDTiposdeGasto := ListaIDTiposGasto;
|
||||
|
||||
//Se preparan las tablas del listado resumen del informe
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorFacturacionResumen);
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorDescuentoResumen);
|
||||
if Assigned(FListaNombreTiposGasto) then
|
||||
FreeAndNil(FListaNombreTiposGasto);
|
||||
FListaNombreTiposGasto := ListaNombreTiposGasto;
|
||||
|
||||
//Cargamos las tablas con parametro ID_TIPO_GASTO
|
||||
if (FListaIDTiposdeGasto.Count = 1) then
|
||||
begin
|
||||
//Preparamos la tabla correspondiente y la abrimos para el informe
|
||||
if (FIntervalo = CTE_MENSUAL) then
|
||||
PrepararTablaInformeGrafComp(InformeListadoFacturasGrafCompMensualTipoGasto)
|
||||
else if (FIntervalo = CTE_TRIMESTRAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompTrimestralTipoGasto)
|
||||
else
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompSemestralTipoGasto);
|
||||
|
||||
|
||||
//Se preparan las tablas del listado resumen del informe
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorFacturacionResumenTipoGasto);
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorDescuentoResumenTipoGasto);
|
||||
DADSInformeListadoProveedoresMayorFacturacionResumen.DataTable := tbl_InformeListadoProveedoresMayorFacturacionResumenTipoGasto;
|
||||
DADSInformeListadoProveedoresMayorDescuentoResumen.DataTable := tbl_InformeListadoProveedoresMayorDescuentoResumenTipoGasto;
|
||||
|
||||
DASInformeListadoFacturasGrafComp.DataTable.ParamByName('ID_TIPO_GASTO').AsInteger := FListaIDTiposdeGasto.Items[0];
|
||||
DADSInformeListadoProveedoresMayorFacturacionResumen.DataTable.ParamByName('ID_TIPO_GASTO').AsInteger := FListaIDTiposdeGasto.Items[0];
|
||||
DADSInformeListadoProveedoresMayorDescuentoResumen.DataTable.ParamByName('ID_TIPO_GASTO').AsInteger := FListaIDTiposdeGasto.Items[0];
|
||||
end
|
||||
//El el caso de todas las facturas llamaremos a las tablas sin filtro
|
||||
else
|
||||
begin
|
||||
//Preparamos la tabla correspondiente y la abrimos para el informe
|
||||
if (FIntervalo = CTE_MENSUAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompMensual)
|
||||
else if (FIntervalo = CTE_TRIMESTRAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompTrimestral)
|
||||
else
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompSemestral);
|
||||
|
||||
//Se preparan las tablas del listado resumen del informe
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorFacturacionResumen);
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorDescuentoResumen);
|
||||
DADSInformeListadoProveedoresMayorFacturacionResumen.DataTable := tbl_InformeListadoProveedoresMayorFacturacionResumen;
|
||||
DADSInformeListadoProveedoresMayorDescuentoResumen.DataTable := tbl_InformeListadoProveedoresMayorDescuentoResumen;
|
||||
end;
|
||||
|
||||
DASInformeListadoFacturasGrafComp.DataTable.Active := True;
|
||||
DADSInformeListadoProveedoresMayorFacturacionResumen.DataTable.Active := True;
|
||||
DADSInformeListadoProveedoresMayorDescuentoResumen.DataTable.Active := True;
|
||||
|
||||
Result := Binary.Create;
|
||||
|
||||
@ -162,21 +220,33 @@ begin
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
// IniciarParametrosInforme;
|
||||
|
||||
ACadena := TStringList.Create;
|
||||
ACadena.Add('Todos los tipos de gasto');
|
||||
if Assigned(FListaIDTiposdeGasto) and (FListaIDTiposdeGasto.Count > 0) then
|
||||
begin
|
||||
ACadena.Clear;
|
||||
ACadena.Add('Solo tipo de gasto ' + FListaNombreTiposGasto.Items[0]);
|
||||
end;
|
||||
|
||||
frxReport.Variables.Variables['TextoParametros']:= ACadena.Text;
|
||||
frxReport.Variables.Variables['Ano1']:= Ano1;
|
||||
frxReport.Variables.Variables['Ano2']:= Ano2;
|
||||
|
||||
frxReport.PrepareReport(False);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
|
||||
finally
|
||||
AStream.Free;
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
FreeAndNil(ACadena);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
AStream: TMemoryStream;
|
||||
@ -201,6 +271,14 @@ begin
|
||||
|
||||
FListaIDProveedores := ListaIDProveedores;
|
||||
|
||||
if Assigned(FListaIDTiposdeGasto) then
|
||||
FListaIDTiposdeGasto.Free;
|
||||
FListaIDTiposdeGasto := ListaIDTiposGasto;
|
||||
|
||||
if Assigned(FListaNombreTiposGasto) then
|
||||
FreeAndNil(FListaNombreTiposGasto);
|
||||
FListaNombreTiposGasto := ListaNombreTiposGasto;
|
||||
|
||||
//Se van a prepara las tablas del informe
|
||||
if tbl_InformeListadoFacturas.Active then
|
||||
tbl_InformeListadoFacturas.Active := False;
|
||||
@ -243,7 +321,8 @@ function TRptFacturasProveedor.GenerarInformeListadoFacturas(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio, FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
AStream: TMemoryStream;
|
||||
@ -267,6 +346,14 @@ begin
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDProveedores := ListaIDProveedores;
|
||||
|
||||
if Assigned(FListaIDTiposdeGasto) then
|
||||
FListaIDTiposdeGasto.Free;
|
||||
FListaIDTiposdeGasto := ListaIDTiposGasto;
|
||||
|
||||
if Assigned(FListaNombreTiposGasto) then
|
||||
FreeAndNil(FListaNombreTiposGasto);
|
||||
FListaNombreTiposGasto := ListaNombreTiposGasto;
|
||||
|
||||
//Se prepara la tabla del listado general del informe
|
||||
if tbl_InformeListadoFacturas.Active then
|
||||
tbl_InformeListadoFacturas.Active := False;
|
||||
@ -309,7 +396,9 @@ function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio, FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray;
|
||||
const ListaNombreTiposGasto: StringArray ): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
AStream: TMemoryStream;
|
||||
@ -333,6 +422,13 @@ begin
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDProveedores := ListaIDProveedores;
|
||||
|
||||
if Assigned(FListaIDTiposdeGasto) then
|
||||
FListaIDTiposdeGasto.Free;
|
||||
FListaIDTiposdeGasto := ListaIDTiposGasto;
|
||||
|
||||
if Assigned(FListaNombreTiposGasto) then
|
||||
FreeAndNil(FListaNombreTiposGasto);
|
||||
FListaNombreTiposGasto := ListaNombreTiposGasto;
|
||||
|
||||
//Se prepara la tabla del listado general del informe
|
||||
if tbl_InformeListadoFacturasPendientes.Active then
|
||||
@ -419,6 +515,14 @@ begin
|
||||
ACadena := ACadena + ' (desglosados)'
|
||||
end;
|
||||
|
||||
if Assigned(FListaIDTiposdeGasto) and (FListaIDTiposdeGasto.Count > 0) then
|
||||
begin
|
||||
ACadena := 'Solo tipo de gasto ' + FListaNombreTiposGasto.Items[0];
|
||||
end
|
||||
else begin
|
||||
ACadena := 'Todos los tipos de gasto';
|
||||
end;
|
||||
|
||||
ATextos.Add(ACadena);
|
||||
ACadena := '';
|
||||
|
||||
@ -495,6 +599,24 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por tipo de gasto
|
||||
if Assigned(FListaIDTiposdeGasto) then
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
for i := 0 to FListaIDTiposdeGasto.Count - 1 do
|
||||
begin
|
||||
|
||||
// (ID_PROVEEDOR = ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_TIPO_FACTURA), NewConstant(FListaIDTiposdeGasto.Items[i], datInteger), dboEqual);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por importe minimo
|
||||
if (FImporteMinimo > 0) then
|
||||
begin
|
||||
@ -511,6 +633,11 @@ begin
|
||||
end;
|
||||
|
||||
procedure TRptFacturasProveedor.PrepararTablaInformeGrafComp(ATabla: TDAMemDataTable);
|
||||
var
|
||||
AWhereStr : String;
|
||||
Condicion: TDAWhereExpression;
|
||||
i: Integer;
|
||||
|
||||
begin
|
||||
if ATabla.Active then
|
||||
ATabla.Active := False;
|
||||
@ -520,7 +647,6 @@ begin
|
||||
ATabla.ParamByName('ID_EMPRESA2').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ANO1').AsVariant := FAno1;
|
||||
ATabla.ParamByName('ANO2').AsVariant := FAno2;
|
||||
ATabla.Active := True;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasProveedor.PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
@ -561,6 +687,17 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por tipo gasto
|
||||
if Assigned(FListaIDTiposdeGasto) then
|
||||
begin
|
||||
for i := 0 to FListaIDTiposdeGasto.Count - 1 do
|
||||
begin
|
||||
if Length(AWhereStr) > 0 then
|
||||
AWhereStr := AWhereStr + 'AND';
|
||||
AWhereStr := AWhereStr + ' (' + fld_FacturasProveedorID_TIPO_FACTURA + ' = ' + IntToStr(FListaIDTiposdeGasto.Items[i]) + ') ';
|
||||
end;
|
||||
end;
|
||||
|
||||
// Filtrar el informe por importe minimo
|
||||
if (FImporteMinimo > 0) then
|
||||
begin
|
||||
@ -580,7 +717,6 @@ begin
|
||||
ATabla.ParamByName('ID_EMPRESA').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ANO').AsVariant := FAno1;
|
||||
ATabla.ParamByName('NTOP').AsInteger := FTopN;
|
||||
ATabla.Active := True;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasProveedor.RecuperarNombresProveedores;
|
||||
|
||||
@ -40,6 +40,41 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
Size = 254
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'TIPOS_FACTURA_PROVEEDOR'
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'SELECT'#10' ID, DESCRIPCION'#10' FROM'#10' TIPOS_FACTURA_PROVEEDOR'#10' ' +
|
||||
'WHERE {Where}'#10' order by 2'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'TiposFacturaProveedor'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -203,6 +238,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
item
|
||||
DatasetField = 'FACTURA_WEB'
|
||||
TableField = 'FACTURA_WEB'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_TIPO_FACTURA'
|
||||
TableField = 'ID_TIPO_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'GASTO_FACTURA'
|
||||
TableField = 'GASTO_FACTURA'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasProveedor'
|
||||
@ -414,6 +457,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
item
|
||||
Name = 'FACTURA_WEB'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_FACTURA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'GASTO_FACTURA'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -927,6 +979,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
Name = 'FACTURA_WEB'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -942,16 +999,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
'A_ALTA, USUARIO, ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TI' +
|
||||
'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' DATOS_BANCARIOS, FECHA' +
|
||||
'_VENCIMIENTO, FECHA_RECEPCION,'#10' RETENCION, IMPORTE_RETENCION' +
|
||||
', ID_PEDIDO, FACTURA_WEB)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFER' +
|
||||
'ENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIB' +
|
||||
'LE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE' +
|
||||
', :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEED' +
|
||||
'OR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CO' +
|
||||
'DIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10 +
|
||||
' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :' +
|
||||
'IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECE' +
|
||||
'PCION,'#10' :RETENCION, :IMPORTE_RETENCION, :ID_PEDIDO, :FACTURA' +
|
||||
'_WEB)'#10' '#10' '#10#10
|
||||
', ID_PEDIDO, FACTURA_WEB, ID_TIPO_FACTURA)'#10' VALUES'#10' (:ID, :I' +
|
||||
'D_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTU' +
|
||||
'RA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, ' +
|
||||
':IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OBSERVACI' +
|
||||
'ONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :POBLACION' +
|
||||
', :PROVINCIA, :CODIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :USUARIO,' +
|
||||
' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPO' +
|
||||
'RTE_NETO, '#10' :IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA_VENCIMI' +
|
||||
'ENTO, :FECHA_RECEPCION,'#10' :RETENCION, :IMPORTE_RETENCION, :ID' +
|
||||
'_PEDIDO, :FACTURA_WEB, :ID_TIPO_FACTURA)'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1158,6 +1215,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1186,8 +1248,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
':DATOS_BANCARIOS,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' ' +
|
||||
' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' RETENCION = :RETENCION' +
|
||||
','#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ID_PEDIDO = :I' +
|
||||
'D_PEDIDO,'#10' FACTURA_WEB = :FACTURA_WEB'#10' WHERE'#10' (ID = :OLD_' +
|
||||
'ID)'#10
|
||||
'D_PEDIDO,'#10' FACTURA_WEB = :FACTURA_WEB,'#10' ID_TIPO_FACTURA = ' +
|
||||
':ID_TIPO_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -71,6 +71,7 @@ contains
|
||||
uViewPedidosFacturaProveedor in 'uViewPedidosFacturaProveedor.pas' {frViewPedidosFacturaProveedor: TFrame},
|
||||
uEditorElegirDomiciliacion in 'uEditorElegirDomiciliacion.pas' {fEditorElegirDomiciliacion: TfEditorFacturaProveedor},
|
||||
uViewTotalesVariosIVA in 'uViewTotalesVariosIVA.pas' {frViewTotalesVariosIVA: TfEditorFacturaProveedor},
|
||||
uEditorElegirFechaVencimiento in 'uEditorElegirFechaVencimiento.pas' {fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento};
|
||||
uEditorElegirFechaVencimiento in 'uEditorElegirFechaVencimiento.pas' {fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento},
|
||||
uEditorElegirTipoGasto in 'uEditorElegirTipoGasto.pas' {fEditorTipoGasto: TfEditorTipoGasto};
|
||||
|
||||
end.
|
||||
|
||||
@ -41,6 +41,14 @@
|
||||
<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="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><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">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
@ -84,7 +92,14 @@
|
||||
<Form>fEditorElegirDomiciliacion</Form>
|
||||
<DesignClass>TfEditorFacturaProveedor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirFechaVencimiento.pas" />
|
||||
<DCCReference Include="uEditorElegirFechaVencimiento.pas">
|
||||
<Form>fEditorElegirFechaVencimiento</Form>
|
||||
<DesignClass>TfEditorElegirFechaVencimiento</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirTipoGasto.pas">
|
||||
<Form>fEditorTipoGasto</Form>
|
||||
<DesignClass>TfEditorElegirFechaVencimiento</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorFacturaProveedor.pas">
|
||||
<Form>fEditorFacturaProveedor</Form>
|
||||
<DesignClass>TfEditorFacturaProveedor</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -55,7 +55,6 @@ object fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento
|
||||
Height = 41
|
||||
Align = alBottom
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 500
|
||||
DesignSize = (
|
||||
565
|
||||
41)
|
||||
@ -68,7 +67,6 @@ object fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento
|
||||
Caption = 'Aceptar'
|
||||
ModalResult = 1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 336
|
||||
end
|
||||
object bCancelar: TButton
|
||||
Left = 482
|
||||
@ -79,7 +77,6 @@ object fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento
|
||||
Caption = 'Cancelar'
|
||||
ModalResult = 2
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 417
|
||||
end
|
||||
end
|
||||
object cbFechaVencimiento: TcxDateEdit
|
||||
|
||||
@ -31,11 +31,11 @@ type
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses uFactuGES_App;
|
||||
uses uFactuGES_App, DateUtils;
|
||||
|
||||
procedure TfEditorElegirFechaVencimiento.FormShow(Sender: TObject);
|
||||
begin
|
||||
//
|
||||
cbFechaVencimiento.EditValue := DateOf(Date);
|
||||
end;
|
||||
|
||||
function TfEditorElegirFechaVencimiento.GetFechaVencimiento: datetime;
|
||||
|
||||
@ -77,12 +77,18 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
|
||||
Left = 427
|
||||
Visible = True
|
||||
ExplicitLeft = 427
|
||||
ExplicitWidth = 285
|
||||
ExplicitWidth = 382
|
||||
object TBXItem41: TTBXItem
|
||||
Action = actDomiciliacion
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actVencimiento
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXItem43: TTBXItem
|
||||
Action = actAsignarTipoGasto
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXSeparatorItem17: TTBXSeparatorItem
|
||||
end
|
||||
@ -294,6 +300,11 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
|
||||
OnExecute = actVencimientoExecute
|
||||
OnUpdate = actVencimientoUpdate
|
||||
end
|
||||
object actAsignarTipoGasto: TAction
|
||||
Caption = 'Asignar tipo gasto'
|
||||
OnExecute = actAsignarTipoGastoExecute
|
||||
OnUpdate = actAsignarTipoGastoUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
PngImages = <
|
||||
|
||||
@ -40,6 +40,8 @@ type
|
||||
JsListaFacturasNoModificables: TJSDialog;
|
||||
actVencimiento: TAction;
|
||||
TBXItem42: TTBXItem;
|
||||
actAsignarTipoGasto: TAction;
|
||||
TBXItem43: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure actNuevaFacturaExecute(Sender: TObject);
|
||||
@ -50,6 +52,8 @@ type
|
||||
procedure actDomiciliacionUpdate(Sender: TObject);
|
||||
procedure actVencimientoExecute(Sender: TObject);
|
||||
procedure actVencimientoUpdate(Sender: TObject);
|
||||
procedure actAsignarTipoGastoExecute(Sender: TObject);
|
||||
procedure actAsignarTipoGastoUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
FFacturas: IBizFacturaProveedor;
|
||||
@ -90,6 +94,41 @@ uses
|
||||
{
|
||||
*************************** TfEditorFacturasProveedor ***************************
|
||||
}
|
||||
procedure TfEditorFacturasProveedor.actAsignarTipoGastoExecute(Sender: TObject);
|
||||
var
|
||||
AFacturas: IBizFacturaProveedor;
|
||||
AListaFacturasNoModificadas: TStringList;
|
||||
i: integer;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ViewGrid.SaveGridStatus;
|
||||
try
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
|
||||
AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
|
||||
finally
|
||||
ViewGrid.RestoreGridStatus;
|
||||
end;
|
||||
|
||||
Controller.AsignarTipoGasto(AFacturas);
|
||||
|
||||
if (AFacturas.DataTable.RecordCount > 0) then
|
||||
RefrescarInterno;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasProveedor.actAsignarTipoGastoUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if HayDatos and Assigned(ViewGrid) then
|
||||
(Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
|
||||
and ViewGrid.esSeleccionCeldaDatos
|
||||
and (ViewGrid.NumSeleccionados > 0)
|
||||
else
|
||||
(Sender as TAction).Enabled := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasProveedor.actDomiciliacionExecute(Sender: TObject);
|
||||
var
|
||||
AFacturas: IBizFacturaProveedor;
|
||||
@ -234,7 +273,9 @@ begin
|
||||
JsListaFacturasNoModificables.Execute;
|
||||
|
||||
FreeAndNil(AListaFacturasNoModificadas);
|
||||
RefrescarInterno;
|
||||
|
||||
if (AFacturas.DataTable.RecordCount > 0) then
|
||||
RefrescarInterno;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasProveedor.actVencimientoUpdate(Sender: TObject);
|
||||
|
||||
@ -10,10 +10,11 @@ implementation
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorFacturasProveedor, uEditorFacturaProveedor,
|
||||
uEditorElegirDomiciliacion, uEditorElegirFechaVencimiento, uEditorElegirArticulosFacturaProveedor,
|
||||
uEditorFacturasProveedorReport;
|
||||
uEditorFacturasProveedorReport, uEditorElegirTipoGasto;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorElegirTipoGasto, 'EditorElegirTipoGasto');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirFechaVencimiento, 'EditorElegirFechaVencimiento');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirDomiciliacion, 'EditorElegirDomiciliacion');
|
||||
EditorRegistry.RegisterClass(TfEditorFacturasProveedor, 'EditorFacturasProveedor');
|
||||
@ -24,6 +25,8 @@ end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirTipoGasto);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirFechaVencimiento);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirDomiciliacion);
|
||||
EditorRegistry.UnRegisterClass(TfEditorFacturasProveedor);
|
||||
EditorRegistry.UnRegisterClass(TfEditorFacturaProveedor);
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 906
|
||||
Height = 514
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,17 +9,19 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 906
|
||||
Height = 514
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
451
|
||||
304)
|
||||
906
|
||||
514)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 136
|
||||
Top = 30
|
||||
@ -47,7 +49,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
end
|
||||
object edtFecha: TcxDBDateEdit
|
||||
Left = 136
|
||||
Top = 111
|
||||
Top = 138
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -67,12 +69,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
Width = 159
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 296
|
||||
Top = 323
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -88,13 +90,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
Height = 159
|
||||
Width = 301
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 136
|
||||
Top = 189
|
||||
Top = 216
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ImmediatePost = True
|
||||
@ -125,16 +127,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 78
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 162
|
||||
Top = 189
|
||||
Left = 345
|
||||
Top = 216
|
||||
Width = 132
|
||||
Height = 23
|
||||
Caption = 'Ver las formas de pago...'
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object eReferenciaProveedor: TcxDBTextEdit
|
||||
@ -162,7 +164,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Width = 158
|
||||
end
|
||||
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
|
||||
Left = 322
|
||||
Left = 505
|
||||
Top = 30
|
||||
Width = 350
|
||||
Height = 202
|
||||
@ -172,9 +174,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 322
|
||||
ExplicitLeft = 505
|
||||
ExplicitTop = 30
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
@ -216,22 +218,22 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 203
|
||||
Left = 287
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 203
|
||||
ExplicitLeft = 287
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 87
|
||||
ExplicitLeft = 87
|
||||
Left = 171
|
||||
ExplicitLeft = 171
|
||||
end
|
||||
end
|
||||
end
|
||||
object cbCuentaBancaria: TcxDBComboBox
|
||||
Left = 136
|
||||
Top = 245
|
||||
Top = 272
|
||||
DataBinding.DataField = 'DATOS_BANCARIOS'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
@ -248,12 +250,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
Width = 165
|
||||
end
|
||||
object edtFechaVencimiento: TcxDBDateEdit
|
||||
Left = 136
|
||||
Top = 218
|
||||
Top = 245
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -273,12 +275,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Width = 251
|
||||
end
|
||||
object edtFechaRecepcion: TcxDBDateEdit
|
||||
Left = 136
|
||||
Top = 138
|
||||
Top = 165
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_RECEPCION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -298,12 +300,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 158
|
||||
end
|
||||
object eFacturaWeb: TcxDBCheckBox
|
||||
Left = 22
|
||||
Top = 84
|
||||
Top = 111
|
||||
Caption = 'Factura WEB'
|
||||
DataBinding.DataField = 'FACTURA_WEB'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -318,10 +320,43 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
TabOrder = 3
|
||||
Transparent = True
|
||||
Width = 312
|
||||
end
|
||||
object cbTipoFactura: TcxDBLookupComboBox
|
||||
Left = 136
|
||||
Top = 84
|
||||
DataBinding.DataField = 'ID_TIPO_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.ImmediatePost = True
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
Properties.ListColumns = <
|
||||
item
|
||||
FieldName = 'DESCRIPCION'
|
||||
end>
|
||||
Properties.ListOptions.GridLines = glNone
|
||||
Properties.ListOptions.ShowHeader = False
|
||||
Properties.ListOptions.SyncMode = True
|
||||
Properties.ListSource = dsTiposFactura
|
||||
Properties.OnEditValueChanged = cbFormaPagoPropertiesEditValueChanged
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
Width = 307
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -347,6 +382,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Control = eReferenciaProveedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item11: TdxLayoutItem
|
||||
Caption = 'Tipo gasto:'
|
||||
Control = cbTipoFactura
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = eFacturaWeb
|
||||
@ -447,4 +487,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
|
||||
Left = 64
|
||||
Top = 24
|
||||
end
|
||||
object dsTiposFactura: TDADataSource
|
||||
Left = 64
|
||||
Top = 56
|
||||
end
|
||||
end
|
||||
|
||||
@ -59,6 +59,9 @@ type
|
||||
edtFechaRecepcion: TcxDBDateEdit;
|
||||
dxLayoutControl1Item9: TdxLayoutItem;
|
||||
eFacturaWeb: TcxDBCheckBox;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
cbTipoFactura: TcxDBLookupComboBox;
|
||||
dsTiposFactura: TDADataSource;
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
@ -71,6 +74,7 @@ type
|
||||
FController : IFacturasProveedorController;
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
FTiposFacturaProveedor : IBizTiposFacturaProveedor;
|
||||
function GetFactura: IBizFacturaProveedor;
|
||||
procedure SetFactura(const Value: IBizFacturaProveedor);
|
||||
function GetController : IFacturasProveedorController;
|
||||
@ -115,6 +119,7 @@ procedure TfrViewFacturaProveedor.CustomViewCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FFormasPago := Nil;
|
||||
FTiposFacturaProveedor := Nil;
|
||||
FFormasPagoController := TFormasPagoController.Create;
|
||||
frViewProveedorFactura.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.';
|
||||
end;
|
||||
@ -123,6 +128,7 @@ procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FFormasPago := Nil;
|
||||
FTiposFacturaProveedor := Nil;
|
||||
FFormasPagoController := NIL;
|
||||
end;
|
||||
|
||||
@ -240,6 +246,12 @@ begin
|
||||
else
|
||||
ledtFechaVencimiento.Enabled := False;
|
||||
|
||||
|
||||
FTiposFacturaProveedor := FController.darTiposFacturaProveedor;
|
||||
dsTiposFactura.DataTable := FTiposFacturaProveedor.DataTable;
|
||||
dsTiposFactura.DataTable.Active := True;
|
||||
|
||||
|
||||
if FFactura.TIPO = CTE_TIPO_ABONO then
|
||||
begin
|
||||
dxLayoutControl1Item2.Caption := 'Fecha del abono:';
|
||||
|
||||
@ -170,6 +170,10 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
Caption = 'Ref. Pedido'
|
||||
DataBinding.FieldName = 'REFERENCIA_PEDIDO'
|
||||
end
|
||||
object cxGridViewGASTO_FACTURA: TcxGridDBColumn
|
||||
Caption = 'Tipo gasto'
|
||||
DataBinding.FieldName = 'GASTO_FACTURA'
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'Todas'
|
||||
@ -209,34 +213,30 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
Width = 229
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 179
|
||||
Left = 224
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 179
|
||||
ExplicitLeft = 224
|
||||
ExplicitWidth = 188
|
||||
Width = 188
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 304
|
||||
Left = 378
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 304
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
ExplicitLeft = 378
|
||||
end
|
||||
inherited eLista2: TcxComboBox
|
||||
Left = 438
|
||||
Left = 474
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 438
|
||||
ExplicitWidth = 207
|
||||
Width = 207
|
||||
ExplicitLeft = 474
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -270,6 +270,11 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actProvincia
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actTipoGasto
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -310,6 +315,11 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
OnExecute = actProvinciaExecute
|
||||
OnUpdate = actProvinciaUpdate
|
||||
end
|
||||
object actTipoGasto: TAction
|
||||
Caption = 'Tipo de gasto'
|
||||
OnExecute = actTipoGastoExecute
|
||||
OnUpdate = actTipoGastoUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -59,6 +59,10 @@ type
|
||||
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
|
||||
cxGridViewFECHA_RECEPCION: TcxGridDBColumn;
|
||||
cxGridViewFACTURA_WEB: TcxGridDBColumn;
|
||||
cxGridViewGASTO_FACTURA: TcxGridDBColumn;
|
||||
TBXItem4: TTBXItem;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
actTipoGasto: TAction;
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
@ -70,6 +74,8 @@ type
|
||||
procedure cxGridViewDataControllerCompare(
|
||||
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||
procedure actTipoGastoExecute(Sender: TObject);
|
||||
procedure actTipoGastoUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -136,6 +142,28 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasProveedor.actTipoGastoExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (cxGridViewGASTO_FACTURA.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewGASTO_FACTURA.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewGASTO_FACTURA.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewGASTO_FACTURA.GroupIndex := -1;
|
||||
cxGridViewGASTO_FACTURA.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasProveedor.actTipoGastoUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewGASTO_FACTURA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasProveedor.AnadirFiltroFechas;
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
|
||||
@ -3,7 +3,8 @@ unit uIEditorInformeBeneficiosReportGrafComp;
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
FactuGES_Intf, uIEditorInformeBase,
|
||||
DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
IEditorInformeBeneficiosReportGrafComp = interface(IEditorInformeBase)
|
||||
@ -13,11 +14,16 @@ type
|
||||
function GetAno1: Variant;
|
||||
function GetAno2: Variant;
|
||||
function GetSerie: Variant;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
property Intervalo: Variant read GetIntervalo;
|
||||
property Ano1: Variant read GetAno1;
|
||||
property Ano2: Variant read GetAno2;
|
||||
property Serie: Variant read GetSerie;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -3,7 +3,8 @@ unit uIEditorInformeFacturasProveedorPendientesReport;
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
FactuGES_Intf, uIEditorInformeBase,
|
||||
DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase)
|
||||
@ -15,6 +16,9 @@ type
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
@ -22,6 +26,8 @@ type
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -3,9 +3,10 @@ unit uIEditorInformeFacturasProveedorReport;
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
FactuGES_Intf, uIEditorInformeBase,
|
||||
DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
type
|
||||
IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase)
|
||||
['{0E60C309-336C-455D-825B-7E4892A6CBC5}']
|
||||
function GetFechaFin: Variant;
|
||||
@ -15,6 +16,9 @@ type
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
property FechaInicio: Variant read GetFechaInicio;
|
||||
property FechaFin: Variant read GetFechaFin;
|
||||
property FechaVenInicio: Variant read GetFechaVenInicio;
|
||||
@ -22,6 +26,8 @@ type
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read getImporteMinimo;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -3,7 +3,8 @@ unit uIEditorInformeFacturasProveedorReportGrafComp;
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
FactuGES_Intf, uIEditorInformeBase,
|
||||
DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
IEditorInformeFacturasProveedorReportGrafComp = interface(IEditorInformeBase)
|
||||
@ -15,6 +16,9 @@ type
|
||||
function GetNTop: Variant;
|
||||
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
|
||||
property Intervalo: Variant read GetIntervalo;
|
||||
property Ano1: Variant read GetAno1;
|
||||
@ -22,6 +26,8 @@ type
|
||||
property NTop: Variant read GetNTop;
|
||||
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -3,7 +3,8 @@ unit uIEditorInformeIVAProveedoresReport;
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
FactuGES_Intf, uIEditorInformeBase,
|
||||
DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase)
|
||||
@ -13,11 +14,16 @@ type
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
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;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -324,7 +324,7 @@ begin
|
||||
AEditor.Title := 'Informe comparativo de beneficios';
|
||||
|
||||
AStream := FDataModule.GenerarInformeBeneficiosGrafComp(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.Serie);
|
||||
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.Serie, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
|
||||
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -372,7 +372,7 @@ begin
|
||||
AEditor.Title := 'Informe comparativo de facturación de proveedores';
|
||||
|
||||
AStream := FDataModule.GenerarInformeFacturasProvGrafComp(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDProveedores, AEditor.NTop);
|
||||
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDProveedores, AEditor.NTop, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
|
||||
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
@ -443,7 +443,7 @@ begin
|
||||
AStream := FDataModule.GenerarInformeIVAProveedores(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin,
|
||||
AEditor.ListaIDProveedores, AEditor.DesglosadoProveedor,
|
||||
AEditor.ImporteMinimo);
|
||||
AEditor.ImporteMinimo, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
@ -514,7 +514,7 @@ begin
|
||||
AEditor.Title := 'Listado de facturas de proveedor';
|
||||
AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
|
||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
@ -537,7 +537,7 @@ begin
|
||||
AEditor.Title := 'Listado de facturas de proveedor pendientes';
|
||||
AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
|
||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
|
||||
AEditor.DesglosadoProveedor, AEditor.ImporteMinimo, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
|
||||
@ -6,7 +6,7 @@ uses
|
||||
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uRORemoteService, uROClient, uROBinMessage,
|
||||
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
uIDataModuleGestorInformes, uDADesigntimeCall, uDataModuleBase,
|
||||
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
||||
uDARemoteDataAdapter, uIntegerListUtils, FactuGES_Intf;
|
||||
@ -33,7 +33,7 @@ type
|
||||
function GenerarInformeListadoFacturasCliPendientes(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 GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
|
||||
function DarListaAnosFacturasCli: TStringList;
|
||||
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
|
||||
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
@ -44,10 +44,12 @@ type
|
||||
function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS DE PROVEEDOR
|
||||
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;
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant): Binary;
|
||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): 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; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): 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;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
function DarListaAnosFacturasProv: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
@ -63,7 +65,7 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
Dialogs, DataAbstract4_Intf;
|
||||
Dialogs;
|
||||
|
||||
{ TdmPresupuestos }
|
||||
|
||||
@ -122,10 +124,11 @@ begin
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeBeneficiosGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
@ -142,10 +145,11 @@ end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeFacturasProvGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; Const NTop: Variant): Binary;
|
||||
const ListaIDProveedores: TIntegerArray; Const NTop: Variant;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeFacturasProvGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdProveedores, NTop);
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeFacturasProvGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdProveedores, NTop, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
@ -170,10 +174,11 @@ end;
|
||||
function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAProveedores(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAProveedores(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
@ -206,10 +211,11 @@ function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
@ -218,10 +224,12 @@ function TDataModuleGestorInformes.GenerarInformeListadoFacturasProvPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray;
|
||||
const ListaNombreTiposGasto: StringArray): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -10,6 +10,10 @@
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
||||
<Projects Include="Controller\GestorInformes_controller.dproj" />
|
||||
<Projects Include="Data\GestorInformes_data.dproj" />
|
||||
<Projects Include="Model\GestorInformes_model.dproj" />
|
||||
@ -121,14 +125,50 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view:Clean">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Clean">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_data">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_data:Clean">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_data:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_model">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_model:Clean">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_model:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FactuGES;FactuGES_Server" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;FacturasProveedor_controller;FacturasProveedor_data;FacturasProveedor_model" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_data:Clean;FacturasProveedor_model:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;FacturasProveedor_controller:Make;FacturasProveedor_data:Make;FacturasProveedor_model:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -3,7 +3,8 @@ unit uIDataModuleGestorInformes;
|
||||
interface
|
||||
|
||||
uses
|
||||
uROTypes, Classes, FactuGES_Intf;
|
||||
uROTypes, Classes, FactuGES_Intf,
|
||||
{Used RODLs:} DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
IDataModuleGestorInformes = interface
|
||||
@ -23,7 +24,7 @@ type
|
||||
function GenerarInformeListadoFacturasCliPendientes(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 GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
|
||||
function DarListaAnosFacturasCli: TStringList;
|
||||
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
|
||||
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
@ -34,11 +35,11 @@ type
|
||||
function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS DE PROVEEDOR
|
||||
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;
|
||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): 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; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): 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; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant): Binary;
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
function DarListaAnosFacturasProv: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
|
||||
function DarListaAnosFacturasCli: StringArray;
|
||||
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
|
||||
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
|
||||
|
||||
//MODULO RECIBOS CLIENTE
|
||||
@ -61,11 +61,12 @@ type
|
||||
function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
//MODULO FACTURAS PROVEEDOR
|
||||
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;
|
||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): 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; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): 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;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
function DarListaAnosFacturasProv: StringArray;
|
||||
|
||||
//MODULO RECIBOS PROVEEDOR
|
||||
@ -124,13 +125,14 @@ begin
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeBeneficiosGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
|
||||
Result := AReportGenerator.GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
@ -152,13 +154,14 @@ end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeFacturasProvGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
|
||||
const ListaIDProveedores: TIntegerArray; const TopN: Integer;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeFacturasGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDProveedores, TopN);
|
||||
Result := AReportGenerator.GenerarInformeFacturasGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDProveedores, TopN, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
@ -192,13 +195,14 @@ end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
const Desglosado: Boolean; const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeIVA(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeIVA(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
@ -238,13 +242,14 @@ function TsrvGestorInformes.GenerarInformeListadoFacturasProv(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio, FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
@ -254,13 +259,15 @@ function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const FechaVenInicio, FechaVenFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
const ImporteMinimo: Currency): Binary;
|
||||
const ImporteMinimo: Currency;
|
||||
const ListaIDTiposGasto: TIntegerArray;
|
||||
const ListaNombreTiposGasto: StringArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
|
||||
Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -67,7 +67,12 @@ requires
|
||||
cxDataD11,
|
||||
dxCoreD11,
|
||||
fqb110,
|
||||
bdertl;
|
||||
bdertl,
|
||||
FacturasProveedor_model,
|
||||
FacturasProveedor_controller,
|
||||
DataAbstract_Core_D11,
|
||||
dsnap,
|
||||
adortl;
|
||||
|
||||
contains
|
||||
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
|
||||
@ -94,6 +99,7 @@ contains
|
||||
uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm},
|
||||
uEditorInformeBeneficiosReportGrafComp in 'uEditorInformeBeneficiosReportGrafComp.pas' {fEditorInformeBeneficiosReportGrafComp: TForm},
|
||||
uEditorInformePresupuestosClienteReportGrafComp in 'uEditorInformePresupuestosClienteReportGrafComp.pas' {fEditorInformePresupuestosClienteReportGrafComp: TForm},
|
||||
uEditorInformeIVAComparativoReport in 'uEditorInformeIVAComparativoReport.pas' {fEditorInformeIVAComparativoReport: TForm};
|
||||
uEditorInformeIVAComparativoReport in 'uEditorInformeIVAComparativoReport.pas' {fEditorInformeIVAComparativoReport: TForm},
|
||||
uViewFiltroTipoGasto in 'uViewFiltroTipoGasto.pas' {frViewFiltroTipoGasto: TFrame};
|
||||
|
||||
end.
|
||||
|
||||
@ -31,56 +31,55 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<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="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_view.dpk</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="GestorInformes_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\bdertl.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="..\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\fqb110.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_D11R.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="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="bdertl.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="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="fqb110.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_D11R.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="uEditorInformeBase.pas">
|
||||
<Form>fEditorInformeBase</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
@ -166,6 +165,10 @@
|
||||
<Form>frViewFiltroProveedores</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewFiltroTipoGasto.pas">
|
||||
<Form>frViewFiltroTipoGasto</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewIntervaloComparativo.pas">
|
||||
<Form>frViewIntervaloComparativo</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -178,6 +181,12 @@
|
||||
<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
|
||||
|
||||
@ -1,29 +1,29 @@
|
||||
inherited fEditorInformeBase: TfEditorInformeBase
|
||||
Caption = ''
|
||||
ClientHeight = 483
|
||||
ClientWidth = 787
|
||||
ExplicitWidth = 795
|
||||
ExplicitHeight = 517
|
||||
ClientHeight = 509
|
||||
ClientWidth = 813
|
||||
ExplicitWidth = 821
|
||||
ExplicitHeight = 543
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 787
|
||||
Width = 813
|
||||
ExplicitWidth = 787
|
||||
inherited Image1: TImage
|
||||
Left = 760
|
||||
Left = 786
|
||||
ExplicitLeft = 760
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 787
|
||||
ExplicitWidth = 787
|
||||
Width = 813
|
||||
ExplicitWidth = 813
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 787
|
||||
ExplicitWidth = 813
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 464
|
||||
Width = 787
|
||||
Top = 490
|
||||
Width = 813
|
||||
ExplicitTop = 464
|
||||
ExplicitWidth = 787
|
||||
end
|
||||
@ -31,14 +31,15 @@ inherited fEditorInformeBase: TfEditorInformeBase
|
||||
Left = 0
|
||||
Top = 102
|
||||
Width = 7
|
||||
Height = 362
|
||||
Height = 388
|
||||
Position = dpLeft
|
||||
ExplicitHeight = 362
|
||||
end
|
||||
object TBXMultiDockDerecho: TTBXMultiDock [4]
|
||||
Left = 633
|
||||
Left = 659
|
||||
Top = 102
|
||||
Width = 154
|
||||
Height = 362
|
||||
Height = 388
|
||||
Position = dpRight
|
||||
object pnlParametros: TTBXDockablePanel
|
||||
Left = 0
|
||||
@ -57,7 +58,7 @@ inherited fEditorInformeBase: TfEditorInformeBase
|
||||
TabOrder = 0
|
||||
object TBXDockablePanel1: TTBXDockablePanel
|
||||
Left = 0
|
||||
Top = 196
|
||||
Top = 222
|
||||
MaxClientHeight = 50
|
||||
Align = alBottom
|
||||
Caption = 'TBXDockablePanel1'
|
||||
|
||||
@ -171,7 +171,7 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 230
|
||||
Top = 356
|
||||
Width = 188
|
||||
Height = 195
|
||||
Align = alTop
|
||||
@ -184,7 +184,7 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
ReadOnly = False
|
||||
ExplicitTop = 230
|
||||
ExplicitTop = 356
|
||||
ExplicitWidth = 188
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
@ -203,6 +203,31 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
|
||||
Width = 152
|
||||
end
|
||||
end
|
||||
inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
|
||||
Left = 0
|
||||
Top = 230
|
||||
Width = 188
|
||||
Height = 126
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 230
|
||||
ExplicitWidth = 188
|
||||
inherited TBXLabel1: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited cbTipoGasto: TcxLookupComboBox
|
||||
ExplicitWidth = 127
|
||||
Width = 127
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -15,24 +15,30 @@ uses
|
||||
dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeBeneficiosReportGrafComp,
|
||||
uViewIntervaloComparativo, uViewFiltroClientes;
|
||||
uViewIntervaloComparativo, uViewFiltroClientes, uViewFiltroTipoGasto,
|
||||
DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
TfEditorInformeBeneficiosReportGrafComp = class(TfEditorInformeBase, IEditorInformeBeneficiosReportGrafComp)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
|
||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||
frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
FListaIDTiposGasto: TIntegerArray;
|
||||
FListaNombreTiposGasto: StringArray;
|
||||
function GetIntervalo: Variant;
|
||||
function GetAno1: Variant;
|
||||
function GetAno2: Variant;
|
||||
function GetSerie: variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetNTop: Variant;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
@ -46,6 +52,8 @@ type
|
||||
property Serie: Variant read GetSerie;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property NTop: Variant read GetNTop;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
@ -70,11 +78,15 @@ constructor TfEditorInformeBeneficiosReportGrafComp.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDClientes := TIntegerArray.Create;
|
||||
FListaIDTiposGasto := TIntegerArray.Create;
|
||||
FListaNombreTiposGasto := StringArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeBeneficiosReportGrafComp.Destroy;
|
||||
begin
|
||||
FListaIDClientes.Free;
|
||||
FListaIDTiposGasto.Free;
|
||||
FListaNombreTiposGasto.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -108,6 +120,24 @@ begin
|
||||
Result := FListaIDClientes;
|
||||
end;
|
||||
|
||||
function TfEditorInformeBeneficiosReportGrafComp.GetListaIDTiposGasto: TIntegerArray;
|
||||
begin
|
||||
FListaIDTiposGasto.Clear;
|
||||
if frViewFiltroTipoGasto1.rdUnTipoGasto.Checked then
|
||||
FListaIDTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoID);
|
||||
|
||||
Result := FListaIDTiposGasto;
|
||||
end;
|
||||
|
||||
function TfEditorInformeBeneficiosReportGrafComp.GetListaNombreTiposGasto: StringArray;
|
||||
begin
|
||||
FListaNombreTiposGasto.Clear;
|
||||
if Assigned(frViewFiltroTipoGasto1.rdUnTipoGasto) then
|
||||
FListaNombreTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoNombre);
|
||||
|
||||
Result := FListaNombreTiposGasto;
|
||||
end;
|
||||
|
||||
function TfEditorInformeBeneficiosReportGrafComp.GetNTop: Variant;
|
||||
begin
|
||||
Result := frViewIntervaloComparativo1.stopN.Value;
|
||||
@ -130,7 +160,9 @@ begin
|
||||
Intervalo,
|
||||
Ano1,
|
||||
Ano2,
|
||||
Serie);
|
||||
Serie,
|
||||
ListaIDTiposGasto,
|
||||
ListaNombreTiposGasto);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
|
||||
@ -1,24 +1,24 @@
|
||||
inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFacturasProveedorPendientesReport
|
||||
Caption = 'fEditorInformeFacturasProveedorPendientesReport'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
ClientHeight = 871
|
||||
ClientWidth = 970
|
||||
ExplicitWidth = 978
|
||||
ExplicitHeight = 905
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
Width = 970
|
||||
ExplicitWidth = 970
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
Left = 943
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
Width = 970
|
||||
ExplicitWidth = 970
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
ExplicitWidth = 970
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
@ -30,30 +30,30 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
Top = 852
|
||||
Width = 970
|
||||
ExplicitTop = 852
|
||||
ExplicitWidth = 970
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
Height = 750
|
||||
ExplicitHeight = 750
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
Left = 750
|
||||
Width = 220
|
||||
Height = 750
|
||||
ExplicitLeft = 750
|
||||
ExplicitWidth = 220
|
||||
ExplicitHeight = 750
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
DockedWidth = 216
|
||||
ExplicitWidth = 220
|
||||
ExplicitHeight = 734
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Width = 216
|
||||
Height = 240
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -64,13 +64,13 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
ExplicitWidth = 216
|
||||
ExplicitHeight = 240
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
Width = 210
|
||||
ExplicitWidth = 210
|
||||
inherited Label3: TLabel
|
||||
Width = 172
|
||||
Width = 200
|
||||
Caption = 'Rango de fechas de factura:'
|
||||
ExplicitWidth = 138
|
||||
end
|
||||
@ -81,8 +81,8 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 76
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
ExplicitWidth = 125
|
||||
Width = 125
|
||||
end
|
||||
inherited edtFechaIni: TcxDateEdit
|
||||
Left = 76
|
||||
@ -91,27 +91,27 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 76
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
ExplicitWidth = 125
|
||||
Width = 125
|
||||
end
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 170
|
||||
Width = 170
|
||||
ExplicitWidth = 198
|
||||
Width = 198
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
Width = 216
|
||||
ExplicitWidth = 216
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
Width = 210
|
||||
ExplicitWidth = 210
|
||||
inherited Label4: TLabel
|
||||
Width = 172
|
||||
Width = 200
|
||||
end
|
||||
inherited edtFechaVenFin: TcxDateEdit
|
||||
Left = 76
|
||||
@ -120,8 +120,8 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 76
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
ExplicitWidth = 125
|
||||
Width = 125
|
||||
end
|
||||
inherited edtFechaVenIni: TcxDateEdit
|
||||
Left = 76
|
||||
@ -130,29 +130,29 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 76
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
ExplicitWidth = 125
|
||||
Width = 125
|
||||
end
|
||||
inherited cbPeriodo2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 170
|
||||
Width = 170
|
||||
ExplicitWidth = 198
|
||||
Width = 198
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
Top = 584
|
||||
TabOrder = 2
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
ExplicitTop = 584
|
||||
ExplicitWidth = 216
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Width = 210
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
@ -161,15 +161,15 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitWidth = 210
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 77
|
||||
Width = 216
|
||||
Height = 88
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -181,15 +181,16 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
ExplicitWidth = 216
|
||||
ExplicitHeight = 88
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
Width = 216
|
||||
ExplicitWidth = 216
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
Width = 210
|
||||
ExplicitTop = 43
|
||||
ExplicitWidth = 210
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -200,9 +201,9 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 317
|
||||
Width = 188
|
||||
Height = 146
|
||||
Top = 328
|
||||
Width = 216
|
||||
Height = 162
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -213,24 +214,49 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 317
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
ExplicitTop = 328
|
||||
ExplicitWidth = 216
|
||||
ExplicitHeight = 162
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
Width = 216
|
||||
ExplicitWidth = 216
|
||||
end
|
||||
inherited bElegirProveedor: TBitBtn
|
||||
Width = 108
|
||||
ExplicitWidth = 108
|
||||
Width = 136
|
||||
ExplicitWidth = 136
|
||||
end
|
||||
inherited edtProveedor: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 141
|
||||
Width = 141
|
||||
ExplicitWidth = 169
|
||||
Width = 169
|
||||
end
|
||||
end
|
||||
inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
|
||||
Left = 0
|
||||
Top = 490
|
||||
Width = 216
|
||||
Height = 126
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 490
|
||||
ExplicitWidth = 216
|
||||
inherited TBXLabel1: TTBXLabel
|
||||
Width = 216
|
||||
ExplicitWidth = 216
|
||||
end
|
||||
inherited cbTipoGasto: TcxLookupComboBox
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -11,11 +11,12 @@ uses
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme,
|
||||
uIEditorInformeFacturasProveedorPendientesReport;
|
||||
uIEditorInformeFacturasProveedorPendientesReport, uViewFiltroTipoGasto,
|
||||
{Used RODLs:} DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasProveedorPendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorPendientesReport)
|
||||
@ -23,9 +24,12 @@ type
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroProveedores1: TfrViewFiltroProveedores;
|
||||
frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
FListaIDTiposGasto: TIntegerArray;
|
||||
FListaNombreTiposGasto: StringArray;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
@ -33,6 +37,8 @@ type
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
@ -44,6 +50,8 @@ type
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
@ -68,11 +76,15 @@ constructor TfEditorInformeFacturasProveedorPendientesReport.Create(AOwner: TCom
|
||||
begin
|
||||
inherited;
|
||||
FListaIDProveedores := TIntegerArray.Create;
|
||||
FListaIDTiposGasto := TIntegerArray.Create;
|
||||
FListaNombreTiposGasto := StringArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasProveedorPendientesReport.Destroy;
|
||||
begin
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDTiposGasto.Free;
|
||||
FListaNombreTiposGasto.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -129,6 +141,24 @@ begin
|
||||
Result := FListaIDProveedores;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetListaIDTiposGasto: TIntegerArray;
|
||||
begin
|
||||
FListaIDTiposGasto.Clear;
|
||||
if frViewFiltroTipoGasto1.rdUnTipoGasto.Checked then
|
||||
FListaIDTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoID);
|
||||
|
||||
Result := FListaIDTiposGasto;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorPendientesReport.GetListaNombreTiposGasto: StringArray;
|
||||
begin
|
||||
FListaNombreTiposGasto.Clear;
|
||||
if Assigned(frViewFiltroTipoGasto1.rdUnTipoGasto) then
|
||||
FListaNombreTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoNombre);
|
||||
|
||||
Result := FListaNombreTiposGasto;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorPendientesReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
@ -143,7 +173,9 @@ begin
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
ImporteMinimo,
|
||||
ListaIDTiposGasto,
|
||||
ListaNombreTiposGasto);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
|
||||
@ -165,9 +165,9 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 240
|
||||
Top = 366
|
||||
Width = 188
|
||||
Height = 77
|
||||
Height = 88
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -178,15 +178,16 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 240
|
||||
ExplicitTop = 366
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
ExplicitHeight = 88
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitTop = 43
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -198,9 +199,9 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 317
|
||||
Top = 454
|
||||
Width = 188
|
||||
Height = 146
|
||||
Height = 162
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -211,9 +212,12 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 317
|
||||
ExplicitTop = 454
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
ExplicitHeight = 162
|
||||
DesignSize = (
|
||||
188
|
||||
162)
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
@ -231,6 +235,31 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
|
||||
Left = 0
|
||||
Top = 240
|
||||
Width = 188
|
||||
Height = 126
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 240
|
||||
ExplicitWidth = 188
|
||||
inherited TBXLabel1: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited cbTipoGasto: TcxLookupComboBox
|
||||
ExplicitWidth = 127
|
||||
Width = 127
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -14,7 +14,8 @@ uses
|
||||
uViewBase, uViewPeriodoFechas,
|
||||
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport;
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport,
|
||||
uViewFiltroTipoGasto, DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasProveedorReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReport)
|
||||
@ -22,9 +23,12 @@ type
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewFiltroImportes1: TfrViewFiltroImportes;
|
||||
frViewFiltroProveedores1: TfrViewFiltroProveedores;
|
||||
frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
FListaIDTiposGasto: TIntegerArray;
|
||||
FListaNombreTiposGasto: StringArray;
|
||||
function GetFechaFin: Variant;
|
||||
function GetFechaInicio: Variant;
|
||||
function GetFechaVenFin: Variant;
|
||||
@ -32,6 +36,8 @@ type
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetImporteMinimo: Currency;
|
||||
function GetDesglosadoProveedor: Boolean;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
@ -43,6 +49,8 @@ type
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
|
||||
property ImporteMinimo: Currency read GetImporteMinimo;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
@ -67,11 +75,15 @@ constructor TfEditorInformeFacturasProveedorReport.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDProveedores := TIntegerArray.Create;
|
||||
FListaIDTiposGasto := TIntegerArray.Create;
|
||||
FListaNombreTiposGasto := StringArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasProveedorReport.Destroy;
|
||||
begin
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDTiposGasto.Free;
|
||||
FListaNombreTiposGasto.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -128,6 +140,24 @@ begin
|
||||
Result := FListaIDProveedores;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetListaIDTiposGasto: TIntegerArray;
|
||||
begin
|
||||
FListaIDTiposGasto.Clear;
|
||||
if frViewFiltroTipoGasto1.rdUnTipoGasto.Checked then
|
||||
FListaIDTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoID);
|
||||
|
||||
Result := FListaIDTiposGasto;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReport.GetListaNombreTiposGasto: StringArray;
|
||||
begin
|
||||
FListaNombreTiposGasto.Clear;
|
||||
if Assigned(frViewFiltroTipoGasto1.rdUnTipoGasto) then
|
||||
FListaNombreTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoNombre);
|
||||
|
||||
Result := FListaNombreTiposGasto;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorReport.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
@ -142,7 +172,9 @@ begin
|
||||
FechaVenFin,
|
||||
ListaIDProveedores,
|
||||
DesglosadoProveedor,
|
||||
ImporteMinimo);
|
||||
ImporteMinimo,
|
||||
ListaIDTiposGasto,
|
||||
ListaNombreTiposGasto);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
|
||||
@ -1,24 +1,24 @@
|
||||
inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturasProveedorReportGrafComp
|
||||
Caption = 'fEditorInformeFacturasProveedorReportGrafComp'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
ClientHeight = 671
|
||||
ClientWidth = 958
|
||||
ExplicitWidth = 966
|
||||
ExplicitHeight = 705
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
Width = 958
|
||||
ExplicitWidth = 958
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
Left = 931
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
Width = 958
|
||||
ExplicitWidth = 958
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
ExplicitWidth = 958
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
@ -30,29 +30,30 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
Top = 652
|
||||
Width = 958
|
||||
ExplicitTop = 652
|
||||
ExplicitWidth = 958
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
Height = 550
|
||||
ExplicitHeight = 550
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Left = 766
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
Height = 550
|
||||
ExplicitLeft = 766
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
ExplicitHeight = 550
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
DockPos = -136
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
ExplicitHeight = 534
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
ExplicitTop = 368
|
||||
Top = 384
|
||||
ExplicitTop = 384
|
||||
ExplicitWidth = 188
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
@ -161,7 +162,7 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 230
|
||||
Top = 359
|
||||
Width = 188
|
||||
Height = 195
|
||||
Align = alTop
|
||||
@ -174,8 +175,9 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
ReadOnly = False
|
||||
ExplicitTop = 230
|
||||
ExplicitTop = 359
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 195
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
@ -193,6 +195,32 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
|
||||
Width = 152
|
||||
end
|
||||
end
|
||||
inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
|
||||
Left = 0
|
||||
Top = 230
|
||||
Width = 188
|
||||
Height = 129
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 230
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 129
|
||||
inherited TBXLabel1: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited cbTipoGasto: TcxLookupComboBox
|
||||
ExplicitWidth = 126
|
||||
Width = 126
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -15,23 +15,29 @@ uses
|
||||
dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReportGrafComp,
|
||||
uViewIntervaloComparativo, uViewFiltroProveedores;
|
||||
uViewIntervaloComparativo, uViewFiltroProveedores, uViewFiltroTipoGasto,
|
||||
DataAbstract4_Intf;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasProveedorReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReportGrafComp)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
|
||||
frViewFiltroProveedores1: TfrViewFiltroProveedores;
|
||||
frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
FListaIDTiposGasto: TIntegerArray;
|
||||
FListaNombreTiposGasto: StringArray;
|
||||
function GetIntervalo: Variant;
|
||||
function GetAno1: Variant;
|
||||
function GetAno2: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetNTop: Variant;
|
||||
function GetListaIDTiposGasto: TIntegerArray;
|
||||
function GetListaNombreTiposGasto: StringArray;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
@ -44,6 +50,8 @@ type
|
||||
property Ano2: Variant read GetAno2;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property NTop: Variant read GetNTop;
|
||||
property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
|
||||
property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
@ -68,11 +76,15 @@ constructor TfEditorInformeFacturasProveedorReportGrafComp.Create(AOwner: TCompo
|
||||
begin
|
||||
inherited;
|
||||
FListaIDProveedores := TIntegerArray.Create;
|
||||
FListaIDTiposGasto := TIntegerArray.Create;
|
||||
FListaNombreTiposGasto := StringArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasProveedorReportGrafComp.Destroy;
|
||||
begin
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDTiposGasto.Free;
|
||||
FListaNombreTiposGasto.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -107,6 +119,24 @@ begin
|
||||
Result := FListaIDProveedores;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReportGrafComp.GetListaIDTiposGasto: TIntegerArray;
|
||||
begin
|
||||
FListaIDTiposGasto.Clear;
|
||||
if frViewFiltroTipoGasto1.rdUnTipoGasto.Checked then
|
||||
FListaIDTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoID);
|
||||
|
||||
Result := FListaIDTiposGasto;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReportGrafComp.GetListaNombreTiposGasto: StringArray;
|
||||
begin
|
||||
FListaNombreTiposGasto.Clear;
|
||||
if Assigned(frViewFiltroTipoGasto1.rdUnTipoGasto) then
|
||||
FListaNombreTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoNombre);
|
||||
|
||||
Result := FListaNombreTiposGasto;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReportGrafComp.GetNTop: Variant;
|
||||
begin
|
||||
Result := frViewIntervaloComparativo1.stopN.Value;
|
||||
@ -125,7 +155,9 @@ begin
|
||||
Ano1,
|
||||
Ano2,
|
||||
ListaIDProveedores,
|
||||
NTop);
|
||||
NTop,
|
||||
ListaIDTiposGasto,
|
||||
ListaNombreTiposGasto);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
|
||||
@ -160,9 +160,9 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
end
|
||||
inline frViewFiltroImportes1: TfrViewFiltroImportes
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 262
|
||||
Width = 188
|
||||
Height = 77
|
||||
Height = 88
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -173,15 +173,16 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitTop = 262
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 77
|
||||
ExplicitHeight = 88
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitTop = 43
|
||||
ExplicitWidth = 182
|
||||
inherited eImporte: TcxSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -193,9 +194,9 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 213
|
||||
Top = 350
|
||||
Width = 188
|
||||
Height = 146
|
||||
Height = 162
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -206,9 +207,9 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 350
|
||||
ExplicitWidth = 188
|
||||
ExplicitHeight = 146
|
||||
ExplicitHeight = 162
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
@ -226,6 +227,31 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
|
||||
Width = 141
|
||||
end
|
||||
end
|
||||
inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
|
||||
Left = 0
|
||||
Top = 136
|
||||
Width = 188
|
||||
Height = 126
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 136
|
||||
ExplicitWidth = 188
|
||||
inherited TBXLabel1: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited cbTipoGasto: TcxLookupComboBox
|
||||
ExplicitWidth = 127
|
||||
Width = 127
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user