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

Subida incial, con módulo de logistica

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2021-02-07 17:20:37 +00:00
parent f58c7f90b3
commit 081bfba5ff
159 changed files with 9953 additions and 3746 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.

4
Build/Build.fbpInf
View File

@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:03:15</LastBuildRun> <LastBuildRun>00:01:15</LastBuildRun>
<LastBuildStart>28/12/2020 17:37:37</LastBuildStart> <LastBuildStart>19/01/2021 17:01:29</LastBuildStart>
<LastBuildState>True</LastBuildState> <LastBuildState>True</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

BIN
Resources/Iconos/Agenda/16x16/Thumbs.db
View File

Binary file not shown.

BIN
Resources/Iconos/Agenda/24x24/Thumbs.db
View File

Binary file not shown.

BIN
Resources/Iconos/Agenda/28x28/Thumbs.db
View File

Binary file not shown.

BIN
Source/Base/Base.res
View File

Binary file not shown.

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">2</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.2.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">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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.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.0.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.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Base.dcp" /> <DCCReference Include="..\Servidor\Base.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\ccpackD11.dcp" /> <DCCReference Include="..\Servidor\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" /> <DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExportD11.dcp" /> <DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" /> <DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\frx11.dcp" /> <DCCReference Include="..\Servidor\frx11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\frxe11.dcp" /> <DCCReference Include="..\Servidor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\fs11.dcp" /> <DCCReference Include="..\Servidor\fs11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" /> <DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" /> <DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\tb2k_d10.dcp" /> <DCCReference Include="..\Servidor\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" /> <DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" /> <DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" /> <DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" /> <DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" /> <DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" /> <DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

10
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/1/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

94
Source/Informes/1/InformeIVAClientes.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="43748,7977271412" 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="044C65667403A90003546F70021008446174617365747301010C2A00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C3100000020446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <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="44215,5450083102" 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="144,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="144,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -14,61 +14,67 @@
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="23" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/> <TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="23" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter> </TfrxPageFooter>
<TfrxGroupHeader Name="" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Arial" Font.Style="0" Height="40" Left="0" ParentFont="False" Restrictions="2" Top="220" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True"> <TfrxGroupHeader Name="" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Arial" Font.Style="0" Height="40" Left="0" ParentFont="False" Restrictions="2" Top="220" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/> <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="180" Top="25" Width="345" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/> <TfrxMemoView Name="Memo28" Align="baLeft" Left="165" Top="25" Width="280" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="525" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/> <TfrxMemoView Name="Memo49" Align="baLeft" Left="445" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="685" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/> <TfrxMemoView Name="Memo50" Align="baLeft" Left="605" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="820" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/> <TfrxMemoView Name="Memo51" Align="baLeft" Left="740" Top="26" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="915" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/> <TfrxMemoView Name="Memo52" Align="baLeft" Left="820" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe retención"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="605" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Fecha"/> <TfrxMemoView Name="Memo8" Align="baLeft" Left="525" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="1,77953" Width="485,37013" Height="20,55906" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/> <TfrxMemoView Name="Memo7" Left="7,55906" Top="1,77953" Width="485,37013" Height="20,55906" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="95" Top="25" Width="85" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Ref. cliente"/> <TfrxMemoView Name="Memo5" Align="baLeft" Left="80" Top="25" Width="85" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Ref. cliente"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="780" Top="25" Width="40" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/> <TfrxMemoView Name="Memo9" Align="baLeft" Left="700" Top="25" Width="40" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="915" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="280" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True"> <TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="280" 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="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/> <TfrxMemoView Name="Memo18" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="180" Top="0" Width="345" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo4" Align="baLeft" Left="165" Top="0" Width="280" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="525" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/> <TfrxMemoView Name="Memo20" Align="baLeft" Left="445" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="605" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/> <TfrxMemoView Name="Memo21" Align="baLeft" Left="525" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="685" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/> <TfrxMemoView Name="Memo29" Align="baLeft" Left="605" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="819,48818898" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/> <TfrxMemoView Name="Memo30" Align="baLeft" Left="740" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="914,48818898" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Align="baLeft" Left="820" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_RETENCION&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="95" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo22" Align="baLeft" Left="80" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="779,48818898" Top="0" Width="40" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/> <TfrxMemoView Name="Memo41" Align="baLeft" Left="700" Top="0" Width="40" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="915" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="317" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="317" Width="1009,13451">
<TfrxMemoView Name="Memo6" Align="baLeft" Left="914,48818898" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Align="baLeft" Left="820" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_RETENCION&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="819,48818898" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Align="baLeft" Left="740" Top="0,37774772" Width="80" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="685" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Align="baLeft" Left="605" 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="Arial" Font.Style="1" Frame.Typ="1" 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="685" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="605" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="779,48818898" Top="0,37774772" Width="40" Height="16" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/> <TfrxMemoView Name="Memo40" Align="baLeft" Left="700" Top="0,37774772" Width="40" Height="16" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="915" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="50" Left="0" Top="358" Width="1009,13451"> <TfrxHeader Name="Header1" Height="50" Left="0" Top="358" 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 cliente"/> <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 cliente"/>
</TfrxHeader> </TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="473" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0"> <TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="473" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo24" Left="190" Top="0" Width="250" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo24" Align="baLeft" Left="175" Top="0" Width="250" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;REFERENCIA&#34;]"/> <TfrxMemoView Name="Memo37" Left="0" 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="0" Font.Height="-12" Font.Name="Arial" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/> <TfrxMemoView Name="Memo38" Align="baLeft" Left="90" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo25" Left="640" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/> <TfrxMemoView Name="Memo25" Align="baLeft" Left="585" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo26" Left="735" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/> <TfrxMemoView Name="Memo26" Align="baLeft" Left="680" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo32" Left="830" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo32" Align="baLeft" Left="875" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo39" Left="440" Top="0" Width="200" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;POBLACION&#34;]"/> <TfrxMemoView Name="Memo39" Align="baLeft" Left="425" Top="0" Width="160" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;POBLACION&#34;]"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="770" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RETENCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="25" Left="0" Top="428" Width="1009,13451" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True"> <TfrxGroupHeader Name="GroupHeader1" Height="25" Left="0" Top="428" Width="1009,13451" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo13" Left="190" Top="10" Width="250" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/> <TfrxMemoView Name="Memo13" Align="baLeft" Left="175" Top="10" Width="250" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo16" Left="640" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/> <TfrxMemoView Name="Memo16" Align="baLeft" Left="585" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="735" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/> <TfrxMemoView Name="Memo17" Align="baLeft" Left="680" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo19" Left="830" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/> <TfrxMemoView Name="Memo19" Align="baLeft" Left="875" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo34" Left="0" Top="10" Width="100" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Ref. cliente"/> <TfrxMemoView Name="Memo34" Left="0" Top="10" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Ref. cliente"/>
<TfrxMemoView Name="Memo35" Left="100" Top="10" 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="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/> <TfrxMemoView Name="Memo35" Align="baLeft" Left="90" Top="10" 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="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo36" Left="440" Top="10" 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="1" ParentFont="False" VAlign="vaCenter" Text="Población"/> <TfrxMemoView Name="Memo36" Align="baLeft" Left="425" Top="10" Width="160" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Población"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="770" Top="10" Width="105" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe retención"/>
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="25" Left="0" Top="510" Width="1009,13451"> <TfrxGroupFooter Name="GroupFooter1" Height="25" Left="0" Top="510" Width="1009,13451">
<TfrxMemoView Name="Memo10" Align="baLeft" Left="0" Top="0" Width="639,63" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES:"/> <TfrxMemoView Name="Memo10" Align="baLeft" Left="0" Top="0" Width="585" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES:"/>
<TfrxMemoView Name="Memo11" Left="829,63" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo11" Align="baLeft" Left="875" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo12" Left="734,63" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo12" Align="baLeft" Left="680" Top="0" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo33" Left="639,63" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo33" Align="baLeft" Left="585" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo47" Align="baLeft" Left="770" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RETENCION&#34;&#62;,DatosMaestros2)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

94
Source/Informes/1/InformeIVAClientesDesglosado.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="43748,7978228009" 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="044C65667403A90003546F70021008446174617365747301010C2A00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C3100000020446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <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="44215,5526719792" 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="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="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
@ -15,33 +15,36 @@
</TfrxPageFooter> </TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True"> <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo1" Left="7,55906" Top="0,77953" Width="485,37013" Height="20,78740157" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo1" Left="7,55906" Top="0,77953" Width="485,37013" Height="20,78740157" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<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="Arial" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/> <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="180" Top="25" Width="340" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/> <TfrxMemoView Name="Memo28" Align="baLeft" Left="160" Top="25" Width="300" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="520" Top="25" Width="85" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/> <TfrxMemoView Name="Memo49" Align="baLeft" Left="460" Top="25" Width="85" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="675" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/> <TfrxMemoView Name="Memo50" Align="baLeft" Left="615" Top="25" Width="85" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="815" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/> <TfrxMemoView Name="Memo51" Align="baLeft" Left="745" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="910" Top="25" Width="98" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/> <TfrxMemoView Name="Memo52" Align="baLeft" Left="825" Top="25" Width="102" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe retención"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="605" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Fecha"/> <TfrxMemoView Name="Memo8" Align="baLeft" Left="545" Top="25" Width="70" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo9" 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="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Referencia"/> <TfrxMemoView Name="Memo9" Align="baLeft" Left="80" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="770" Top="25" Width="45" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/> <TfrxMemoView Name="Memo40" Align="baLeft" Left="700" Top="25" Width="45" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="927" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoFacturas" RowCount="0"> <TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" 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="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/> <TfrxMemoView Name="Memo18" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="180" Top="0" Width="340" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo4" Align="baLeft" Left="160" Top="0" Width="300" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="520" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/> <TfrxMemoView Name="Memo20" Align="baLeft" Left="460" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="605" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/> <TfrxMemoView Name="Memo21" Align="baLeft" Left="545" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="675" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;] "/> <TfrxMemoView Name="Memo29" Align="baLeft" Left="615" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;] "/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="815" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/> <TfrxMemoView Name="Memo30" Align="baLeft" Left="745" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="910" Top="0" Width="98" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Align="baLeft" Left="927" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="90" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo22" Align="baLeft" Left="80" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="770" Top="0" Width="45" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/> <TfrxMemoView Name="Memo42" Align="baLeft" Left="700" Top="0" Width="45" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="825" Top="0" Width="102" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_RETENCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,14033677542"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,14033677542">
<TfrxMemoView Name="Memo6" Align="baLeft" Left="910" Top="0" Width="98" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Align="baLeft" Left="825" Top="0" Width="102" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_RETENCION&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="815" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Align="baLeft" Left="745" Top="0" Width="80" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="675" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Align="baLeft" Left="615" Top="0" Width="85" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="675" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0" Width="615" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="770" Top="0" Width="45" Height="16" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/> <TfrxMemoView Name="Memo41" Align="baLeft" Left="700" Top="0" Width="45" Height="16" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="927" Top="0" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;"> <TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo7" Left="1,77953" Top="0,37795276" Width="485,37013" Height="20,40944882" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/> <TfrxMemoView Name="Memo7" Left="1,77953" Top="0,37795276" Width="485,37013" Height="20,40944882" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
@ -50,29 +53,32 @@
<TfrxHeader Name="Header1" Height="50" Left="0" Top="436" Width="1009,14033677542"> <TfrxHeader Name="Header1" Height="50" Left="0" Top="436" Width="1009,14033677542">
<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 cliente"/> <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 cliente"/>
</TfrxHeader> </TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="551" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0"> <TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="551" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo24" Left="190" Top="0" Width="250" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo24" Align="baLeft" Left="160" Top="0" Width="250" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;REFERENCIA&#34;]"/> <TfrxMemoView Name="Memo37" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/> <TfrxMemoView Name="Memo38" Align="baLeft" Left="80" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo25" Left="640" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/> <TfrxMemoView Name="Memo25" Align="baLeft" Left="585" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo26" Left="735" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/> <TfrxMemoView Name="Memo26" Align="baLeft" Left="680" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo32" Left="830" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo39" Align="baLeft" Left="410" Top="0" Width="175" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;POBLACION&#34;]"/>
<TfrxMemoView Name="Memo39" Left="440" Top="0" Width="200" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;POBLACION&#34;]"/> <TfrxMemoView Name="Memo47" Align="baLeft" Left="870" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="775" 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="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RETENCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader2" Height="25" Left="0" Top="506" Width="1009,14033677542" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True"> <TfrxGroupHeader Name="GroupHeader2" Height="25" Left="0" Top="506" Width="1009,14033677542" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo13" Left="190" Top="10" Width="250" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/> <TfrxMemoView Name="Memo13" Align="baLeft" Left="160" Top="10" Width="250" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo16" Left="640" Top="10" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/> <TfrxMemoView Name="Memo16" Align="baLeft" Left="585" Top="10" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="735" Top="10" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/> <TfrxMemoView Name="Memo17" Align="baLeft" Left="680" Top="10" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo19" Left="830" Top="10" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/> <TfrxMemoView Name="Memo19" Align="baLeft" Left="775" Top="10" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe retención"/>
<TfrxMemoView Name="Memo34" Left="0" Top="10" Width="100" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Referencia"/> <TfrxMemoView Name="Memo34" Left="0" Top="10" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo35" Left="100" Top="10" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/> <TfrxMemoView Name="Memo35" Align="baLeft" Left="80" Top="10" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo36" Left="440" Top="10" Width="200" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Población"/> <TfrxMemoView Name="Memo36" Align="baLeft" Left="410" Top="10" Width="175" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Población"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="870" Top="10" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="25" Left="0" Top="588" Width="1009,14033677542"> <TfrxGroupFooter Name="GroupFooter2" Height="25" Left="0" Top="588" Width="1009,14033677542">
<TfrxMemoView Name="Memo10" Align="baLeft" Left="0" Top="0" Width="639,63" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES:"/> <TfrxMemoView Name="Memo10" Align="baLeft" Left="0" Top="0" Width="585" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES:"/>
<TfrxMemoView Name="Memo11" Left="829,63" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo11" Align="baLeft" Left="775" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RETENCION&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo12" Left="734,63" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo12" Align="baLeft" Left="680" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo33" Left="639,63" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo33" Align="baLeft" Left="585" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo48" Align="baLeft" Left="870" 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="Arial" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

92
Source/Informes/1/InformeListadoFacturasCliente.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="43748,798374919" 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="044C65667403A90003546F70021008446174617365747301010C2A00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C3100000020446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <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="44215,5291785995" 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">
@ -14,60 +14,66 @@
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="23,38559" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/> <TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="23,38559" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter> </TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True"> <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/> <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="361" Top="25" Width="283,33859" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Cliente"/> <TfrxMemoView Name="Memo28" Align="baLeft" Left="350" Top="25" Width="200" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Situación"/> <TfrxMemoView Name="Memo49" Align="baLeft" Left="550" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/> <TfrxMemoView Name="Memo50" Align="baLeft" Left="630" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/> <TfrxMemoView Name="Memo51" Align="baLeft" Left="725" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="94,48818898" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/> <TfrxMemoView Name="Memo52" Align="baLeft" Left="905" Top="25" Width="100" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88" Top="25" Width="92,67718" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Fecha"/> <TfrxMemoView Name="Memo8" Align="baLeft" Left="80" Top="25" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<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="Arial" 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="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="180,67718" Top="25" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Referencia"/> <TfrxMemoView Name="Memo5" Align="baLeft" Left="170" Top="25" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="270,67718" Top="25" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/> <TfrxMemoView Name="Memo9" Align="baLeft" Left="260" Top="25" Width="90" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="805" Top="25" Width="100" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe Retención"/>
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" 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" Left="360,66141732" Top="0" Width="283,7480315" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo4" Align="baLeft" Left="350" Top="0" Width="200" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,7480315" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/> <TfrxMemoView Name="Memo20" Align="baLeft" Left="550" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,06299213" Top="0" Width="92,5984252" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/> <TfrxMemoView Name="Memo21" Align="baLeft" Left="80" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,06299213" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/> <TfrxMemoView Name="Memo18" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/> <TfrxMemoView Name="Memo29" Align="baLeft" Left="630" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/> <TfrxMemoView Name="Memo30" Align="baLeft" Left="725" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="912,75590551" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Align="baLeft" Left="905" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="180,66141733" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo22" Align="baLeft" Left="170" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;REFERENCIA_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="270,66141733" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/> <TfrxMemoView Name="Memo40" Align="baLeft" Left="260" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="805" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_RETENCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" 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="630" 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="Memo6" Left="913,51181102" 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="905" Top="0,37774772" Width="100" 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" Left="817,13385827" Top="0,37774772" Width="96,37795276" 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_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Align="baLeft" Left="725" Top="0,37774772" Width="80" 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_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,11023622" 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;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Align="baLeft" Left="630" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="805" Top="0" Width="100" 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_RETENCION&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<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 cliente"/> <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 cliente"/>
</TfrxHeader> </TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="465" Width="1009,13451" ColumnWidth="0" ColumnGap="0" 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="300" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo24" Align="baLeft" Left="160" Top="0" Width="300" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;REFERENCIA&#34;]"/> <TfrxMemoView Name="Memo37" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/> <TfrxMemoView Name="Memo38" Align="baLeft" Left="80" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="690" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/> <TfrxMemoView Name="Memo25" Align="baLeft" Left="620" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="785" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/> <TfrxMemoView Name="Memo26" Align="baLeft" Left="720" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="880" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo32" Align="baLeft" Left="810" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RETENCION&#34;]"/>
<TfrxMemoView Name="Memo39" Align="baLeft" Left="490" Top="0" Width="200" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;POBLACION&#34;]"/> <TfrxMemoView Name="Memo39" Align="baLeft" Left="460" Top="0" Width="160" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;POBLACION&#34;]"/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="915" 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="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="25" Left="0" Top="420" Width="1009,13451" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True"> <TfrxGroupHeader Name="GroupHeader1" Height="25" Left="0" Top="420" Width="1009,13451" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo13" Left="190" Top="10" 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="9" ParentFont="False" VAlign="vaCenter" Text="Cliente"/> <TfrxMemoView Name="Memo13" Align="baLeft" Left="160" Top="10" 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="9" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo16" Align="baLeft" Left="690" Top="10" 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="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/> <TfrxMemoView Name="Memo16" Align="baLeft" Left="620" Top="10" 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="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baLeft" Left="785" Top="10" 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="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/> <TfrxMemoView Name="Memo17" Align="baLeft" Left="720" Top="10" 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 IVA"/>
<TfrxMemoView Name="Memo19" Align="baLeft" Left="880" Top="10" 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="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/> <TfrxMemoView Name="Memo19" Align="baLeft" Left="810" Top="10" Width="105" 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 retención"/>
<TfrxMemoView Name="Memo34" Left="0" Top="10" 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="8" ParentFont="False" VAlign="vaCenter" Text="Referencia"/> <TfrxMemoView Name="Memo34" Left="0" Top="10" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="8" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo35" Left="100" Top="10" 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" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/> <TfrxMemoView Name="Memo35" Align="baLeft" Left="80" Top="10" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo36" Align="baLeft" Left="490" Top="10" 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="9" ParentFont="False" VAlign="vaCenter" Text="Población"/> <TfrxMemoView Name="Memo36" Align="baLeft" Left="460" Top="10" Width="160" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Población"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="915" Top="10" 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="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="25" Left="0" Top="502" Width="1009,13451"> <TfrxGroupFooter Name="GroupFooter1" Height="25" Left="0" Top="502" Width="1009,13451">
<TfrxMemoView Name="Memo10" Align="baLeft" Left="0" Top="0" Width="690" 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:"/> <TfrxMemoView Name="Memo10" Align="baLeft" Left="0" Top="0" Width="620" 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:"/>
<TfrxMemoView Name="Memo11" Align="baLeft" Left="880" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo11" Align="baLeft" Left="810" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RETENCION&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="785" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo33" Align="baLeft" Left="620" Top="0" Width="100" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo33" Align="baLeft" Left="690" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo46" Align="baLeft" Left="915" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="720" Top="0" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

