Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 3.6.0 Percio punto a nivel de ficha de cliente e informes de iva de proveedor se pone tipo de operacion

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@159 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2022-03-15 16:08:43 +00:00
parent 80e2878fd5
commit fa3175cd46
43 changed files with 2518 additions and 383 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

21
Source/Base/Base.dproj
View File

@ -51,27 +51,6 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

74
Source/Base/Configuracion/uTypesConstConfiguration.pas Normal file
View File

@ -0,0 +1,74 @@
unit uTypesConstConfiguration;
interface
const
CTE_COCINA = 'Cocina';
CTE_BANO = 'Baño';
CTE_ARMARIO = 'Armarios';
CTE_ELECTRODOMESTICO = 'Electrodomésticos';
CTE_VARIOS = 'Varios';
CTE_FORMA_PAGO_COCINA = 'FORMA_PAGO_COCINA';
CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA';
CTE_OBSERVACIONES_COCINA = 'OBSERVACIONES_COCINA';
CTE_CONDICIONES_COCINA = 'CONDICIONES_COCINA';
CTE_FORMA_PAGO_ARMARIO = 'FORMA_PAGO_ARMARIO';
CTE_PLAZOS_ENTREGA_ARMARIO = 'PLAZOS_ENTREGA_ARMARIO';
CTE_OBSERVACIONES_ARMARIO = 'OBSERVACIONES_ARMARIO';
CTE_CONDICIONES_ARMARIO = 'CONDICIONES_ARMARIO';
CTE_FORMA_PAGO_BANO = 'FORMA_PAGO_BANO';
CTE_PLAZOS_ENTREGA_BANO = 'PLAZOS_ENTREGA_BANO';
CTE_OBSERVACIONES_BANO = 'OBSERVACIONES_BANO';
CTE_CONDICIONES_BANO = 'CONDICIONES_BANO';
CTE_FORMA_PAGO_ELECTRODOMESTICO = 'FORMA_PAGO_ELECTRODOMESTICO';
CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO = 'PLAZOS_ENTREGA_ELECTRODOMESTICO';
CTE_OBSERVACIONES_ELECTRODOMESTICO = 'OBSERVACIONES_ELECTRODOMESTICO';
CTE_CONDICIONES_ELECTRODOMESTICO = 'CONDICIONES_ELECTRODOMESTICO';
CTE_FORMA_PAGO_VARIOS = 'FORMA_PAGO_VARIOS';
CTE_PLAZOS_ENTREGA_VARIOS = 'PLAZOS_ENTREGA_VARIOS';
CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS';
CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS';
CTE_FORMA_PAGO_OBRA = 'FORMA_PAGO_OBRA';
CTE_PLAZOS_ENTREGA_OBRA = 'PLAZOS_ENTREGA_OBRA';
CTE_OBSERVACIONES_OBRA = 'OBSERVACIONES_OBRA';
CTE_CONDICIONES_OBRA = 'CONDICIONES_OBRA';
CTE_FORMA_PAGO_PRESUPUESTOS = 'FORMA_PAGO_PRESUPUESTOS';
CTE_PLAZOS_ENTREGA_PRESUPUESTOS = 'PLAZOS_ENTREGA_PRESUPUESTOS';
CTE_OBSERVACIONES_PRESUPUESTOS = 'OBSERVACIONES_PRESUPUESTOS';
CTE_CONDICIONES_PRESUPUESTOS = 'CONDICIONES_PRESUPUESTOS';
CTE_FORMA_PAGO_CONTRATOS = 'FORMA_PAGO_CONTRATOS';
CTE_PLAZOS_ENTREGA_CONTRATOS = 'PLAZOS_ENTREGA_CONTRATOS';
CTE_OBSERVACIONES_CONTRATOS = 'OBSERVACIONES_CONTRATOS';
CTE_CONDICIONES_CONTRATOS = 'CONDICIONES_CONTRATOS';
CTE_FORMA_PAGO_ALBARANES = 'FORMA_PAGO_ALBARANES';
CTE_PLAZOS_ENTREGA_ALBARANES = 'PLAZOS_ENTREGA_ALBARANES';
CTE_OBSERVACIONES_ALBARANES = 'OBSERVACIONES_ALBARANES';
CTE_CONDICIONES_ALBARANES = 'CONDICIONES_ALBARANES';
CTE_FORMA_PAGO_FACTURAS = 'FORMA_PAGO_FACTURAS';
CTE_PLAZOS_ENTREGA_FACTURAS = 'PLAZOS_ENTREGA_FACTURAS';
CTE_OBSERVACIONES_FACTURAS = 'OBSERVACIONES_FACTURAS';
CTE_CONDICIONES_FACTURAS = 'CONDICIONES_FACTURAS';
CTE_FORMA_PAGO_PEDIDOS = 'FORMA_PAGO_PEDIDOS';
CTE_PLAZOS_ENTREGA_PEDIDOS = 'PLAZOS_ENTREGA_PEDIDOS';
CTE_OBSERVACIONES_PEDIDOS = 'OBSERVACIONES_PEDIDOS';
CTE_CONDICIONES_PEDIDOS = 'CONDICIONES_PEDIDOS';
type
TEnumAlmacen = (teXML, teBD);
TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teVarios);
implementation
end.

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,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">3</VersionInfo><VersionInfo Name="MinorVer">5</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">3.5.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">3.5.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<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">3</VersionInfo><VersionInfo Name="MinorVer">6</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">3.6.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">3.6.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

70
Source/Informes/1/InformeIVAProveedores.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" 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="44243,9291393519" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C6500000020446174615365743D22527074466163747572617350726F766565646F722E6672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C7300000020446174615365743D22527074466163747572617350726F766565646F722E6672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2200010C7B00000020446174615365743D22527074466163747572617350726F766565646F722E6672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxReport Version="4.8.11" 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="44634,8400124769" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2200010C6600000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="138" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -13,46 +13,48 @@
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" 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 ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="214" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="110" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="10" ParentFont="False" VAlign="vaCenter" Text="N. fac. proveedor"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="264" Top="25" Width="230" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="494" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="634" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imp."/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="844" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IVA"/>
<TfrxMemoView Name="Memo52" Left="914,26771654" Top="25" Width="94,11023622" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="564" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="10" ParentFont="False" VAlign="vaCenter" Text="N. fac. prov."/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="325" Top="25" Width="200" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="525" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="665" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imp."/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="865" Top="25" Width="60" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IVA"/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="925" Top="25" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="595" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="3,77953" Width="485,37013" Height="16,77953" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="110" Top="25" Width="79" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="N. factura"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="809" Top="25" Width="35" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="704" Top="25" Width="35" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IRPF"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="739" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IRPF"/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="189" Top="25" Width="75" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="180" Top="25" Width="75" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="N. factura"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="830" Top="25" Width="35" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="735" Top="25" Width="35" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IRPF"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="770" Top="25" Width="60" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IRPF"/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="255" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo72" Align="baLeft" Left="90" Top="25" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Tipo operación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="274" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="110" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="264" Top="0" Width="230" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="494" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="564" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="634" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="844" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="110" Top="0" Width="79" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="704" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IRPF&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="809" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="739" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;]"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="189" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REF_PROVEEDOR&#34;]"/>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="274" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="325" Top="0" Width="200" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="525" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="595" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="665" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="865" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="925" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="180" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="735" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IRPF&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="830" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="770" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;]"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="255" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REF_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo73" Align="baLeft" Left="90" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TIPO_OPERACION&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="311" Width="1009,13451">
<TfrxMemoView Name="Memo6" Align="baLeft" Left="914" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="809" Top="0,37774772" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="634" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="634" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="4" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo47" Align="baLeft" Left="704" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo6" Align="baLeft" Left="925" Top="0,37774772" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="830" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="665" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="665" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="4" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo47" Align="baLeft" Left="735" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="30" Left="0" Top="352" Width="1009,13451">
<TfrxMemoView Name="Memo23" Left="0" Top="10" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" Frame.Color="8421504" ParentFont="False" Text="Resumen por proveedor"/>
</TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="437" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="190" Top="0" Width="245" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="437" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="190" Top="0" Width="245" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo37" Left="0" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo38" Align="baLeft" Left="100" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="625" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
@ -85,7 +87,7 @@
<TfrxMemoView Name="Memo60" Align="baLeft" Left="0" Top="0" Width="300" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="10" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo61" Align="baLeft" Left="395" Top="0" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IRPF"/>
</TfrxGroupHeader>
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="604" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturasTipoResumen" DataSetName="frxDBInformeListadoFacturasTipoResumen" RowCount="0">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="604" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasTipoResumen" DataSetName="frxDBInformeListadoFacturasTipoResumen" RowCount="0">
<TfrxMemoView Name="Memo62" Align="baLeft" Left="0" Top="0" Width="300" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo63" Align="baLeft" Left="300" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo64" Align="baLeft" Left="490" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;IMPORTE_IVA&#34;]"/>

