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\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

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.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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 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> </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"?> <?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"/> <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="138" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <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 ..."/> <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> </TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="214" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True"> <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="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="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="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="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="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="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="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="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="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" 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="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="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="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="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="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="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="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="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="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="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="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="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="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> </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"> <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="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="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="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="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="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="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="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="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="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="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="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="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" 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="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="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="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="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="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="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="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="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="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="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;]"/> <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> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="311" Width="1009,13451"> <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="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="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="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="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="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="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="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="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="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> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="30" Left="0" Top="352" Width="1009,13451"> <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"/> <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> </TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="437" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasProveedor.frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0"> <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" 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="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="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="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;]"/> <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="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"/> <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> </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="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="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;]"/> <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"?> <?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"/> <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=""> <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"> <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"> <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;]"/> <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> </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"> <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="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="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="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="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="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="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="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="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="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="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="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="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" 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="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="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="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="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="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="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="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="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="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="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;]"/> <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> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="372" Width="1009,14033677542"> <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="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="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="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="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="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="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="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="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="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> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="30" Left="0" Top="453" Width="1009,14033677542"> <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"/> <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> </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="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="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="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="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"/> <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> </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="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="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;]"/> <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> </TfrxHeader>
<TfrxGroupHeader Name="GroupHeader3" Height="40" Left="0" Top="275" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;"> <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="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="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="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="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="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="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="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="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="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="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" 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="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="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="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="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="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="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="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="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="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="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="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="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="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> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter3" Height="20" Left="0" Top="413" Width="1009,14033677542"/> <TfrxGroupFooter Name="GroupFooter3" Height="20" Left="0" Top="413" Width="1009,14033677542"/>
</TfrxReportPage> </TfrxReportPage>

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

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.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"/> <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -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="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."/> <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> </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="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="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;]"/> <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"> <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"/> <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> </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="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="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;]"/> <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"?> <?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"/> <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=""> <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"> <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"> <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;]"/> <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> </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"> <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="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="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="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="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="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="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="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="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="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="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="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="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" 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="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="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="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="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="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="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="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="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="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="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;]"/> <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> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="345" Width="1009,14033677542"> <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="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="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="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="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="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="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="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="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="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> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="30" Left="0" Top="426" Width="1009,14033677542"> <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"/> <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> </TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="511" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0" Stretched="True"> <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" 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="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="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="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;]"/> <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="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"/> <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> </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="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="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;]"/> <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> </TfrxHeader>
<TfrxGroupHeader Name="GroupHeader3" Height="40" Left="0" Top="248" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;"> <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="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="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="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="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="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="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="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="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="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="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" 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="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="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="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="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="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="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="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="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="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="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="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="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="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> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter3" Height="20" Left="0" Top="386" Width="1009,14033677542"/> <TfrxGroupFooter Name="GroupFooter3" Height="20" Left="0" Top="386" Width="1009,14033677542"/>
</TfrxReportPage> </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 ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end; end;
TDetallesAlbaranClienteController = class(TControllerDetallesArticulos, IDetallesAlbaranClienteController) TDetallesAlbaranClienteController = class(TControllerDetallesArticulos, IDetallesAlbaranClienteController)
private private
FDataModule : IDataModuleAlbaranesCliente; FDataModule : IDataModuleAlbaranesCliente;
FPrecioPunto: Currency;
protected protected
// procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override; // procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override;
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
@ -30,11 +36,15 @@ type
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
function GetPrecioPunto: Currency;
procedure SetPrecioPunto(const Value: Currency);
public 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; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end; end;
implementation implementation
@ -114,6 +124,7 @@ constructor TDetallesAlbaranClienteController.Create;
begin begin
inherited; inherited;
FDataModule := TDataModuleAlbaranesCliente.Create(Nil); FDataModule := TDataModuleAlbaranesCliente.Create(Nil);
FPrecioPunto:= AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
end; end;
function TDetallesAlbaranClienteController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function TDetallesAlbaranClienteController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@ -134,6 +145,11 @@ begin
end; end;
function TDetallesAlbaranClienteController.GetPrecioPunto: Currency;
begin
Result := FPrecioPunto;
end;
procedure TDetallesAlbaranClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TDetallesAlbaranClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
var var
ACadena : String; ACadena : String;
@ -152,6 +168,12 @@ begin
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0; ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
end; end;
procedure TDetallesAlbaranClienteController.SetPrecioPunto(const Value: Currency);
begin
FPrecioPunto := Value;
FArticulosController.PrecioPunto := FPrecioPunto;
end;
procedure TDetallesAlbaranClienteController.ValidarCampos(DataTable: TDADataTable); procedure TDetallesAlbaranClienteController.ValidarCampos(DataTable: TDADataTable);
begin begin
inherited; inherited;
@ -162,7 +184,7 @@ procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStron
begin begin
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) 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 else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end; end;

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