84
Source/Informes/1/InformeListadoFacturasClienteDesglosado.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="43748,7984883102" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;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="044C65667403A90003546F70021008446174617365747301010C2A00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C3100000020446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <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="44215,5377935069" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;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="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="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
@ -13,29 +13,32 @@
<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="270" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True"> <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="270" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/> <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="180" Top="25" Width="464,33859" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Cliente"/> <TfrxMemoView Name="Memo28" Align="baLeft" Left="160" Top="25" Width="360" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Situación"/> <TfrxMemoView Name="Memo49" Align="baLeft" Left="520" Top="25" Width="110" Height="15" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/> <TfrxMemoView Name="Memo50" Align="baLeft" Left="630" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/> <TfrxMemoView Name="Memo51" Align="baLeft" Left="725" Top="25" Width="85" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/> <TfrxMemoView Name="Memo52" Align="baLeft" Left="905" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88" Top="25" Width="92,67718" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Fecha"/> <TfrxMemoView Name="Memo8" Align="baLeft" Left="80" Top="25" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo7" Left="7,55906" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="810" Top="25" Width="95" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="9" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe retención"/>
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="330" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoFacturas" RowCount="0"> <TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="330" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="180,66141732" Top="0" Width="463,7480315" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo4" Align="baLeft" Left="160" Top="0" Width="360" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,7480315" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/> <TfrxMemoView Name="Memo20" Align="baLeft" Left="520" Top="0" Width="110" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,06299213" Top="0" Width="92,5984252" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/> <TfrxMemoView Name="Memo21" Align="baLeft" Left="80" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,06299213" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/> <TfrxMemoView Name="Memo18" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/> <TfrxMemoView Name="Memo29" Align="baLeft" Left="630" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/> <TfrxMemoView Name="Memo30" Align="baLeft" Left="724,48818898" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="912,75590551" Top="0" Width="95,62204724" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo31" Align="baLeft" Left="905,11023622" Top="0" Width="95,62204724" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="809,48818898" Top="0" Width="95,62204724" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_RETENCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="367" Width="1009,14033677542"> <TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="367" Width="1009,14033677542">
<TfrxMemoView Name="Memo6" Left="913,13385827" 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="Arial" 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="905" 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="Arial" 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" Left="816,22936" Top="0,37774772" Width="97,13385827" 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="Arial" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Align="baLeft" Left="725" Top="0,37774772" Width="85" 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="Arial" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,15748031" 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="Arial" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Align="baLeft" Left="630" 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="Arial" Font.Style="1" Frame.Typ="5" 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="724,15748031" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]:"/> <TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="630" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]:"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="810" 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="Arial" Font.Style="1" Frame.Typ="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_RETENCION&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader1" Height="37,7953" Left="0" Top="212" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;"> <TfrxGroupHeader Name="GroupHeader1" Height="37,7953" Left="0" Top="212" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo1" Left="0" Top="17,89765" Width="492,92919" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/> <TfrxMemoView Name="Memo1" Left="0" Top="17,89765" Width="492,92919" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
@ -49,29 +52,32 @@
<TfrxHeader Name="Header1" Height="50" Left="0" Top="454" Width="1009,14033677542"> <TfrxHeader Name="Header1" Height="50" Left="0" Top="454" Width="1009,14033677542">
<TfrxMemoView Name="Memo2" 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 cliente"/> <TfrxMemoView Name="Memo2" 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 cliente"/>
</TfrxHeader> </TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="569" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0"> <TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="569" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="190" Top="0" Width="250" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/> <TfrxMemoView Name="Memo9" Align="baLeft" Left="160" Top="0" Width="260" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" 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="80" 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" Align="baLeft" Left="80" Top="0" Width="80" 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="Memo10" Left="640" 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="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/> <TfrxMemoView Name="Memo10" Align="baLeft" Left="595" 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="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo26" Left="735" 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="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/> <TfrxMemoView Name="Memo26" Align="baLeft" Left="690" 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="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo32" Left="830" 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="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="Memo32" Align="baLeft" Left="885" Top="0" Width="105" 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" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo39" Left="440" Top="0" Width="200" 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;POBLACION&#34;]"/> <TfrxMemoView Name="Memo39" Align="baLeft" Left="420" Top="0" Width="175" 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;POBLACION&#34;]"/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="780" Top="0" Width="105" 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" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RETENCION&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader2" Height="25" Left="0" Top="524" Width="1009,14033677542" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True"> <TfrxGroupHeader Name="GroupHeader2" Height="25" Left="0" Top="524" Width="1009,14033677542" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo13" Left="190" Top="10" Width="250" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/> <TfrxMemoView Name="Memo13" Align="baLeft" Left="160" Top="10" Width="260" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo16" Left="640" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/> <TfrxMemoView Name="Memo16" Align="baLeft" Left="595" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo11" Left="735" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/> <TfrxMemoView Name="Memo11" Align="baLeft" Left="690" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo19" Left="830" Top="10" 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="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/> <TfrxMemoView Name="Memo19" Align="baLeft" Left="885" Top="10" Width="105" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo34" Left="0" Top="10" Width="100" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Referencia"/> <TfrxMemoView Name="Memo34" Left="0" Top="10" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxMemoView Name="Memo35" Left="100" Top="10" 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="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/> <TfrxMemoView Name="Memo35" Align="baLeft" Left="80" Top="10" Width="80" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo36" Left="440" Top="10" 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="1" ParentFont="False" VAlign="vaCenter" Text="Población"/> <TfrxMemoView Name="Memo36" Align="baLeft" Left="420" Top="10" Width="175" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" ParentFont="False" VAlign="vaCenter" Text="Población"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="780" Top="10" Width="105" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe retención"/>
</TfrxGroupHeader> </TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="25" Left="0" Top="606" Width="1009,14033677542"> <TfrxGroupFooter Name="GroupFooter2" Height="25" Left="0" Top="606" Width="1009,14033677542">
<TfrxMemoView Name="Memo12" Align="baLeft" Left="0" Top="0" Width="639,63" 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:"/> <TfrxMemoView Name="Memo12" Align="baLeft" Left="0" Top="0" Width="595" 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:"/>
<TfrxMemoView Name="Memo33" Left="829,63" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo33" Align="baLeft" Left="780" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RETENCION&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo40" Left="734,63" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo40" Align="baLeft" Left="690" Top="0" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo41" Left="639,63" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/> <TfrxMemoView Name="Memo41" Align="baLeft" Left="595" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="885" 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="5" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>
</TfrxReport> </TfrxReport>

8
Source/Informes/2/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

16
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -49,8 +49,8 @@ type
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
procedure RecalcularImportes(AAlbaran: IBizAlbaranCliente); procedure RecalcularImportes(AAlbaran: IBizAlbaranCliente);
function EsModificable(AAlbaran: IBizAlbaranCliente): Boolean; function EsModificable(AAlbaran: IBizAlbaranCliente): Boolean;
@ -147,8 +147,8 @@ type
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true; procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
function DarListaAnosAlbaranes: TStringList; function DarListaAnosAlbaranes: TStringList;
procedure FiltrarAno(AAlbaran: IBizAlbaranCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AAlbaran: IBizAlbaranCliente; ADynWhereDataTable: WideString; const Ano: String);
@ -808,25 +808,25 @@ begin
Result := not (AAlbaran.ID_FACTURA > 0); Result := not (AAlbaran.ID_FACTURA > 0);
end; end;
procedure TAlbaranesClienteController.EtiquetasPreview(AAlbaran: IBizAlbaranCliente; Const withRefCliente: Boolean); procedure TAlbaranesClienteController.EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
begin begin
AReportController := TAlbaranesClienteReportController.Create; AReportController := TAlbaranesClienteReportController.Create;
try try
AReportController.EtiquetasPreview(AAlbaran.ID, withRefCliente); AReportController.EtiquetasPreview(AAlbaran.ID, AAgencia, AReferencia, ANumEtiquetas, AEtiquetaIni);
finally finally
AReportController := NIL; AReportController := NIL;
end; end;
end; end;
procedure TAlbaranesClienteController.EtiquetasPrint(AAlbaran: IBizAlbaranCliente; Const withRefCliente: Boolean); procedure TAlbaranesClienteController.EtiquetasPrint(AAlbaran: IBizAlbaranCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
begin begin
AReportController := TAlbaranesClienteReportController.Create; AReportController := TAlbaranesClienteReportController.Create;
try try
AReportController.EtiquetasPrint(AAlbaran.ID, withRefCliente); AReportController.EtiquetasPrint(AAlbaran.ID, AAgencia, AReferencia, ANumEtiquetas, AEtiquetaIni);
finally finally
AReportController := NIL; AReportController := NIL;
end; end;

16
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -16,8 +16,8 @@ type
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean; procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer = 1; const AEtiquetaIni: Integer = 1);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -36,8 +36,8 @@ type
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean; procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer = 1; const AEtiquetaIni: Integer = 1);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer = 1; const AEtiquetaIni: Integer = 1);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -70,14 +70,14 @@ begin
inherited; inherited;
end; end;
procedure TAlbaranesClienteReportController.EtiquetasPreview(const AID: integer; const withRefCliente: Boolean); procedure TAlbaranesClienteReportController.EtiquetasPreview(const AID : integer; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer = 1; const AEtiquetaIni: Integer = 1);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetEtiquetas(AID, withRefCliente); AStream := FDataModule.GetEtiquetas(AID, AAgencia, aReferencia, ANumEtiquetas, AEtiquetaIni);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -93,7 +93,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteReportController.EtiquetasPrint(const AID: integer; const withRefCliente: Boolean); procedure TAlbaranesClienteReportController.EtiquetasPrint(const AID: integer; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer = 1; const AEtiquetaIni: Integer = 1);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
@ -102,7 +102,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetEtiquetas(AID, withRefCliente); AStream := FDataModule.GetEtiquetas(AID, AAgencia, AReferencia, ANumEtiquetas, AEtiquetaIni);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then

6
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -40,7 +40,7 @@ type
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean; function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function GetEtiquetas(const AID: Integer; const AAgencia: Variant; const ARefPedido: Variant; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean; function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
@ -143,9 +143,9 @@ begin
end; end;
end; end;
function TDataModuleAlbaranesCliente.GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function TDataModuleAlbaranesCliente.GetEtiquetas(const AID: Integer; const AAgencia: Variant; const ARefPedido: Variant; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer): Binary;
begin begin
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AID, withRefCliente) Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AID, AAgencia, ARefPedido, ANumEtiquetas, AEtiquetaIni)
end; end;
function TDataModuleAlbaranesCliente.GetItem(const ID: Integer): IBizAlbaranCliente; function TDataModuleAlbaranesCliente.GetItem(const ID: Integer): IBizAlbaranCliente;

2
Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
View File

@ -11,7 +11,7 @@ type
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean; function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function GetEtiquetas(const AID: Integer; const AAgencia: Variant; const ARefPedido: Variant; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean; function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;

2
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
View File

@ -195,7 +195,7 @@ begin
TIENDA := AppFactuGES.TiendaActiva.NOMBRE; TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
//TEMPORAL ALMACÉN PUESTO A CAPÓN Y PROVISIONAL //TEMPORAL ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 1; ID_ALMACEN := 0;
end; end;

217
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -958,115 +958,131 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Params = < Params = <
item item
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'REF_PEDIDO'
Value = ''
end
item
Name = 'AGENCIA'
Value = ''
end
item
Name = 'NUM_ETIQUETAS'
Value = ''
end
item
Name = 'ETIQUETA_INI'
Value = ''
end> end>
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL = SQL =
'SELECT ALBARANES_CLIENTE.REFERENCIA, ALBARANES_CLIENTE.FECHA_PRE' + 'select *'#10'from PROC_ETIQUETAS_ALBARAN(:ID_ALBARAN, :REF_PEDIDO, :' +
'VISTA_ENVIO,'#10' ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLI' + 'AGENCIA, :NUM_ETIQUETAS, :ETIQUETA_INI)'#10#10
'ENTE_DETALLES.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSI' +
'CION, ALBARANES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEX' +
'T(ALBARANES_CLIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CL' +
'IENTE_DETALLES.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPOR' +
'TE_UNIDAD, ALBARANES_CLIENTE_DETALLES.IMPORTE_TOTAL'#10#10'FROM ALBARA' +
'NES_CLIENTE_DETALLES'#10'left join ALBARANES_CLIENTE on (ALBARANES_C' +
'LIENTE.ID = ALBARANES_CLIENTE_DETALLES.ID_ALBARAN)'#10'WHERE (ID_ALB' +
'ARAN = :ID_ALBARAN)'#10'AND (ALBARANES_CLIENTE_DETALLES.CANTIDAD > 0' +
')'#10'ORDER BY POSICION'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'CANTIDAD' DatasetField = 'AGENCIA'
TableField = 'CANTIDAD' TableField = 'AGENCIA'
end end
item item
DatasetField = 'POSICION' DatasetField = 'BULTO'
TableField = 'POSICION' TableField = 'BULTO'
end end
item item
DatasetField = 'ID' DatasetField = 'NUM_BULTOS'
TableField = 'ID' TableField = 'NUM_BULTOS'
end end
item item
DatasetField = 'TIPO_DETALLE' DatasetField = 'DESTINATARIO'
TableField = 'TIPO_DETALLE' TableField = 'DESTINATARIO'
end end
item item
DatasetField = 'CONCEPTO' DatasetField = 'TELEFONO'
TableField = 'CONCEPTO' TableField = 'TELEFONO'
end end
item item
DatasetField = 'IMPORTE_UNIDAD' DatasetField = 'CALLE'
TableField = 'IMPORTE_UNIDAD' TableField = 'CALLE'
end end
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'CODIGO_POSTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'CODIGO_POSTAL'
end end
item item
DatasetField = 'ID_ALBARAN' DatasetField = 'POBLACION'
TableField = 'ID_ALBARAN' TableField = 'POBLACION'
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'PROVINCIA'
TableField = '<unknown>' TableField = 'PROVINCIA'
SQLOrigin = 'REFERENCIA'
end end
item item
DatasetField = 'FECHA_PREVISTA_ENVIO' DatasetField = 'REF_PEDIDO'
TableField = '<unknown>' TableField = 'REF_PEDIDO'
SQLOrigin = 'FECHA_PREVISTA_ENVIO' end
item
DatasetField = 'REF_CLIENTE'
TableField = 'REF_CLIENTE'
end> end>
end> end>
Name = 'Informe_Detalles_Etiquetas' Name = 'Informe_Detalles_Etiquetas'
Fields = < Fields = <
item item
Name = 'REFERENCIA' Name = 'AGENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item item
Name = 'FECHA_PREVISTA_ENVIO' Name = 'BULTO'
DataType = datDateTime
end
item
Name = 'ID'
DataType = datInteger DataType = datInteger
end end
item item
Name = 'ID_ALBARAN' Name = 'NUM_BULTOS'
DataType = datInteger DataType = datInteger
end end
item item
Name = 'POSICION' Name = 'DESTINATARIO'
DataType = datInteger
end
item
Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 255
end end
item item
Name = 'CONCEPTO' Name = 'TELEFONO'
DataType = datString DataType = datString
Size = 254 Size = 255
end end
item item
Name = 'CANTIDAD' Name = 'CALLE'
DataType = datInteger DataType = datString
Size = 255
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'CODIGO_POSTAL'
DataType = datCurrency DataType = datString
Size = 255
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'POBLACION'
DataType = datCurrency DataType = datString
Size = 255
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'REF_PEDIDO'
DataType = datString
Size = 255
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -1282,7 +1298,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 44183.517020532410000000 ReportOptions.LastChange = 44233.813875682870000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1314,45 +1330,78 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
Name = 'ID' Name = 'AGENCIA'
DataType = datInteger
end
item
Name = 'ID_ALBARAN'
DataType = datInteger
end
item
Name = 'POSICION'
DataType = datInteger
end
item
Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 255
end end
item item
Name = 'CONCEPTO' Name = 'BULTO'
DataType = datString
Size = 254
end
item
Name = 'CANTIDAD'
DataType = datInteger DataType = datInteger
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'NUM_BULTOS'
DataType = datCurrency DataType = datInteger
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'DESTINATARIO'
DataType = datCurrency DataType = datString
Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'REF_PEDIDO'
DataType = datString
Size = 255
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end> end>
Params = < Params = <
item item
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'REF_PEDIDO'
Value = ''
end
item
Name = 'AGENCIA'
Value = ''
end
item
Name = 'NUM_ETIQUETAS'
Value = ''
end
item
Name = 'ETIQUETA_INI'
Value = ''
end> end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False

18
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -44,7 +44,7 @@ type
public public
function GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary; function GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary; function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary; function GenerarEtiquetas(const AID : Integer; const AAgencia: Variant; const ARefPedido: Variant; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer): Binary;
end; end;
implementation implementation
@ -141,7 +141,7 @@ begin
end; end;
end; end;
function TRptAlbaranesCliente.GenerarEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function TRptAlbaranesCliente.GenerarEtiquetas(const AID : Integer; const AAgencia: Variant; const ARefPedido: Variant; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer): Binary;
var var
AInforme: Variant; AInforme: Variant;
@ -151,17 +151,21 @@ begin
try try
tbl_Etiquetas.ParamByName('ID_ALBARAN').AsInteger := AID; tbl_Etiquetas.ParamByName('ID_ALBARAN').AsInteger := AID;
tbl_Etiquetas.ParamByName('AGENCIA').AsString := AAgencia;
tbl_Etiquetas.ParamByName('REF_PEDIDO').AsString := ARefPedido;
tbl_Etiquetas.ParamByName('NUM_ETIQUETAS').AsInteger := ANumEtiquetas;
tbl_Etiquetas.ParamByName('ETIQUETA_INI').AsInteger := AEtiquetaIni;
tbl_Etiquetas.Active := True; tbl_Etiquetas.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas); AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: GenerarEtiquetas, no encuentra informe' + rptInfEtiquetas)); raise Exception.Create (('Error Servidor: GenerarEtiquetas, no encuentra informe' + rptInfEtiquetas));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
if withRefCliente then // if withRefCliente then
frxReport.Variables.Variables['withRefCliente'] := 1 // frxReport.Variables.Variables['withRefCliente'] := 1
else // else
frxReport.Variables.Variables['withRefCliente'] := 0; // frxReport.Variables.Variables['withRefCliente'] := 0;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);

2
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -1407,7 +1407,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DeleteCommandName = 'Delete_AlbaranesCliente_Detalles' DeleteCommandName = 'Delete_AlbaranesCliente_Detalles'
UpdateCommandName = 'Update_AlbaranesCliente_Detalles' UpdateCommandName = 'Update_AlbaranesCliente_Detalles'
ReferencedDataset = 'AlbaranesCliente_Detalles' ReferencedDataset = 'AlbaranesCliente_Detalles'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 200 Left = 200
Top = 88 Top = 88

7
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -33,7 +33,7 @@ type
protected protected
{ IsrvAlbaranesCliente methods } { IsrvAlbaranesCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerarInformeEtiquetas(const ID: Integer; const AAgencia: Variant; const ARefPedido: Variant; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer): Binary;
end; end;
implementation implementation
@ -93,14 +93,13 @@ begin
end; end;
end; end;
function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ID: Integer; function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ID: Integer; const AAgencia: Variant; const ARefPedido: Variant; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer): Binary;
const withRefCliente: Boolean): Binary;
var var
AReportGenerator : TRptAlbaranesCliente; AReportGenerator : TRptAlbaranesCliente;
begin begin
AReportGenerator := TRptAlbaranesCliente.Create(nil); AReportGenerator := TRptAlbaranesCliente.Create(nil);
try try
Result := AReportGenerator.GenerarEtiquetas(ID, withRefCliente); Result := AReportGenerator.GenerarEtiquetas(ID, AAgencia, ARefPedido, ANumEtiquetas, AEtiquetaIni);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

3
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
View File

@ -68,6 +68,7 @@ contains
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView}, uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView}, uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView},
uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {frDialogOpcionesImpresionAlbaranesCliente: T}, uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {frDialogOpcionesImpresionAlbaranesCliente: T},
uEditorDireccionEntregaAlbaranCliente in 'uEditorDireccionEntregaAlbaranCliente.pas' {fEditorDireccionEntregaAlbaranCliente: TCustomEditor}; uEditorDireccionEntregaAlbaranCliente in 'uEditorDireccionEntregaAlbaranCliente.pas' {fEditorDireccionEntregaAlbaranCliente: TCustomEditor},
uDialogOpcionesImpresionEtiquetasAlbaranesCliente in 'uDialogOpcionesImpresionEtiquetasAlbaranesCliente.pas' {frDialogOpcionesImpresionEtiquetasAlbaranesCliente: T};
end. end.

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

@ -79,6 +79,7 @@
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form> <Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
<DesignClass>T</DesignClass> <DesignClass>T</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDialogOpcionesImpresionEtiquetasAlbaranesCliente.pas" />
<DCCReference Include="uEditorAlbaranCliente.pas"> <DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form> <Form>fEditorAlbaranCliente</Form>
<DesignClass>TfEditorAlbaranCliente</DesignClass> <DesignClass>TfEditorAlbaranCliente</DesignClass>
@ -100,7 +101,7 @@
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorDireccionEntregaAlbaranCliente.pas"> <DCCReference Include="uEditorDireccionEntregaAlbaranCliente.pas">
<Form>fEditorDireccionEntregaAlbaraCliente</Form> <Form>fEditorDireccionEntregaAlbaranCliente</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorElegirAlbaranesCliente.pas"> <DCCReference Include="uEditorElegirAlbaranesCliente.pas">

96
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionEtiquetasAlbaranesCliente.dfm Normal file
View File

@ -0,0 +1,96 @@
inherited fDialogOpcionesImpresionEtiquetasAlbaranesCliente: TfDialogOpcionesImpresionEtiquetasAlbaranesCliente
Caption = 'Opciones para el albar'#225'n de cliente'
ClientHeight = 391
ClientWidth = 511
ExplicitWidth = 517
ExplicitHeight = 427
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 511
ExplicitWidth = 393
end
inherited Bevel3: TBevel
Top = 347
Width = 511
ExplicitTop = 195
ExplicitWidth = 393
end
inherited pnlBotones: TPanel
Top = 349
Width = 511
ExplicitTop = 218
ExplicitWidth = 393
inherited btnAceptar: TButton
Left = 229
ExplicitLeft = 229
end
inherited btnCancelar: TButton
Left = 308
ExplicitLeft = 308
end
end
inherited pnlHeader: TPanel
Width = 511
ExplicitWidth = 393
inherited lblTitle: TLabel
Width = 461
Caption = 'Indique las siguiente opciones para el albar'#225'n de cliente:'
ExplicitWidth = 319
end
inherited lblComments: TLabel
Width = 436
Height = 27
Visible = False
end
end
inherited pnlCuerpo: TPanel
Width = 511
Height = 281
ExplicitWidth = 393
ExplicitHeight = 152
object eReferencia: TEdit
Left = 50
Top = 61
Width = 121
Height = 21
TabOrder = 0
Text = 'eReferencia'
end
object enumEtiquetas: TcxSpinEdit
Left = 50
Top = 125
Properties.MaxValue = 100.000000000000000000
Properties.MinValue = 1.000000000000000000
TabOrder = 1
Value = 1
Width = 121
end
object eAgencia: TEdit
Left = 50
Top = 21
Width = 121
Height = 21
TabOrder = 2
Text = 'eReferencia'
end
object eEtiquetaIni: TcxSpinEdit
Left = 218
Top = 125
Properties.LargeIncrement = 1.000000000000000000
Properties.MaxValue = 8.000000000000000000
Properties.MinValue = 1.000000000000000000
TabOrder = 3
Value = 1
Width = 121
end
end
inherited ActionListDialog: TActionList
inherited actAceptar: TAction
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
end

60
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionEtiquetasAlbaranesCliente.pas Normal file
View File