68
Source/Informes/1/InformeIVAProveedoresDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" 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="44243,9515469444" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C6500000020446174615365743D22527074466163747572617350726F766565646F722E6672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C7300000020446174615365743D22527074466163747572617350726F766565646F722E6672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2200010C7B00000020446174615365743D22527074466163747572617350726F766565646F722E6672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxReport Version="4.8.11" 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="44634,5091719097" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2200010C6600000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="139" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
@ -15,31 +15,32 @@
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="215" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo7" Left="7,55906" Top="3,77953" Width="485,37013" Height="16,77953" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="335" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="110" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="264" Top="0" Width="230" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="494" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="564" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="634" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="844" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="110" Top="0" Width="79" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="704" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IRPF&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="809" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="739" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;]"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="189" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REF_PROVEEDOR&#34;]"/>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="335" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="339" Top="0" Width="190" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="529" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="599" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="669" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="869" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="929" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="185" Top="0" Width="79" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="739" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IRPF&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="834" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="774" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;]"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="264" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REF_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo74" Align="baLeft" Left="85" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TIPO_OPERACION&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="372" Width="1009,14033677542">
<TfrxMemoView Name="Memo6" Align="baLeft" Left="914" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="809" Top="0,37774772" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="634" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="634" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="4" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo47" Align="baLeft" Left="704" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo6" Align="baLeft" Left="930" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="835" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="670" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="670" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="4" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo47" Align="baLeft" Left="740" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="7" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="30" Left="0" Top="453" Width="1009,14033677542">
<TfrxMemoView Name="Memo23" Left="0" Top="10" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" Frame.Color="8421504" ParentFont="False" Text="Resumen por proveedor"/>
</TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="538" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="538" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="190" Top="0" Width="245" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo37" Left="0" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo38" Align="baLeft" Left="100" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/>
@ -73,7 +74,7 @@
<TfrxMemoView Name="Memo60" Align="baLeft" Left="0" Top="0" Width="300" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="10" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo61" Align="baLeft" Left="395" Top="0" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IRPF"/>
</TfrxGroupHeader>
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="705" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturasTipoResumen" DataSetName="frxDBInformeListadoFacturasTipoResumen" RowCount="0">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="705" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasTipoResumen" DataSetName="frxDBInformeListadoFacturasTipoResumen" RowCount="0">
<TfrxMemoView Name="Memo62" Align="baLeft" Left="0" Top="0" Width="300" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo63" Align="baLeft" Left="300" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo64" Align="baLeft" Left="490" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;IMPORTE_IVA&#34;]"/>
@ -93,18 +94,19 @@
</TfrxHeader>
<TfrxGroupHeader Name="GroupHeader3" Height="40" Left="0" Top="275" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;">
<TfrxMemoView Name="Memo72" Left="21" Top="1" Width="485,37013" Height="16,77953" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo27" Left="0" Top="24" Width="110" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="10" ParentFont="False" VAlign="vaCenter" Text="Ref. proveedor"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="264" Top="24" Width="230" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="494" Top="24" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="634" Top="24" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imp."/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="844" Top="24" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IVA"/>
<TfrxMemoView Name="Memo52" Left="914,26771654" Top="24" Width="94,11023622" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="564" Top="24" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="110" Top="24" Width="79" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="809" Top="24" Width="35" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="704" Top="24" Width="35" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IRPF"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="739" Top="24" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IRPF"/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="189" Top="24" Width="75" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo27" Left="0" Top="24" Width="85" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="10" ParentFont="False" VAlign="vaCenter" Text="Ref. proveedor"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="339" Top="24" Width="190" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="529" Top="24" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="669" Top="24" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imp."/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="869" Top="24" Width="60" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IVA"/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="929" Top="24" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="599" Top="24" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="185" Top="24" Width="79" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="834" Top="24" Width="35" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="739" Top="24" Width="35" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IRPF"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="774" Top="24" Width="60" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IRPF"/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="264" Top="24" Width="75" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo73" Align="baLeft" Left="85" Top="24" Width="100" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Tipo operación"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter3" Height="20" Left="0" Top="413" Width="1009,14033677542"/>
</TfrxReportPage>

6
Source/Informes/1/InformeListadoFacturasProveedor.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" 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="44243,9280385532" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C6500000020446174615365743D22527074466163747572617350726F766565646F722E6672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C7300000020446174615365743D22527074466163747572617350726F766565646F722E6672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxReport Version="4.8.11" 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="44634,5030177546" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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">
@ -23,7 +23,7 @@
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Align="baLeft" Left="216" Top="25" Width="84" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="11" ParentFont="False" VAlign="vaCenter" Text="Fecha Vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Align="baLeft" Left="300" Top="0" Width="344" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="644" Top="0" Width="81" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="132" Top="0" Width="84" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
@ -43,7 +43,7 @@
<TfrxHeader Name="Header1" Height="50" Left="0" Top="350" Width="1009,13451">
<TfrxMemoView Name="Memo23" Left="0" Top="31" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por proveedor"/>
</TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="465" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="465" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo24" Left="190" Top="0" Width="250" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo37" Left="0" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo38" Left="100" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/>

72
Source/Informes/InformeIVAProveedores.fr3
View File

File diff suppressed because one or more lines are too long

70
Source/Informes/InformeIVAProveedoresDesglosado.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" 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="44352,5137554167" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C2A00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C3100000020446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxReport Version="4.8.11" 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="44634,6552793981" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2200010C6600000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261735469706F526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="112,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
@ -15,32 +15,33 @@
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="188" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo7" Left="7,55906" Top="3,77953" Width="485,37013" Height="16,77953" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="308" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="110" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="264" Top="0" Width="230" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="494" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="564" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="634" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="844" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="110" Top="0" Width="79" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="704" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IRPF&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="809" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="739" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;]"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="189" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REF_PROVEEDOR&#34;]"/>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="308" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="320" Top="0" Width="200" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="520" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="590" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="660" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="860" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="920" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="175" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="730" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IRPF&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="825" Top="0" Width="35" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="765" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;]"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="250" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REF_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo74" Align="baLeft" Left="85" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TIPO_OPERACION&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="345" Width="1009,14033677542">
<TfrxMemoView Name="Memo6" Align="baLeft" Left="914" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="809" Top="0,37774772" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="634" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="634" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo47" Align="baLeft" Left="704" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo6" Align="baLeft" Left="920" Top="0,37774772" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="825" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="660" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="660" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo47" Align="baLeft" Left="730" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="16250871" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IRPF&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="30" Left="0" Top="426" Width="1009,14033677542">
<TfrxMemoView Name="Memo23" Left="0" Top="10" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" Frame.Color="8421504" ParentFont="False" Text="Resumen por proveedor"/>
</TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="511" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="190" Top="0" Width="245" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="511" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="190" Top="0" Width="245" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo37" Left="0" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo38" Align="baLeft" Left="100" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="625" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
@ -73,7 +74,7 @@
<TfrxMemoView Name="Memo60" Align="baLeft" Left="0" Top="0" Width="300" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo61" Align="baLeft" Left="395" Top="0" Width="95" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IRPF"/>
</TfrxGroupHeader>
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="678" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoFacturasTipoResumen" RowCount="0">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="678" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasTipoResumen" DataSetName="frxDBInformeListadoFacturasTipoResumen" RowCount="0">
<TfrxMemoView Name="Memo62" Align="baLeft" Left="0" Top="0" Width="300" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo63" Align="baLeft" Left="300" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo64" Align="baLeft" Left="490" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasTipoResumen.&#34;IMPORTE_IVA&#34;]"/>
@ -93,18 +94,19 @@
</TfrxHeader>
<TfrxGroupHeader Name="GroupHeader3" Height="40" Left="0" Top="248" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;">
<TfrxMemoView Name="Memo72" Left="21" Top="1" Width="485,37013" Height="16,77953" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo27" Left="0" Top="24" Width="110" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Ref. proveedor"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="264" Top="24" Width="230" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="494" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="634" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imp."/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="844" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IVA"/>
<TfrxMemoView Name="Memo52" Left="914,26771654" Top="24" Width="94,11023622" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="564" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="110" Top="24" Width="79" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="809" Top="24" Width="35" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="704" Top="24" Width="35" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IRPF"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="739" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IRPF"/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="189" Top="24" Width="75" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo27" Left="0" Top="24" Width="85" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Ref. proveedor"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="320" Top="24" Width="200" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="520" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="660" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imp."/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="860" Top="24" Width="60" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IVA"/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="920" Top="24" Width="90" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="590" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="175" Top="24" Width="75" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="825" Top="24" Width="35" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="730" Top="24" Width="35" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IRPF"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="765" Top="24" Width="60" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. IRPF"/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="250" Top="24" Width="70" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Código"/>
<TfrxMemoView Name="Memo73" Align="baLeft" Left="85" Top="24" Width="90" Height="15" ShowHint="False" Color="16250871" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Tipo operación"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter3" Height="20" Left="0" Top="386" Width="1009,14033677542"/>
</TfrxReportPage>