@ -43,6 +43,14 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">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> <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\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\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> <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"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\adortl.dcp" />
<DCCReference Include="AlbaranesCliente_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" /> <DCCReference Include="..\..\Contratos de cliente\AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Contratos de cliente\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\Contratos de cliente\ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Base.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Contratos de cliente\GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.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="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form> <Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
<DesignClass>T</DesignClass> <DesignClass>T</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDialogOpcionesImpresionEtiquetasAlbaranesCliente.pas" /> <DCCReference Include="uDialogOpcionesImpresionEtiquetasAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionEtiquetasAlbaranesCliente</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uEditorAlbaranCliente.pas"> <DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form> <Form>fEditorAlbaranCliente</Form>
<DesignClass>TfEditorAlbaranCliente</DesignClass> <DesignClass>TfEditorAlbaranCliente</DesignClass>
@ -144,10 +159,6 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form> <Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

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

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

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

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

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

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

@ -291,7 +291,7 @@ procedure TDetallesContratoClienteController.RellenarImportes(ADetalles: IDAStro
begin begin
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) 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 else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end; end;

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

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

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

@ -337,6 +337,7 @@ begin
begin begin
APrimerCliente := (FContrato.Cliente.ID = 0); APrimerCliente := (FContrato.Cliente.ID = 0);
FContrato.Cliente := ViewContrato.ViewClienteContrato.Cliente; 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 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); FController.ActualizarFormaDePago(FContrato, FContrato.Cliente.ID_FORMA_PAGO);
@ -480,6 +481,7 @@ begin
FViewContrato.Contrato := FContrato; FViewContrato.Contrato := FContrato;
frViewDetallesContratoCliente1.Detalles := FContrato.Detalles; frViewDetallesContratoCliente1.Detalles := FContrato.Detalles;
frViewDetallesContratoCliente1.Contrato := FContrato; //Para poder sacar los descuento del articulos segun el cliente seleccionado frViewDetallesContratoCliente1.Contrato := FContrato; //Para poder sacar los descuento del articulos segun el cliente seleccionado
Controller.DetallesController.PrecioPunto := FContrato.Cliente.PRECIO_PUNTO;
//GESTION_DOCUMENTOS //GESTION_DOCUMENTOS
frViewDocumentosContratoCliente1.Contrato := FContrato; frViewDocumentosContratoCliente1.Contrato := FContrato;

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

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

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

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

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

@ -347,6 +347,7 @@ var
begin begin
FFactura.Cliente := frViewFacturaCliente1.frViewClienteFactura1.Cliente; FFactura.Cliente := frViewFacturaCliente1.frViewClienteFactura1.Cliente;
Controller.DetallesController.PrecioPunto := FFactura.Cliente.PRECIO_PUNTO;
if not (FFactura.DataTable.State in dsEditModes) then if not (FFactura.DataTable.State in dsEditModes) then
FFactura.DataTable.Edit; FFactura.DataTable.Edit;
@ -503,6 +504,8 @@ begin
FViewFactura.Factura := FFactura; FViewFactura.Factura := FFactura;
frViewDetallesFacturaCliente1.Detalles := FFactura.Detalles; frViewDetallesFacturaCliente1.Detalles := FFactura.Detalles;
frViewDetallesFacturaCliente1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el cliente seleccionado frViewDetallesFacturaCliente1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el cliente seleccionado
Controller.DetallesController.PrecioPunto := FFactura.Cliente.PRECIO_PUNTO;
end; end;
{$IFDEF CONTABILIDAD} {$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 ' + #39' || extract (year from fecha_factura)'#10'when extract (month from ' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, REFERENCIA_PROVEEDOR, ID' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, REFERENCIA_PROVEEDOR, ID' +
'_PROVEEDOR, REF_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF,'#10'FECHA_FAC' + '_PROVEEDOR, REF_PROVEEDOR, NOMBRE, TIPO_OPERACION, SITUACION, NI' +
'TURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IRPF,' + 'F_CIF,'#10'FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IVA, IM' +
' IMPORTE_IRPF, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where {w' + 'PORTE_IVA, IRPF, IMPORTE_IRPF, IMPORTE_TOTAL'#10#10'from V_facturas_pr' +
'here}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10 'oveedor'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -351,6 +351,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
item item
DatasetField = 'IMPORTE_IRPF' DatasetField = 'IMPORTE_IRPF'
TableField = 'IMPORTE_IRPF' TableField = 'IMPORTE_IRPF'
end
item
DatasetField = 'TIPO_OPERACION'
TableField = 'TIPO_OPERACION'
end> end>
end> end>
Name = 'ListadoFacturasProveedor' Name = 'ListadoFacturasProveedor'
@ -396,6 +400,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'TIPO_OPERACION'
DataType = datString
Size = 2000
end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
@ -776,6 +785,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'TIPO_OPERACION'
DataType = datString
Size = 2000
end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString

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

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

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

@ -368,6 +368,7 @@ begin
begin begin
APrimerCliente := (FPresupuesto.Cliente.ID = 0); APrimerCliente := (FPresupuesto.Cliente.ID = 0);
FPresupuesto.Cliente := ViewPresupuesto.ViewClientePresupuesto.Cliente; 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 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); 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.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.