@ -0,0 +1,60 @@
unit uDialogOpcionesImpresionEtiquetasAlbaranesCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxControls, cxContainer,
cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit;
type
TfDialogOpcionesImpresionEtiquetasAlbaranesCliente = class(TfDialogBase)
eReferencia: TEdit;
enumEtiquetas: TcxSpinEdit;
eAgencia: TEdit;
eEtiquetaIni: TcxSpinEdit;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
end;
function ElegirOpcionesImpresionEtiquetasAlbaranCliente(var AAgencia: String; var AReferencia : String; var ANumEtiquetas : Integer; var AEtiquetaIni : Integer): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionEtiquetasAlbaranCliente(var AAgencia: String; var AReferencia : String; var ANumEtiquetas : Integer; var AEtiquetaIni : Integer): Boolean;
var
AEditor : TfDialogOpcionesImpresionEtiquetasAlbaranesCliente;
begin
AEditor := TfDialogOpcionesImpresionEtiquetasAlbaranesCliente.Create(NIL);
try
AEditor.eReferencia.Text := AReferencia;
AEditor.eAgencia.Text := AAgencia;
Result := (AEditor.ShowModal = mrOk);
if Result then
begin
AAgencia := AEditor.eAgencia.Text;
AReferencia := AEditor.eReferencia.Text;
ANumEtiquetas := AEditor.enumEtiquetas.Value;
AEtiquetaIni := AEditor.eEtiquetaIni.Value;
end;
finally
AEditor.Release;
end;
end;
procedure TfDialogOpcionesImpresionEtiquetasAlbaranesCliente.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk
end;
procedure TfDialogOpcionesImpresionEtiquetasAlbaranesCliente.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
end.

42
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -1,16 +1,16 @@
inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente' Caption = 'Lista de albaranes de cliente'
ClientWidth = 583 ClientWidth = 899
ExplicitWidth = 591 ExplicitWidth = 907
ExplicitHeight = 482 ExplicitHeight = 482
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 583 Width = 899
Caption = 'Lista de albaranes de cliente' Caption = 'Lista de albaranes de cliente'
ExplicitWidth = 583 ExplicitWidth = 899
inherited Image1: TImage inherited Image1: TImage
Left = 556 Left = 872
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -122,12 +122,10 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 583 Width = 899
Height = 105 ExplicitWidth = 899
ExplicitWidth = 583
ExplicitHeight = 105
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 583 ExplicitWidth = 717
object TBXSeparatorItem17: TTBXSeparatorItem [10] object TBXSeparatorItem17: TTBXSeparatorItem [10]
end end
end end
@ -144,16 +142,14 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 583 ExplicitWidth = 899
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 334 Left = 460
Top = 79 DockPos = 460
Visible = True Visible = True
ExplicitLeft = 334 ExplicitLeft = 460
ExplicitTop = 79 ExplicitWidth = 271
ExplicitWidth = 142
ExplicitHeight = 26
object TBXItem42: TTBXItem object TBXItem42: TTBXItem
Action = actEnviar Action = actEnviar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -181,8 +177,8 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 583 Width = 899
ExplicitWidth = 583 ExplicitWidth = 899
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
inherited actNuevo: TAction inherited actNuevo: TAction
@ -231,9 +227,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
object actGenerarEtiquetas: TAction object actGenerarEtiquetas: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Generar etiquetas' Caption = 'Generar etiquetas'
Enabled = False ImageIndex = 11
ImageIndex = 23
Visible = False
OnExecute = actGenerarEtiquetasExecute OnExecute = actGenerarEtiquetasExecute
end end
end end
@ -1677,6 +1671,10 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end end
inherited dsDataTable: TDADataSource [8] inherited dsDataTable: TDADataSource [8]
end end
inherited StatusBarImages: TPngImageList
Left = 144
Top = 296
end
inherited GridPopupMenu: TPopupMenu inherited GridPopupMenu: TPopupMenu
object N4: TMenuItem [5] object N4: TMenuItem [5]
Caption = '-' Caption = '-'

16
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -86,6 +86,7 @@ implementation
uses uses
uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App, uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
uDialogOpcionesImpresionAlbaranesCliente, uDialogOpcionesImpresionAlbaranesCliente,
uDialogOpcionesImpresionEtiquetasAlbaranesCliente,
//En tecsitel no estaran habilitados los pedidos //En tecsitel no estaran habilitados los pedidos
// uPedidosClienteController, uBizPedidosCliente, // uPedidosClienteController, uBizPedidosCliente,
uDialogUtils, schAlbaranesClienteClient_Intf, uGenerarFacturasCliAlbCliUtils, uDialogUtils, schAlbaranesClienteClient_Intf, uGenerarFacturasCliAlbCliUtils,
@ -159,9 +160,20 @@ begin
end; end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject); procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
var
FReferencia: String;
FAgencia: String;
FNumEtiquetas: Integer;
FEtiquetaIni: Integer;
begin begin
inherited; inherited;
FController.EtiquetasPreview(FAlbaranes, True);
FAgencia := 'PROPIO';
FReferencia := FAlbaranes.REF_PEDIDO;
if ElegirOpcionesImpresionEtiquetasAlbaranCliente(FAgencia, FReferencia, FNumEtiquetas, FEtiquetaIni) then
FController.EtiquetasPreview(FAlbaranes, FAgencia, FReferencia, FNumEtiquetas, FEtiquetaIni);
end; end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject); procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject);
@ -376,7 +388,7 @@ var
AllItems: Boolean; AllItems: Boolean;
FVerLogotipo: Boolean; FVerLogotipo: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirTotales : Boolean; FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean; FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean; FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean; FImprimirIncidencias: Boolean;

55
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -20,7 +20,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
671) 671)
object Label1: TLabel object Label1: TLabel
Left = 412 Left = 412
Top = 678 Top = 618
Width = 299 Width = 299
Height = 26 Height = 26
Caption = Caption =
@ -30,7 +30,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object edtFechaAlbaran: TcxDBDateEdit object edtFechaAlbaran: TcxDBDateEdit
Left = 116 Left = 116
Top = 82 Top = 22
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataField = 'FECHA_ALBARAN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -56,7 +56,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 116 Left = 116
Top = 28 Top = -32
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -82,7 +82,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Left = 412 Left = 412
Top = 28 Top = -32
Width = 442 Width = 442
Height = 221 Height = 221
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -94,7 +94,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 10 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 412 ExplicitLeft = 412
ExplicitTop = 28 ExplicitTop = -32
ExplicitWidth = 442 ExplicitWidth = 442
ExplicitHeight = 221 ExplicitHeight = 221
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -142,7 +142,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object ePoblacion: TcxDBTextEdit object ePoblacion: TcxDBTextEdit
Left = 506 Left = 506
Top = 452 Top = 392
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -161,7 +161,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 951 Left = 951
Top = 452 Top = 392
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -180,7 +180,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eProvincia: TcxDBTextEdit object eProvincia: TcxDBTextEdit
Left = 506 Left = 506
Top = 479 Top = 419
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -199,7 +199,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 506 Left = 506
Top = 506 Top = 446
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -219,7 +219,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 506 Left = 506
Top = 533 Top = 473
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -238,7 +238,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object Button1: TButton object Button1: TButton
Left = 250 Left = 250
Top = 138 Top = 78
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedidoCli Action = actVerPedidoCli
@ -246,7 +246,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 116 Left = 116
Top = 138 Top = 78
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -269,7 +269,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 116 Left = 116
Top = 109 Top = 49
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
@ -300,7 +300,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 250 Left = 250
Top = 109 Top = 49
Width = 132 Width = 132
Height = 23 Height = 23
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
@ -309,7 +309,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 546 Left = 546
Top = 339 Top = 279
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -334,7 +334,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 422 Left = 422
Top = 646 Top = 586
Width = 179 Width = 179
Height = 21 Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:' Caption = 'Asociar este albar'#225'n al almac'#233'n:'
@ -343,7 +343,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 607 Left = 607
Top = 646 Top = 586
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -373,7 +373,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eRefFacturaCli: TcxDBTextEdit object eRefFacturaCli: TcxDBTextEdit
Left = 116 Left = 116
Top = 167 Top = 107
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA' DataBinding.DataField = 'REF_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -399,7 +399,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 546 Left = 546
Top = 285 Top = 225
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -426,7 +426,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
Left = 116 Left = 116
Top = 55 Top = -5
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -450,7 +450,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaEnvio: TcxDBDateEdit object eFechaEnvio: TcxDBDateEdit
Left = 546 Left = 546
Top = 312 Top = 252
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -475,7 +475,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 22 Left = 22
Top = 224 Top = 164
Width = 373 Width = 373
Height = 41 Height = 41
Enabled = False Enabled = False
@ -488,7 +488,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 8 TabOrder = 8
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 224 ExplicitTop = 164
ExplicitWidth = 373 ExplicitWidth = 373
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 373 Width = 373
@ -501,7 +501,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
inline frViewObservaciones1: TfrViewObservaciones inline frViewObservaciones1: TfrViewObservaciones
Left = 22 Left = 22
Top = 301 Top = 241
Width = 521 Width = 521
Height = 228 Height = 228
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -513,7 +513,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 9 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 301 ExplicitTop = 241
ExplicitHeight = 228 ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
@ -524,7 +524,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCalle: TcxDBMemo object eCalle: TcxDBMemo
Left = 506 Left = 506
Top = 396 Top = 336
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -546,7 +546,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eNotasEnvio: TcxDBMemo object eNotasEnvio: TcxDBMemo
Left = 506 Left = 506
Top = 560 Top = 500
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'NOTAS_ENVIO' DataBinding.DataField = 'NOTAS_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -779,7 +779,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'Almac'#233'n de origen' Caption = 'Almac'#233'n de origen'
Visible = False
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True

23
Source/Modulos/Albaranes de cliente/Views/uViewElegirArticulosAlbaranesCliente.dfm
View File

@ -1,26 +1,33 @@
inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridLevel: TcxGridLevel
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn Visible = False
Visible = False
end
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
Visible = False
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

BIN
Source/Modulos/Albaranes de cliente/Views/uViewElegirArticulosAlbaranesCliente.pas
View File

Binary file not shown.

76
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
View File

@ -14,7 +14,14 @@
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" /> <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" /> <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" />
<Projects Include="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
<Projects Include="Controller\AlbaranesProveedor_controller.dproj" /> <Projects Include="Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="Data\AlbaranesProveedor_data.dproj" /> <Projects Include="Data\AlbaranesProveedor_data.dproj" />
<Projects Include="Model\AlbaranesProveedor_model.dproj" /> <Projects Include="Model\AlbaranesProveedor_model.dproj" />
@ -171,14 +178,77 @@
<Target Name="FacturasProveedor_controller:Make"> <Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="PedidosProveedor_model">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_model:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_model:Make">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_data">
<MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_data:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_data:Make">
<MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_controller">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_controller:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_controller:Make">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_view">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_view:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="PedProv_AlbProv_relation">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="" />
</Target>
<Target Name="PedProv_AlbProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PedProv_AlbProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="AlbProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="AlbProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_model">
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_model:Clean">
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_model:Make">
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;Contabilidad_view;Contactos_controller;FacturasProveedor_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;Contabilidad_view;Contactos_controller;FacturasProveedor_controller;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedProv_AlbProv_relation;AlbProv_FacProv_relation;FacturasProveedor_model" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;Contabilidad_view:Clean;Contactos_controller:Clean;FacturasProveedor_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;Contabilidad_view:Clean;Contactos_controller:Clean;FacturasProveedor_controller:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedProv_AlbProv_relation:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_model:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;Contabilidad_view:Make;Contactos_controller:Make;FacturasProveedor_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;Contabilidad_view:Make;Contactos_controller:Make;FacturasProveedor_controller:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedProv_AlbProv_relation:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_model:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

BIN
Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk
View File

Binary file not shown.

4
Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj
View File

@ -41,7 +41,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
@ -53,6 +53,7 @@
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" /> <DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\Inventario_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" /> <DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" /> <DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
<DCCReference Include="uAlbaranesProveedorController.pas" /> <DCCReference Include="uAlbaranesProveedorController.pas" />
@ -69,7 +70,6 @@
<DCCReference Include="View\uIEditorElegirArticulosAlbaranesProveedor.pas" /> <DCCReference Include="View\uIEditorElegirArticulosAlbaranesProveedor.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

252
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -7,8 +7,8 @@ uses
SysUtils, uDADataTable, uEditorDBItem, SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController, uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController,
uDetallesAlbaranProveedorController, uBizAlbaranesProveedor, uDetallesAlbaranProveedorController, uBizAlbaranesProveedor,
uBizDireccionesContacto; uBizDireccionesContacto, uBizInventario,
//, uBizInventario; uBizPedidosProveedor;
type type
IAlbaranesProveedorController = interface(IControllerBase) IAlbaranesProveedorController = interface(IControllerBase)
@ -30,10 +30,11 @@ type
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor); procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor); procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor); procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
function Nuevo : IBizAlbaranProveedor; function Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload; function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean; function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean;
// function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload; function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
function Anadir(AAlbaranes : IBizAlbaranProveedor; AListaPedidos : IBizPedidoProveedor): Boolean; overload;
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean; overload; function Eliminar(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean; overload;
@ -94,13 +95,15 @@ type
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload; function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean; function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean;
// function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload; function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
function Anadir(AAlbaranes : IBizAlbaranProveedor; AListaPedidos : IBizPedidoProveedor): Boolean; overload;
function Buscar(const ID: Integer): IBizAlbaranProveedor; function Buscar(const ID: Integer): IBizAlbaranProveedor;
function BuscarTodos: IBizAlbaranProveedor; function BuscarTodos: IBizAlbaranProveedor;
function BuscarAlbaranesNormales: IBizAlbaranProveedor; function BuscarAlbaranesNormales: IBizAlbaranProveedor;
function BuscarAlbaranesDevolucion: IBizAlbaranProveedor; function BuscarAlbaranesDevolucion: IBizAlbaranProveedor;
function BuscarSinFacturar : IBizAlbaranProveedor; function BuscarSinFacturar : IBizAlbaranProveedor;
function Nuevo : IBizAlbaranProveedor; function Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
procedure Ver(AAlbaran : IBizAlbaranProveedor); procedure Ver(AAlbaran : IBizAlbaranProveedor);
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor); procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor); procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
@ -131,11 +134,11 @@ uses
schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor, schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor,
uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor, uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, uFactuGES_App, schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, uFactuGES_App,
uBizPedidosProveedor, uPedidosProveedorController, uPedidosProveedorController, uBizDetallesPedidoProveedor,
// schInventarioClient_Intf,
uArticulosController, uBizArticulos, uControllerDetallesBase, Classes, uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
schArticulosClient_Intf, uControllerDetallesArticulos, Variants, uDialogUtils, schArticulosClient_Intf, uControllerDetallesArticulos, Variants, uDialogUtils,
uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController; uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController,
schInventarioClient_Intf;
{ Métodos auxiliares } { Métodos auxiliares }
@ -173,7 +176,66 @@ begin
AAlbaran.ID_ALMACEN := APedido.ID_ALMACEN; AAlbaran.ID_ALMACEN := APedido.ID_ALMACEN;
end; end;
{ procedure CopiarArticulosPedido(ID_PEDIDO: Integer; AOrigen: IBizDetallesPedidoProveedor; ADestino : IBizDetallesAlbaranProveedor; AArticulosPendientes: IBizDetallesPedidoProveedorPend);
var
i : integer;
ADetallesController : IDetallesAlbaranProveedorController;
ACantidad: Variant;
begin
if not Assigned(AOrigen) then
raise Exception.Create ('Origen no asignado (CopiarArticulosPedido)');
if not Assigned(ADestino) then
raise Exception.Create ('Destino no asignado (CopiarArticulosPedido)');
if not AOrigen.DataTable.Active then
AOrigen.DataTable.Active := True;
if not ADestino.DataTable.Active then
ADestino.DataTable.Active := True;
ADetallesController := TDetallesAlbaranProveedorController.Create;
try
//OJO IMPORTANTE
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
//obligarle siempre a recalcular los detalles una sola vez
ADetallesController.BeginUpdate(ADestino);
AOrigen.DataTable.First;
for i := 0 to AOrigen.DataTable.RecordCount - 1 do
begin
//Comprobamos el articulo del pedido no haya sido recibido ya en otro albaran.
AArticulosPendientes.DataTable.First;
if AArticulosPendientes.DataTable.Locate(fld_PedidosProveedor_DetallesID_ARTICULO, AOrigen.ID_ARTICULO, []) then
ACantidad := AArticulosPendientes.CANTIDAD
else
ACantidad := AOrigen.CANTIDAD;
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
ADestino.Edit;
ADestino.REFERENCIA := AOrigen.REFERENCIA;
if AOrigen.ID_ARTICULO > 0 then
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
ADestino.CONCEPTO := AOrigen.CONCEPTO;
ADestino.CANTIDAD := ACantidad;
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
ADestino.IMPORTE_TOTAL := AOrigen.IMPORTE_TOTAL;
ADestino.DESCUENTO := AOrigen.DESCUENTO;
ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE;
ADestino.VISIBLE := AOrigen.VISIBLE;
ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR;
ADestino.ID_PEDIDO := ID_PEDIDO;
ADestino.Post;
AOrigen.Next;
end;
finally
ADetallesController.EndUpdate(ADestino);
ADetallesController := NIL;
end;
end;
procedure CopiarArticulosAAlbaran(APedido: IBizPedidoProveedor; AAlbaran: IBizAlbaranProveedor; procedure CopiarArticulosAAlbaran(APedido: IBizPedidoProveedor; AAlbaran: IBizAlbaranProveedor;
AInventarioRecibido: IBizInventario); AInventarioRecibido: IBizInventario);
var var
@ -274,7 +336,7 @@ begin
ADetallesController.ActualizarTotales(ADetalles); ADetallesController.ActualizarTotales(ADetalles);
end; end;
}
{ TAlbaranesProveedorController } { TAlbaranesProveedorController }
@ -290,10 +352,8 @@ begin
Result := True; Result := True;
end; end;
{
function TAlbaranesProveedorController.Anadir(AAlbaran: IBizAlbaranProveedor; function TAlbaranesProveedorController.Anadir(AAlbaran: IBizAlbaranProveedor; const IDPedido: Integer; AInventarioRecibido: IBizInventario): Boolean;
const IDPedido: Integer;
AInventarioRecibido: IBizInventario): Boolean;
var var
APedidosController : TPedidosProveedorController; APedidosController : TPedidosProveedorController;
APedido : IBizPedidoProveedor; APedido : IBizPedidoProveedor;
@ -342,7 +402,164 @@ begin
Application.ProcessMessages; Application.ProcessMessages;
end; end;
end; end;
function TAlbaranesProveedorController.Anadir(AAlbaranes: IBizAlbaranProveedor;
AListaPedidos: IBizPedidoProveedor): Boolean;
var
AAlbaranActual : IBizAlbaranProveedor;
APedidosController : IPedidosProveedorController;
AArticulosPendientes : IBizDetallesPedidoProveedorPend;
I: Integer;
bEnEdicion : Boolean;
begin
Result := False;
// ATENCIÓN!!! AAlbaranes tiene que estar vacio para no pisar albaranes
// ya generados.
if not Assigned(AAlbaranes) then
raise Exception.Create ('Albaran no asignado (Anadir)');
if not Assigned(AListaPedidos) then
raise Exception.Create ('Pedidos no asignados (Anadir)');
if not AAlbaranes.DataTable.Active then
AAlbaranes.DataTable.Active := True;
if not AListaPedidos.DataTable.Active then
AListaPedidos.DataTable.Active := True;
ShowHourglassCursor;
Application.ProcessMessages;
APedidosController := TPedidosProveedorController.Create;
try
// Ordenar por fecha de pedido
AListaPedidos.DataTable.Sort([fld_PedidosProveedorFECHA_PEDIDO], [uDADataTable.sdAscending]);
AListaPedidos.First;
for I := 0 to AListaPedidos.DataTable.RecordCount - 1 do
begin
AListaPedidos._Proveedor := NIL;
AAlbaranActual := NIL;
// Busco si hay algun albarán ya hecho de ese Proveedor
AAlbaranes.DataTable.First;
if AAlbaranes.DataTable.Locate(fld_AlbaranesProveedorID_Proveedor, AListaPedidos.ID_Proveedor, []) then
begin
AAlbaranActual := AAlbaranes;
RecuperarProveedor(AAlbaranActual);
AAlbaranActual.Proveedor.DataTable.Active := True;
bEnEdicion := (AAlbaranActual.DataTable.State in dsEditModes);
if not bEnEdicion then
AAlbaranActual.Edit;
//Si ya tenemos un albarán quiere decir que dicho albarán va ha recibir mas de un pedido
//por lo que la relación con el pedido se traslada a los articulos detalles, es decir un albarán que recibe varios pedidos
//el idPedido de la cabeceza será null.
AAlbaranActual.ID_PEDIDOIsNull := True;
//Cuando elijo varios pedidos ponemos como almacén destino siempre el que tenga asociado el primer pedido del albaran
// AAlbaranActual.ID_ALMACEN := AL PASADO POR PARAMETRO
AAlbaranActual.Post;
if bEnEdicion then
AAlbaranActual.Edit;
end
else begin
// No hay albaran de ese Proveedor. Creo una nueva
Anadir(AAlbaranes);
APedidosController.RecuperarProveedor(AListaPedidos);
AAlbaranes.Proveedor := AListaPedidos.Proveedor;
//Siempre asignaremos por defecto el ID_PEDIDO del primer pedido de la lista, si hay más pedidos en el albarán luego los pondremos a null,
//con ID_ALMACEN pasará lo mismo
bEnEdicion := (AAlbaranes.DataTable.State in dsEditModes);
if not bEnEdicion then
AAlbaranes.Edit;
AAlbaranes.ID_PEDIDO := AListaPedidos.ID;
AAlbaranes.ID_ALMACEN := AListaPedidos.ID_ALMACEN;
AAlbaranes.Post;
if bEnEdicion then
AAlbaranes.Edit;
//Si el albaran es de tipo devolución hacemos la factura de tipo abono
{ if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
begin
bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
if not bEnEdicion then
AFacturas.Edit;
AFacturas.TIPO := CTE_TIPO_ABONO;
AFacturas.Post;
if bEnEdicion then
AFacturas.Edit;
end;
} }
AAlbaranActual := AAlbaranes;
end;
// Ya tengo el albarán. Le añado los conceptos del pedido
//Recogemos los articulos pendientes de recibir de pedido, para solo recibir lo restante si ya estubiera recibido parcialmente.
//SOLO SE TENDRA EN CUENTA LOS INVENTARIABLES
AArticulosPendientes := APedidosController.ArticulosPendientesDeRecibir(AListaPedidos.ID);
AAlbaranActual.Detalles.DataTable.Last;
// Añado el título
Self.DetallesController.Add(AAlbaranActual.Detalles, TIPO_DETALLE_TITULO);
with AAlbaranActual.Detalles do
begin
Edit;
CONCEPTO := 'Pedido ' + AListaPedidos.REFERENCIA + ' del ' + DateToStr(AListaPedidos.FECHA_PEDIDO);
Post;
end;
// Añado el contenido del pedido
CopiarArticulosPedido(AListaPedidos.ID, AListaPedidos.Detalles, AAlbaranActual.Detalles, AArticulosPendientes);
{En los albaranes a proveedor el porte es a nivel del artículo
Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
with AFacturaActual.Detalles do
begin
Edit;
CONCEPTO := 'Porte del albarán';
CANTIDAD := 1;
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE;
Post;
end;
}
// Añado el resumen
Self.DetallesController.Add(AAlbaranActual.Detalles, TIPO_DETALLE_SUBTOTAL);
with AAlbaranActual.Detalles do
begin
Edit;
CONCEPTO := 'Total del pedido ' + AListaPedidos.REFERENCIA;
Post;
end;
// Añado una línea en blanco
Self.DetallesController.Add(AAlbaranActual.Detalles, TIPO_DETALLE_CONCEPTO);
with AAlbaranActual.Detalles do
begin
Edit;
CONCEPTO := '';
Post;
end;
// Guardo el albaran que acabo de generar o editar
AAlbaranActual.CalcularImporteTotal;
Self.Guardar(AAlbaranActual);
// No se asocia el albaran al pedido ya que un pedido puede estar representado por varios albaranes
{ AListaPedidos.Edit;
AListaPedidos.ID_FACTURA := AFacturaActual.ID;
AListaPedidos.Post;
APedidosController.Guardar(AListaPedidos);
}
AListaPedidos.Next;
end;
Result := True;
finally
APedidosController := NIL;
HideHourglassCursor
end;
end;
function TAlbaranesProveedorController.AnadirAlbaranDev(AAlbaran: IBizAlbaranProveedor): Boolean; function TAlbaranesProveedorController.AnadirAlbaranDev(AAlbaran: IBizAlbaranProveedor): Boolean;
begin begin
@ -947,14 +1164,15 @@ begin
end; end;
end; end;
function TAlbaranesProveedorController.Nuevo: IBizAlbaranProveedor; function TAlbaranesProveedorController.Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
var var
AAlbaran : IBizAlbaranProveedor; AAlbaran : IBizAlbaranProveedor;
begin begin
AAlbaran := FDataModule.NewItem; AAlbaran := FDataModule.NewItem;
FiltrarEmpresa(AAlbaran); FiltrarEmpresa(AAlbaran);
AAlbaran.DataTable.Active := True; AAlbaran.DataTable.Active := True;
AAlbaran.Insert; if WithInsert then
AAlbaran.Insert;
Result := AAlbaran; Result := AAlbaran;
end; end;