24
Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
View File

@ -13,11 +13,17 @@ type
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end;
TDetallesAlbaranClienteController = class(TControllerDetallesArticulos, IDetallesAlbaranClienteController)
private
FDataModule : IDataModuleAlbaranesCliente;
FPrecioPunto: Currency;
protected
// procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override;
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
@ -30,11 +36,15 @@ type
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
function GetPrecioPunto: Currency;
procedure SetPrecioPunto(const Value: Currency);
public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
constructor Create; override;
destructor Destroy; override;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end;
implementation
@ -114,6 +124,7 @@ constructor TDetallesAlbaranClienteController.Create;
begin
inherited;
FDataModule := TDataModuleAlbaranesCliente.Create(Nil);
FPrecioPunto:= AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
end;
function TDetallesAlbaranClienteController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@ -134,6 +145,11 @@ begin
end;
function TDetallesAlbaranClienteController.GetPrecioPunto: Currency;
begin
Result := FPrecioPunto;
end;
procedure TDetallesAlbaranClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
var
ACadena : String;
@ -152,6 +168,12 @@ begin
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
end;
procedure TDetallesAlbaranClienteController.SetPrecioPunto(const Value: Currency);
begin
FPrecioPunto := Value;
FArticulosController.PrecioPunto := FPrecioPunto;
end;
procedure TDetallesAlbaranClienteController.ValidarCampos(DataTable: TDADataTable);
begin
inherited;
@ -162,7 +184,7 @@ procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStron
begin
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * FPrecioPunto)
else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end;

61
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -43,6 +43,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\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -54,32 +62,39 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.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="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\adortl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Contratos de cliente\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Articulos_view.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Base.dcp" />
<DCCReference Include="..\..\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vclx.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uDialogOpcionesImpresionEtiquetasAlbaranesCliente.pas" />
<DCCReference Include="uDialogOpcionesImpresionEtiquetasAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionEtiquetasAlbaranesCliente</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form>
<DesignClass>TfEditorAlbaranCliente</DesignClass>
@ -144,10 +159,6 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -251,6 +251,7 @@ begin
if Assigned(FAlbaran) then
begin
FAlbaran.Cliente := ViewAlbaran.ViewClienteAlbaran.Cliente;
Controller.DetallesController.PrecioPunto := FAlbaran.Cliente.PRECIO_PUNTO;
// Avisar si no hay datos bancarios
{if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then
@ -380,6 +381,8 @@ begin
FViewAlbaran.Albaran := FAlbaran;
frViewDetallesAlbaranCliente1.Detalles := FAlbaran.Detalles;
frViewDetallesAlbaranCliente1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el cliente seleccionado
Controller.DetallesController.PrecioPunto := FAlbaran.Cliente.PRECIO_PUNTO;
finally
ViewAlbaran.ViewClienteAlbaran.OnClienteChanged := OnClienteChanged;
end;

62
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -55,37 +55,37 @@
<DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Albaranes de proveedor\adortl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Articulos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Articulos_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Contactos_view.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxDataD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxExportD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxGridD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dbrtl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dsnap.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dxCoreD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Familias_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\GUIBase.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\SubFamilias_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Tarifas_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\UnidadesMedida_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vclactnband.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcldb.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcljpg.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.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\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\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\SubFamilias_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Tarifas_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\UnidadesMedida_controller.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\vclx.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form>

10
Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Caption = 'Seleccionar art'#237'culos'
ClientWidth = 656
ExplicitWidth = 664
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -121,7 +120,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
AlignWithMargins = True
Left = 25
Top = 8
Width = 131
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
@ -135,17 +134,20 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 131
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 3
Height = 13
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited EditorActionList: TActionList [5]

1
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -806,6 +806,7 @@ begin
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
end;

2
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -291,7 +291,7 @@ procedure TDetallesContratoClienteController.RellenarImportes(ADetalles: IDAStro
begin
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * FPrecioPunto)
else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end;

7
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -261,7 +261,7 @@ begin
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
// Un contrato puede estar formado por n presupuestos y cada uno por un precio punto por lo que en el contrato no tiene sentido poner precio punto,
// a no ser que quieran establecer una politica de gestion.
// a no ser que quieran establecer una politica de gestion.
// PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FECHA_CONTRATO := DateOf(Date);
@ -372,6 +372,11 @@ begin
// Se establece un descuento especial general a petición de angelica
DESCUENTO := FCliente.DESCUENTO;
// Se establece precio de punto por cliente a petición de Ruben
// Un contrato puede estar formado por n presupuestos y cada uno por un precio punto por lo que en el contrato no tiene sentido poner precio punto,
// a no ser que quieran establecer una politica de gestion.
// PRECIO_PUNTO := FCliente.PRECIO_PUNTO;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza

70
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -13,7 +13,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 1104
Caption = 'Nuevo contrato de cliente'
ExplicitTop = 52
ExplicitWidth = 924
ExplicitWidth = 1104
inherited Image1: TImage
Left = 1077
Picture.Data = {
@ -128,7 +128,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
inherited TBXDock: TTBXDock
Width = 1104
ExplicitWidth = 924
ExplicitWidth = 1104
inherited tbxMain: TTBXToolbar
ExplicitWidth = 551
inherited TBXItem2: TTBXItem
@ -170,7 +170,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 200
end>
ExplicitTop = 630
ExplicitWidth = 924
ExplicitWidth = 1104
end
inherited pgPaginas: TPageControl
Width = 1098
@ -179,7 +179,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 918
ExplicitWidth = 1098
ExplicitHeight = 321
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
@ -190,7 +190,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitWidth = 910
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0
Top = 0
@ -207,57 +206,97 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 910
ExplicitWidth = 1090
ExplicitHeight = 293
inherited ToolBar1: TToolBar
Width = 1090
ExplicitWidth = 910
Height = 24
ExplicitWidth = 1090
ExplicitHeight = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
Width = 108
ExplicitLeft = 513
ExplicitTop = 0
ExplicitWidth = 108
end
inherited UpDown1: TUpDown
Left = 621
Top = 0
ExplicitLeft = 621
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 638
Top = 0
ExplicitLeft = 638
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 646
Top = 0
ExplicitLeft = 646
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 680
Top = 0
ExplicitLeft = 680
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 714
Top = 0
ExplicitLeft = 714
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 748
Top = 0
ExplicitLeft = 748
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 756
Top = 0
ExplicitLeft = 756
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 790
Top = 0
ExplicitLeft = 790
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 824
Top = 0
ExplicitLeft = 824
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 1090
Height = 243
ExplicitWidth = 910
ExplicitTop = 50
ExplicitWidth = 1090
ExplicitHeight = 243
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewPROPIEDAD: TcxGridDBColumn
@ -266,9 +305,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 1090
ExplicitTop = 24
ExplicitWidth = 910
ExplicitWidth = 1090
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 753
inherited TBXLabelItem1: TTBXLabelItem
@ -299,7 +339,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitWidth = 910
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -314,7 +353,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 910
ExplicitWidth = 1090
ExplicitHeight = 293
inherited pnlSup: TPanel
Width = 1090
@ -340,7 +379,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagDocumentos: TTabSheet
Caption = 'Documentos'
ImageIndex = 5
ExplicitWidth = 910
inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente
Left = 0
Top = 0
@ -355,7 +393,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 910
ExplicitWidth = 1090
ExplicitHeight = 293
inherited TBXDock: TTBXDock
Width = 1090
@ -378,7 +416,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited PnlComentario: TPanel
Width = 1104
ExplicitTop = 79
ExplicitWidth = 924
ExplicitWidth = 1104
inherited lbComentario: TLabel
Width = 1094
Height = 25
@ -399,11 +437,11 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 5
ReadOnly = False
ExplicitTop = 436
ExplicitWidth = 924
ExplicitWidth = 1104
ExplicitHeight = 194
inherited dxLayoutControl1: TdxLayoutControl
Width = 1104
ExplicitWidth = 924
ExplicitWidth = 1104
inherited Bevel3: TBevel
Left = 515
Height = 122

2
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

@ -337,6 +337,7 @@ begin
begin
APrimerCliente := (FContrato.Cliente.ID = 0);
FContrato.Cliente := ViewContrato.ViewClienteContrato.Cliente;
Controller.DetallesController.PrecioPunto := FContrato.Cliente.PRECIO_PUNTO;
if (ShowConfirmMessage('Cambio forma de pago y tipo de IVA', '¿Desea actualizar la forma de pago y el tipo de IVA a la asignada en la ficha del cliente seleccionado?') = IDYES) then
FController.ActualizarFormaDePago(FContrato, FContrato.Cliente.ID_FORMA_PAGO);
@ -480,6 +481,7 @@ begin
FViewContrato.Contrato := FContrato;
frViewDetallesContratoCliente1.Detalles := FContrato.Detalles;
frViewDetallesContratoCliente1.Contrato := FContrato; //Para poder sacar los descuento del articulos segun el cliente seleccionado
Controller.DetallesController.PrecioPunto := FContrato.Cliente.PRECIO_PUNTO;
//GESTION_DOCUMENTOS
frViewDocumentosContratoCliente1.Contrato := FContrato;

27
Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
View File

@ -14,11 +14,17 @@ type
procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaCliente; AReferencia: String; AFecha: String);
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end;
TDetallesFacturaClienteController = class(TControllerDetallesArticulos, IDetallesFacturaClienteController)
private
FDataModule : IDataModuleFacturasCliente;
FPrecioPunto: Currency;
protected
// procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override;
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; override;
@ -31,8 +37,11 @@ type
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
function GetPrecioPunto: Currency;
procedure SetPrecioPunto(const Value: Currency);
public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
//ABONOS
@ -40,6 +49,7 @@ type
constructor Create; override;
destructor Destroy; override;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end;
implementation
@ -124,6 +134,7 @@ constructor TDetallesFacturaClienteController.Create;
begin
inherited;
FDataModule := TDataModuleFacturasCliente.Create(Nil);
AppFactuGES.EmpresaActiva.PRECIO_PUNTO
end;
function TDetallesFacturaClienteController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@ -143,6 +154,11 @@ begin
inherited;
end;
function TDetallesFacturaClienteController.GetPrecioPunto: Currency;
begin
Result := FPrecioPunto;
end;
procedure TDetallesFacturaClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
var
ACadena : String;
@ -160,6 +176,13 @@ begin
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
end;
procedure TDetallesFacturaClienteController.SetPrecioPunto(
const Value: Currency);
begin
FPrecioPunto := Value;
FArticulosController.PrecioPunto := FPrecioPunto;
end;
procedure TDetallesFacturaClienteController.ValidarCampos(DataTable: TDADataTable);
begin
inherited;
@ -169,7 +192,7 @@ end;
procedure TDetallesFacturaClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * FPrecioPunto)
else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end;

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -142,7 +142,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 351
inherited dxLayoutControl1: TdxLayoutControl
Width = 351
ExplicitWidth = 407
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -158,7 +157,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 398
inherited dxLayoutControl1: TdxLayoutControl
Width = 398
ExplicitWidth = 348
inherited Bevel1: TBevel
Width = 266
ExplicitWidth = 266