2
Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas
View File

@ -68,7 +68,7 @@ begin
if Assigned(ADetalles) then if Assigned(ADetalles) then
begin begin
try try
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo); AArticulos := (FArticulosController.BuscarTodosPorProveedor as IBizArticulo);
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
if ANuevaFila then if ANuevaFila then

5
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -340,7 +340,6 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger DataType = datInteger
DisplayLabel = #191'Visible?'
DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
end end
item item
@ -382,6 +381,10 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Size = 255 Size = 255
DisplayLabel = 'Ref. proveedor' DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR' DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

2
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas
View File

@ -60,7 +60,7 @@ end;
function TDataModuleAlbaranesProveedor.GetReport(const AID: String): Binary; function TDataModuleAlbaranesProveedor.GetReport(const AID: String): Binary;
begin begin
// Result := (RORemoteService as IsrvAlbaranesProveedor).GenerateReport(AID) Result := (RORemoteService as IsrvAlbaranesProveedor).GenerateReport(AID)
end; end;
function TDataModuleAlbaranesProveedor.NewItem: IBizAlbaranProveedor; function TDataModuleAlbaranesProveedor.NewItem: IBizAlbaranProveedor;

62
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
View File

@ -41,75 +41,22 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <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>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages><Source><Source Name="MainSource">AlbaranesProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Source>
<Source Name="MainSource">AlbaranesProveedor_model.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="AlbaranesProveedor_model.dpk"> <DelphiCompile Include="AlbaranesProveedor_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" /> <DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" />
<DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" /> <DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" />
<DCCReference Include="schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="schAlbaranesProveedorClient_Intf.pas" />
@ -119,7 +66,6 @@
<None Include="ModelSupport_AlbaranesProveedor_model\default.txaPackage" /> <None Include="ModelSupport_AlbaranesProveedor_model\default.txaPackage" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

43
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_AlbaranesProveedor = '{1E801569-2CD6-4113-B218-09209700C928}'; RID_AlbaranesProveedor = '{8D693350-AF81-4654-A37F-D2986ECCB27F}';
RID_AlbaranesProveedor_Detalles = '{A5F2BEF7-E6DC-4967-9F2C-C51DEE97793F}'; RID_AlbaranesProveedor_Detalles = '{FC1C8D83-798D-4686-8D2B-778C5C58D58E}';
{ Data table names } { Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor'; nme_AlbaranesProveedor = 'AlbaranesProveedor';
@ -114,6 +114,7 @@ const
fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_AlbaranesProveedor_DetallesREFERENCIA = 'REFERENCIA'; fld_AlbaranesProveedor_DetallesREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedor_DetallesID_PEDIDO = 'ID_PEDIDO';
{ AlbaranesProveedor_Detalles field indexes } { AlbaranesProveedor_Detalles field indexes }
idx_AlbaranesProveedor_DetallesID = 0; idx_AlbaranesProveedor_DetallesID = 0;
@ -131,11 +132,12 @@ const
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 12; idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 12;
idx_AlbaranesProveedor_DetallesREFERENCIA = 13; idx_AlbaranesProveedor_DetallesREFERENCIA = 13;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 14; idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
idx_AlbaranesProveedor_DetallesID_PEDIDO = 15;
type type
{ IAlbaranesProveedor } { IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{EFC4EBE0-095B-4FBA-99C6-0287ED6D0BDA}'] ['{814A087C-ECE6-4813-BEA6-CB74E108D40A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -626,7 +628,7 @@ type
{ IAlbaranesProveedor_Detalles } { IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{705D9343-91B7-4253-BDF1-36D4D961E8C0}'] ['{809FC030-BF60-4508-8C02-3D946FE5FDDD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -688,6 +690,10 @@ type
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetREFERENCIA_PROVEEDORIsNull: Boolean; function GetREFERENCIA_PROVEEDORIsNull: Boolean;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -721,6 +727,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
end; end;
{ TAlbaranesProveedor_DetallesDataTableRules } { TAlbaranesProveedor_DetallesDataTableRules }
@ -788,6 +796,10 @@ type
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -820,6 +832,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2000,6 +2014,27 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null;
end; end;
function TAlbaranesProveedor_DetallesDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsInteger;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsInteger := aValue;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetID_PEDIDOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].IsNull;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_AlbaranesProveedor, TAlbaranesProveedorDataTableRules); RegisterDataTableRules(RID_AlbaranesProveedor, TAlbaranesProveedorDataTableRules);

51
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_AlbaranesProveedorDelta = '{BA8F235B-7272-4906-8F91-BAADFA6E83F1}'; RID_AlbaranesProveedorDelta = '{07B3E1E2-AE10-4702-B53E-35EA2E9BA458}';
RID_AlbaranesProveedor_DetallesDelta = '{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}'; RID_AlbaranesProveedor_DetallesDelta = '{630BE931-8C66-4EA3-B692-DAD59C0E5F0A}';
type type
{ IAlbaranesProveedorDelta } { IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{BA8F235B-7272-4906-8F91-BAADFA6E83F1}'] ['{07B3E1E2-AE10-4702-B53E-35EA2E9BA458}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -507,7 +507,7 @@ type
{ IAlbaranesProveedor_DetallesDelta } { IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}'] ['{630BE931-8C66-4EA3-B692-DAD59C0E5F0A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -524,6 +524,7 @@ type
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldID_PEDIDOValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -541,6 +542,7 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
end; end;
{ TAlbaranesProveedor_DetallesBusinessProcessorRules } { TAlbaranesProveedor_DetallesBusinessProcessorRules }
@ -638,6 +640,12 @@ type
function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -700,6 +708,10 @@ type
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -2423,6 +2435,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR] := Null;
end; end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO]);
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO]);
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO] := aValue;
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_AlbaranesProveedorDelta, TAlbaranesProveedorBusinessProcessorRules); RegisterBusinessProcessorRules(RID_AlbaranesProveedorDelta, TAlbaranesProveedorBusinessProcessorRules);

1
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -32,6 +32,7 @@ type
property Detalles: IBizDetallesAlbaranProveedor read GetDetalles write SetDetalles; property Detalles: IBizDetallesAlbaranProveedor read GetDetalles write SetDetalles;
function EsNuevo : Boolean; function EsNuevo : Boolean;
procedure CalcularImporteTotal;
end; end;
TBizAlbaranProveedor = class(TAlbaranesProveedorDataTableRules, IBizAlbaranProveedor, ISeleccionable) TBizAlbaranProveedor = class(TAlbaranesProveedorDataTableRules, IBizAlbaranProveedor, ISeleccionable)

903
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
View File

File diff suppressed because it is too large Load Diff

15
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer;
type type
TRptAlbaranesProveedor = class(TDataModule) TRptAlbaranesProveedor = class(TDataModule)
@ -25,9 +25,9 @@ type
frxChartObject1: TfrxChartObject; frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset; frxDBDetalles: TfrxDBDataset;
frxReport: TfrxReport;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
@ -42,7 +42,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDataModuleServer, schAlbaranesProveedorClient_Intf; uSistemaFunc, uDataModuleServer, schAlbaranesProveedorClient_Intf;
const const
rptInforme = 'InfAlbaranProveedor.fr3'; rptInforme = 'InfAlbaranProveedor.fr3';
@ -90,11 +90,12 @@ var
AStream: TMemoryStream; AStream: TMemoryStream;
dsMaster: IDADataset; dsMaster: IDADataset;
dsDetail: IDADataset; dsDetail: IDADataset;
AInforme: Variant;
begin begin
AStream := TMemoryStream.Create; AStream := TMemoryStream.Create;
try try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]); dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID_ALBARAN'], [ID]);
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_ALBARAN'], [ID], False); dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_ALBARAN'], [ID], False);
AStream.Clear; AStream.Clear;
@ -105,7 +106,11 @@ begin
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1); DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE); DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarPresupuesto, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally

192
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -408,9 +408,9 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'VEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESCUE' + 'VEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESCUE' +
'NTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICUL' + 'NTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICUL' +
'OS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR' + 'OS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR' +
#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBAR' + ','#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO'#10#10'FROM ALBARANES_PRO' +
'ANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}' + 'VEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR_DETAL' +
#10'ORDER BY POSICION;'#10 'LES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -474,6 +474,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item item
DatasetField = 'VALORADO' DatasetField = 'VALORADO'
TableField = 'VALORADO' TableField = 'VALORADO'
end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end> end>
end> end>
Name = 'AlbaranesProveedor_Detalles' Name = 'AlbaranesProveedor_Detalles'
@ -559,6 +563,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR' DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -574,130 +582,163 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALBARAN' Name = 'FECHA_ALBARAN'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString
Size = 1
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REF_FACTURA_PROV' Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
Value = '' DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -902,17 +943,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger
Value = '' Value = ''
end end
item item
@ -923,38 +961,59 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'VALORADO'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -965,10 +1024,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' + 'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' + 'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
'AL, VISIBLE, VALORADO, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, ' + 'AL, VISIBLE, VALORADO, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, ' +
'IMPORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DE' + 'IMPORTE_PORTE, ID_PEDIDO)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :I' +
'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' + 'D, :TIPO_DETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTA' +
', :VALORADO, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORT' + 'L, :VISIBLE, :VALORADO, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUEN' +
'E_PORTE)'#10 'TO, :IMPORTE_PORTE, :ID_PEDIDO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -994,57 +1053,76 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
Params = < Params = <
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'VISIBLE'
DataType = datSmallInt
Value = ''
end
item item
Name = 'VALORADO' Name = 'VALORADO'
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'POSICION'
Value = ''
end
item
Name = 'ID'
Value = ''
end
item
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'VISIBLE'
Value = ''
end
item item
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
end end
item item
@ -1062,8 +1140,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' + ' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' +
'SIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ALBARAN = :I' + 'SIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ALBARAN = :I' +
'D_ALBARAN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESC' + 'D_ALBARAN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESC' +
'UENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD' + 'UENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ID_PEDIDO = :ID_P' +
'_ID)'#10 'EDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1130,9 +1208,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
InsertCommandName = 'Insert_AlbaranesProveedor' InsertCommandName = 'Insert_AlbaranesProveedor'
DeleteCommandName = 'Delete_AlbaranesProveedor' DeleteCommandName = 'Delete_AlbaranesProveedor'
UpdateCommandName = 'Update_AlbaranesProveedor' UpdateCommandName = 'Update_AlbaranesProveedor'
RefreshDatasetName = 'AlbaranesProveedor_Refresh'
ReferencedDataset = 'AlbaranesProveedor' ReferencedDataset = 'AlbaranesProveedor'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 208 Left = 208
Top = 24 Top = 24
@ -1142,9 +1219,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
InsertCommandName = 'Insert_AlbaranesProveedor_Detalles' InsertCommandName = 'Insert_AlbaranesProveedor_Detalles'
DeleteCommandName = 'Delete_AlbaranesProveedor_Detalles' DeleteCommandName = 'Delete_AlbaranesProveedor_Detalles'
UpdateCommandName = 'Update_AlbaranesProveedor_Detalles' UpdateCommandName = 'Update_AlbaranesProveedor_Detalles'
RefreshDatasetName = 'AlbaranesProveedor_Detalles_Refresh'
ReferencedDataset = 'AlbaranesProveedor_Detalles' ReferencedDataset = 'AlbaranesProveedor_Detalles'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 208 Left = 208
Top = 88 Top = 88

10
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas
View File

@ -43,8 +43,7 @@ uses
Dialogs, Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils, schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils,
uBizAlbaranProveedorServer; uBizAlbaranProveedorServer, uRptAlbaranesProveedor_Server;
// uRptAlbaranesProveedor_Server;
procedure Create_srvAlbaranesProveedor(out anInstance : IUnknown); procedure Create_srvAlbaranesProveedor(out anInstance : IUnknown);
begin begin
@ -79,17 +78,16 @@ begin
end; end;
function TsrvAlbaranesProveedor.GenerateReport(const ID: String): Binary; function TsrvAlbaranesProveedor.GenerateReport(const ID: String): Binary;
//var var
// AReportGenerator : TRptAlbaranesProveedor; AReportGenerator : TRptAlbaranesProveedor;
begin begin
Result := NIL; Result := NIL;
{ AReportGenerator := TRptAlbaranesProveedor.Create(nil); AReportGenerator := TRptAlbaranesProveedor.Create(nil);
try try
Result := AReportGenerator.GenerarAlbaran(ID); Result := AReportGenerator.GenerarAlbaran(ID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
}
end; end;
initialization initialization

BIN
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk
View File

Binary file not shown.

16
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid> <ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>AlbaranesProveedor_view.dpk</MainSource> <MainSource>AlbaranesProveedor_view.dpk</MainSource>
@ -48,12 +49,13 @@
<DelphiCompile Include="AlbaranesProveedor_view.dpk"> <DelphiCompile Include="AlbaranesProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\AlbaranesProveedor_controller.dcp" /> <DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\AlbaranesProveedor_model.dcp" /> <DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\Almacenes_controller.dcp" /> <DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" /> <DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" />
<DCCReference Include="uAlbaranesProveedorViewRegister.pas" /> <DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
<DCCReference Include="uEditorAlbaranDevProveedor.pas"> <DCCReference Include="uEditorAlbaranDevProveedor.pas">
<Form>fEditorAlbaranDevProveedor</Form> <Form>fEditorAlbaranDevProveedor</Form>

217
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -6,12 +6,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 653 ExplicitHeight = 657
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 765 Width = 765
Caption = 'Nuevo albar'#225'n de proveedor' Caption = 'Nuevo albar'#225'n de proveedor'
ExplicitTop = 52
ExplicitWidth = 765 ExplicitWidth = 765
inherited Image1: TImage inherited Image1: TImage
Left = 738 Left = 738
@ -129,7 +130,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Width = 765 Width = 765
ExplicitWidth = 765 ExplicitWidth = 765
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 551
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -156,17 +157,17 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 759
Height = 424 Height = 437
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 109 ExplicitTop = 112
ExplicitWidth = 759 ExplicitWidth = 759
ExplicitHeight = 424 ExplicitHeight = 437
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 396 ExplicitHeight = 409
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -175,7 +176,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 751
Height = 396 Height = 409
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -188,16 +189,52 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 396 ExplicitHeight = 409
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
inherited UpDown1: TUpDown
Left = 239
ExplicitLeft = 239
end
inherited ToolButton13: TToolButton
Left = 256
ExplicitLeft = 256
end
inherited ToolButton6: TToolButton
Left = 264
ExplicitLeft = 264
end
inherited ToolButton7: TToolButton
Left = 298
ExplicitLeft = 298
end
inherited ToolButton8: TToolButton
Left = 332
ExplicitLeft = 332
end
inherited ToolButton12: TToolButton
Left = 366
ExplicitLeft = 366
end
inherited ToolButton9: TToolButton
Left = 374
ExplicitLeft = 374
end
inherited ToolButton10: TToolButton
Left = 408
ExplicitLeft = 408
end
inherited ToolButton11: TToolButton
Left = 442
ExplicitLeft = 442
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 751 Width = 751
Height = 324 Height = 337
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 324 ExplicitHeight = 337
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Options.Editing = True Options.Editing = True
@ -208,7 +245,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 622
end end
end end
end end
@ -220,7 +257,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 751
Height = 396 Height = 409
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -231,7 +268,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 396 ExplicitHeight = 409
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
@ -241,14 +278,14 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 751 Width = 751
Height = 368 Height = 381
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 368 ExplicitHeight = 381
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734 ExplicitWidth = 747
ExplicitHeight = 371 ExplicitHeight = 364
Height = 371 Height = 364
Width = 734 Width = 747
end end
end end
end end
@ -256,9 +293,9 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 536 Top = 552
Width = 765 Width = 765
Height = 64 Height = 48
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -268,145 +305,203 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 536 ExplicitTop = 552
ExplicitWidth = 765 ExplicitWidth = 765
ExplicitHeight = 64 ExplicitHeight = 48
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 765 Width = 765
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765 ExplicitWidth = 765
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 379 Left = 360
Top = 11 Top = 11
Height = 30 Height = 30
ExplicitLeft = 379 ExplicitLeft = 360
ExplicitTop = 11 ExplicitTop = 11
ExplicitHeight = 30 ExplicitHeight = 30
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 491 Left = 472
Top = 53 Top = 53
Width = 21 Width = 21
ExplicitLeft = 491 ExplicitLeft = 472
ExplicitTop = 53 ExplicitTop = 53
ExplicitWidth = 21 ExplicitWidth = 21
end end
inherited Bevel2: TBevel
Left = 11
Top = 196
Width = 333
ExplicitLeft = 11
ExplicitTop = 196
ExplicitWidth = 333
end
inherited Bevel1: TBevel
Left = 379
Top = 196
Width = 332
ExplicitLeft = 379
ExplicitTop = 196
ExplicitWidth = 332
end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 164 Left = 191
Top = 38 Top = 38
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 164 ExplicitLeft = 191
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 93 ExplicitWidth = 93
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 562 Left = 543
Top = 88 Top = 88
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 562 ExplicitLeft = 543
ExplicitTop = 88 ExplicitTop = 88
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 492 Left = 473
Top = 142 Top = 169
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 492 ExplicitLeft = 473
ExplicitTop = 142 ExplicitTop = 169
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 93 Left = 120
Top = 38 Top = 38
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 38 ExplicitTop = 38
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 491 Left = 472
Top = 88 Top = 88
Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 491 ExplicitLeft = 472
ExplicitTop = 88 ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 491 Left = 472
Top = 11 Top = 11
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 491 ExplicitLeft = 472
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 491 Left = 472
Top = 115 Top = 142
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 491 ExplicitLeft = 472
ExplicitTop = 142
end
inherited edtIRPF: TcxDBSpinEdit
Left = 472
Top = 115
Style.IsFontAssigned = True
ExplicitLeft = 472
ExplicitTop = 115 ExplicitTop = 115
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 562 Left = 543
Top = 115 Top = 142
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 562 ExplicitLeft = 543
ExplicitTop = 142
ExplicitWidth = 56
Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 543
Top = 115
Style.IsFontAssigned = True
ExplicitLeft = 543
ExplicitTop = 115 ExplicitTop = 115
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93 Left = 120
Top = 11 Top = 11
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 93 Left = 120
Top = 65 Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 93 Left = 120
Top = 92 Top = 92
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 92 ExplicitTop = 92
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 231 Left = 212
Top = 92 Top = 92
ExplicitLeft = 231 ExplicitLeft = 212
ExplicitTop = 92 ExplicitTop = 92
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93 Left = 120
Top = 119 Top = 119
DataBinding.DataField = '' DataBinding.DataField = ''
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 119 ExplicitTop = 119
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
inherited edtRetencion: TcxDBSpinEdit
Left = 472
Top = 211
Style.IsFontAssigned = True
ExplicitLeft = 472
ExplicitTop = 211
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 543
Top = 211
Style.IsFontAssigned = True
ExplicitLeft = 543
ExplicitTop = 211
ExplicitWidth = 342
Width = 342
end
inherited edtFechaRetencion: TcxDBDateEdit
Left = 120
Top = 211
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 211
ExplicitWidth = 333
Width = 333
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -417,6 +512,9 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inherited dxLayoutControl1Group7: TdxLayoutGroup inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False Visible = False
inherited dxLayoutControl1Group10: TdxLayoutGroup
Visible = False
end
end end
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False Visible = False
@ -452,6 +550,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inherited PnlComentario: TPanel [5] inherited PnlComentario: TPanel [5]
Width = 765 Width = 765
ExplicitTop = 79
ExplicitWidth = 765 ExplicitWidth = 765
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 755 Width = 755

33
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -27,13 +27,9 @@ type
frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor; frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor;
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1edtIVAPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
@ -107,8 +103,8 @@ end;
constructor TfEditorAlbaranProveedor.Create(AOwner: TComponent); constructor TfEditorAlbaranProveedor.Create(AOwner: TComponent);
begin begin
inherited; inherited;
AsignarVista;
pgPaginas.ActivePageIndex := 0; pgPaginas.ActivePageIndex := 0;
AsignarVista;
end; end;
procedure TfEditorAlbaranProveedor.CustomEditorClose(Sender: TObject; procedure TfEditorAlbaranProveedor.CustomEditorClose(Sender: TObject;
@ -148,22 +144,6 @@ begin
pgPaginas.ActivePage := pagGeneral; pgPaginas.ActivePage := pagGeneral;
end; end;
procedure TfEditorAlbaranProveedor.frViewTotales1edtDescuentoPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
FAlbaran.DESCUENTO := DisplayValue;
end;
procedure TfEditorAlbaranProveedor.frViewTotales1edtIVAPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
FAlbaran.IVA := DisplayValue;
end;
procedure TfEditorAlbaranProveedor.frViewTotales1ePortePropertiesValidate( procedure TfEditorAlbaranProveedor.frViewTotales1ePortePropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
@ -218,10 +198,8 @@ end;
procedure TfEditorAlbaranProveedor.ImprimirInterno; procedure TfEditorAlbaranProveedor.ImprimirInterno;
begin begin
{
inherited; inherited;
FController.Print(FAlbaran); FController.Print(FAlbaran);
}
end; end;
procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject); procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject);
@ -236,16 +214,14 @@ begin
// Si el pedido tiene detalles hay que mirar si los descuentos // Si el pedido tiene detalles hay que mirar si los descuentos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.
if (FAlbaran.Detalles.RecordCount > 0) then if (FAlbaran.Detalles.RecordCount > 0) then
begin
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Proveedor); FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Proveedor);
end;
end; end;
end; end;
procedure TfEditorAlbaranProveedor.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); procedure TfEditorAlbaranProveedor.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
begin begin
inherited; inherited;
if (not Assigned(FAlbaran)) or (FAlbaran.ID_PROVEEDOR = ID_NULO) then if (not Assigned(FAlbaran)) or (FAlbaran.ID_PROVEEDOR = 0) then
begin begin
ShowWarningMessage('Antes de introducir conceptos debe elegir un proveedor para este albarán'); ShowWarningMessage('Antes de introducir conceptos debe elegir un proveedor para este albarán');
AllowChange := False; AllowChange := False;
@ -271,10 +247,8 @@ end;
procedure TfEditorAlbaranProveedor.PrevisualizarInterno; procedure TfEditorAlbaranProveedor.PrevisualizarInterno;
begin begin
{
inherited; inherited;
FController.Preview(FAlbaran); FController.Preview(FAlbaran);
}
end; end;
procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad; procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad;
@ -310,6 +284,7 @@ begin
if Assigned(FViewAlbaran) then if Assigned(FViewAlbaran) then
begin begin
FViewAlbaran.Albaran := FAlbaran; FViewAlbaran.Albaran := FAlbaran;
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL;
ViewAlbaran.ViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor; ViewAlbaran.ViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor;
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged; ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged;
frViewDetallesAlbaranProveedor1.Detalles := FAlbaran.Detalles; frViewDetallesAlbaranProveedor1.Detalles := FAlbaran.Detalles;

18
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
View File

@ -2,7 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Caption = 'Lista de albaranes de proveedor' Caption = 'Lista de albaranes de proveedor'
ClientWidth = 606 ClientWidth = 606
ExplicitWidth = 614 ExplicitWidth = 614
ExplicitHeight = 471 ExplicitHeight = 482
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -131,8 +131,6 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
ExplicitWidth = 606 ExplicitWidth = 606
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Visible = True
ExplicitWidth = 117
object TBXItem39: TTBXItem object TBXItem39: TTBXItem
Action = actGenerarFactura Action = actGenerarFactura
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -161,10 +159,17 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
end end
object actGenerarFactura: TAction object actGenerarFactura: TAction
Caption = 'Generar factura' Caption = 'Generar factura'
Enabled = False
ImageIndex = 23 ImageIndex = 23
Visible = False
OnExecute = actGenerarFacturaExecute OnExecute = actGenerarFacturaExecute
OnUpdate = actGenerarFacturaUpdate OnUpdate = actGenerarFacturaUpdate
end end
object ActEnviarEMail: TAction
Category = 'Archivo'
Caption = 'Enviar por e-mail'
ImageIndex = 24
end
end end
inherited SmallImages: TPngImageList inherited SmallImages: TPngImageList
PngImages = < PngImages = <
@ -1658,12 +1663,12 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Value = 100 Value = 100
end end
item item
Caption = 'Utilizar un pedido de proveedor.' Caption = 'Utilizar un o m'#225's pedidos de proveedor.'
Value = 200 Value = 200
Info.Strings = ( Info.Strings = (
'Puede utilizar un pedido de proveedor existente para dar de alta' + 'Puede utilizar uno o m'#225's pedidos de proveedor existentes para da' +
' el albar'#225'n nuevo.') 'r de alta el nuevo albar'#225'n.')
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -1898,6 +1903,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 500
Left = 144 Left = 144
Top = 112 Top = 112
end end

18
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -22,6 +22,7 @@ type
JsImprimirDialog: TJSDialog; JsImprimirDialog: TJSDialog;
TBXItem39: TTBXItem; TBXItem39: TTBXItem;
JsListaAlbaranesNoEliminados: TJSDialog; JsListaAlbaranesNoEliminados: TJSDialog;
ActEnviarEMail: TAction;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarFacturaExecute(Sender: TObject); procedure actGenerarFacturaExecute(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject); procedure actGenerarFacturaUpdate(Sender: TObject);
@ -60,7 +61,8 @@ implementation
uses uses
uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uFactuGES_App, uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uFactuGES_App,
// uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils, // uGenerarFacturasProvAlbProvUtils,
uGenerarAlbaranesProvUtils,
uEditorBase, schAlbaranesProveedorClient_Intf, uEditorBase, schAlbaranesProveedorClient_Intf,
uGridUtils, uDBSelectionListUtils; uGridUtils, uDBSelectionListUtils;
@ -116,7 +118,7 @@ procedure TfEditorAlbaranesProveedor.DuplicarInterno;
var var
AAlbaran : IBizAlbaranProveedor; AAlbaran : IBizAlbaranProveedor;
begin begin
{
inherited; inherited;
AAlbaran := FController.Duplicar(Albaranes); AAlbaran := FController.Duplicar(Albaranes);
try try
@ -124,7 +126,7 @@ begin
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorAlbaranesProveedor.EliminarInterno; procedure TfEditorAlbaranesProveedor.EliminarInterno;
@ -265,7 +267,7 @@ begin
begin begin
case JsNuevoAlbaranDialog.CustomButtonResult of case JsNuevoAlbaranDialog.CustomButtonResult of
200 : begin // Utilizar un pedido 200 : begin // Utilizar un pedido
// GenerarAlbaranProv; GenerarAlbaranesProv;
actRefrescar.Execute; actRefrescar.Execute;
end; end;
100 : begin // Albaran nuevo vacio 100 : begin // Albaran nuevo vacio
@ -274,6 +276,8 @@ begin
end; end;
end; end;
end; end;
end; end;
procedure TfEditorAlbaranesProveedor.PonerTitulos(const ATitulo: string); procedure TfEditorAlbaranesProveedor.PonerTitulos(const ATitulo: string);
@ -289,12 +293,11 @@ begin
end; end;
procedure TfEditorAlbaranesProveedor.PrevisualizarInterno; procedure TfEditorAlbaranesProveedor.PrevisualizarInterno;
{var var
Respuesta : Integer; Respuesta : Integer;
AAlbaranes: IBizAlbaranProveedor; AAlbaranes: IBizAlbaranProveedor;
AllItems: Boolean;} AllItems: Boolean;
begin begin
{
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
@ -328,7 +331,6 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorAlbaranesProveedor.SetController(const Value: IAlbaranesProveedorController); procedure TfEditorAlbaranesProveedor.SetController(const Value: IAlbaranesProveedorController);

9
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.dfm
View File

@ -2,4 +2,13 @@ inherited fEditorElegirArticulosAlbaranProveedor: TfEditorElegirArticulosAlbaran
Caption = 'fEditorElegirArticulosAlbaranProveedor' Caption = 'fEditorElegirArticulosAlbaranProveedor'
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited pnlHeader: TPanel
inherited lblTitle: TLabel
Width = 606
end
inherited lblComments: TLabel
Width = 581
Height = 27
end
end
end end

3
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.pas
View File

@ -9,7 +9,8 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls, StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
uIEditorElegirArticulosAlbaranesProveedor, uBizContactos; uIEditorElegirArticulosAlbaranesProveedor, uBizContactos, uDAInterfaces,
StdCtrls;
type type
TfEditorElegirArticulosAlbaranProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesProveedor) TfEditorElegirArticulosAlbaranProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesProveedor)

6
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -322,6 +322,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Top = 249 Top = 249
Width = 366 Width = 366
Height = 32 Height = 32
Enabled = False
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -358,9 +359,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ReadOnly = False ReadOnly = False
ExplicitLeft = 350 ExplicitLeft = 350
ExplicitTop = 276 ExplicitTop = 276
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitHeight = 228
Height = 228
end end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -445,6 +449,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end end
object dxLayoutControl1Group9: TdxLayoutGroup object dxLayoutControl1Group9: TdxLayoutGroup
Caption = 'El albar'#225'n pertenece a la tienda' Caption = 'El albar'#225'n pertenece a la tienda'
Enabled = False
Visible = False
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewTienda1 Control = frViewTienda1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True

2
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
View File

@ -144,6 +144,7 @@ end;
procedure TfrViewAlbaranProveedor.actElegirDireccionUpdate(Sender: TObject); procedure TfrViewAlbaranProveedor.actElegirDireccionUpdate(Sender: TObject);
begin begin
inherited; inherited;
{
if (Sender as TAction).Enabled then if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (not ReadOnly) and (Sender as TAction).Enabled := (not ReadOnly) and
Assigned(FAlbaran) and Assigned(FAlbaran) and
@ -154,6 +155,7 @@ begin
Assigned(FAlbaran.Proveedor.Direcciones) and Assigned(FAlbaran.Proveedor.Direcciones) and
FAlbaran.Proveedor.Direcciones.DataTable.Active and FAlbaran.Proveedor.Direcciones.DataTable.Active and
(FAlbaran.Proveedor.Direcciones.DataTable.RecordCount > 0); (FAlbaran.Proveedor.Direcciones.DataTable.RecordCount > 0);
}
end; end;
procedure TfrViewAlbaranProveedor.actVerPedidoExecute(Sender: TObject); procedure TfrViewAlbaranProveedor.actVerPedidoExecute(Sender: TObject);

2
Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.dfm
View File

@ -1,6 +1,7 @@
inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
Width = 569 Width = 569
Height = 225 Height = 225
OnShow = CustomViewShow
ExplicitWidth = 569 ExplicitWidth = 569
ExplicitHeight = 225 ExplicitHeight = 225
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
@ -11,6 +12,7 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
569 569

77
Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.pas
View File

@ -41,6 +41,7 @@ type
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure bModificarClick(Sender: TObject); procedure bModificarClick(Sender: TObject);
procedure txtDireccionDblClick(Sender: TObject); procedure txtDireccionDblClick(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
protected protected
FAlmacenesController : IAlmacenesController; FAlmacenesController : IAlmacenesController;
FAlmacenes: IBizAlmacen; FAlmacenes: IBizAlmacen;
@ -96,18 +97,21 @@ end;
procedure TfrViewDireccionEntregaAlbaranProv.CambioDireccionAlmacen; procedure TfrViewDireccionEntregaAlbaranProv.CambioDireccionAlmacen;
begin begin
if Assigned(FAlbaran) if not FAlbaran.DataTable.ReadOnly then
and Assigned(FAlmacenes) then
begin begin
FAlbaran.Edit; if Assigned(FAlbaran)
FAlbaran.CALLE := FAlmacenes.CALLE; and Assigned(FAlmacenes) then
FAlbaran.POBLACION := FAlmacenes.POBLACION; begin
FAlbaran.POBLACION := FAlmacenes.POBLACION; cbLista.EditText := FAlmacenes.NOMBRE;
FAlbaran.PROVINCIA := FAlmacenes.PROVINCIA; FAlbaran.Edit;
FAlbaran.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL; FAlbaran.CALLE := FAlmacenes.CALLE;
FAlbaran.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO; FAlbaran.POBLACION := FAlmacenes.POBLACION;
FAlbaran.TELEFONO := FAlmacenes.TELEFONO; FAlbaran.PROVINCIA := FAlmacenes.PROVINCIA;
RefrescarDireccion; FAlbaran.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
FAlbaran.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
FAlbaran.TELEFONO := FAlmacenes.TELEFONO;
RefrescarDireccion;
end;
end; end;
end; end;
@ -115,8 +119,7 @@ procedure TfrViewDireccionEntregaAlbaranProv.cbListaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
begin begin
if Assigned(FAlbaran) and Assigned(FAlmacenes) if Assigned(FAlbaran) and Assigned(FAlmacenes) then
and (FAlbaran.ID_ALMACEN <> FAlmacenes.ID) then
CambioDireccionAlmacen; CambioDireccionAlmacen;
end; end;
@ -130,6 +133,17 @@ begin
dsAlmacenes.DataTable := FAlmacenes.DataTable; dsAlmacenes.DataTable := FAlmacenes.DataTable;
end; end;
procedure TfrViewDireccionEntregaAlbaranProv.CustomViewShow(Sender: TObject);
begin
inherited;
if Assigned(FAlbaran) and not FAlbaran.ID_ALMACENIsNull then
begin
CambioDireccionAlmacen;
end;
end;
destructor TfrViewDireccionEntregaAlbaranProv.Destroy; destructor TfrViewDireccionEntregaAlbaranProv.Destroy;
begin begin
cbLista.Properties.OnValidate := Nil; cbLista.Properties.OnValidate := Nil;
@ -149,21 +163,27 @@ begin
txtDireccion.Caption := ''; txtDireccion.Caption := '';
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
begin begin
txtDireccion.Enabled := True;
txtDireccion.Caption := FAlbaran.CALLE;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FAlbaran.CODIGO_POSTAL + ' ' + FAlbaran.POBLACION;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FAlbaran.PROVINCIA;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Persona contacto: ' + FAlbaran.PERSONA_CONTACTO;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Teléfono: ' + FAlbaran.TELEFONO;
if (actOtro.Checked) then if (actOtro.Checked) then
begin begin
txtDireccion.Enabled := True;
bModificar.Enabled := True;
cbLista.Enabled := False; cbLista.Enabled := False;
cbLista.Text := ''; cbLista.Text := '';
txtDireccion.Enabled := True;
txtDireccion.Caption := FAlbaran.CALLE;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FAlbaran.CODIGO_POSTAL + ' ' + FAlbaran.POBLACION;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FAlbaran.PROVINCIA;
bModificar.Enabled := True;
end end
else begin else begin
txtDireccion.Enabled := False;
bModificar.Enabled := False;
cbLista.Enabled := True; cbLista.Enabled := True;
cbLista.DroppedDown := True; cbLista.DroppedDown := True;
txtDireccion.Enabled := False;
bModificar.Enabled := False;
end; end;
end; end;
end; end;
@ -179,21 +199,10 @@ begin
dsAlbaran.DataTable := FAlbaran.DataTable; dsAlbaran.DataTable := FAlbaran.DataTable;
cbLista.Properties.OnValidate := cbListaPropertiesValidate; cbLista.Properties.OnValidate := cbListaPropertiesValidate;
{ Para poder inicializar con el almacén por defecto en el caso de un if (FAlbaran.ID_ALMACEN < 1) then
almacén nuevo, antes hay que comprobar que la dirección alternativa // CambioDireccionAlmacen
está vacia porque puede ser que el albarán se haya generado
automáticamente a partir de un pedido a proveedor con una dirección
que no es un almacén.
}
if (FAlbaran.EsNuevo) and
((Length(FAlbaran.CALLE) = 0) and
(Length(FAlbaran.CODIGO_POSTAL) = 0) and
(Length(FAlbaran.POBLACION) = 0) and
(Length(FAlbaran.PROVINCIA) = 0)) then
CambioDireccionAlmacen
else else
if (FAlbaran.ID_ALMACEN < 1) then actLista.Checked := True;
actOtro.Checked := True;
RefrescarDireccion; RefrescarDireccion;
end; end;

23
Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.dfm
View File

@ -4,8 +4,6 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
ExplicitHeight = 414 ExplicitHeight = 414
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 286 Height = 286
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitHeight = 286 ExplicitHeight = 286
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
object cxGridViewID_PROVEEDOR: TcxGridDBColumn object cxGridViewID_PROVEEDOR: TcxGridDBColumn
@ -13,7 +11,14 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
Visible = False Visible = False
end end
end end
object cxGridLevel1: TcxGridLevel inherited cxGridLevel1: TcxGridLevel
Visible = False
end
inherited cxGridLevel2: TcxGridLevel
Visible = False
end
object cxGridLevel3: TcxGridLevel
Tag = 3
Caption = 'Otros proveedores' Caption = 'Otros proveedores'
end end
end end
@ -21,14 +26,26 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

BIN
Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.pas
View File

Binary file not shown.

9
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -14,6 +14,7 @@ type
function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo;
function BuscarInventariables: IBizArticulo; function BuscarInventariables: IBizArticulo;
function BuscarTodos: IBizArticulo; overload; function BuscarTodos: IBizArticulo; overload;
function BuscarTodosPorProveedor: IBizArticulo; overload;
function BuscarTodos(ACliente: IBizCliente): IBizArticulo; overload; function BuscarTodos(ACliente: IBizCliente): IBizArticulo; overload;
function BuscarTodos(AProveedor: IBizProveedor): IBizArticulo; overload; function BuscarTodos(AProveedor: IBizProveedor): IBizArticulo; overload;
function BuscarReferencia(const Ref: String; AClienteID: Integer): IBizArticulo; function BuscarReferencia(const Ref: String; AClienteID: Integer): IBizArticulo;
@ -82,6 +83,7 @@ type
procedure Anadir(AArticulo : IBizArticulo); virtual; procedure Anadir(AArticulo : IBizArticulo); virtual;
function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; virtual; function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; virtual;
function BuscarTodos: IBizArticulo; overload; function BuscarTodos: IBizArticulo; overload;
function BuscarTodosPorProveedor: IBizArticulo; overload;
function BuscarInventariables: IBizArticulo; function BuscarInventariables: IBizArticulo;
function BuscarTodos(ACliente: IBizCliente): IBizArticulo; overload; function BuscarTodos(ACliente: IBizCliente): IBizArticulo; overload;
function BuscarTodos(ACliente: Integer): IBizArticulo; overload; function BuscarTodos(ACliente: Integer): IBizArticulo; overload;
@ -327,6 +329,13 @@ begin
end; end;
end; end;
function TArticulosController.BuscarTodosPorProveedor: IBizArticulo;
begin
Result := FDataModule.GetItems(txProveedor);
//Los articulos serán comunes para todas las empresas.
// FiltrarEmpresa(Result);
end;
function TArticulosController.BuscarTodos: IBizArticulo; function TArticulosController.BuscarTodos: IBizArticulo;
begin begin
Result := FDataModule.GetItems(txArticulo); Result := FDataModule.GetItems(txArticulo);

146
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -148,6 +148,25 @@ inherited DataModuleArticulos: TDataModuleArticulos
Name = 'TARIFA' Name = 'TARIFA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FAB'
DataType = datString
Size = 50
end
item
Name = 'STOCK_MIN'
DataType = datInteger
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -345,4 +364,131 @@ inherited DataModuleArticulos: TDataModuleArticulos
Left = 232 Left = 232
Top = 176 Top = 176
end end
object tbl_ArticulosParaCompra: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'IMAGEN'
DataType = datBlob
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
end
item
Name = 'TARIFA'
DataType = datString
Size = 255
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FAB'
DataType = datString
Size = 50
end
item
Name = 'STOCK_MIN'
DataType = datInteger
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
LogicalName = 'ArticulosParaCompra'
IndexDefs = <>
Left = 400
Top = 248
end
object ds_ArticulosParaCompra: TDADataSource
DataSet = tbl_ArticulosParaCompra.Dataset
DataTable = tbl_ArticulosParaCompra
Left = 400
Top = 184
end
end end

6
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -22,6 +22,8 @@ type
ds_ArticulosParaCliente: TDADataSource; ds_ArticulosParaCliente: TDADataSource;
tbl_Articulos_Proveedores: TDAMemDataTable; tbl_Articulos_Proveedores: TDAMemDataTable;
ds_Articulos_Proveedores: TDADataSource; ds_Articulos_Proveedores: TDADataSource;
tbl_ArticulosParaCompra: TDAMemDataTable;
ds_ArticulosParaCompra: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private private
function _GetProveedores : IBizArticulosProveedores; function _GetProveedores : IBizArticulosProveedores;
@ -135,8 +137,8 @@ begin
try try
case Tipo of case Tipo of
txArticulo: AArticulo := CloneDataTable(tbl_Articulos); txArticulo: AArticulo := CloneDataTable(tbl_Articulos);
// txProveedor: AArticulo := CloneDataTable(tbl_ArticulosParaCompra); En el caso de tener varios proveedores para un mismo artículo txProveedor: AArticulo := CloneDataTable(tbl_ArticulosParaCompra); //En el caso de tener varios proveedores para un mismo artículo
txProveedor: AArticulo := CloneDataTable(tbl_Articulos); // txProveedor: AArticulo := CloneDataTable(tbl_Articulos); //En el caso de tener solo un proveedor por articulo
end; end;
AsignarClaseNegocio(AArticulo); AsignarClaseNegocio(AArticulo);

1080
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

1308
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

2
Source/Modulos/Articulos/Model/uBizArticulos.pas
View File

@ -116,7 +116,7 @@ begin
PRECIO_NETO := 0; PRECIO_NETO := 0;
COMISIONABLE := 1; COMISIONABLE := 1;
ELIMINADO := 0; ELIMINADO := 0;
INVENTARIABLE := 1; INVENTARIABLE := 0;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
end; end;

126
Source/Modulos/Articulos/Model/uBizArticulosProveedores.pas Normal file
View File

@ -0,0 +1,126 @@
unit uBizArticulosProveedores;
interface
uses
uDAInterfaces, uDADataTable,
schArticulosClient_Intf;
const
BIZ_CLIENT_ARTICULOS_PROVEEDORES = 'Client.ArticulosProveedores';
type
IBizArticulosProveedores = interface(IArticulos_Proveedores)
['{DBDDEFE0-EE66-4D22-93C0-75A8CEBB6CAC}']
function EsNuevo : Boolean;
procedure RecalcularImportes;
end;
TBizArticulosProveedores = class(TArticulos_ProveedoresDataTableRules, IBizArticulosProveedores)
private
procedure RecalcularImporte;
protected
procedure BeforeInsert(Sender: TDADataTable); override;
procedure OnNewRecord(Sender: TDADataTable); override;
procedure PARAMETROSPRECIOOnChange(Sender: TDACustomField);
public
procedure RecalcularImportes;
function EsNuevo : Boolean;
constructor Create(aDataTable: TDADataTable); override;
end;
implementation
uses
Dialogs,uDataTableUtils, DB;
{ TBizArticulosProveedores }
procedure TBizArticulosProveedores.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State in dsEditModes) then
AMasterTable.Post;
end;
constructor TBizArticulosProveedores.Create(aDataTable: TDADataTable);
begin
inherited;
with aDataTable do
begin
FieldByName(fld_Articulos_ProveedoresPRECIO_COSTE).OnChange := PARAMETROSPRECIOOnChange;
FieldByName(fld_Articulos_ProveedoresDESCUENTO).OnChange := PARAMETROSPRECIOOnChange;
FieldByName(fld_Articulos_ProveedoresPRECIO_PORTE).OnChange := PARAMETROSPRECIOOnChange;
end;
end;
function TBizArticulosProveedores.EsNuevo: Boolean;
begin
Result := (ID < 0);
end;
procedure TBizArticulosProveedores.OnNewRecord(Sender: TDADataTable);
begin
inherited;
PRECIO_PORTE := 0;
PRECIO_COSTE := 0;
DESCUENTO := 0;
PRECIO_NETO := 0;
end;
procedure TBizArticulosProveedores.PARAMETROSPRECIOOnChange(Sender: TDACustomField);
begin
RecalcularImporte;
end;
procedure TBizArticulosProveedores.RecalcularImporte;
begin
with Self.DataTable do
begin
if not Editing then
Edit;
//OJO SI ALGUNA VEZ ESTO CAMBIA TAMBIEN HAY QUE CAMBIAR EL PROCEDIMIENTO ALMACENADO PRO_ART_RECALCULAR_PVP
Self.PRECIO_NETO := Self.PRECIO_COSTE - (Self.PRECIO_COSTE * (Self.DESCUENTO / 100));
// Self.PRECIO_PVP_VENTA := (Self.PRECIO_NETO + Self.PRECIO_PORTE) * ((MasterSource.DataTable.FieldByName('PARAM_MARGEN').AsFloat / 100) + 1);
// Self.PRECIO_PVP_TOTAL := Self.PRECIO_PVP_VENTA + MasterSource.DataTable.FieldByName('MANO_OBRA').AsFloat;
end;
end;
procedure TBizArticulosProveedores.RecalcularImportes;
var
AIdAux: Integer;
begin
AIdAux := Self.ID;
with Self.DataTable do
begin
DisableControls;
try
First;
while not EOF do
begin
RecalcularImporte;
Post;
Next;
end;
First;
Locate(fld_Articulos_ProveedoresID, AIdAux, []);
finally
EnableControls;
end;
end;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_ARTICULOS_PROVEEDORES, TBizArticulosProveedores);
end.

336
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -318,6 +318,22 @@ object srvArticulos: TsrvArticulos
item item
DatasetField = 'TARIFA' DatasetField = 'TARIFA'
TableField = 'TARIFA' TableField = 'TARIFA'
end
item
DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE'
end
item
DatasetField = 'REFERENCIA_FAB'
TableField = 'REFERENCIA_FAB'
end
item
DatasetField = 'STOCK_MIN'
TableField = 'STOCK_MIN'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end> end>
end> end>
Name = 'Articulos' Name = 'Articulos'
@ -433,6 +449,250 @@ object srvArticulos: TsrvArticulos
Name = 'TARIFA' Name = 'TARIFA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FAB'
DataType = datString
Size = 50
end
item
Name = 'STOCK_MIN'
DataType = datInteger
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_ARTICULOS_PARA_COMPRA'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'IMAGEN'
TableField = 'IMAGEN'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'PRECIO_PORTE'
TableField = 'PRECIO_PORTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'PRECIO_PVP'
TableField = 'PRECIO_PVP'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end
item
DatasetField = 'TARIFA'
TableField = 'TARIFA'
end
item
DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE'
end
item
DatasetField = 'REFERENCIA_FAB'
TableField = 'REFERENCIA_FAB'
end
item
DatasetField = 'STOCK_MIN'
TableField = 'STOCK_MIN'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end>
end>
Name = 'ArticulosParaCompra'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'IMAGEN'
DataType = datBlob
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
end
item
Name = 'TARIFA'
DataType = datString
Size = 255
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FAB'
DataType = datString
Size = 50
end
item
Name = 'STOCK_MIN'
DataType = datInteger
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end> end>
end end
item item
@ -746,6 +1006,29 @@ object srvArticulos: TsrvArticulos
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_FAB'
DataType = datString
Size = 50
Value = ''
end
item
Name = 'STOCK_MIN'
DataType = datInteger
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -756,12 +1039,13 @@ object srvArticulos: TsrvArticulos
'CION, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_ALTA, FECHA_MODI' + 'CION, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_ALTA, FECHA_MODI' +
'FICACION, USUARIO,'#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, I' + 'FICACION, USUARIO,'#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, I' +
'D_PROVEEDOR,'#10' PRECIO_NETO, PRECIO_PVP, REFERENCIA_PROV, INVE' + 'D_PROVEEDOR,'#10' PRECIO_NETO, PRECIO_PVP, REFERENCIA_PROV, INVE' +
'NTARIABLE, ELIMINADO, TARIFA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :R' + 'NTARIABLE, ELIMINADO, TARIFA,'#10' FABRICANTE, REFERENCIA_FAB, S' +
'EFERENCIA, :DESCRIPCION, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, ' + 'TOCK_MIN, UNIDAD_MEDIDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERE' +
':FECHA_ALTA, :FECHA_MODIFICACION,'#10' :USUARIO, :PRECIO_COSTE, ' + 'NCIA, :DESCRIPCION, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :FECH' +
':PRECIO_PORTE, :DESCUENTO,'#10' :ID_PROVEEDOR, :PRECIO_NETO, :PR' + 'A_ALTA, :FECHA_MODIFICACION,'#10' :USUARIO, :PRECIO_COSTE, :PREC' +
'ECIO_PVP, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO, :TA' + 'IO_PORTE, :DESCUENTO,'#10' :ID_PROVEEDOR, :PRECIO_NETO, :PRECIO_' +
'RIFA)'#10 'PVP, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO, :TARIFA,' +
' :FABRICANTE, :REFERENCIA_FAB, :STOCK_MIN, :UNIDAD_MEDIDA)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -888,6 +1172,29 @@ object srvArticulos: TsrvArticulos
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_FAB'
DataType = datString
Size = 50
Value = ''
end
item
Name = 'STOCK_MIN'
DataType = datInteger
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -906,8 +1213,10 @@ object srvArticulos: TsrvArticulos
'NTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO' + 'NTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO' +
'_NETO = :PRECIO_NETO,'#10' PRECIO_PVP = :PRECIO_PVP,'#10' INVENTAR' + '_NETO = :PRECIO_NETO,'#10' PRECIO_PVP = :PRECIO_PVP,'#10' INVENTAR' +
'IABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_PROV,'#10 + 'IABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_PROV,'#10 +
' ELIMINADO = :ELIMINADO,'#10' TARIFA = :TARIFA'#10' WHERE'#10' (ID' + ' ELIMINADO = :ELIMINADO,'#10' TARIFA = :TARIFA,'#10' FABRICANTE' +
' = :OLD_ID)'#10 ' = :FABRICANTE,'#10' REFERENCIA_FAB = :REFERENCIA_FAB,'#10' STOCK_' +
'MIN = :STOCK_MIN,'#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1060,9 +1369,13 @@ object srvArticulos: TsrvArticulos
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end end
item
Name = 'FECHA_ACTUALIZACION'
DataType = datDateTime
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datAutoInc
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -1077,8 +1390,9 @@ object srvArticulos: TsrvArticulos
'EFERENCIA_PROV, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' DESCUENT' + 'EFERENCIA_PROV, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' DESCUENT' +
'O = :DESCUENTO, '#10' PRECIO_NETO = :PRECIO_NETO, '#10' PRECIO_POR' + 'O = :DESCUENTO, '#10' PRECIO_NETO = :PRECIO_NETO, '#10' PRECIO_POR' +
'TE = :PRECIO_PORTE, '#10' PRECIO_PVP_VENTA = :PRECIO_PVP_VENTA, '#10 + 'TE = :PRECIO_PORTE, '#10' PRECIO_PVP_VENTA = :PRECIO_PVP_VENTA, '#10 +
' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL'#10' WHERE'#10' (ID = :OLD_' + ' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL,'#10' FECHA_ACTUALIZACIO' +
'ID)' 'N = :FECHA_ACTUALIZACION'#10' WHERE'#10' (ID = :OLD_ID)'#10' '#10' '#10' ' +
' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

BIN
Source/Modulos/Articulos/Views/Articulos_view.dpk
View File

Binary file not shown.

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

@ -55,31 +55,37 @@
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="Articulos_controller.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Articulos_controller.dcp" />
<DCCReference Include="Articulos_model.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Articulos_model.dcp" />
<DCCReference Include="Contactos_view.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Contactos_view.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\dxThemeD11.dcp" />
<DCCReference Include="Familias_controller.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Familias_controller.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\GUIBase.dcp" />
<DCCReference Include="PngComponentsD10.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="SubFamilias_controller.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\SubFamilias_controller.dcp" />
<DCCReference Include="Tarifas_controller.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Tarifas_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\UnidadesMedida_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>
@ -106,14 +112,9 @@
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewProveedoresArticulo.pas"> <DCCReference Include="uViewProveedoresArticulo.pas">
<Form>frViewProveedoresArticulos</Form> <Form>frViewProveedoresArticulo</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

57
Source/Modulos/Articulos/Views/uEditorArticulo.dfm
View File

@ -4,21 +4,21 @@ inherited fEditorArticulo: TfEditorArticulo
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de art'#237'culo' Caption = 'Ficha de art'#237'culo'
ClientHeight = 480 ClientHeight = 669
ClientWidth = 624 ClientWidth = 957
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 632 ExplicitWidth = 965
ExplicitHeight = 518 ExplicitHeight = 707
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 624 Width = 957
Caption = 'Art'#237'culo' Caption = 'Art'#237'culo'
ExplicitTop = 52 ExplicitTop = 52
ExplicitWidth = 624 ExplicitWidth = 624
inherited Image1: TImage inherited Image1: TImage
Left = 597 Left = 930
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2 00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -37,7 +37,7 @@ inherited fEditorArticulo: TfEditorArticulo
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 624 Width = 957
ExplicitWidth = 624 ExplicitWidth = 624
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 543 ExplicitWidth = 543
@ -66,7 +66,7 @@ inherited fEditorArticulo: TfEditorArticulo
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 624 ExplicitWidth = 957
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -101,8 +101,8 @@ inherited fEditorArticulo: TfEditorArticulo
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 461 Top = 650
Width = 624 Width = 957
Panels = < Panels = <
item item
Width = 200 Width = 200
@ -111,26 +111,27 @@ inherited fEditorArticulo: TfEditorArticulo
ExplicitWidth = 624 ExplicitWidth = 624
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 618 Width = 951
Height = 346 Height = 535
ActivePage = pagPrecios
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 346 ExplicitHeight = 346
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 3
ExplicitTop = 24 ExplicitTop = 25
ExplicitWidth = 610 ExplicitWidth = 943
ExplicitHeight = 318 ExplicitHeight = 507
end end
object pagPrecios: TTabSheet object pagPrecios: TTabSheet
Caption = 'Precios' Caption = 'Precios'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 610
ExplicitHeight = 318
inline frViewProveedoresArticulo1: TfrViewProveedoresArticulo inline frViewProveedoresArticulo1: TfrViewProveedoresArticulo
Left = 0 Left = 0
Top = 0 Top = 0
Width = 610 Width = 943
Height = 318 Height = 507
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -140,24 +141,28 @@ inherited fEditorArticulo: TfEditorArticulo
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitLeft = -164 ExplicitTop = -3
ExplicitTop = -195 ExplicitWidth = 943
ExplicitHeight = 507
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 610 Width = 943
Height = 293 Height = 482
ExplicitWidth = 943
ExplicitHeight = 482
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 610 Width = 943
ExplicitWidth = 943
end end
end end
end end
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 624 Width = 957
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 624 ExplicitWidth = 624
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 614 Width = 947
Height = 25 Height = 25
end end
end end

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

@ -2,6 +2,7 @@ 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
@ -132,7 +133,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25
Top = 8 Top = 8
Width = 606 Width = 131
Height = 13 Height = 13
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
@ -146,20 +147,17 @@ 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 = 581 Width = 3
Height = 27 Height = 13
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]