3
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -347,6 +347,7 @@ var
begin
FFactura.Cliente := frViewFacturaCliente1.frViewClienteFactura1.Cliente;
Controller.DetallesController.PrecioPunto := FFactura.Cliente.PRECIO_PUNTO;
if not (FFactura.DataTable.State in dsEditModes) then
FFactura.DataTable.Edit;
@ -503,6 +504,8 @@ begin
FViewFactura.Factura := FFactura;
frViewDetallesFacturaCliente1.Detalles := FFactura.Detalles;
frViewDetallesFacturaCliente1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el cliente seleccionado
Controller.DetallesController.PrecioPunto := FFactura.Cliente.PRECIO_PUNTO;
end;
{$IFDEF CONTABILIDAD}

22
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
View File

@ -267,10 +267,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, REFERENCIA_PROVEEDOR, ID' +
'_PROVEEDOR, REF_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF,'#10'FECHA_FAC' +
'TURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IRPF,' +
' IMPORTE_IRPF, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where {w' +
'here}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
'_PROVEEDOR, REF_PROVEEDOR, NOMBRE, TIPO_OPERACION, SITUACION, NI' +
'F_CIF,'#10'FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IVA, IM' +
'PORTE_IVA, IRPF, IMPORTE_IRPF, IMPORTE_TOTAL'#10#10'from V_facturas_pr' +
'oveedor'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -351,6 +351,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'IMPORTE_IRPF'
TableField = 'IMPORTE_IRPF'
end
item
DatasetField = 'TIPO_OPERACION'
TableField = 'TIPO_OPERACION'
end>
end>
Name = 'ListadoFacturasProveedor'
@ -396,6 +400,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datString
Size = 255
end
item
Name = 'TIPO_OPERACION'
DataType = datString
Size = 2000
end
item
Name = 'SITUACION'
DataType = datString
@ -776,6 +785,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datString
Size = 255
end
item
Name = 'TIPO_OPERACION'
DataType = datString
Size = 2000
end
item
Name = 'SITUACION'
DataType = datString

4
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
View File

@ -30,11 +30,11 @@ type
frxDBInformeListadoFacturasTipoResumen: TfrxDBDataset;
DADSInformeListadoFacturasTipoResumen: TDADataSource;
tbl_InformeListadoFacturasTipoResumen: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
tbl_InformeListadoRecibos: TDAMemDataTable;
DADSInformeListadoRecibos: TDADataSource;
frxDBInformeListadoRecibos: TfrxDBDataset;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);

2
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -342,6 +342,8 @@ begin
// Se establece un descuento especial general a petición de angelica
DESCUENTO := FCliente.DESCUENTO;
// Se establece precio de punto por cliente a petición de Ruben
PRECIO_PUNTO := FCliente.PRECIO_PUNTO;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza

184
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -210,76 +210,45 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Height = 286
ExplicitWidth = 989
ExplicitHeight = 286
inherited edtFechaPresupuesto: TcxDBDateEdit
ExplicitWidth = 187
Width = 187
end
inherited memObservaciones: TcxDBMemo
Left = 472
ExplicitLeft = 472
ExplicitWidth = 793
Width = 793
end
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 122
Width = 122
end
inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 122
Width = 122
Left = 478
ExplicitLeft = 478
end
inherited bFormasPago: TButton
Left = 310
ExplicitLeft = 310
Left = 316
ExplicitLeft = 316
end
inherited edtFechaDecision: TcxDBDateEdit
Left = 319
ExplicitLeft = 319
ExplicitWidth = 260
Width = 260
end
inherited edtFechaVigencia: TcxDBDateEdit
ExplicitWidth = 260
Width = 260
end
inherited cbSituacion: TcxDBImageComboBox
ExplicitWidth = 260
Width = 260
Left = 327
ExplicitLeft = 327
end
inherited frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
Left = 472
Width = 320
ExplicitLeft = 472
ExplicitWidth = 320
Left = 478
ExplicitLeft = 478
inherited dxLayoutControl1: TdxLayoutControl
Width = 320
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 202
Width = 202
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 363
ExplicitLeft = 363
Left = 357
ExplicitLeft = 357
end
inherited Button3: TBitBtn
Left = 274
ExplicitLeft = 274
Left = 268
ExplicitLeft = 268
end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 329
Width = 329
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton
Left = 443
ExplicitLeft = 443
Left = 437
ExplicitLeft = 437
end
inherited Button5: TButton
Left = 443
ExplicitLeft = 443
Left = 437
ExplicitLeft = 437
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
@ -287,33 +256,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
end
end
inherited memFormaPago: TcxDBMemo
ExplicitWidth = 475
ExplicitHeight = 44
Height = 44
Width = 475
end
inherited memPlazoEntrega: TcxDBMemo
Top = 303
ExplicitTop = 303
ExplicitWidth = 396
ExplicitHeight = 100
Height = 100
Width = 396
end
inherited cbVendedor: TcxDBLookupComboBox
ExplicitWidth = 27
Width = 27
end
inherited cbTipoPresupuesto: TcxDBComboBox
Left = 314
ExplicitLeft = 314
ExplicitWidth = 186
Width = 186
end
inherited edtlReferenciaCliente: TcxDBTextEdit
ExplicitWidth = 204
Width = 204
Left = 325
ExplicitLeft = 325
end
end
end
@ -426,6 +375,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 50
Width = 989
Height = 236
ExplicitTop = 50
ExplicitWidth = 989
ExplicitHeight = 236
inherited cxGridView: TcxGridDBTableView
@ -440,7 +390,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 24
ExplicitWidth = 989
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 869
ExplicitWidth = 839
end
inherited edtPrecioPunto: TcxDBCurrencyEdit
DataBinding.DataSource = frViewPresupuestoCliente1.DADataSource
@ -569,59 +519,47 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 1003
inherited Bevel3: TBevel
Left = 469
Left = 379
Top = 57
Height = 122
ExplicitLeft = 469
ExplicitLeft = 379
ExplicitTop = 57
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 581
Left = 491
Top = 88
Width = 342
ExplicitLeft = 581
ExplicitLeft = 491
ExplicitTop = 88
ExplicitWidth = 342
end
inherited Bevel2: TBevel
Top = 216
Width = 333
ExplicitTop = 216
ExplicitWidth = 333
Top = 242
ExplicitTop = 242
end
inherited Bevel1: TBevel
Left = 488
Left = 398
Top = 216
Width = 332
ExplicitLeft = 488
ExplicitLeft = 398
ExplicitTop = 216
ExplicitWidth = 332
end
inherited ImporteDto: TcxDBCurrencyEdit
Top = 84
Style.IsFontAssigned = True
ExplicitTop = 84
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 652
Left = 562
Top = 108
Style.IsFontAssigned = True
ExplicitLeft = 652
ExplicitLeft = 562
ExplicitTop = 108
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 582
Left = 492
Top = 189
Style.IsFontAssigned = True
ExplicitLeft = 582
ExplicitLeft = 492
ExplicitTop = 189
ExplicitWidth = 137
Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
Top = 84
@ -629,59 +567,51 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 84
end
inherited edtIVA: TcxDBSpinEdit
Left = 581
Left = 491
Top = 108
Style.IsFontAssigned = True
ExplicitLeft = 581
ExplicitLeft = 491
ExplicitTop = 108
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 581
Left = 491
Top = 57
Style.IsFontAssigned = True
ExplicitLeft = 581
ExplicitLeft = 491
ExplicitTop = 57
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 581
Left = 491
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 581
ExplicitLeft = 491
ExplicitTop = 162
end
inherited edtIRPF: TcxDBSpinEdit
Left = 581
Left = 491
Top = 135
Style.IsFontAssigned = True
ExplicitLeft = 581
ExplicitLeft = 491
ExplicitTop = 135
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 652
Left = 562
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 652
ExplicitLeft = 562
ExplicitTop = 162
ExplicitWidth = 56
Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 652
Left = 562
Top = 135
Style.IsFontAssigned = True
ExplicitLeft = 652
ExplicitLeft = 562
ExplicitTop = 135
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Top = 57
Style.IsFontAssigned = True
ExplicitTop = 57
ExplicitWidth = 147
Width = 147
end
inherited cbValorado: TcxDBCheckBox
Left = 11
@ -696,53 +626,43 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Top = 138
ExplicitTop = 138
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 321
Left = 231
Top = 138
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 321
ExplicitLeft = 231
ExplicitTop = 138
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 165
ExplicitTop = 165
ExplicitWidth = 219
Width = 219
end
inherited edtRetencion: TcxDBSpinEdit
Left = 581
Left = 491
Top = 231
Style.IsFontAssigned = True
ExplicitLeft = 581
ExplicitLeft = 491
ExplicitTop = 231
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 652
Left = 562
Top = 231
Style.IsFontAssigned = True
ExplicitLeft = 652
ExplicitLeft = 562
ExplicitTop = 231
ExplicitWidth = 342
Width = 342
end
inherited edtFechaRetencion: TcxDBDateEdit
Top = 231
Top = 257
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 231
ExplicitWidth = 333
Width = 333
ExplicitTop = 257
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited cxValorado: TdxLayoutItem

1
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -368,6 +368,7 @@ begin
begin
APrimerCliente := (FPresupuesto.Cliente.ID = 0);
FPresupuesto.Cliente := ViewPresupuesto.ViewClientePresupuesto.Cliente;
Controller.DetallesController.PrecioPunto := FPresupuesto.Cliente.PRECIO_PUNTO;
if (ShowConfirmMessage('Cambio forma de pago y tipo de IVA', '¿Desea actualizar la forma de pago y el tipo de IVA a la asignada en la ficha del cliente seleccionado?') = IDYES) then
FController.ActualizarFormaDePago(FPresupuesto, FPresupuesto.Cliente.ID_FORMA_PAGO);

236
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocAlbaran.dfm Normal file
View File

@ -0,0 +1,236 @@
inherited frViewConfiguracionDocAlbaran: TfrViewConfiguracionDocAlbaran
Width = 739
Height = 521
inherited Panel1: TPanel
Width = 729
TabOrder = 1
inherited Label3: TLabel
Width = 717
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 739
LabelCaption = 'Configuraci'#243'n de los documentos de albar'#225'n'
TabOrder = 0
end
object paginas: TPageControl
Left = 0
Top = 68
Width = 739
Height = 453
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Enabled = False
Visible = False
end
object Label2: TLabel
Left = 11
Top = 15
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
Visible = False
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
Enabled = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
Visible = False
end
object eFormaPago: TMemo
Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
Enabled = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object cbFormaPago: TcxLookupComboBox
Left = 11
Top = 285
Enabled = False
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dsFormaPago
TabOrder = 3
Visible = False
Width = 529
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
Enabled = False
ImageIndex = 1
TabVisible = False
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 731
Height = 425
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 731
ExplicitWidth = 443
ExplicitHeight = 73
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 130
ExplicitLeft = 145
ExplicitWidth = 130
end
inherited ToolButton13: TToolButton [7]
Left = 275
ExplicitLeft = 275
end
inherited UpDown1: TUpDown [8]
Left = 283
ExplicitLeft = 283
end
inherited ToolButton6: TToolButton
Left = 300
ExplicitLeft = 300
end
inherited ToolButton7: TToolButton
Left = 334
ExplicitLeft = 334
end
inherited ToolButton8: TToolButton
Left = 368
ExplicitLeft = 368
end
inherited ToolButton12: TToolButton
Left = 402
ExplicitLeft = 402
end
inherited ToolButton9: TToolButton
Left = 410
ExplicitLeft = 410
end
inherited ToolButton10: TToolButton
Left = 444
ExplicitLeft = 444
end
inherited ToolButton11: TToolButton
Left = 478
ExplicitLeft = 478
end
end
inherited cxGrid: TcxGrid
Width = 731
Height = 353
ExplicitTop = 99
ExplicitWidth = 443
ExplicitHeight = 109
end
inherited TBXDock1: TTBXDock
Width = 731
ExplicitTop = 73
ExplicitWidth = 443
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 506
end
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
ExplicitWidth = 443
ExplicitHeight = 208
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
ExplicitWidth = 443
ExplicitHeight = 208
Height = 425
Width = 731
end
end
end
object dsFormaPago: TDADataSource
Left = 552
Top = 376
end
end

100
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocAlbaran.pas Normal file
View File

@ -0,0 +1,100 @@
unit uViewConfiguracionDocAlbaran;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo, cxGraphics, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB,
uDAInterfaces, uDADataTable, uFormasPagoController, uBizFormasPago;
type
TfrViewConfiguracionDocAlbaran = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
dsFormaPago: TDADataSource;
cbFormaPago: TcxLookupComboBox;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocAlbaran: TfrViewConfiguracionDocAlbaran;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocPresupuesto }
uses uFactuGES_App, uTypesConstConfiguration, uPresupuestosClienteController,
uBizPresupuestosCliente, uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocAlbaran.CargarValores;
begin
inherited;
JvGradientHeaderPanel1.LabelCaption := JvGradientHeaderPanel1.LabelCaption + AppFactuGES.EmpresaActiva.NOMBRE;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ALBARANES, AppFactuGES.EmpresaActiva.ID);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ALBARANES, AppFactuGES.EmpresaActiva.ID);
// eCondiciones.Lines.Clear;
// eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ALBARANES, AppFactuGES.EmpresaActiva.ID);
// cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ALBARANES, AppFactuGES.EmpresaActiva.ID);
// eFormaPago.Lines.Clear;
// eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ALBARANES);
// frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
// frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end;
class function TfrViewConfiguracionDocAlbaran.DarEtiqueta: String;
begin
Result := 'Documentos de Albarán';
end;
class function TfrViewConfiguracionDocAlbaran.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocAlbaran;
end;
procedure TfrViewConfiguracionDocAlbaran.GuardarValores;
begin
inherited;
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ALBARANES, eFormaPago.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ALBARANES, AppFactuGES.EmpresaActiva.ID, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ALBARANES, AppFactuGES.EmpresaActiva.ID, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ALBARANES, AppFactuGES.EmpresaActiva.ID, eObservaciones.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ALBARANES, AppFactuGES.EmpresaActiva.ID, eCondiciones.Text);
// frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;
end.

246
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocContrato.dfm Normal file
View File