475
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 451 Width = 1088
Height = 304 Height = 588
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -10,19 +10,20 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 1088
Height = 481 Height = 481
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 451
DesignSize = ( DesignSize = (
451 1088
481) 481)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 546 Left = 1024
Top = 28 Top = 731
Width = 23 Width = 23
Height = 22 Height = 22
Action = actAnadir Action = actAnadir
@ -48,15 +49,15 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 546 Left = 1024
Top = 56 Top = 759
Width = 23 Width = 23
Height = 22 Height = 22
Action = actEliminar Action = actEliminar
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 103 Left = 116
Top = 28 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
@ -77,7 +78,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 164 Width = 164
end end
object eDescripcion: TcxDBTextEdit object eDescripcion: TcxDBTextEdit
Left = 103 Left = 116
Top = 136 Top = 136
DataBinding.DataField = 'DESCRIPCION' DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -97,8 +98,8 @@ inherited frViewArticulo: TfrViewArticulo
Width = 108 Width = 108
end end
object eNoComisionable: TcxDBCheckBox object eNoComisionable: TcxDBCheckBox
Left = 103 Left = 116
Top = 163 Top = 331
Caption = 'Art'#237'culo no comisionable' Caption = 'Art'#237'culo no comisionable'
DataBinding.DataField = 'COMISIONABLE' DataBinding.DataField = 'COMISIONABLE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -118,12 +119,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 12
Width = 144 Width = 144
end end
object eImagen: TcxImage object eImagen: TcxImage
Left = 486 Left = 22
Top = 28 Top = 731
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.PopupMenuLayout.MenuItems = [] Properties.PopupMenuLayout.MenuItems = []
@ -139,12 +140,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 19
Height = 100 Height = 100
Width = 140 Width = 140
end end
object cbFamilia: TcxDBComboBox object cbFamilia: TcxDBComboBox
Left = 103 Left = 116
Top = 82 Top = 82
DataBinding.DataField = 'FAMILIA' DataBinding.DataField = 'FAMILIA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -168,8 +169,8 @@ inherited frViewArticulo: TfrViewArticulo
Width = 70 Width = 70
end end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 219 Left = 22
Top = 220 Top = 493
Width = 350 Width = 350
Height = 202 Height = 202
Enabled = False Enabled = False
@ -179,10 +180,10 @@ inherited frViewArticulo: TfrViewArticulo
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 18
ReadOnly = False ReadOnly = False
ExplicitLeft = 219 ExplicitLeft = 22
ExplicitTop = 220 ExplicitTop = 493
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 562
@ -200,11 +201,19 @@ inherited frViewArticulo: TfrViewArticulo
ExplicitWidth = 327 ExplicitWidth = 327
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 933
ExplicitLeft = 933
end
inherited Button3: TBitBtn
Left = 817
ExplicitLeft = 817
end
end end
end end
object eReferenciaProv: TcxDBTextEdit object eReferenciaProv: TcxDBTextEdit
Left = 103 Left = 116
Top = 220 Top = 358
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataField = 'REFERENCIA_PROV'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -217,12 +226,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 13
Width = 86 Width = 86
end end
object ePrecioCoste: TcxDBCurrencyEdit object ePrecioCoste: TcxDBCurrencyEdit
Left = 103 Left = 116
Top = 247 Top = 193
DataBinding.DataField = 'PRECIO_COSTE' DataBinding.DataField = 'PRECIO_COSTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
@ -239,12 +248,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 5
Width = 86 Width = 110
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 103 Left = 116
Top = 274 Top = 385
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False Enabled = False
@ -263,12 +272,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 14
Width = 86 Width = 86
end end
object ePrecioNeto: TcxDBCurrencyEdit object ePrecioNeto: TcxDBCurrencyEdit
Left = 103 Left = 116
Top = 301 Top = 412
DataBinding.DataField = 'PRECIO_NETO' DataBinding.DataField = 'PRECIO_NETO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False Enabled = False
@ -288,12 +297,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.TextColor = clWindowText StyleFocused.TextColor = clWindowText
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 15
Width = 86 Width = 86
end end
object ePrecioPorte: TcxDBCurrencyEdit object ePrecioPorte: TcxDBCurrencyEdit
Left = 103 Left = 116
Top = 328 Top = 439
DataBinding.DataField = 'PRECIO_PORTE' DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False Enabled = False
@ -309,16 +318,16 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 16
Width = 86 Width = 86
end end
object cbNoInventariable: TcxDBCheckBox object cbNoInventariable: TcxDBCheckBox
Left = 289 Left = 22
Top = 163 Top = 220
Caption = 'Art'#237'culo no inventariable' Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE' DataBinding.DataField = 'INVENTARIABLE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False Properties.Alignment = taRightJustify
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 0 Properties.ValueChecked = 0
@ -338,8 +347,8 @@ inherited frViewArticulo: TfrViewArticulo
Width = 144 Width = 144
end end
object ePrecioPVP: TcxDBCurrencyEdit object ePrecioPVP: TcxDBCurrencyEdit
Left = 103 Left = 116
Top = 355 Top = 466
DataBinding.DataField = 'PRECIO_PVP' DataBinding.DataField = 'PRECIO_PVP'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False Enabled = False
@ -355,11 +364,11 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 TabOrder = 17
Width = 288 Width = 288
end end
object cbSubfamilia: TcxDBComboBox object cbSubfamilia: TcxDBComboBox
Left = 103 Left = 116
Top = 109 Top = 109
DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataField = 'REFERENCIA_PROV'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -383,17 +392,16 @@ inherited frViewArticulo: TfrViewArticulo
Width = 448 Width = 448
end end
object ePrecioPVP2: TcxCurrencyEdit object ePrecioPVP2: TcxCurrencyEdit
Left = 103 Left = 407
Top = 382 Top = 193
Enabled = False
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
TabOrder = 14 TabOrder = 8
Width = 121 Width = 121
end end
object cbTarifa: TcxDBComboBox object cbTarifa: TcxDBComboBox
Left = 103 Left = 116
Top = 55 Top = 55
DataBinding.DataField = 'TARIFA' DataBinding.DataField = 'TARIFA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -417,78 +425,271 @@ inherited frViewArticulo: TfrViewArticulo
TabOrder = 1 TabOrder = 1
Width = 718 Width = 718
end end
object eFabricante: TcxDBTextEdit
Left = 116
Top = 247
DataBinding.DataField = 'FABRICANTE'
DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Width = 664
end
object eReferenciaFab: TcxDBTextEdit
Left = 644
Top = 247
DataBinding.DataField = 'REFERENCIA_FAB'
DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Width = 664
end
object eStockmin: TcxDBSpinEdit
Left = 242
Top = 220
DataBinding.DataField = 'STOCK_MIN'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.MinValue = True
Properties.ImmediatePost = True
Properties.Increment = 5.000000000000000000
Properties.LargeIncrement = 20.000000000000000000
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 100
end
object cbUnidadMedida: TcxDBComboBox
Left = 116
Top = 274
DataBinding.DataField = 'UNIDAD_MEDIDA'
DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16
Properties.ImmediatePost = True
Properties.OnInitPopup = cbUnidadMedidaPropertiesInitPopup
Properties.OnValidate = cbUnidadMedidaPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 420
end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloGroup7: TdxLayoutGroup object dxLayoutControlArticuloGroup1: TdxLayoutGroup
ShowCaption = False AutoAligns = []
Hidden = True AlignHorz = ahClient
LayoutDirection = ldHorizontal AlignVert = avClient
ShowBorder = False Caption = 'Datos del art'#237'culo'
object dxLayoutControlArticuloGroup1: TdxLayoutGroup object dxLayoutControlArticuloItem3: TdxLayoutItem
AutoAligns = [] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient Caption = 'Referencia:'
Caption = 'Datos del art'#237'culo' Control = eReferencia
object dxLayoutControlArticuloItem3: TdxLayoutItem ControlOptions.ShowBorder = False
AutoAligns = [aaVertical] end
AlignHorz = ahClient object dxLayoutControlArticuloGroup4: TdxLayoutGroup
Caption = 'Referencia:' ShowCaption = False
Control = eReferencia Hidden = True
ShowBorder = False
object dxLayoutControlArticuloItem12: TdxLayoutItem
Caption = 'Tarifa:'
Control = cbTarifa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloGroup4: TdxLayoutGroup object dxLayoutControlArticuloItem4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Familia:'
Control = cbFamilia
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem10: TdxLayoutItem
Caption = 'Subfamilia:'
Control = cbSubfamilia
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Descripci'#243'n:'
Control = eDescripcion
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControlArticuloGroup3: TdxLayoutGroup
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
object dxLayoutControlArticuloGroup11: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Datos detalle del art'#237'culo'
object dxLayoutControlArticuloGroup6: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloItem12: TdxLayoutItem
Caption = 'Tarifa:'
Control = cbTarifa
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Familia:'
Control = cbFamilia
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem10: TdxLayoutItem
Caption = 'Subfamilia:'
Control = cbSubfamilia
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Descripci'#243'n:'
Control = eDescripcion
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloGroup8: TdxLayoutGroup object dxLayoutControlArticuloGroup8: TdxLayoutGroup
Enabled = False
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloItem1: TdxLayoutItem object dxLayoutControlArticuloItem16: TdxLayoutItem
AutoAligns = [aaVertical] Caption = 'Puntos:'
AlignHorz = ahClient Control = ePrecioCoste
Caption = ' '
Control = eNoComisionable
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem7: TdxLayoutItem object dxLayoutControlArticuloGroup7: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
ShowCaption = False ShowCaption = False
Control = cbNoInventariable Hidden = True
ControlOptions.ShowBorder = False LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlArticuloItem7: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = ' '
ShowCaption = False
Control = cbNoInventariable
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem21: TdxLayoutItem
Caption = 'Stock m'#237'nimo:'
Control = eStockmin
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControlArticuloItem11: TdxLayoutItem
Caption = 'Precio PVP:'
Control = ePrecioPVP2
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloGroup10: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlArticuloItem13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fabricante:'
Control = eFabricante
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem20: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Referencia fabricante:'
Control = eReferenciaFab
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloItem22: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Unidad de medida:'
Control = cbUnidadMedida
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloGroup12: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Proveedor para el art'#237'culo'
Enabled = False
Visible = False
object dxLayoutControlArticuloItem1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
Enabled = False
Visible = False
Control = eNoComisionable
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem15: TdxLayoutItem
Caption = 'Ref. del prov:'
Enabled = False
Visible = False
Control = eReferenciaProv
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem17: TdxLayoutItem
Caption = 'Dto (%):'
Enabled = False
Visible = False
Control = eDescuento
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem18: TdxLayoutItem
Caption = 'Precio neto:'
Enabled = False
Visible = False
Control = ePrecioNeto
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem19: TdxLayoutItem
Caption = 'Coste de envio:'
Enabled = False
Visible = False
Control = ePrecioPorte
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem9: TdxLayoutItem
Caption = 'Precio PVP:'
Enabled = False
Visible = False
Control = ePrecioPVP
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem14: TdxLayoutItem
Control = frViewDatosYSeleccionProveedor1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlArticuloGroup2: TdxLayoutGroup object dxLayoutControlArticuloGroup2: TdxLayoutGroup
@ -524,74 +725,6 @@ inherited frViewArticulo: TfrViewArticulo
end end
end end
end end
object dxLayoutControlArticuloGroup3: TdxLayoutGroup
Caption = 'New Group'
ShowCaption = False
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlArticuloGroup11: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Datos del proveedor para el art'#237'culo'
object dxLayoutControlArticuloItem15: TdxLayoutItem
Caption = 'Ref. del prov:'
Enabled = False
Visible = False
Control = eReferenciaProv
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem16: TdxLayoutItem
Caption = 'Puntos:'
Control = ePrecioCoste
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem17: TdxLayoutItem
Caption = 'Dto (%):'
Enabled = False
Visible = False
Control = eDescuento
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem18: TdxLayoutItem
Caption = 'Precio neto:'
Enabled = False
Visible = False
Control = ePrecioNeto
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem19: TdxLayoutItem
Caption = 'Coste de envio:'
Enabled = False
Visible = False
Control = ePrecioPorte
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem9: TdxLayoutItem
Caption = 'Precio PVP:'
Enabled = False
Visible = False
Control = ePrecioPVP
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem11: TdxLayoutItem
Caption = 'Precio PVP:'
Control = ePrecioPVP2
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloGroup12: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Proveedor para el art'#237'culo'
Enabled = False
Visible = False
object dxLayoutControlArticuloItem14: TdxLayoutItem
Control = frViewDatosYSeleccionProveedor1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
end end
end end
object dsViewArticulo: TDADataSource object dsViewArticulo: TDADataSource