@ -0,0 +1,246 @@
inherited frViewConfiguracionDocContrato: TfrViewConfiguracionDocContrato
ExplicitWidth = 716
ExplicitHeight = 490
inherited Panel1: TPanel
Width = 441
TabOrder = 1
ExplicitWidth = 706
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 451
LabelCaption = 'Configuraci'#243'n de los documentos de contrato'
TabOrder = 0
ExplicitWidth = 716
end
object paginas: TPageControl
Left = 0
Top = 68
Width = 451
Height = 236
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel
Left = 11
Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Enabled = False
Visible = False
end
object Label2: TLabel
Left = 11
Top = 15
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
Enabled = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object cbFormaPago: TcxLookupComboBox
Left = 11
Top = 285
Enabled = False
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dsFormaPago
TabOrder = 3
Visible = False
Width = 529
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
Enabled = False
ImageIndex = 1
TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 443
Height = 208
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 443
Height = 68
ExplicitWidth = 443
ExplicitHeight = 68
inherited ToolButton3: TToolButton
Wrap = True
end
inherited ToolButton4: TToolButton
Left = 0
Top = 22
Wrap = False
ExplicitLeft = 0
ExplicitTop = 22
end
inherited ToolButton14: TToolButton
Left = 56
Wrap = True
ExplicitLeft = 56
end
inherited FontName: TJvFontComboBox
Left = 0
Top = 44
ExplicitLeft = 0
ExplicitTop = 44
end
inherited FontSize: TEdit
Left = 145
Top = 44
Width = 76
ExplicitLeft = 145
ExplicitTop = 44
ExplicitWidth = 76
end
inherited UpDown1: TUpDown
Top = 44
ExplicitTop = 44
end
inherited ToolButton13: TToolButton
Top = 44
ExplicitTop = 44
end
inherited ToolButton6: TToolButton
Top = 44
ExplicitTop = 44
end
inherited ToolButton7: TToolButton
Top = 44
ExplicitTop = 44
end
inherited ToolButton8: TToolButton
Top = 44
ExplicitTop = 44
end
inherited ToolButton12: TToolButton
Top = 44
ExplicitTop = 44
end
inherited ToolButton9: TToolButton
Top = 44
ExplicitTop = 44
end
inherited ToolButton10: TToolButton
Top = 44
ExplicitTop = 44
end
inherited ToolButton11: TToolButton
Top = 44
ExplicitTop = 44
end
end
inherited cxGrid: TcxGrid
Top = 94
Width = 443
Height = 114
ExplicitTop = 94
ExplicitWidth = 660
ExplicitHeight = 281
end
inherited TBXDock1: TTBXDock
Top = 68
Width = 443
ExplicitTop = 68
ExplicitWidth = 660
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 443
end
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 208
Width = 443
end
end
end
object dsFormaPago: TDADataSource
Left = 552
Top = 376
end
end

100
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocContrato.pas Normal file
View File

@ -0,0 +1,100 @@
unit uViewConfiguracionDocContrato;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo, cxGraphics, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB,
uDAInterfaces, uDADataTable, uFormasPagoController, uBizFormasPago;
type
TfrViewConfiguracionDocContrato = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
dsFormaPago: TDADataSource;
cbFormaPago: TcxLookupComboBox;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocContrato: TfrViewConfiguracionDocContrato;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocContrato }
uses uFactuGES_App, uTypesConstConfiguration, uPresupuestosClienteController,
uBizPresupuestosCliente, uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocContrato.CargarValores;
begin
inherited;
JvGradientHeaderPanel1.LabelCaption := JvGradientHeaderPanel1.LabelCaption + AppFactuGES.EmpresaActiva.NOMBRE;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_CONTRATOS, AppFactuGES.EmpresaActiva.ID);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_CONTRATOS, AppFactuGES.EmpresaActiva.ID);
// eCondiciones.Lines.Clear;
// eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_CONTRATOS, AppFactuGES.EmpresaActiva.ID);
// cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_CONTRATOS, AppFactuGES.EmpresaActiva.ID);
// eFormaPago.Lines.Clear;
// eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_CONTRATOS);
// frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
// frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end;
class function TfrViewConfiguracionDocContrato.DarEtiqueta: String;
begin
Result := 'Documentos de Contrato';
end;
class function TfrViewConfiguracionDocContrato.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocContrato;
end;
procedure TfrViewConfiguracionDocContrato.GuardarValores;
begin
inherited;
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_CONTRATOS, eFormaPago.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_CONTRATOS, AppFactuGES.EmpresaActiva.ID, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_CONTRATOS, AppFactuGES.EmpresaActiva.ID, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_CONTRATOS, AppFactuGES.EmpresaActiva.ID, eObservaciones.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_CONTRATOS, AppFactuGES.EmpresaActiva.ID, eCondiciones.Text);
// frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;
end.

231
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocFactura.dfm Normal file
View File

@ -0,0 +1,231 @@
inherited frViewConfiguracionDocFactura: TfrViewConfiguracionDocFactura
inherited Panel1: TPanel
Width = 441
TabOrder = 1
inherited Label3: TLabel
Width = 429
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 451
LabelCaption = 'Configuraci'#243'n de los documentos de facturas'
TabOrder = 0
end
object paginas: TPageControl
Left = 0
Top = 68
Width = 451
Height = 236
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
object Label1: TLabel
Left = 11
Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Enabled = False
Visible = False
end
object Label2: TLabel
Left = 11
Top = 15
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
Visible = False
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
Enabled = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
Visible = False
end
object eFormaPago: TMemo
Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
Enabled = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object cbFormaPago: TcxLookupComboBox
Left = 11
Top = 285
Enabled = False
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dsFormaPago
TabOrder = 3
Visible = False
Width = 529
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
Enabled = False
ImageIndex = 1
TabVisible = False
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 443
Height = 208
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 443
Height = 73
ExplicitWidth = 443
ExplicitHeight = 73
inherited FontSize: TEdit
Width = 112
ExplicitWidth = 112
end
inherited UpDown1: TUpDown
Left = 291
ExplicitLeft = 291
end
inherited ToolButton13: TToolButton
Left = 0
Wrap = True
ExplicitLeft = 0
ExplicitHeight = 30
end
inherited ToolButton6: TToolButton
Left = 0
Top = 52
ExplicitLeft = 0
ExplicitTop = 52
end
inherited ToolButton7: TToolButton
Left = 34
Top = 52
ExplicitLeft = 34
ExplicitTop = 52
end
inherited ToolButton8: TToolButton
Left = 68
Top = 52
ExplicitLeft = 68
ExplicitTop = 52
end
inherited ToolButton12: TToolButton
Left = 102
Top = 52
ExplicitLeft = 102
ExplicitTop = 52
end
inherited ToolButton9: TToolButton
Left = 110
Top = 52
ExplicitLeft = 110
ExplicitTop = 52
end
inherited ToolButton10: TToolButton
Left = 144
Top = 52
ExplicitLeft = 144
ExplicitTop = 52
end
inherited ToolButton11: TToolButton
Left = 178
Top = 52
ExplicitLeft = 178
ExplicitTop = 52
end
end
inherited cxGrid: TcxGrid
Top = 99
Width = 443
Height = 109
ExplicitTop = 99
ExplicitWidth = 443
ExplicitHeight = 109
end
inherited TBXDock1: TTBXDock
Top = 73
Width = 443
ExplicitTop = 73
ExplicitWidth = 443
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 443
end
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 208
Width = 443
end
end
end
object dsFormaPago: TDADataSource
Left = 552
Top = 376
end
end

100
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocFactura.pas Normal file
View File

@ -0,0 +1,100 @@
unit uViewConfiguracionDocFactura;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo, cxGraphics, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB,
uDAInterfaces, uDADataTable, uFormasPagoController, uBizFormasPago;
type
TfrViewConfiguracionDocFactura = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
dsFormaPago: TDADataSource;
cbFormaPago: TcxLookupComboBox;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocFactura: TfrViewConfiguracionDocFactura;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocPresupuesto }
uses uFactuGES_App, uTypesConstConfiguration, uPresupuestosClienteController,
uBizPresupuestosCliente, uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocFactura.CargarValores;
begin
inherited;
JvGradientHeaderPanel1.LabelCaption := JvGradientHeaderPanel1.LabelCaption + AppFactuGES.EmpresaActiva.NOMBRE;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_FACTURAS, AppFactuGES.EmpresaActiva.ID);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_FACTURAS, AppFactuGES.EmpresaActiva.ID);
// eCondiciones.Lines.Clear;
// eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_FACTURAS, AppFactuGES.EmpresaActiva.ID);
// cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_FACTURAS, AppFactuGES.EmpresaActiva.ID);
// eFormaPago.Lines.Clear;
// eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_FACTURAS);
// frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
// frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end;
class function TfrViewConfiguracionDocFactura.DarEtiqueta: String;
begin
Result := 'Documentos de Factura';
end;
class function TfrViewConfiguracionDocFactura.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocFactura;
end;
procedure TfrViewConfiguracionDocFactura.GuardarValores;
begin
inherited;
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_FACTURAS, eFormaPago.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_FACTURAS, AppFactuGES.EmpresaActiva.ID, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_FACTURAS, AppFactuGES.EmpresaActiva.ID, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_FACTURAS, AppFactuGES.EmpresaActiva.ID, eObservaciones.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_FACTURAS, AppFactuGES.EmpresaActiva.ID, eCondiciones.Text);
// frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;
end.

231
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocPedido.dfm Normal file
View File

@ -0,0 +1,231 @@
inherited frViewConfiguracionDocPedido: TfrViewConfiguracionDocPedido
inherited Panel1: TPanel
Width = 441
TabOrder = 1
inherited Label3: TLabel
Width = 429
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 451
LabelCaption = 'Configuraci'#243'n de los documentos de pedido'
TabOrder = 0
end
object paginas: TPageControl
Left = 0
Top = 68
Width = 451
Height = 236
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
object Label1: TLabel
Left = 11
Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Enabled = False
Visible = False
end
object Label2: TLabel
Left = 11
Top = 15
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
Visible = False
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
Enabled = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
Visible = False
end
object eFormaPago: TMemo
Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
Enabled = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object cbFormaPago: TcxLookupComboBox
Left = 11
Top = 285
Enabled = False
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dsFormaPago
TabOrder = 3
Visible = False
Width = 529
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
Enabled = False
ImageIndex = 1
TabVisible = False
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 443
Height = 208
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 443
Height = 73
ExplicitWidth = 443
ExplicitHeight = 73
inherited FontSize: TEdit
Width = 112
ExplicitWidth = 112
end
inherited UpDown1: TUpDown
Left = 291
ExplicitLeft = 291
end
inherited ToolButton13: TToolButton
Left = 0
Wrap = True
ExplicitLeft = 0
ExplicitHeight = 30
end
inherited ToolButton6: TToolButton
Left = 0
Top = 52
ExplicitLeft = 0
ExplicitTop = 52
end
inherited ToolButton7: TToolButton
Left = 34
Top = 52
ExplicitLeft = 34
ExplicitTop = 52
end
inherited ToolButton8: TToolButton
Left = 68
Top = 52
ExplicitLeft = 68
ExplicitTop = 52
end
inherited ToolButton12: TToolButton
Left = 102
Top = 52
ExplicitLeft = 102
ExplicitTop = 52
end
inherited ToolButton9: TToolButton
Left = 110
Top = 52
ExplicitLeft = 110
ExplicitTop = 52
end
inherited ToolButton10: TToolButton
Left = 144
Top = 52
ExplicitLeft = 144
ExplicitTop = 52
end
inherited ToolButton11: TToolButton
Left = 178
Top = 52
ExplicitLeft = 178
ExplicitTop = 52
end
end
inherited cxGrid: TcxGrid
Top = 99
Width = 443
Height = 109
ExplicitTop = 99
ExplicitWidth = 443
ExplicitHeight = 109
end
inherited TBXDock1: TTBXDock
Top = 73
Width = 443
ExplicitTop = 73
ExplicitWidth = 443
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 443
end
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 208
Width = 443
end
end
end
object dsFormaPago: TDADataSource
Left = 552
Top = 376
end
end

100
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocPedido.pas Normal file
View File

@ -0,0 +1,100 @@
unit uViewConfiguracionDocPedido;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo, cxGraphics, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB,
uDAInterfaces, uDADataTable, uFormasPagoController, uBizFormasPago;
type
TfrViewConfiguracionDocPedido = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
dsFormaPago: TDADataSource;
cbFormaPago: TcxLookupComboBox;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocPedido: TfrViewConfiguracionDocPedido;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocPresupuesto }
uses uFactuGES_App, uTypesConstConfiguration, uPresupuestosClienteController,
uBizPresupuestosCliente, uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocPedido.CargarValores;
begin
inherited;
JvGradientHeaderPanel1.LabelCaption := JvGradientHeaderPanel1.LabelCaption + AppFactuGES.EmpresaActiva.NOMBRE;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_PEDIDOS, AppFactuGES.EmpresaActiva.ID);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_PEDIDOS, AppFactuGES.EmpresaActiva.ID);
// eCondiciones.Lines.Clear;
// eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_PEDIDOS, AppFactuGES.EmpresaActiva.ID);
// cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_PEDIDOS, AppFactuGES.EmpresaActiva.ID);
// eFormaPago.Lines.Clear;
// eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_PEDIDOS);
// frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
// frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end;
class function TfrViewConfiguracionDocPedido.DarEtiqueta: String;
begin
Result := 'Documentos de Pedido';
end;
class function TfrViewConfiguracionDocPedido.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocPedido;
end;
procedure TfrViewConfiguracionDocPedido.GuardarValores;
begin
inherited;
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_PEDIDOS, eFormaPago.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_PEDIDOS, AppFactuGES.EmpresaActiva.ID, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_PEDIDOS, AppFactuGES.EmpresaActiva.ID, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_PEDIDOS, AppFactuGES.EmpresaActiva.ID, eObservaciones.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_PEDIDOS, AppFactuGES.EmpresaActiva.ID, eCondiciones.Text);
// frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;
end.

260
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocPresupuesto.dfm Normal file
View File

@ -0,0 +1,260 @@
inherited frViewConfiguracionDocPresupuesto: TfrViewConfiguracionDocPresupuesto
inherited Panel1: TPanel
Width = 441
TabOrder = 1
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 451
LabelCaption = 'Configuraci'#243'n de los documentos de presupuesto'
TabOrder = 0
end
object paginas: TPageControl
Left = 0
Top = 68
Width = 451
Height = 236
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel
Left = 11
Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Enabled = False
Visible = False
end
object Label2: TLabel
Left = 11
Top = 15
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
Enabled = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object cbFormaPago: TcxLookupComboBox
Left = 11
Top = 285
Enabled = False
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dsFormaPago
TabOrder = 3
Visible = False
Width = 529
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
Enabled = False
ImageIndex = 1
TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 443
Height = 208
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 443
Height = 68
ExplicitWidth = 443
ExplicitHeight = 68
inherited ToolButton3: TToolButton
Wrap = True
end
inherited ToolButton4: TToolButton
Left = 0
Top = 22
Wrap = False
ExplicitLeft = 0
ExplicitTop = 22
end
inherited ToolButton14: TToolButton
Left = 56
Wrap = True
ExplicitLeft = 56
end
inherited FontName: TJvFontComboBox
Left = 0
Top = 44
ExplicitLeft = 0
ExplicitTop = 44
end
inherited FontSize: TEdit
Left = 145
Top = 44
Width = 94
ExplicitLeft = 145
ExplicitTop = 44
ExplicitWidth = 94
end
inherited UpDown1: TUpDown
Left = 239
Top = 44
ExplicitLeft = 239
ExplicitTop = 44
end
inherited ToolButton13: TToolButton
Left = 256
Top = 44
ExplicitLeft = 256
ExplicitTop = 44
end
inherited ToolButton6: TToolButton
Left = 264
Top = 44
ExplicitLeft = 264
ExplicitTop = 44
end
inherited ToolButton7: TToolButton
Left = 298
Top = 44
ExplicitLeft = 298
ExplicitTop = 44
end
inherited ToolButton8: TToolButton
Left = 332
Top = 44
ExplicitLeft = 332
ExplicitTop = 44
end
inherited ToolButton12: TToolButton
Left = 366
Top = 44
ExplicitLeft = 366
ExplicitTop = 44
end
inherited ToolButton9: TToolButton
Left = 374
Top = 44
ExplicitLeft = 374
ExplicitTop = 44
end
inherited ToolButton10: TToolButton
Left = 408
Top = 44
ExplicitLeft = 408
ExplicitTop = 44
end
inherited ToolButton11: TToolButton
Left = 442
Top = 44
ExplicitLeft = 442
ExplicitTop = 44
end
end
inherited cxGrid: TcxGrid
Top = 94
Width = 443
Height = 114
ExplicitTop = 99
ExplicitWidth = 443
ExplicitHeight = 109
end
inherited TBXDock1: TTBXDock
Top = 68
Width = 443
ExplicitTop = 73
ExplicitWidth = 443
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 443
end
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 208
Width = 443
end
end
end
object dsFormaPago: TDADataSource
Left = 552
Top = 376
end
end

100
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocPresupuesto.pas Normal file
View File

@ -0,0 +1,100 @@
unit uViewConfiguracionDocPresupuesto;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo, cxGraphics, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB,
uDAInterfaces, uDADataTable, uFormasPagoController, uBizFormasPago;
type
TfrViewConfiguracionDocPresupuesto = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
dsFormaPago: TDADataSource;
cbFormaPago: TcxLookupComboBox;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocPresupuesto: TfrViewConfiguracionDocPresupuesto;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocPresupuesto }
uses uFactuGES_App, uTypesConstConfiguration, uPresupuestosClienteController,
uBizPresupuestosCliente, uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocPresupuesto.CargarValores;
begin
inherited;
JvGradientHeaderPanel1.LabelCaption := JvGradientHeaderPanel1.LabelCaption + AppFactuGES.EmpresaActiva.NOMBRE;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_PRESUPUESTOS, AppFactuGES.EmpresaActiva.ID);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_PRESUPUESTOS, AppFactuGES.EmpresaActiva.ID);
// eCondiciones.Lines.Clear;
// eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_PRESUPUESTOS, AppFactuGES.EmpresaActiva.ID);
// cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_PRESUPUESTOS, AppFactuGES.EmpresaActiva.ID);
// eFormaPago.Lines.Clear;
// eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_OBRA);
// frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
// frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end;
class function TfrViewConfiguracionDocPresupuesto.DarEtiqueta: String;
begin
Result := 'Documentos de Presupuesto';
end;
class function TfrViewConfiguracionDocPresupuesto.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocPresupuesto;
end;
procedure TfrViewConfiguracionDocPresupuesto.GuardarValores;
begin
inherited;
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_PRESUPUESTOS, eFormaPago.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_PRESUPUESTOS, AppFactuGES.EmpresaActiva.ID, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_PRESUPUESTOS, AppFactuGES.EmpresaActiva.ID, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_PRESUPUESTOS, AppFactuGES.EmpresaActiva.ID, eObservaciones.Text);
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_PRESUPUESTOS, AppFactuGES.EmpresaActiva.ID, eCondiciones.Text);
// frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;
end.