83
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -9,8 +9,8 @@ uses
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList, cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
uTarifasController, uFamiliasController, uSubFamiliasController, uViewDatosYSeleccionProveedor, uTarifasController, uFamiliasController, uSubFamiliasController, uUnidadesMedidaController,
cxSpinEdit, cxCurrencyEdit, uArticulosController, uDAInterfaces; uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit, uArticulosController, uDAInterfaces;
type type
IViewArticulo = interface(IViewBase) IViewArticulo = interface(IViewBase)
@ -47,7 +47,6 @@ type
dxLayoutControlArticuloItem5: TdxLayoutItem; dxLayoutControlArticuloItem5: TdxLayoutItem;
PngSpeedButton1: TPngSpeedButton; PngSpeedButton1: TPngSpeedButton;
dxLayoutControlArticuloGroup3: TdxLayoutGroup; dxLayoutControlArticuloGroup3: TdxLayoutGroup;
dxLayoutControlArticuloGroup7: TdxLayoutGroup;
eImagen: TcxImage; eImagen: TcxImage;
dxLayoutControlArticuloItem6: TdxLayoutItem; dxLayoutControlArticuloItem6: TdxLayoutItem;
dxLayoutControlArticuloGroup5: TdxLayoutGroup; dxLayoutControlArticuloGroup5: TdxLayoutGroup;
@ -69,7 +68,6 @@ type
dxLayoutControlArticuloGroup12: TdxLayoutGroup; dxLayoutControlArticuloGroup12: TdxLayoutGroup;
dxLayoutControlArticuloItem7: TdxLayoutItem; dxLayoutControlArticuloItem7: TdxLayoutItem;
cbNoInventariable: TcxDBCheckBox; cbNoInventariable: TcxDBCheckBox;
dxLayoutControlArticuloGroup8: TdxLayoutGroup;
dxLayoutControlArticuloItem9: TdxLayoutItem; dxLayoutControlArticuloItem9: TdxLayoutItem;
ePrecioPVP: TcxDBCurrencyEdit; ePrecioPVP: TcxDBCurrencyEdit;
dxLayoutControlArticuloItem10: TdxLayoutItem; dxLayoutControlArticuloItem10: TdxLayoutItem;
@ -78,6 +76,18 @@ type
dxLayoutControlArticuloItem11: TdxLayoutItem; dxLayoutControlArticuloItem11: TdxLayoutItem;
dxLayoutControlArticuloItem12: TdxLayoutItem; dxLayoutControlArticuloItem12: TdxLayoutItem;
cbTarifa: TcxDBComboBox; cbTarifa: TcxDBComboBox;
dxLayoutControlArticuloItem13: TdxLayoutItem;
eFabricante: TcxDBTextEdit;
dxLayoutControlArticuloItem20: TdxLayoutItem;
eReferenciaFab: TcxDBTextEdit;
dxLayoutControlArticuloItem21: TdxLayoutItem;
eStockmin: TcxDBSpinEdit;
dxLayoutControlArticuloGroup8: TdxLayoutGroup;
dxLayoutControlArticuloGroup7: TdxLayoutGroup;
dxLayoutControlArticuloItem22: TdxLayoutItem;
cbUnidadMedida: TcxDBComboBox;
dxLayoutControlArticuloGroup6: TdxLayoutGroup;
dxLayoutControlArticuloGroup10: TdxLayoutGroup;
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject); procedure cbFamiliaPropertiesInitPopup(Sender: TObject);
@ -94,6 +104,9 @@ type
procedure cbTarifaPropertiesInitPopup(Sender: TObject); procedure cbTarifaPropertiesInitPopup(Sender: TObject);
procedure cbTarifaPropertiesValidate(Sender: TObject; procedure cbTarifaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbUnidadMedidaPropertiesInitPopup(Sender: TObject);
procedure cbUnidadMedidaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
private private
procedure CargarImagen; procedure CargarImagen;
procedure SalvarImagen; procedure SalvarImagen;
@ -101,6 +114,7 @@ type
FTarifasController: ITarifasController; FTarifasController: ITarifasController;
FFamiliasController: IFamiliasController; FFamiliasController: IFamiliasController;
FSubFamiliasController: ISubFamiliasController; FSubFamiliasController: ISubFamiliasController;
FUnidadesController: IUnidadesMedidaController;
FController: IArticulosController; FController: IArticulosController;
FArticulo: IBizArticulo; FArticulo: IBizArticulo;
function GetArticulo: IBizArticulo; function GetArticulo: IBizArticulo;
@ -117,7 +131,7 @@ implementation
uses uses
uFactuGES_App, uDataModuleArticulos, uSistemaFunc, uBizTarifas, uFactuGES_App, uDataModuleArticulos, uSistemaFunc, uBizTarifas,
uBizFamilias, uBizSubFamilias, uBizContactos, uNumUtils; uBizFamilias, uBizSubFamilias, uBizUnidadesMedida, uBizContactos, uNumUtils;
{$R *.dfm} {$R *.dfm}
@ -291,20 +305,71 @@ begin
end; end;
end; end;
procedure TfrViewArticulo.cbUnidadMedidaPropertiesInitPopup(Sender: TObject);
begin
inherited;
with cbUnidadMedida.Properties.Items do
begin
if (Count = 0) then
begin
ShowHourglassCursor;
BeginUpdate;
try
Clear;
AddStrings(FUnidadesController.DarListaUnidadesMedida);
finally
EndUpdate;
HideHourglassCursor;
end;
end;
end;
end;
procedure TfrViewArticulo.cbUnidadMedidaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
AUnidades : IBizUnidadMedida;
begin
inherited;
with (Sender as TcxDBComboBox) do
begin
if (Length(DisplayValue) > 0) and (DisplayValue <> FArticulo.FAMILIA) then
if Properties.LookupItems.IndexOf(DisplayValue) < 0 then
begin
ShowHourglassCursor;
Properties.LookupItems.BeginUpdate;
AUnidades := FUnidadesController.BuscarTodos;
AUnidades.DataTable.Active := True;
try
FUnidadesController.Anadir(AUnidades);
AUnidades.DESCRIPCION := DisplayValue;
FUnidadesController.Guardar(AUnidades);
Properties.LookupItems.Add(DisplayValue);
finally
Properties.LookupItems.EndUpdate;
HideHourglassCursor;
AUnidades := NIL;
end;
end;
end;
end;
procedure TfrViewArticulo.CustomViewCreate(Sender: TObject); procedure TfrViewArticulo.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FTarifasController := TTarifasController.Create; FTarifasController := TTarifasController.Create;
FFamiliasController := TFamiliasController.Create; FFamiliasController := TFamiliasController.Create;
FSubFamiliasController := TSubFamiliasController.Create; FSubFamiliasController := TSubFamiliasController.Create;
ePrecioCoste.Properties.OnEditValueChanged := PuntosChanged; FUnidadesController := TUnidadesMedidaController.Create;
ePrecioCoste.Properties.OnEditValueChanged := PuntosChanged;
end; end;
procedure TfrViewArticulo.CustomViewDestroy(Sender: TObject); procedure TfrViewArticulo.CustomViewDestroy(Sender: TObject);
begin begin
FTarifasController := Nil; FTarifasController := Nil;
FFamiliasController := Nil; FFamiliasController := Nil;
FSubFamiliasController := Nil; FSubFamiliasController := Nil;
FUnidadesController := NIL;
ePrecioCoste.Properties.OnEditValueChanged := Nil; ePrecioCoste.Properties.OnEditValueChanged := Nil;
eDescuento.Properties.OnEditValueChanged := Nil; eDescuento.Properties.OnEditValueChanged := Nil;
inherited; inherited;

14
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -44,11 +44,9 @@ inherited frViewArticulos: TfrViewArticulos
Tag = 1 Tag = 1
Value = 1 Value = 1
end> end>
Visible = False
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
VisibleForCustomization = False
Width = 22 Width = 22
end end
object cxGridViewCOMISIONABLE: TcxGridDBColumn object cxGridViewCOMISIONABLE: TcxGridDBColumn
@ -113,6 +111,10 @@ inherited frViewArticulos: TfrViewArticulos
BestFitMaxWidth = 120 BestFitMaxWidth = 120
Width = 210 Width = 210
end end
object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
Caption = 'Unidad Medida'
DataBinding.FieldName = 'UNIDAD_MEDIDA'
end
object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor' Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE_PROVEEDOR' DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
@ -182,11 +184,15 @@ inherited frViewArticulos: TfrViewArticulos
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'TARIFA 2020' Caption = 'Todos'
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
Tag = 1 Tag = 1
Caption = 'TARIFAS ANTERIORES' Caption = 'TARIFA 2020'
end
object cxGridLevel2: TcxGridLevel
Tag = 2
Caption = 'OTRAS TARIFAS'
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase

10
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -45,6 +45,8 @@ type
cxGridViewPRECIOPVP2: TcxGridDBColumn; cxGridViewPRECIOPVP2: TcxGridDBColumn;
cxGridViewTARIFA: TcxGridDBColumn; cxGridViewTARIFA: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
cxGridLevel2: TcxGridLevel;
cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
procedure cxGridViewIDCustomDrawCell( procedure cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@ -162,8 +164,12 @@ begin
FFiltro := AddFilterGrid(fboAnd); FFiltro := AddFilterGrid(fboAnd);
case cxGrid.ActiveLevel.Index of case cxGrid.ActiveLevel.Index of
0 : FFiltro.AddItem(cxGridViewTARIFA, foEqual, 'TARIFA 2020', 'TARIFA 2020'); 1 : FFiltro.AddItem(cxGridViewTARIFA, foEqual, 'TARIFA 2020', 'TARIFA 2020');
1 : FFiltro.AddItem(cxGridViewTARIFA, foNotEqual, 'TARIFA 2020', 'ARTICULOS DE OTRAS TARIFAS'); 2 : begin
FFiltro.AddItem(cxGridViewTARIFA, foNotEqual, NULL, 'ARTICULOS CON TARIFA ASIGNADA');
FFiltro := AddFilterGrid(fboAnd);
FFiltro.AddItem(cxGridViewTARIFA, foNotEqual, 'TARIFA 2020', 'OTRAS TARIFAS');
end;
end; end;
end; end;

1
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -117,7 +117,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 451
object TBXItem12: TTBXItem [0] object TBXItem12: TTBXItem [0]
Action = actAnadirArticulos Action = actAnadirArticulos
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText

8
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -69,7 +69,7 @@ procedure TfrViewDetallesArticulos.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
cxGridViewREFERENCIA.Properties.OnValidate := OnValidateReferencia; cxGridViewREFERENCIA.Properties.OnValidate := OnValidateReferencia;
cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := OnValidateReferenciaProveedor; // cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := OnValidateReferenciaProveedor;
cxGridViewCANTIDAD.Properties.OnValidate := OnValidateCantidad; cxGridViewCANTIDAD.Properties.OnValidate := OnValidateCantidad;
end; end;
@ -77,7 +77,7 @@ procedure TfrViewDetallesArticulos.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
cxGridViewREFERENCIA.Properties.OnValidate := Nil; cxGridViewREFERENCIA.Properties.OnValidate := Nil;
cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := Nil; // cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := Nil;
cxGridViewCANTIDAD.Properties.OnValidate := Nil; cxGridViewCANTIDAD.Properties.OnValidate := Nil;
end; end;
@ -117,8 +117,9 @@ procedure TfrViewDetallesArticulos.OnValidateReferenciaProveedor(Sender: TObject
var var
lsReferencia : String; lsReferencia : String;
begin begin
//NO SE PUEDE BUSCAR POR REFERENCIA PROVEEDOR YA QUE PUEDE HABER VARIOS PROVEEDORES DE UN ARTICULO
//En el caso de cadena vacia no validamos //En el caso de cadena vacia no validamos
if (VarIsNull(DisplayValue)) then { if (VarIsNull(DisplayValue)) then
Exit; Exit;
lsReferencia := VarToStr(DisplayValue); lsReferencia := VarToStr(DisplayValue);
@ -130,6 +131,7 @@ begin
ErrorText := 'La referencia introducida no exite en el catálogo'; ErrorText := 'La referencia introducida no exite en el catálogo';
Error := True; Error := True;
end; end;
}
end; end;
procedure TfrViewDetallesArticulos.RellenarArticulosInterno; procedure TfrViewDetallesArticulos.RellenarArticulosInterno;

125
Source/Modulos/Articulos/Views/uViewProveedoresArticulo.dfm Normal file
View File

@ -0,0 +1,125 @@
inherited frViewProveedoresArticulo: TfrViewProveedoresArticulo
Width = 774
Height = 513
OnShow = CustomViewShow
ExplicitWidth = 774
ExplicitHeight = 513
inherited cxGrid: TcxGrid
Width = 774
Height = 488
ExplicitWidth = 774
ExplicitHeight = 488
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID'
object cxGridViewID_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'ID_PROVEEDOR'
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
VisibleForCustomization = False
end
object cxGridViewPROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor'
DataBinding.FieldName = 'ID_PROVEEDOR'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
SortOrder = soAscending
FieldName = 'NOMBRE'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsProveedores
Properties.OnEditValueChanged = cxGridViewPROVEEDORPropertiesEditValueChanged
end
object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
Caption = 'Ref. proveedor'
DataBinding.FieldName = 'REFERENCIA_PROV'
end
object cxGridViewFECHA_ACTUALIZACION: TcxGridDBColumn
Caption = 'Fecha '#250'ltima actualizaci'#243'n'
DataBinding.FieldName = 'FECHA_ACTUALIZACION'
end
object cxGridViewPRECIO_COSTE: TcxGridDBColumn
Caption = 'Precio material'
DataBinding.FieldName = 'PRECIO_COSTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewDESCUENTO: TcxGridDBColumn
Caption = 'Descuento'
DataBinding.FieldName = 'DESCUENTO'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
BestFitMaxWidth = 30
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 30
end
object cxGridViewPRECIO_NETO: TcxGridDBColumn
Caption = 'Precio coste'
DataBinding.FieldName = 'PRECIO_NETO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Options.Editing = False
end
object cxGridViewPRECIO_PORTE: TcxGridDBColumn
Caption = 'Porte'
DataBinding.FieldName = 'PRECIO_PORTE'
Visible = False
VisibleForCustomization = False
end
object cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
Caption = 'Precio P.V.P (Suministro)'
DataBinding.FieldName = 'PRECIO_PVP_VENTA'
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
Caption = 'Precio P.V.P (Total)'
DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object cxGridViewID_ARTICULO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ARTICULO'
Visible = False
VisibleForCustomization = False
end
end
end
inherited ToolBar1: TToolBar
Width = 774
ExplicitWidth = 774
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
inherited ActionListContenido: TActionList
inherited actModificar: TAction
Visible = False
end
end
object dsProveedores: TDADataSource
Left = 72
Top = 144
end
end

132
Source/Modulos/Articulos/Views/uViewProveedoresArticulo.pas Normal file
View File

@ -0,0 +1,132 @@
unit uViewProveedoresArticulo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList,
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxDBLookupComboBox, cxSpinEdit,
uBizContactos, uProveedoresController, uDAInterfaces,
uBizArticulos, uArticulosController,
cxTextEdit, cxCurrencyEdit;
type
IViewProveedoresArticulo = interface(IViewBase)
['{65206152-786D-47AE-A037-5EF480BC056C}']
function GetArticulo: IBizArticulo;
procedure SetArticulo(const Value: IBizArticulo);
property Articulo: IBizArticulo read GetArticulo write SetArticulo;
function GetController : IArticulosController;
procedure SetController (const Value : IArticulosController);
property Controller : IArticulosController read GetController write SetController;
end;
TfrViewProveedoresArticulo = class(TfrViewDetallesGenerico, IViewProveedoresArticulo)
dsProveedores: TDADataSource;
cxGridViewPROVEEDOR: TcxGridDBColumn;
cxGridViewDESCUENTO: TcxGridDBColumn;
cxGridViewREFERENCIA_PROV: TcxGridDBColumn;
cxGridViewPRECIO_COSTE: TcxGridDBColumn;
cxGridViewPRECIO_NETO: TcxGridDBColumn;
cxGridViewPRECIO_PORTE: TcxGridDBColumn;
cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn;
cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn;
cxGridViewID_PROVEEDOR: TcxGridDBColumn;
cxGridViewID_ARTICULO: TcxGridDBColumn;
cxGridViewFECHA_ACTUALIZACION: TcxGridDBColumn;
procedure cxGridViewPROVEEDORPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
protected
FArticulo: IBizArticulo;
FController: IArticulosController;
FProvController : IProveedoresController;
FProveedores : IBizProveedor;
function GetArticulo: IBizArticulo;
procedure SetArticulo(const Value: IBizArticulo);
function GetController : IArticulosController;
procedure SetController (const Value : IArticulosController);
procedure AnadirInterno; override;
public
property Articulo: IBizArticulo read GetArticulo write SetArticulo;
property Controller : IArticulosController read GetController write SetController;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
procedure TfrViewProveedoresArticulo.AnadirInterno;
begin
dsDetalles.DataTable.Append;
end;
constructor TfrViewProveedoresArticulo.Create(AOwner: TComponent);
begin
inherited;
FProvController := TProveedoresController.Create;
FProveedores := (FProvController.BuscarTodos as IBizProveedor);
dsProveedores.DataTable := FProveedores.DataTable;
if not dsProveedores.DataTable.Active then
dsProveedores.DataTable.Active := True;
end;
procedure TfrViewProveedoresArticulo.CustomViewShow(Sender: TObject);
begin
inherited;
cxGridView.ApplyBestFit;
end;
procedure TfrViewProveedoresArticulo.cxGridViewPROVEEDORPropertiesEditValueChanged(Sender: TObject);
begin
inherited;
//Signamos el descuento del proveedor seleccionado
if not Articulo.Proveedores.DataTable.Editing then
Articulo.Proveedores.DataTable.Edit;
Articulo.Proveedores.DESCUENTO := FProveedores.DESCUENTO;
end;
destructor TfrViewProveedoresArticulo.Destroy;
begin
if dsProveedores.DataTable.Active then
dsProveedores.DataTable.Active := False;
FProveedores := NIL;
FProvController := NIL;
inherited;
end;
function TfrViewProveedoresArticulo.GetArticulo: IBizArticulo;
begin
Result := FArticulo;
end;
function TfrViewProveedoresArticulo.GetController: IArticulosController;
begin
Result := FController;
end;
procedure TfrViewProveedoresArticulo.SetArticulo(const Value: IBizArticulo);
begin
FArticulo := Value;
dsDetalles.DataTable := FArticulo.Proveedores.DataTable;
end;
procedure TfrViewProveedoresArticulo.SetController(const Value: IArticulosController);
begin
FController := Value;
end;
end.

46
Source/Modulos/Contabilidad/Contabilidad_Group.groupproj
View File

@ -13,8 +13,12 @@
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" /> <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Model\RecibosCliente_model.dproj" />
<Projects Include="Controller\Contabilidad_controller.dproj" /> <Projects Include="Controller\Contabilidad_controller.dproj" />
<Projects Include="Data\Contabilidad_data.dproj" /> <Projects Include="Data\Contabilidad_data.dproj" />
<Projects Include="Model\Contabilidad_model.dproj" /> <Projects Include="Model\Contabilidad_model.dproj" />
@ -171,14 +175,50 @@
<Target Name="Articulos_view:Make"> <Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" /> <MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RecibosCliente_controller">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_controller:Clean">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_controller:Make">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_model">
<MSBuild Projects="..\Recibos de cliente\Model\RecibosCliente_model.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_model:Clean">
<MSBuild Projects="..\Recibos de cliente\Model\RecibosCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_model:Make">
<MSBuild Projects="..\Recibos de cliente\Model\RecibosCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_controller">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_controller:Clean">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_controller;Contactos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;FacturasCliente_view;Articulos_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_controller;Contactos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;FacturasCliente_view;Articulos_view;RecibosCliente_controller;RecibosCliente_model;FacturasCliente_controller;FacturasProveedor_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;FacturasCliente_view:Clean;Articulos_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;RecibosCliente_controller:Clean;RecibosCliente_model:Clean;FacturasCliente_controller:Clean;FacturasProveedor_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;FacturasCliente_view:Make;Articulos_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;FacturasCliente_view:Make;Articulos_view:Make;RecibosCliente_controller:Make;RecibosCliente_model:Make;FacturasCliente_controller:Make;FacturasProveedor_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

69
Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm
View File

@ -18,23 +18,24 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 91 Top = 91
Width = 683 Width = 683
Height = 49 Height = 53
ExplicitTop = 91 ExplicitTop = 91
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 49 ExplicitHeight = 53
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 378 ExplicitWidth = 142
ExplicitHeight = 27
inherited TBXItem36: TTBXItem inherited TBXItem36: TTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 378 Left = 142
Top = 23 Top = 26
DockPos = 96 DockPos = 96
DockRow = 1 DockRow = 1
ExplicitLeft = 378 ExplicitLeft = 142
ExplicitTop = 23 ExplicitTop = 26
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
end end
@ -44,11 +45,13 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 647 Left = 647
Top = 23 Top = 26
DockPos = 678 DockPos = 678
DockRow = 1 DockRow = 1
Visible = False
ExplicitLeft = 647 ExplicitLeft = 647
ExplicitTop = 23 ExplicitTop = 26
ExplicitWidth = 36
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -103,26 +106,26 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end end
end end
inherited frViewClientes1: TfrViewClientes [4] inherited frViewClientes1: TfrViewClientes [4]
Top = 140 Top = 144
Width = 683 Width = 683
Height = 324 Height = 320
Padding.Left = 10 Padding.Left = 10
Padding.Top = 10 Padding.Top = 10
Padding.Right = 10 Padding.Right = 10
Padding.Bottom = 5 Padding.Bottom = 5
TabOrder = 4 TabOrder = 4
ExplicitTop = 140 ExplicitTop = 144
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 324 ExplicitHeight = 320
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 10 Left = 10
Top = 112 Top = 112
Width = 663 Width = 663
Height = 181 Height = 177
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 663 ExplicitWidth = 663
ExplicitHeight = 181 ExplicitHeight = 177
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -145,8 +148,28 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 663 Width = 663
ExplicitWidth = 663 ExplicitWidth = 663
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457
Width = 457
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240
Width = 240
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 388 Left = 388
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 388 ExplicitLeft = 388
ExplicitWidth = 232 ExplicitWidth = 232
Width = 232 Width = 232
@ -164,9 +187,9 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Left = 10 Left = 10
Top = 293 Top = 289
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 293 ExplicitTop = 289
ExplicitWidth = 663 ExplicitWidth = 663
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 663 Width = 663
@ -268,6 +291,12 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited actConfPagina: TAction inherited actConfPagina: TAction
Visible = False Visible = False
end end
inherited actPrevisualizar: TAction
Visible = False
end
inherited actImprimir: TAction
Visible = False
end
inherited actDeshacer: TEditUndo inherited actDeshacer: TEditUndo
Visible = False Visible = False
end end
@ -313,6 +342,10 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited actGruposCliente: TAction inherited actGruposCliente: TAction
Visible = False Visible = False
end end
inherited actInformes: TAction
Enabled = False
Visible = False
end
end end
inherited SmallImages: TPngImageList [7] inherited SmallImages: TPngImageList [7]
end end
@ -336,6 +369,8 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end end
inherited JsPrevisualizarDialog: TJSDialog [15] inherited JsPrevisualizarDialog: TJSDialog [15]
end end
inherited JsImprimirDialog: TJSDialog [16]
end
object JsClienteBloqueadoDialog: TJSDialog object JsClienteBloqueadoDialog: TJSDialog
DialogOptions = [doCommandLinks, doModal] DialogOptions = [doCommandLinks, doModal]
Glyph.Data = { Glyph.Data = {

85
Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ClientHeight = 480 ClientHeight = 480
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 514 ExplicitHeight = 518
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -20,10 +20,13 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 91 Top = 91
Width = 656 Width = 656
Height = 53
ExplicitTop = 91 ExplicitTop = 91
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 53
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 387 ExplicitWidth = 142
ExplicitHeight = 27
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Images = frViewProveedores1.PngImageList Images = frViewProveedores1.PngImageList
end end
@ -32,12 +35,12 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 387 Left = 142
Top = 23 Top = 26
DockPos = 108 DockPos = 108
DockRow = 1 DockRow = 1
ExplicitLeft = 387 ExplicitLeft = 142
ExplicitTop = 23 ExplicitTop = 26
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
end end
@ -45,6 +48,16 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited TBXTMain2: TTBXToolbar
Left = 595
Top = 26
DockPos = 595
DockRow = 1
Visible = False
ExplicitLeft = 595
ExplicitTop = 26
ExplicitWidth = 36
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 461 Top = 461
@ -99,26 +112,26 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end end
end end
inherited frViewProveedores1: TfrViewProveedores [4] inherited frViewProveedores1: TfrViewProveedores [4]
Top = 166 Top = 144
Width = 656 Width = 656
Height = 259 Height = 281
Padding.Left = 10 Padding.Left = 10
Padding.Top = 10 Padding.Top = 10
Padding.Right = 10 Padding.Right = 10
Padding.Bottom = 5 Padding.Bottom = 5
TabOrder = 4 TabOrder = 4
ExplicitTop = 166 ExplicitTop = 170
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 259 ExplicitHeight = 255
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 10 Left = 10
Top = 112 Top = 112
Width = 636 Width = 636
Height = 116 Height = 138
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 636 ExplicitWidth = 636
ExplicitHeight = 180 ExplicitHeight = 112
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -142,9 +155,31 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 636 Width = 636
ExplicitWidth = 636 ExplicitWidth = 636
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 460
Width = 460
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 207
Width = 207
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 376 Left = 376
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376 ExplicitLeft = 376
ExplicitWidth = 201
Width = 201
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -159,9 +194,9 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Left = 10 Left = 10
Top = 228 Top = 250
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 292 ExplicitTop = 224
ExplicitWidth = 636 ExplicitWidth = 636
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 636 Width = 636
@ -204,13 +239,11 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Padding.Bottom = 8 Padding.Bottom = 8
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitLeft = -8
ExplicitTop = -37
object lblTitle: TLabel object lblTitle: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25
Top = 8 Top = 8
Width = 135 Width = 606
Height = 13 Height = 13
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
@ -224,17 +257,20 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ExplicitWidth = 135
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 [6] inherited EditorActionList: TActionList [6]
@ -258,6 +294,12 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited actConfPagina: TAction inherited actConfPagina: TAction
Visible = False Visible = False
end end
inherited actPrevisualizar: TAction
Visible = False
end
inherited actImprimir: TAction
Visible = False
end
inherited actDeshacer: TEditUndo inherited actDeshacer: TEditUndo
Visible = False Visible = False
end end
@ -300,6 +342,9 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited actDuplicar: TAction inherited actDuplicar: TAction
Visible = False Visible = False
end end
inherited actInformes: TAction
Visible = False
end
end end
inherited SmallImages: TPngImageList [7] inherited SmallImages: TPngImageList [7]
end end
@ -323,6 +368,8 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end end
inherited JsImprimirDialog: TJSDialog [15] inherited JsImprimirDialog: TJSDialog [15]
end end
inherited JsListaContactosNoEliminados: TJSDialog [16]
end
object EditorSeleccionActionList: TActionList object EditorSeleccionActionList: TActionList
Images = SmallImages Images = SmallImages
Left = 200 Left = 200

11
Source/Modulos/Contratos de cliente/Views/uViewElegirArticulosContratosCliente.dfm
View File

@ -1,4 +1,9 @@
inherited frViewElegirArticulosContratosCliente: TfrViewElegirArticulosContratosCliente inherited frViewElegirArticulosContratosCliente: TfrViewElegirArticulosContratosCliente
inherited cxGrid: TcxGrid
inherited cxGridLevel: TcxGridLevel
Visible = False
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -7,18 +12,24 @@ inherited frViewElegirArticulosContratosCliente: TfrViewElegirArticulosContratos
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457
Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240
Width = 240
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 200
Width = 200
end end
end end
end end

4
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -1408,7 +1408,7 @@ begin
end; end;
end; end;
ARecibos.DESCRIPCION := 'RECIBO ' + ARecibos.REFERENCIA + ' - ' + CifraToLetras(ARecibos.IMPORTE); ARecibos.DESCRIPCION := 'RECIBO ' + ARecibos.REFERENCIA + ' - ' + ARecibos.NOMBRE; // CifraToLetras(ARecibos.IMPORTE);
ARecibosClienteController.Guardar(ARecibos); ARecibosClienteController.Guardar(ARecibos);
end; end;
@ -1436,7 +1436,7 @@ begin
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_RETENCION; ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_RETENCION;
ARecibos.IMPORTE := AFactura.IMPORTE_RETENCION; ARecibos.IMPORTE := AFactura.IMPORTE_RETENCION;
ARecibos.DESCRIPCION := 'Pago de factura de retención ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE); ARecibos.DESCRIPCION := 'Pago de factura de retención ' + AFactura.REFERENCIA + ' - ' + ARecibos.NOMBRE; // CifraToLetras(ARecibos.IMPORTE);
ARecibosClienteController.Guardar(ARecibos); ARecibosClienteController.Guardar(ARecibos);
end; end;

45
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -393,6 +393,7 @@ object RptFacturasCliente: TRptFacturasCliente
'actos.nif_cif,'#10'contactos.poblacion,'#10'V_facturas_cliente.NOMBRE,'#10's' + 'actos.nif_cif,'#10'contactos.poblacion,'#10'V_facturas_cliente.NOMBRE,'#10's' +
'um(V_facturas_cliente.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10'sum(V_f' + 'um(V_facturas_cliente.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10'sum(V_f' +
'acturas_cliente.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_clie' + 'acturas_cliente.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_clie' +
'nte.IMPORTE_RETENCION) as IMPORTE_RETENCION,'#10'sum(V_facturas_clie' +
'nte.IMPORTE_TOTAL) AS IMPORTE_TOTAL'#10'from V_facturas_cliente'#10'left' + 'nte.IMPORTE_TOTAL) AS IMPORTE_TOTAL'#10'from V_facturas_cliente'#10'left' +
' join contactos on (contactos.ID = V_facturas_cliente.ID_CLIENTE' + ' join contactos on (contactos.ID = V_facturas_cliente.ID_CLIENTE' +
')'#10'group by 1,2,3,4,5'#10'order by 1,5,2,3,4'#10 ')'#10'group by 1,2,3,4,5'#10'order by 1,5,2,3,4'#10
@ -429,6 +430,10 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'POBLACION' DatasetField = 'POBLACION'
TableField = 'POBLACION' TableField = 'POBLACION'
end
item
DatasetField = 'IMPORTE_RETENCION'
TableField = 'IMPORTE_RETENCION'
end> end>
end> end>
Name = 'ListadoFacturasResumen' Name = 'ListadoFacturasResumen'
@ -465,6 +470,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
@ -501,9 +510,9 @@ object RptFacturasCliente: TRptFacturasCliente
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
'UACION, NIF_CIF, REFERENCIA_CLIENTE, FECHA_FACTURA, FECHA_VENCIM' + 'UACION, NIF_CIF, REFERENCIA_CLIENTE, FECHA_FACTURA, FECHA_VENCIM' +
'IENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_f' + 'IENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA,'#10'RETENCION, IMPORTE_RETE' +
'acturas_cliente'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, ' + 'NCION, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'orde' +
'REFERENCIA, NOMBRE'#10#10 'r by ANO, MES, FECHA_FACTURA, REFERENCIA, NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -569,6 +578,14 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'FECHA_VENCIMIENTO' DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'RETENCION'
TableField = 'RETENCION'
end
item
DatasetField = 'IMPORTE_RETENCION'
TableField = 'IMPORTE_RETENCION'
end> end>
end> end>
Name = 'ListadoFacturas' Name = 'ListadoFacturas'
@ -639,6 +656,14 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'RETENCION'
DataType = datFloat
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
@ -1611,7 +1636,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 43496.552480104170000000 ReportOptions.LastChange = 44215.518285219910000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1734,6 +1759,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
end end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency DataType = datCurrency
@ -1746,6 +1775,14 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'RETENCION'
DataType = datFloat
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency

21
Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.dfm
View File

@ -1,26 +1,33 @@
inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCliente inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridLevel: TcxGridLevel
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn Visible = False
Visible = False
end
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
Visible = False
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

2
Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.pas
View File

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView, uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
uDAInterfaces; uDAInterfaces, uCustomView, uViewBase;
type type
IViewElegirArticulosFacturasCliente = interface(IViewArticulos) IViewElegirArticulosFacturasCliente = interface(IViewArticulos)

2
Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
View File

@ -68,7 +68,7 @@ var
begin begin
if Assigned(ADetalles) then if Assigned(ADetalles) then
begin begin
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo); AArticulos := (FArticulosController.BuscarTodosPorProveedor as IBizArticulo);
try try
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
if ANuevaFila then if ANuevaFila then

2
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -1365,7 +1365,7 @@ begin
end; end;
end; end;
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE); ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + '- ' + ARecibos.NOMBRE; // CifraToLetras(ARecibos.IMPORTE);
ARecibosProveedorController.Guardar(ARecibos); ARecibosProveedorController.Guardar(ARecibos);
end; end;

36
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -10,6 +10,7 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" /> <Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" /> <Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" /> <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
@ -22,6 +23,8 @@
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" /> <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" /> <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" /> <Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" /> <Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" /> <Projects Include="Data\FacturasProveedor_data.dproj" />
<Projects Include="Model\FacturasProveedor_model.dproj" /> <Projects Include="Model\FacturasProveedor_model.dproj" />
@ -241,14 +244,41 @@
<Target Name="RecibosProveedor_view:Make"> <Target Name="RecibosProveedor_view:Make">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="AlbaranesProveedor_view">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
</Target>
<Target Name="AlbaranesProveedor_view:Clean">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesProveedor_view:Make">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="AlbProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="AlbProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="AlbCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="AlbCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;FacturasCliente_view;RecibosProveedor_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;FacturasCliente_view;RecibosProveedor_view;AlbaranesProveedor_view;AlbProv_FacProv_relation;AlbCli_FacCli_relation" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;FacturasCliente_view:Clean;RecibosProveedor_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;FacturasCliente_view:Clean;RecibosProveedor_view:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;AlbCli_FacCli_relation:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;FacturasCliente_view:Make;RecibosProveedor_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;FacturasCliente_view:Make;RecibosProveedor_view:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;AlbCli_FacCli_relation:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

3
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
View File

@ -60,7 +60,8 @@ requires
cxExtEditorsD11, cxExtEditorsD11,
cxExportD11, cxExportD11,
ContratosCliente_controller, ContratosCliente_controller,
ContratosCliente_model; ContratosCliente_model,
AlbProv_FacProv_relation;
contains contains
uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas', uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas',

75
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
View File

@ -42,8 +42,6 @@
<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\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -52,42 +50,43 @@
<DelphiCompile Include="FacturasProveedor_view.dpk"> <DelphiCompile Include="FacturasProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="..\..\Lib\AlbProv_FacProv_relation.dcp" />
<DCCReference Include="..\Contabilidad_controller.dcp" /> <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\Contabilidad_view.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\ContratosCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\ContratosCliente_model.dcp" /> <DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" /> <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\Lib\cxExportD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" /> <DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Lib\cxGridD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" /> <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\dxComnD11.dcp" /> <DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" /> <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\FacturasProveedor_controller.dcp" /> <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" /> <DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\PNG_D10.dcp" /> <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\vclactnband.dcp" /> <DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\vcljpg.dcp" /> <DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas"> <DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
<Form>fEditorElegirArticulosFacturaProveedor</Form> <Form>fEditorElegirArticulosFacturaProveedor</Form>
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass> <DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>

24
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -75,9 +75,7 @@ uses
uDataModuleFacturasProveedor, uDataModuleUsuarios, uDataModuleFacturasProveedor, uDataModuleUsuarios,
uGridUtils, uDBSelectionListUtils, uFactuGES_App, uBizEjercicios, uGridUtils, uDBSelectionListUtils, uFactuGES_App, uBizEjercicios,
uAlbaranesProveedorController, uBizAlbaranesProveedor, uAlbaranesProveedorController, uBizAlbaranesProveedor,
uEditorBase, uGestorInformesController; uEditorBase, uGestorInformesController, uGenerarFacturasProvAlbProvUtils;
// , uGenerarFacturasProvAlbProvUtils;
{$R *.dfm} {$R *.dfm}
@ -352,11 +350,27 @@ begin
end; end;
procedure TfEditorFacturasProveedor.NuevoInterno; procedure TfEditorFacturasProveedor.NuevoInterno;
var
Respuesta : Integer;
begin begin
inherited; inherited;
if FController.Anadir(Facturas) then Respuesta := JsNuevaFacturaDialog.Execute;
FController.Ver(Facturas);
if Respuesta <> IDCANCEL then
begin
case JsNuevaFacturaDialog.CustomButtonResult of
100 : begin // Factura nuevo vacio
if FController.Anadir(Facturas) then
FController.Ver(Facturas);
end;
200 : begin // Utilizar albaranes
GenerarFacturaProv;
actRefrescar.Execute;
end;
end;
end;
end; end;
procedure TfEditorFacturasProveedor.OnListaAnosChange(Sender: TObject; const Text: string); procedure TfEditorFacturasProveedor.OnListaAnosChange(Sender: TObject; const Text: string);

10
Source/Modulos/Facturas de proveedor/Views/uViewElegirArticulosFacturasProveedor.dfm
View File

@ -4,7 +4,6 @@ inherited frViewElegirArticulosFacturasProveedor: TfrViewElegirArticulosFacturas
ExplicitHeight = 449 ExplicitHeight = 449
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 321 Height = 321
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitHeight = 321 ExplicitHeight = 321
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
object cxGridViewID_PROVEEDOR: TcxGridDBColumn object cxGridViewID_PROVEEDOR: TcxGridDBColumn
@ -12,7 +11,14 @@ inherited frViewElegirArticulosFacturasProveedor: TfrViewElegirArticulosFacturas
Visible = False Visible = False
end end
end end
object cxGridLevel1: TcxGridLevel inherited cxGridLevel1: TcxGridLevel
Visible = False
end
inherited cxGridLevel2: TcxGridLevel
Visible = False
end
object cxGridLevel3: TcxGridLevel
Tag = 3
Caption = 'Otros proveedores' Caption = 'Otros proveedores'
end end
end end

BIN
Source/Modulos/Facturas de proveedor/Views/uViewElegirArticulosFacturasProveedor.pas
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More