BIN
Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
View File

Binary file not shown.

144
Source/Modulos/Tipos de operacion compra/Views/uEditorTiposOperacionCompra.dfm Normal file
View File

@ -0,0 +1,144 @@
object fEditorTiposOperacionCompra: TfEditorTiposOperacionCompra
Left = 453
Top = 234
ActiveControl = ListaTiposOperacionCompra
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Administraci'#243'n de tipos de operaci'#243'n'
ClientHeight = 494
ClientWidth = 404
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = CustomEditorClose
OnShow = FormShow
InstanceID = 0
ReadOnly = False
PixelsPerInch = 96
TextHeight = 13
object bAceptar: TButton
Left = 235
Top = 462
Width = 75
Height = 23
Action = actAceptar
Default = True
TabOrder = 1
end
object bCancelar: TButton
Left = 321
Top = 462
Width = 75
Height = 23
Action = actCancelar
Cancel = True
TabOrder = 2
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 390
Height = 442
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Tipos de operaci'#243'n para compras'
object Label1: TLabel
Left = 10
Top = 12
Width = 194
Height = 13
Caption = 'Lista de tipos de operaci'#243'n para compras'
end
object Label2: TLabel
Left = 10
Top = 326
Width = 98
Height = 13
Caption = 'A'#241'adir un nuevo tipo'
end
object Bevel1: TBevel
Left = 132
Top = 330
Width = 244
Height = 5
Shape = bsBottomLine
end
object eCategoria: TLabel
Left = 18
Top = 353
Width = 77
Height = 13
Caption = 'Nombre del tipo:'
end
object ListaTiposOperacionCompra: TDBLookupListBox
Left = 8
Top = 31
Width = 262
Height = 277
KeyField = 'RecID'
ListField = 'DESCRIPCION'
ListSource = DADataSource
TabOrder = 0
end
object bEliminar: TButton
Left = 281
Top = 31
Width = 95
Height = 23
Action = actEliminar
TabOrder = 1
end
object editTipoOperacionCompra: TEdit
Left = 122
Top = 349
Width = 254
Height = 21
TabOrder = 2
end
object bAnadir: TButton
Left = 281
Top = 382
Width = 95
Height = 23
Action = actAnadir
TabOrder = 3
end
end
end
object ActionList1: TActionList
Left = 144
Top = 16
object actAnadir: TAction
Caption = '&A'#241'adir'
OnExecute = actAnadirExecute
OnUpdate = actAnadirUpdate
end
object actEliminar: TAction
Caption = '&Eliminar'
OnExecute = actEliminarExecute
OnUpdate = actEliminarUpdate
end
object actAceptar: TAction
Caption = 'A&ceptar'
OnExecute = actAceptarExecute
end
object actCancelar: TAction
Caption = '&Cancelar'
OnExecute = actCancelarExecute
end
object actCerrar: TAction
Caption = 'actCerrar'
OnExecute = actCerrarExecute
end
end
object DADataSource: TDADataSource
Left = 168
Top = 16
end
end

181
Source/Modulos/Tipos de operacion compra/Views/uEditorTiposOperacionCompra.pas Normal file
View File

@ -0,0 +1,181 @@
{
===============================================================================
Copyright (©) 2006. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versión: 22-05-2006
Versión actual: 1.0.0
Fecha versión actual: 22-05-2006
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
===============================================================================
}
unit uEditorTiposOperacionCompra;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorTiposOperacionCompra, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizTiposOperacionCompra, uTiposOperacionCompraController, uDAInterfaces;
type
TfEditorTiposOperacionCompra = class(TCustomEditor, IEditorTiposOperacionCompra)
ActionList1: TActionList;
DADataSource: TDADataSource;
ListaTiposOperacionCompra: TDBLookupListBox;
actAnadir: TAction;
actEliminar: TAction;
bEliminar: TButton;
actAceptar: TAction;
actCancelar: TAction;
bAceptar: TButton;
bCancelar: TButton;
actCerrar: TAction;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Bevel1: TBevel;
eCategoria: TLabel;
editTipoOperacionCompra: TEdit;
bAnadir: TButton;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure actCerrarExecute(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
protected
FTiposOperacionCompra: IBizTiposOperacionCompra;
FController: ITiposOperacionCompraController;
function GetTiposOperacionCompra: IBizTiposOperacionCompra;
procedure SetTiposOperacionCompra(const Value: IBizTiposOperacionCompra);
function GetController : ITiposOperacionCompraController;
procedure SetController (const Value : ITiposOperacionCompraController);
public
property TiposOperacionCompra: IBizTiposOperacionCompra read GetTiposOperacionCompra write SetTiposOperacionCompra;
property Controller : ITiposOperacionCompraController read GetController write SetController;
end;
implementation
{$R *.dfm}
{ TfEditorTiposOperacionCompra }
uses
uDialogUtils, uFactuGES_App;
function TfEditorTiposOperacionCompra.GetController: ITiposOperacionCompraController;
begin
Result := FController;
end;
function TfEditorTiposOperacionCompra.GetTiposOperacionCompra: IBizTiposOperacionCompra;
begin
Result := FTiposOperacionCompra;
end;
procedure TfEditorTiposOperacionCompra.SetController(const Value: ITiposOperacionCompraController);
begin
FController := Value;
end;
procedure TfEditorTiposOperacionCompra.SetTiposOperacionCompra(const Value: IBizTiposOperacionCompra);
begin
FTiposOperacionCompra := Value;
DADataSource.DataTable := (FTiposOperacionCompra as IBizTiposOperacionCompra).DataTable;
DADataSource.DataTable.Open;
end;
procedure TfEditorTiposOperacionCompra.actAnadirExecute(Sender: TObject);
begin
if not FController.Localizar(TiposOperacionCompra, editTipoOperacionCompra.Text) then
begin
TiposOperacionCompra.Append;
TiposOperacionCompra.DESCRIPCION := editTipoOperacionCompra.Text;
TiposOperacionCompra.Post;
editTipoOperacionCompra.Clear;
ListaTiposOperacionCompra.SetFocus;
end
else
ShowErrorMessage('Ya existe el Tipo ' + editTipoOperacionCompra.Text,
'Ya existe el Tipo ''' + editTipoOperacionCompra.Text + ''' en la lista.');
end;
procedure TfEditorTiposOperacionCompra.actEliminarExecute(Sender: TObject);
begin
TiposOperacionCompra.Delete;
ListaTiposOperacionCompra.SetFocus;
end;
procedure TfEditorTiposOperacionCompra.actEliminarUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (FTiposOperacionCompra.DataTable.RecordCount > 0) and
(Length(ListaTiposOperacionCompra.SelectedItem) > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR);
end;
procedure TfEditorTiposOperacionCompra.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
begin
FTiposOperacionCompra := Nil;
FController := Nil;
end;
procedure TfEditorTiposOperacionCompra.actAceptarExecute(Sender: TObject);
begin
try
TiposOperacionCompra.DataTable.ApplyUpdates;
except
on E : Exception do begin
TiposOperacionCompra.DataTable.CancelUpdates;
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
exit;
end;
end;
actCerrar.Execute;
end;
procedure TfEditorTiposOperacionCompra.actCancelarExecute(Sender: TObject);
begin
TiposOperacionCompra.DataTable.CancelUpdates;
actCerrar.Execute;
end;
procedure TfEditorTiposOperacionCompra.actCerrarExecute(Sender: TObject);
begin
Close;
end;
procedure TfEditorTiposOperacionCompra.actAnadirUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Length(editTipoOperacionCompra.Text) > 0)
end;
procedure TfEditorTiposOperacionCompra.FormShow(Sender: TObject);
begin
if not FTiposOperacionCompra.DataTable.Active then
FTiposOperacionCompra.DataTable.Active := true;
editTipoOperacionCompra.SetFocus;
end;
end.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">5</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">3.5.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.5.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de febrero de 2022 11:30</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">6</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">3.6.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.6.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">sábado, 12 de marzo de 2022 11:34</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.