Subida incial, con módulo de logistica
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
parent
f58c7f90b3
commit
081bfba5ff
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -14,8 +14,8 @@
|
||||
<Notes>
|
||||
<![CDATA[]]>
|
||||
</Notes>
|
||||
<LastBuildRun>00:03:15</LastBuildRun>
|
||||
<LastBuildStart>28/12/2020 17:37:37</LastBuildStart>
|
||||
<LastBuildRun>00:01:15</LastBuildRun>
|
||||
<LastBuildStart>19/01/2021 17:01:29</LastBuildStart>
|
||||
<LastBuildState>True</LastBuildState>
|
||||
</properties>
|
||||
</project>
|
||||
|
||||
BIN
Build/Build.fbz6
BIN
Build/Build.fbz6
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -51,7 +51,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
Binary file not shown.
@ -58,34 +58,34 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\Servidor\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\frx11.dcp" />
|
||||
<DCCReference Include="..\Servidor\frxe11.dcp" />
|
||||
<DCCReference Include="..\Servidor\fs11.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.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); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="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); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="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=""/>
|
||||
</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."MES"" 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="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="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="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="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="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="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="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="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="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="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="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="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="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."TITULO"]"/>
|
||||
<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="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="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="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>
|
||||
<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">
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NOMBRE"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."FECHA_FACTURA"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."REFERENCIA_CLIENTE"]"/>
|
||||
<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."IVA"]"/>
|
||||
<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="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."REFERENCIA"]"/>
|
||||
<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."NOMBRE"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."FECHA_FACTURA"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_RETENCION"]"/>
|
||||
<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."REFERENCIA_CLIENTE"]"/>
|
||||
<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."IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
</TfrxMasterData>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturas."IMPORTE_IVA">,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(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,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."TITULO"]:"/>
|
||||
<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="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(<frxDBInformeListadoFacturas."IMPORTE_RETENCION">,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(<frxDBInformeListadoFacturas."IMPORTE_IVA">,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(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,DatosMaestros1)]"/>
|
||||
<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."TITULO"]:"/>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
</TfrxGroupFooter>
|
||||
<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"/>
|
||||
</TfrxHeader>
|
||||
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="473" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo24" Left="190" Top="0" Width="250" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."POBLACION"]"/>
|
||||
<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" 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."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."POBLACION"]"/>
|
||||
<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."IMPORTE_RETENCION"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="25" Left="0" Top="428" Width="1009,13451" Condition="frxDBInformeListadoFacturasResumen."ID_EMPRESA"" 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="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="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="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="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="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="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="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" 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" 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" 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="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" 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" 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>
|
||||
<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="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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,DatosMaestros2)]"/>
|
||||
<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" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_RETENCION">,DatosMaestros2)]"/>
|
||||
</TfrxGroupFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="43748,7978228009" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="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); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -15,33 +15,36 @@
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas."NOMBRE"" 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."NOMBRE"]"/>
|
||||
<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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NOMBRE"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."FECHA_FACTURA"]"/>
|
||||
<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."BASE_IMPONIBLE"] "/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."REFERENCIA_CLIENTE"]"/>
|
||||
<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."IVA"]"/>
|
||||
<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="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."REFERENCIA"]"/>
|
||||
<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."NOMBRE"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."FECHA_FACTURA"]"/>
|
||||
<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."BASE_IMPONIBLE"] "/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."REFERENCIA_CLIENTE"]"/>
|
||||
<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."IVA"]"/>
|
||||
<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."IMPORTE_RETENCION"]"/>
|
||||
</TfrxMasterData>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturas."IMPORTE_IVA">,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(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,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."TITULO"]:"/>
|
||||
<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="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(<frxDBInformeListadoFacturas."IMPORTE_RETENCION">,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(<frxDBInformeListadoFacturas."IMPORTE_IVA">,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(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,DatosMaestros1)]"/>
|
||||
<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."TITULO"]:"/>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas."MES"">
|
||||
<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."TITULO"]"/>
|
||||
@ -50,29 +53,32 @@
|
||||
<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"/>
|
||||
</TfrxHeader>
|
||||
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="551" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo24" Left="190" Top="0" Width="250" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."POBLACION"]"/>
|
||||
<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" 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."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."POBLACION"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."IMPORTE_RETENCION"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupHeader Name="GroupHeader2" Height="25" Left="0" Top="506" Width="1009,14033677542" Condition="frxDBInformeListadoFacturasResumen."ID_EMPRESA"" 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="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="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="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="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="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="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="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" 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" 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" 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="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" 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" 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>
|
||||
<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="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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,DatosMaestros2)]"/>
|
||||
<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" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_RETENCION">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,DatosMaestros2)]"/>
|
||||
</TfrxGroupFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="43748,798374919" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="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); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
@ -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=""/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" 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="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="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="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="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="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="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="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" 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" 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" 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" 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" 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" 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."TITULO"]"/>
|
||||
<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="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="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="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>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<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."NOMBRE"]"/>
|
||||
<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."SITUACION"]"/>
|
||||
<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."FECHA_FACTURA"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."REFERENCIA_CLIENTE"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo4" Align="baLeft" Left="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."NOMBRE"]"/>
|
||||
<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."SITUACION"]"/>
|
||||
<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."FECHA_FACTURA"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."REFERENCIA_CLIENTE"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."IMPORTE_RETENCION"]"/>
|
||||
</TfrxMasterData>
|
||||
<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."TITULO"]:"/>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturas."IMPORTE_IVA">,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(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,DatosMaestros1)]"/>
|
||||
<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."TITULO"]:"/>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturas."IMPORTE_IVA">,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(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,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(<frxDBInformeListadoFacturas."IMPORTE_RETENCION">,DatosMaestros1)]"/>
|
||||
</TfrxGroupFooter>
|
||||
<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"/>
|
||||
</TfrxHeader>
|
||||
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="465" Width="1009,13451" ColumnWidth="0" ColumnGap="0" 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."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."POBLACION"]"/>
|
||||
<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" 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."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_RETENCION"]"/>
|
||||
<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."POBLACION"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="25" Left="0" Top="420" Width="1009,13451" Condition="frxDBInformeListadoFacturasResumen."ID_EMPRESA"" 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="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="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="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="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="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="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="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="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="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="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="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" 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="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>
|
||||
<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="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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,DatosMaestros2)]"/>
|
||||
<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="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(<frxDBInformeListadoFacturasResumen."IMPORTE_RETENCION">,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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,DatosMaestros2)]"/>
|
||||
</TfrxGroupFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="43748,7984883102" ScriptLanguage="PascalScript" ScriptText.Text=" procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="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=" procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin if (<Page#> = <TotalPages#>) then begin mContinua.Visible := False; end else begin mContinua.Visible := True; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="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 ..."/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="270" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas."NOMBRE"" 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="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="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="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="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="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="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="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" 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" 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" 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" 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" 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" 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."NOMBRE"]"/>
|
||||
<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>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="330" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
|
||||
<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."NOMBRE"]"/>
|
||||
<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."SITUACION"]"/>
|
||||
<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."FECHA_FACTURA"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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" 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."NOMBRE"]"/>
|
||||
<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."SITUACION"]"/>
|
||||
<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."FECHA_FACTURA"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."IMPORTE_RETENCION"]"/>
|
||||
</TfrxMasterData>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturas."IMPORTE_IVA">,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(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,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."NOMBRE"]:"/>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturas."IMPORTE_IVA">,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(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,DatosMaestros1)]"/>
|
||||
<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."NOMBRE"]:"/>
|
||||
<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(<frxDBInformeListadoFacturas."IMPORTE_RETENCION">,DatosMaestros1)]"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="37,7953" Left="0" Top="212" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas."MES"">
|
||||
<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."TITULO"]"/>
|
||||
@ -49,29 +52,32 @@
|
||||
<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"/>
|
||||
</TfrxHeader>
|
||||
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="569" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" 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."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."POBLACION"]"/>
|
||||
<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" 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."NOMBRE"]"/>
|
||||
<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."REFERENCIA"]"/>
|
||||
<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."NIF_CIF"]"/>
|
||||
<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."BASE_IMPONIBLE"]"/>
|
||||
<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."IMPORTE_IVA"]"/>
|
||||
<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."IMPORTE_TOTAL"]"/>
|
||||
<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."POBLACION"]"/>
|
||||
<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."IMPORTE_RETENCION"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupHeader Name="GroupHeader2" Height="25" Left="0" Top="524" Width="1009,14033677542" Condition="frxDBInformeListadoFacturasResumen."ID_EMPRESA"" 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="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="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="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="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="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="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="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" 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" 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" 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="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" 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" 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>
|
||||
<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="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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,DatosMaestros2)]"/>
|
||||
<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" 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(<frxDBInformeListadoFacturasResumen."IMPORTE_RETENCION">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,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(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,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(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,DatosMaestros2)]"/>
|
||||
</TfrxGroupFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -49,8 +49,8 @@ type
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
|
||||
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(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 AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
|
||||
|
||||
procedure RecalcularImportes(AAlbaran: IBizAlbaranCliente);
|
||||
function EsModificable(AAlbaran: IBizAlbaranCliente): Boolean;
|
||||
@ -147,8 +147,8 @@ type
|
||||
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(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 AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
|
||||
|
||||
function DarListaAnosAlbaranes: TStringList;
|
||||
procedure FiltrarAno(AAlbaran: IBizAlbaranCliente; ADynWhereDataTable: WideString; const Ano: String);
|
||||
@ -808,25 +808,25 @@ begin
|
||||
Result := not (AAlbaran.ID_FACTURA > 0);
|
||||
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
|
||||
AReportController : IAlbaranesClienteReportController;
|
||||
begin
|
||||
AReportController := TAlbaranesClienteReportController.Create;
|
||||
try
|
||||
AReportController.EtiquetasPreview(AAlbaran.ID, withRefCliente);
|
||||
AReportController.EtiquetasPreview(AAlbaran.ID, AAgencia, AReferencia, ANumEtiquetas, AEtiquetaIni);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
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
|
||||
AReportController : IAlbaranesClienteReportController;
|
||||
begin
|
||||
AReportController := TAlbaranesClienteReportController.Create;
|
||||
try
|
||||
AReportController.EtiquetasPrint(AAlbaran.ID, withRefCliente);
|
||||
AReportController.EtiquetasPrint(AAlbaran.ID, AAgencia, AReferencia, ANumEtiquetas, AEtiquetaIni);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
end;
|
||||
|
||||
@ -16,8 +16,8 @@ type
|
||||
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(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 AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
|
||||
end;
|
||||
|
||||
@ -36,8 +36,8 @@ type
|
||||
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(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 AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer = 1; const AEtiquetaIni: Integer = 1);
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
|
||||
end;
|
||||
|
||||
@ -70,14 +70,14 @@ begin
|
||||
inherited;
|
||||
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
|
||||
AStream: Binary;
|
||||
AEditor : IEditorAlbaranesClientePreview;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
|
||||
AStream := FDataModule.GetEtiquetas(AID, AAgencia, aReferencia, ANumEtiquetas, AEtiquetaIni);
|
||||
try
|
||||
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
@ -93,7 +93,7 @@ begin
|
||||
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
|
||||
AStream: Binary;
|
||||
AEditor : IEditorAlbaranesClientePreview;
|
||||
@ -102,7 +102,7 @@ begin
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
|
||||
AStream := FDataModule.GetEtiquetas(AID, AAgencia, AReferencia, ANumEtiquetas, AEtiquetaIni);
|
||||
try
|
||||
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
|
||||
@ -40,7 +40,7 @@ type
|
||||
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
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;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
|
||||
@ -143,9 +143,9 @@ begin
|
||||
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
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AID, withRefCliente)
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AID, AAgencia, ARefPedido, ANumEtiquetas, AEtiquetaIni)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.GetItem(const ID: Integer): IBizAlbaranCliente;
|
||||
|
||||
@ -11,7 +11,7 @@ type
|
||||
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
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;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
|
||||
|
||||
@ -195,7 +195,7 @@ begin
|
||||
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
|
||||
|
||||
//TEMPORAL ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
|
||||
ID_ALMACEN := 1;
|
||||
ID_ALMACEN := 0;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
@ -958,115 +958,131 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
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>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
|
||||
SQL =
|
||||
'SELECT ALBARANES_CLIENTE.REFERENCIA, ALBARANES_CLIENTE.FECHA_PRE' +
|
||||
'VISTA_ENVIO,'#10' ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLI' +
|
||||
'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
|
||||
'select *'#10'from PROC_ETIQUETAS_ALBARAN(:ID_ALBARAN, :REF_PEDIDO, :' +
|
||||
'AGENCIA, :NUM_ETIQUETAS, :ETIQUETA_INI)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'CANTIDAD'
|
||||
TableField = 'CANTIDAD'
|
||||
DatasetField = 'AGENCIA'
|
||||
TableField = 'AGENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POSICION'
|
||||
TableField = 'POSICION'
|
||||
DatasetField = 'BULTO'
|
||||
TableField = 'BULTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
DatasetField = 'NUM_BULTOS'
|
||||
TableField = 'NUM_BULTOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_DETALLE'
|
||||
TableField = 'TIPO_DETALLE'
|
||||
DatasetField = 'DESTINATARIO'
|
||||
TableField = 'DESTINATARIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
DatasetField = 'TELEFONO'
|
||||
TableField = 'TELEFONO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_UNIDAD'
|
||||
TableField = 'IMPORTE_UNIDAD'
|
||||
DatasetField = 'CALLE'
|
||||
TableField = 'CALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
DatasetField = 'CODIGO_POSTAL'
|
||||
TableField = 'CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
TableField = 'ID_ALBARAN'
|
||||
DatasetField = 'POBLACION'
|
||||
TableField = 'POBLACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'REFERENCIA'
|
||||
DatasetField = 'PROVINCIA'
|
||||
TableField = 'PROVINCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_PREVISTA_ENVIO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'FECHA_PREVISTA_ENVIO'
|
||||
DatasetField = 'REF_PEDIDO'
|
||||
TableField = 'REF_PEDIDO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_CLIENTE'
|
||||
TableField = 'REF_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Detalles_Etiquetas'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
Name = 'AGENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_PREVISTA_ENVIO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
Name = 'BULTO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
Name = 'NUM_BULTOS'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
Name = 'DESTINATARIO'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 254
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
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>
|
||||
JoinDataTables = <>
|
||||
@ -1282,7 +1298,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 44183.517020532410000000
|
||||
ReportOptions.LastChange = 44233.813875682870000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
@ -1314,45 +1330,78 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
Name = 'AGENCIA'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 254
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
Name = 'BULTO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
Name = 'NUM_BULTOS'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
Name = 'DESTINATARIO'
|
||||
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>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
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>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
|
||||
@ -44,7 +44,7 @@ type
|
||||
public
|
||||
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 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;
|
||||
|
||||
implementation
|
||||
@ -141,7 +141,7 @@ begin
|
||||
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
|
||||
AInforme: Variant;
|
||||
|
||||
@ -151,17 +151,21 @@ begin
|
||||
|
||||
try
|
||||
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;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: GenerarEtiquetas, no encuentra informe' + rptInfEtiquetas));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
if withRefCliente then
|
||||
frxReport.Variables.Variables['withRefCliente'] := 1
|
||||
else
|
||||
frxReport.Variables.Variables['withRefCliente'] := 0;
|
||||
// if withRefCliente then
|
||||
// frxReport.Variables.Variables['withRefCliente'] := 1
|
||||
// else
|
||||
// frxReport.Variables.Variables['withRefCliente'] := 0;
|
||||
frxReport.PrepareReport(False);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
|
||||
|
||||
@ -1407,7 +1407,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
DeleteCommandName = 'Delete_AlbaranesCliente_Detalles'
|
||||
UpdateCommandName = 'Update_AlbaranesCliente_Detalles'
|
||||
ReferencedDataset = 'AlbaranesCliente_Detalles'
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 200
|
||||
Top = 88
|
||||
|
||||
@ -33,7 +33,7 @@ type
|
||||
protected
|
||||
{ IsrvAlbaranesCliente methods }
|
||||
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;
|
||||
|
||||
implementation
|
||||
@ -93,14 +93,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ID: Integer;
|
||||
const withRefCliente: Boolean): Binary;
|
||||
function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ID: Integer; const AAgencia: Variant; const ARefPedido: Variant; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer): Binary;
|
||||
var
|
||||
AReportGenerator : TRptAlbaranesCliente;
|
||||
begin
|
||||
AReportGenerator := TRptAlbaranesCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarEtiquetas(ID, withRefCliente);
|
||||
Result := AReportGenerator.GenerarEtiquetas(ID, AAgencia, ARefPedido, ANumEtiquetas, AEtiquetaIni);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -68,6 +68,7 @@ contains
|
||||
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
|
||||
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView},
|
||||
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.
|
||||
|
||||
@ -79,6 +79,7 @@
|
||||
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
|
||||
<DesignClass>T</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDialogOpcionesImpresionEtiquetasAlbaranesCliente.pas" />
|
||||
<DCCReference Include="uEditorAlbaranCliente.pas">
|
||||
<Form>fEditorAlbaranCliente</Form>
|
||||
<DesignClass>TfEditorAlbaranCliente</DesignClass>
|
||||
@ -100,7 +101,7 @@
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorDireccionEntregaAlbaranCliente.pas">
|
||||
<Form>fEditorDireccionEntregaAlbaraCliente</Form>
|
||||
<Form>fEditorDireccionEntregaAlbaranCliente</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirAlbaranesCliente.pas">
|
||||
|
||||
@ -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
|
||||
@ -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.
|
||||
@ -1,16 +1,16 @@
|
||||
inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
Caption = 'Lista de albaranes de cliente'
|
||||
ClientWidth = 583
|
||||
ExplicitWidth = 591
|
||||
ClientWidth = 899
|
||||
ExplicitWidth = 907
|
||||
ExplicitHeight = 482
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 583
|
||||
Width = 899
|
||||
Caption = 'Lista de albaranes de cliente'
|
||||
ExplicitWidth = 583
|
||||
ExplicitWidth = 899
|
||||
inherited Image1: TImage
|
||||
Left = 556
|
||||
Left = 872
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -122,12 +122,10 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 583
|
||||
Height = 105
|
||||
ExplicitWidth = 583
|
||||
ExplicitHeight = 105
|
||||
Width = 899
|
||||
ExplicitWidth = 899
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 583
|
||||
ExplicitWidth = 717
|
||||
object TBXSeparatorItem17: TTBXSeparatorItem [10]
|
||||
end
|
||||
end
|
||||
@ -144,16 +142,14 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 583
|
||||
ExplicitWidth = 899
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 334
|
||||
Top = 79
|
||||
Left = 460
|
||||
DockPos = 460
|
||||
Visible = True
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 142
|
||||
ExplicitHeight = 26
|
||||
ExplicitLeft = 460
|
||||
ExplicitWidth = 271
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actEnviar
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -181,8 +177,8 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 583
|
||||
ExplicitWidth = 583
|
||||
Width = 899
|
||||
ExplicitWidth = 899
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
inherited actNuevo: TAction
|
||||
@ -231,9 +227,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
object actGenerarEtiquetas: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Generar etiquetas'
|
||||
Enabled = False
|
||||
ImageIndex = 23
|
||||
Visible = False
|
||||
ImageIndex = 11
|
||||
OnExecute = actGenerarEtiquetasExecute
|
||||
end
|
||||
end
|
||||
@ -1677,6 +1671,10 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
end
|
||||
inherited dsDataTable: TDADataSource [8]
|
||||
end
|
||||
inherited StatusBarImages: TPngImageList
|
||||
Left = 144
|
||||
Top = 296
|
||||
end
|
||||
inherited GridPopupMenu: TPopupMenu
|
||||
object N4: TMenuItem [5]
|
||||
Caption = '-'
|
||||
|
||||
@ -86,6 +86,7 @@ implementation
|
||||
uses
|
||||
uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
|
||||
uDialogOpcionesImpresionAlbaranesCliente,
|
||||
uDialogOpcionesImpresionEtiquetasAlbaranesCliente,
|
||||
//En tecsitel no estaran habilitados los pedidos
|
||||
// uPedidosClienteController, uBizPedidosCliente,
|
||||
uDialogUtils, schAlbaranesClienteClient_Intf, uGenerarFacturasCliAlbCliUtils,
|
||||
@ -159,9 +160,20 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
|
||||
var
|
||||
FReferencia: String;
|
||||
FAgencia: String;
|
||||
FNumEtiquetas: Integer;
|
||||
FEtiquetaIni: Integer;
|
||||
|
||||
begin
|
||||
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;
|
||||
|
||||
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject);
|
||||
@ -376,7 +388,7 @@ var
|
||||
AllItems: Boolean;
|
||||
FVerLogotipo: Boolean;
|
||||
FImprimirPrecios : Boolean;
|
||||
FImprimirTotales : Boolean;
|
||||
FImprimirTotales : Boolean;
|
||||
FImprimirRefProveedor : Boolean;
|
||||
FImprimirObservaciones: Boolean;
|
||||
FImprimirIncidencias: Boolean;
|
||||
|
||||
@ -20,7 +20,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
671)
|
||||
object Label1: TLabel
|
||||
Left = 412
|
||||
Top = 678
|
||||
Top = 618
|
||||
Width = 299
|
||||
Height = 26
|
||||
Caption =
|
||||
@ -30,7 +30,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object edtFechaAlbaran: TcxDBDateEdit
|
||||
Left = 116
|
||||
Top = 82
|
||||
Top = 22
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_ALBARAN'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -56,7 +56,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 28
|
||||
Top = -32
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -82,7 +82,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
|
||||
Left = 412
|
||||
Top = 28
|
||||
Top = -32
|
||||
Width = 442
|
||||
Height = 221
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -94,7 +94,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
TabOrder = 10
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 412
|
||||
ExplicitTop = 28
|
||||
ExplicitTop = -32
|
||||
ExplicitWidth = 442
|
||||
ExplicitHeight = 221
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -142,7 +142,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
Left = 506
|
||||
Top = 452
|
||||
Top = 392
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -161,7 +161,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 951
|
||||
Top = 452
|
||||
Top = 392
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -180,7 +180,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eProvincia: TcxDBTextEdit
|
||||
Left = 506
|
||||
Top = 479
|
||||
Top = 419
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -199,7 +199,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 506
|
||||
Top = 506
|
||||
Top = 446
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -219,7 +219,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 506
|
||||
Top = 533
|
||||
Top = 473
|
||||
DataBinding.DataField = 'TELEFONO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -238,7 +238,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 250
|
||||
Top = 138
|
||||
Top = 78
|
||||
Width = 132
|
||||
Height = 23
|
||||
Action = actVerPedidoCli
|
||||
@ -246,7 +246,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eReferenciaPedidoCli: TcxTextEdit
|
||||
Left = 116
|
||||
Top = 138
|
||||
Top = 78
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Enabled = False
|
||||
Properties.ReadOnly = False
|
||||
@ -269,7 +269,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 116
|
||||
Top = 109
|
||||
Top = 49
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
@ -300,7 +300,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 250
|
||||
Top = 109
|
||||
Top = 49
|
||||
Width = 132
|
||||
Height = 23
|
||||
Caption = 'Ver las formas de pago...'
|
||||
@ -309,7 +309,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eFechaRecepcion: TcxDBDateEdit
|
||||
Left = 546
|
||||
Top = 339
|
||||
Top = 279
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_RECEPCION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -334,7 +334,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object cbConAlmacen: TCheckBox
|
||||
Left = 422
|
||||
Top = 646
|
||||
Top = 586
|
||||
Width = 179
|
||||
Height = 21
|
||||
Caption = 'Asociar este albar'#225'n al almac'#233'n:'
|
||||
@ -343,7 +343,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object cbAlmacen: TcxDBLookupComboBox
|
||||
Left = 607
|
||||
Top = 646
|
||||
Top = 586
|
||||
DataBinding.DataField = 'ID_ALMACEN'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -373,7 +373,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eRefFacturaCli: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 167
|
||||
Top = 107
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REF_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -399,7 +399,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eFechaPrevista: TcxDBDateEdit
|
||||
Left = 546
|
||||
Top = 285
|
||||
Top = 225
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -426,7 +426,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eRefCliente: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 55
|
||||
Top = -5
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_CLIENTE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -450,7 +450,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eFechaEnvio: TcxDBDateEdit
|
||||
Left = 546
|
||||
Top = 312
|
||||
Top = 252
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_ENVIO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -475,7 +475,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
Left = 22
|
||||
Top = 224
|
||||
Top = 164
|
||||
Width = 373
|
||||
Height = 41
|
||||
Enabled = False
|
||||
@ -488,7 +488,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
TabOrder = 8
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 224
|
||||
ExplicitTop = 164
|
||||
ExplicitWidth = 373
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 373
|
||||
@ -501,7 +501,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
inline frViewObservaciones1: TfrViewObservaciones
|
||||
Left = 22
|
||||
Top = 301
|
||||
Top = 241
|
||||
Width = 521
|
||||
Height = 228
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -513,7 +513,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 301
|
||||
ExplicitTop = 241
|
||||
ExplicitHeight = 228
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
@ -524,7 +524,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eCalle: TcxDBMemo
|
||||
Left = 506
|
||||
Top = 396
|
||||
Top = 336
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'CALLE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -546,7 +546,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eNotasEnvio: TcxDBMemo
|
||||
Left = 506
|
||||
Top = 560
|
||||
Top = 500
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'NOTAS_ENVIO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -779,7 +779,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object dxLayoutControl1Group11: TdxLayoutGroup
|
||||
Caption = 'Almac'#233'n de origen'
|
||||
Visible = False
|
||||
object dxLayoutControl1Group10: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
|
||||
@ -1,26 +1,33 @@
|
||||
inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
|
||||
Visible = False
|
||||
end
|
||||
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
|
||||
Visible = False
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
|
||||
Binary file not shown.
@ -14,7 +14,14 @@
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.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="..\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="Data\AlbaranesProveedor_data.dproj" />
|
||||
<Projects Include="Model\AlbaranesProveedor_model.dproj" />
|
||||
@ -171,14 +178,77 @@
|
||||
<Target Name="FacturasProveedor_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
Binary file not shown.
@ -41,7 +41,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
@ -53,6 +53,7 @@
|
||||
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="uAlbaranesProveedorController.pas" />
|
||||
@ -69,7 +70,6 @@
|
||||
<DCCReference Include="View\uIEditorElegirArticulosAlbaranesProveedor.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
|
||||
@ -7,8 +7,8 @@ uses
|
||||
SysUtils, uDADataTable, uEditorDBItem,
|
||||
uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController,
|
||||
uDetallesAlbaranProveedorController, uBizAlbaranesProveedor,
|
||||
uBizDireccionesContacto;
|
||||
//, uBizInventario;
|
||||
uBizDireccionesContacto, uBizInventario,
|
||||
uBizPedidosProveedor;
|
||||
|
||||
type
|
||||
IAlbaranesProveedorController = interface(IControllerBase)
|
||||
@ -30,10 +30,11 @@ type
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
|
||||
function Nuevo : IBizAlbaranProveedor;
|
||||
function Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
|
||||
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
|
||||
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(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean; overload;
|
||||
@ -94,13 +95,15 @@ type
|
||||
function Existe(const ID: Integer) : Boolean; virtual;
|
||||
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
|
||||
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 BuscarTodos: IBizAlbaranProveedor;
|
||||
function BuscarAlbaranesNormales: IBizAlbaranProveedor;
|
||||
function BuscarAlbaranesDevolucion: IBizAlbaranProveedor;
|
||||
function BuscarSinFacturar : IBizAlbaranProveedor;
|
||||
function Nuevo : IBizAlbaranProveedor;
|
||||
function Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
|
||||
procedure Ver(AAlbaran : IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
|
||||
@ -131,11 +134,11 @@ uses
|
||||
schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor,
|
||||
uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
|
||||
schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, uFactuGES_App,
|
||||
uBizPedidosProveedor, uPedidosProveedorController,
|
||||
// schInventarioClient_Intf,
|
||||
uPedidosProveedorController, uBizDetallesPedidoProveedor,
|
||||
uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
|
||||
schArticulosClient_Intf, uControllerDetallesArticulos, Variants, uDialogUtils,
|
||||
uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController;
|
||||
uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController,
|
||||
schInventarioClient_Intf;
|
||||
|
||||
|
||||
{ Métodos auxiliares }
|
||||
@ -173,7 +176,66 @@ begin
|
||||
AAlbaran.ID_ALMACEN := APedido.ID_ALMACEN;
|
||||
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;
|
||||
AInventarioRecibido: IBizInventario);
|
||||
var
|
||||
@ -274,7 +336,7 @@ begin
|
||||
|
||||
ADetallesController.ActualizarTotales(ADetalles);
|
||||
end;
|
||||
}
|
||||
|
||||
|
||||
{ TAlbaranesProveedorController }
|
||||
|
||||
@ -290,10 +352,8 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
{
|
||||
function TAlbaranesProveedorController.Anadir(AAlbaran: IBizAlbaranProveedor;
|
||||
const IDPedido: Integer;
|
||||
AInventarioRecibido: IBizInventario): Boolean;
|
||||
|
||||
function TAlbaranesProveedorController.Anadir(AAlbaran: IBizAlbaranProveedor; const IDPedido: Integer; AInventarioRecibido: IBizInventario): Boolean;
|
||||
var
|
||||
APedidosController : TPedidosProveedorController;
|
||||
APedido : IBizPedidoProveedor;
|
||||
@ -342,7 +402,164 @@ begin
|
||||
Application.ProcessMessages;
|
||||
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;
|
||||
begin
|
||||
@ -947,14 +1164,15 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorController.Nuevo: IBizAlbaranProveedor;
|
||||
function TAlbaranesProveedorController.Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
|
||||
var
|
||||
AAlbaran : IBizAlbaranProveedor;
|
||||
begin
|
||||
AAlbaran := FDataModule.NewItem;
|
||||
FiltrarEmpresa(AAlbaran);
|
||||
AAlbaran.DataTable.Active := True;
|
||||
AAlbaran.Insert;
|
||||
if WithInsert then
|
||||
AAlbaran.Insert;
|
||||
Result := AAlbaran;
|
||||
end;
|
||||
|
||||
|
||||
@ -68,7 +68,7 @@ begin
|
||||
if Assigned(ADetalles) then
|
||||
begin
|
||||
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
|
||||
if ANuevaFila then
|
||||
|
||||
@ -340,7 +340,6 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = #191'Visible?'
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
|
||||
end
|
||||
item
|
||||
@ -382,6 +381,10 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
|
||||
Size = 255
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -60,7 +60,7 @@ end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor.GetReport(const AID: String): Binary;
|
||||
begin
|
||||
// Result := (RORemoteService as IsrvAlbaranesProveedor).GenerateReport(AID)
|
||||
Result := (RORemoteService as IsrvAlbaranesProveedor).GenerateReport(AID)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor.NewItem: IBizAlbaranProveedor;
|
||||
|
||||
@ -41,75 +41,22 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <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>
|
||||
<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\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">AlbaranesProveedor_model.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">AlbaranesProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="AlbaranesProveedor_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" />
|
||||
<DCCReference Include="schAlbaranesProveedorClient_Intf.pas" />
|
||||
@ -119,7 +66,6 @@
|
||||
<None Include="ModelSupport_AlbaranesProveedor_model\default.txaPackage" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
|
||||
@ -9,8 +9,8 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_AlbaranesProveedor = '{1E801569-2CD6-4113-B218-09209700C928}';
|
||||
RID_AlbaranesProveedor_Detalles = '{A5F2BEF7-E6DC-4967-9F2C-C51DEE97793F}';
|
||||
RID_AlbaranesProveedor = '{8D693350-AF81-4654-A37F-D2986ECCB27F}';
|
||||
RID_AlbaranesProveedor_Detalles = '{FC1C8D83-798D-4686-8D2B-778C5C58D58E}';
|
||||
|
||||
{ Data table names }
|
||||
nme_AlbaranesProveedor = 'AlbaranesProveedor';
|
||||
@ -114,6 +114,7 @@ const
|
||||
fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
|
||||
fld_AlbaranesProveedor_DetallesREFERENCIA = 'REFERENCIA';
|
||||
fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
|
||||
fld_AlbaranesProveedor_DetallesID_PEDIDO = 'ID_PEDIDO';
|
||||
|
||||
{ AlbaranesProveedor_Detalles field indexes }
|
||||
idx_AlbaranesProveedor_DetallesID = 0;
|
||||
@ -131,11 +132,12 @@ const
|
||||
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 12;
|
||||
idx_AlbaranesProveedor_DetallesREFERENCIA = 13;
|
||||
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
|
||||
idx_AlbaranesProveedor_DetallesID_PEDIDO = 15;
|
||||
|
||||
type
|
||||
{ IAlbaranesProveedor }
|
||||
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{EFC4EBE0-095B-4FBA-99C6-0287ED6D0BDA}']
|
||||
['{814A087C-ECE6-4813-BEA6-CB74E108D40A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -626,7 +628,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor_Detalles }
|
||||
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{705D9343-91B7-4253-BDF1-36D4D961E8C0}']
|
||||
['{809FC030-BF60-4508-8C02-3D946FE5FDDD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -688,6 +690,10 @@ type
|
||||
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
|
||||
function GetREFERENCIA_PROVEEDORIsNull: 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 }
|
||||
@ -721,6 +727,8 @@ type
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
|
||||
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;
|
||||
|
||||
{ TAlbaranesProveedor_DetallesDataTableRules }
|
||||
@ -788,6 +796,10 @@ type
|
||||
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_PROVEEDORIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -820,6 +832,8 @@ type
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -2000,6 +2014,27 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null;
|
||||
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
|
||||
RegisterDataTableRules(RID_AlbaranesProveedor, TAlbaranesProveedorDataTableRules);
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_AlbaranesProveedorDelta = '{BA8F235B-7272-4906-8F91-BAADFA6E83F1}';
|
||||
RID_AlbaranesProveedor_DetallesDelta = '{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}';
|
||||
RID_AlbaranesProveedorDelta = '{07B3E1E2-AE10-4702-B53E-35EA2E9BA458}';
|
||||
RID_AlbaranesProveedor_DetallesDelta = '{630BE931-8C66-4EA3-B692-DAD59C0E5F0A}';
|
||||
|
||||
type
|
||||
{ IAlbaranesProveedorDelta }
|
||||
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
|
||||
['{BA8F235B-7272-4906-8F91-BAADFA6E83F1}']
|
||||
['{07B3E1E2-AE10-4702-B53E-35EA2E9BA458}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -507,7 +507,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor_DetallesDelta }
|
||||
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
|
||||
['{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}']
|
||||
['{630BE931-8C66-4EA3-B692-DAD59C0E5F0A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -524,6 +524,7 @@ type
|
||||
function GetOldIMPORTE_PORTEValue : Currency;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldREFERENCIA_PROVEEDORValue : String;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -541,6 +542,7 @@ type
|
||||
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
end;
|
||||
|
||||
{ TAlbaranesProveedor_DetallesBusinessProcessorRules }
|
||||
@ -638,6 +640,12 @@ type
|
||||
function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -700,6 +708,10 @@ type
|
||||
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -2423,6 +2435,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR] := Null;
|
||||
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
|
||||
RegisterBusinessProcessorRules(RID_AlbaranesProveedorDelta, TAlbaranesProveedorBusinessProcessorRules);
|
||||
|
||||
@ -32,6 +32,7 @@ type
|
||||
property Detalles: IBizDetallesAlbaranProveedor read GetDetalles write SetDetalles;
|
||||
|
||||
function EsNuevo : Boolean;
|
||||
procedure CalcularImporteTotal;
|
||||
end;
|
||||
|
||||
TBizAlbaranProveedor = class(TAlbaranesProveedorDataTableRules, IBizAlbaranProveedor, ISeleccionable)
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -7,7 +7,7 @@ uses
|
||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, uDADataStreamer;
|
||||
|
||||
type
|
||||
TRptAlbaranesProveedor = class(TDataModule)
|
||||
@ -25,9 +25,9 @@ type
|
||||
frxChartObject1: TfrxChartObject;
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxDBDetalles: TfrxDBDataset;
|
||||
frxReport: TfrxReport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
frxReport: TfrxReport;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
@ -42,7 +42,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfAlbaranProveedor.fr3';
|
||||
@ -90,11 +90,12 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
|
||||
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);
|
||||
|
||||
AStream.Clear;
|
||||
@ -105,7 +106,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
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);
|
||||
|
||||
finally
|
||||
|
||||
@ -408,9 +408,9 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
'VEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESCUE' +
|
||||
'NTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICUL' +
|
||||
'OS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR' +
|
||||
#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBAR' +
|
||||
'ANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}' +
|
||||
#10'ORDER BY POSICION;'#10
|
||||
','#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO'#10#10'FROM ALBARANES_PRO' +
|
||||
'VEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR_DETAL' +
|
||||
'LES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -474,6 +474,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
item
|
||||
DatasetField = 'VALORADO'
|
||||
TableField = 'VALORADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PEDIDO'
|
||||
TableField = 'ID_PEDIDO'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesProveedor_Detalles'
|
||||
@ -559,6 +563,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
@ -574,130 +582,163 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REF_FACTURA_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
@ -902,17 +943,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'VALORADO'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -923,38 +961,59 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
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
|
||||
Name = 'VALORADO'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
@ -965,10 +1024,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
|
||||
'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
|
||||
'AL, VISIBLE, VALORADO, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, ' +
|
||||
'IMPORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DE' +
|
||||
'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' +
|
||||
', :VALORADO, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORT' +
|
||||
'E_PORTE)'#10
|
||||
'IMPORTE_PORTE, ID_PEDIDO)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :I' +
|
||||
'D, :TIPO_DETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTA' +
|
||||
'L, :VISIBLE, :VALORADO, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUEN' +
|
||||
'TO, :IMPORTE_PORTE, :ID_PEDIDO)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -994,57 +1053,76 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
end
|
||||
item
|
||||
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
|
||||
Name = 'VALORADO'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
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
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1062,8 +1140,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' +
|
||||
'SIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ALBARAN = :I' +
|
||||
'D_ALBARAN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESC' +
|
||||
'UENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD' +
|
||||
'_ID)'#10
|
||||
'UENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ID_PEDIDO = :ID_P' +
|
||||
'EDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1130,9 +1208,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
InsertCommandName = 'Insert_AlbaranesProveedor'
|
||||
DeleteCommandName = 'Delete_AlbaranesProveedor'
|
||||
UpdateCommandName = 'Update_AlbaranesProveedor'
|
||||
RefreshDatasetName = 'AlbaranesProveedor_Refresh'
|
||||
ReferencedDataset = 'AlbaranesProveedor'
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 208
|
||||
Top = 24
|
||||
@ -1142,9 +1219,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
InsertCommandName = 'Insert_AlbaranesProveedor_Detalles'
|
||||
DeleteCommandName = 'Delete_AlbaranesProveedor_Detalles'
|
||||
UpdateCommandName = 'Update_AlbaranesProveedor_Detalles'
|
||||
RefreshDatasetName = 'AlbaranesProveedor_Detalles_Refresh'
|
||||
ReferencedDataset = 'AlbaranesProveedor_Detalles'
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 208
|
||||
Top = 88
|
||||
|
||||
@ -43,8 +43,7 @@ uses
|
||||
Dialogs,
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils,
|
||||
uBizAlbaranProveedorServer;
|
||||
// uRptAlbaranesProveedor_Server;
|
||||
uBizAlbaranProveedorServer, uRptAlbaranesProveedor_Server;
|
||||
|
||||
procedure Create_srvAlbaranesProveedor(out anInstance : IUnknown);
|
||||
begin
|
||||
@ -79,17 +78,16 @@ begin
|
||||
end;
|
||||
|
||||
function TsrvAlbaranesProveedor.GenerateReport(const ID: String): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptAlbaranesProveedor;
|
||||
var
|
||||
AReportGenerator : TRptAlbaranesProveedor;
|
||||
begin
|
||||
Result := NIL;
|
||||
{ AReportGenerator := TRptAlbaranesProveedor.Create(nil);
|
||||
AReportGenerator := TRptAlbaranesProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarAlbaran(ID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
Binary file not shown.
@ -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>
|
||||
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
|
||||
<MainSource>AlbaranesProveedor_view.dpk</MainSource>
|
||||
@ -48,12 +49,13 @@
|
||||
<DelphiCompile Include="AlbaranesProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
|
||||
<DCCReference Include="uEditorAlbaranDevProveedor.pas">
|
||||
<Form>fEditorAlbaranDevProveedor</Form>
|
||||
|
||||
@ -6,12 +6,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
ClientWidth = 765
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 773
|
||||
ExplicitHeight = 653
|
||||
ExplicitHeight = 657
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 765
|
||||
Caption = 'Nuevo albar'#225'n de proveedor'
|
||||
ExplicitTop = 52
|
||||
ExplicitWidth = 765
|
||||
inherited Image1: TImage
|
||||
Left = 738
|
||||
@ -129,7 +130,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
Width = 765
|
||||
ExplicitWidth = 765
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 488
|
||||
ExplicitWidth = 551
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -156,17 +157,17 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 759
|
||||
Height = 424
|
||||
Height = 437
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitTop = 109
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 759
|
||||
ExplicitHeight = 424
|
||||
ExplicitHeight = 437
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 396
|
||||
ExplicitHeight = 409
|
||||
end
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
@ -175,7 +176,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 751
|
||||
Height = 396
|
||||
Height = 409
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -188,16 +189,52 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 396
|
||||
ExplicitHeight = 409
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 751
|
||||
Height = 324
|
||||
Height = 337
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 324
|
||||
ExplicitHeight = 337
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
|
||||
Options.Editing = True
|
||||
@ -208,7 +245,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
Width = 751
|
||||
ExplicitWidth = 751
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 548
|
||||
ExplicitWidth = 622
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -220,7 +257,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 751
|
||||
Height = 396
|
||||
Height = 409
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -231,7 +268,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 396
|
||||
ExplicitHeight = 409
|
||||
inherited pnlSup: TPanel
|
||||
Width = 751
|
||||
ExplicitWidth = 751
|
||||
@ -241,14 +278,14 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 751
|
||||
Height = 368
|
||||
Height = 381
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 368
|
||||
ExplicitHeight = 381
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 734
|
||||
ExplicitHeight = 371
|
||||
Height = 371
|
||||
Width = 734
|
||||
ExplicitWidth = 747
|
||||
ExplicitHeight = 364
|
||||
Height = 364
|
||||
Width = 747
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -256,9 +293,9 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotales [4]
|
||||
Left = 0
|
||||
Top = 536
|
||||
Top = 552
|
||||
Width = 765
|
||||
Height = 64
|
||||
Height = 48
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -268,145 +305,203 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
ReadOnly = False
|
||||
ExplicitTop = 536
|
||||
ExplicitTop = 552
|
||||
ExplicitWidth = 765
|
||||
ExplicitHeight = 64
|
||||
ExplicitHeight = 48
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 765
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 765
|
||||
inherited Bevel3: TBevel
|
||||
Left = 379
|
||||
Left = 360
|
||||
Top = 11
|
||||
Height = 30
|
||||
ExplicitLeft = 379
|
||||
ExplicitLeft = 360
|
||||
ExplicitTop = 11
|
||||
ExplicitHeight = 30
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 491
|
||||
Left = 472
|
||||
Top = 53
|
||||
Width = 21
|
||||
ExplicitLeft = 491
|
||||
ExplicitLeft = 472
|
||||
ExplicitTop = 53
|
||||
ExplicitWidth = 21
|
||||
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
|
||||
Left = 164
|
||||
Left = 191
|
||||
Top = 38
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 164
|
||||
ExplicitLeft = 191
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 93
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 562
|
||||
Left = 543
|
||||
Top = 88
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 562
|
||||
ExplicitLeft = 543
|
||||
ExplicitTop = 88
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 492
|
||||
Top = 142
|
||||
Left = 473
|
||||
Top = 169
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 492
|
||||
ExplicitTop = 142
|
||||
ExplicitLeft = 473
|
||||
ExplicitTop = 169
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Left = 93
|
||||
Left = 120
|
||||
Top = 38
|
||||
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 93
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 491
|
||||
Left = 472
|
||||
Top = 88
|
||||
Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 491
|
||||
ExplicitLeft = 472
|
||||
ExplicitTop = 88
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 491
|
||||
Left = 472
|
||||
Top = 11
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 491
|
||||
ExplicitLeft = 472
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 491
|
||||
Top = 115
|
||||
Left = 472
|
||||
Top = 142
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 491
|
||||
ExplicitLeft = 472
|
||||
ExplicitTop = 142
|
||||
end
|
||||
inherited edtIRPF: TcxDBSpinEdit
|
||||
Left = 472
|
||||
Top = 115
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 472
|
||||
ExplicitTop = 115
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 562
|
||||
Top = 115
|
||||
Left = 543
|
||||
Top = 142
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
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
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Left = 120
|
||||
Top = 11
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 93
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Left = 120
|
||||
Top = 65
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 93
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Left = 93
|
||||
Left = 120
|
||||
Top = 92
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
ExplicitLeft = 93
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 81
|
||||
Width = 81
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 231
|
||||
Left = 212
|
||||
Top = 92
|
||||
ExplicitLeft = 231
|
||||
ExplicitLeft = 212
|
||||
ExplicitTop = 92
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Left = 93
|
||||
Left = 120
|
||||
Top = 119
|
||||
DataBinding.DataField = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = 119
|
||||
ExplicitWidth = 219
|
||||
Width = 219
|
||||
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 dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
@ -417,6 +512,9 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
end
|
||||
inherited dxLayoutControl1Group7: TdxLayoutGroup
|
||||
Visible = False
|
||||
inherited dxLayoutControl1Group10: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group6: TdxLayoutGroup
|
||||
Visible = False
|
||||
@ -452,6 +550,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
end
|
||||
inherited PnlComentario: TPanel [5]
|
||||
Width = 765
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 765
|
||||
inherited lbComentario: TLabel
|
||||
Width = 755
|
||||
|
||||
@ -27,13 +27,9 @@ type
|
||||
frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
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;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
|
||||
@ -107,8 +103,8 @@ end;
|
||||
constructor TfEditorAlbaranProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
AsignarVista;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
AsignarVista;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.CustomEditorClose(Sender: TObject;
|
||||
@ -148,22 +144,6 @@ begin
|
||||
pgPaginas.ActivePage := pagGeneral;
|
||||
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(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
@ -218,10 +198,8 @@ end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.ImprimirInterno;
|
||||
begin
|
||||
{
|
||||
inherited;
|
||||
FController.Print(FAlbaran);
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject);
|
||||
@ -236,16 +214,14 @@ begin
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FAlbaran.Detalles.RecordCount > 0) then
|
||||
begin
|
||||
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Proveedor);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if (not Assigned(FAlbaran)) or (FAlbaran.ID_PROVEEDOR = ID_NULO) then
|
||||
if (not Assigned(FAlbaran)) or (FAlbaran.ID_PROVEEDOR = 0) then
|
||||
begin
|
||||
ShowWarningMessage('Antes de introducir conceptos debe elegir un proveedor para este albarán');
|
||||
AllowChange := False;
|
||||
@ -271,10 +247,8 @@ end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.PrevisualizarInterno;
|
||||
begin
|
||||
{
|
||||
inherited;
|
||||
FController.Preview(FAlbaran);
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad;
|
||||
@ -310,6 +284,7 @@ begin
|
||||
if Assigned(FViewAlbaran) then
|
||||
begin
|
||||
FViewAlbaran.Albaran := FAlbaran;
|
||||
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL;
|
||||
ViewAlbaran.ViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor;
|
||||
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged;
|
||||
frViewDetallesAlbaranProveedor1.Detalles := FAlbaran.Detalles;
|
||||
|
||||
@ -2,7 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
|
||||
Caption = 'Lista de albaranes de proveedor'
|
||||
ClientWidth = 606
|
||||
ExplicitWidth = 614
|
||||
ExplicitHeight = 471
|
||||
ExplicitHeight = 482
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -131,8 +131,6 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
|
||||
ExplicitWidth = 606
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Visible = True
|
||||
ExplicitWidth = 117
|
||||
object TBXItem39: TTBXItem
|
||||
Action = actGenerarFactura
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -161,10 +159,17 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
|
||||
end
|
||||
object actGenerarFactura: TAction
|
||||
Caption = 'Generar factura'
|
||||
Enabled = False
|
||||
ImageIndex = 23
|
||||
Visible = False
|
||||
OnExecute = actGenerarFacturaExecute
|
||||
OnUpdate = actGenerarFacturaUpdate
|
||||
end
|
||||
object ActEnviarEMail: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Enviar por e-mail'
|
||||
ImageIndex = 24
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
@ -1658,12 +1663,12 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
|
||||
Value = 100
|
||||
end
|
||||
item
|
||||
Caption = 'Utilizar un pedido de proveedor.'
|
||||
Caption = 'Utilizar un o m'#225's pedidos de proveedor.'
|
||||
Value = 200
|
||||
Info.Strings = (
|
||||
|
||||
'Puede utilizar un pedido de proveedor existente para dar de alta' +
|
||||
' el albar'#225'n nuevo.')
|
||||
'Puede utilizar uno o m'#225's pedidos de proveedor existentes para da' +
|
||||
'r de alta el nuevo albar'#225'n.')
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -1898,6 +1903,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
|
||||
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
|
||||
0007C0000007C000000700000007000000070000000700000007C000000FC000
|
||||
001F8000003F800000FFF8FFFFFF}
|
||||
Width = 500
|
||||
Left = 144
|
||||
Top = 112
|
||||
end
|
||||
|
||||
@ -22,6 +22,7 @@ type
|
||||
JsImprimirDialog: TJSDialog;
|
||||
TBXItem39: TTBXItem;
|
||||
JsListaAlbaranesNoEliminados: TJSDialog;
|
||||
ActEnviarEMail: TAction;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actGenerarFacturaExecute(Sender: TObject);
|
||||
procedure actGenerarFacturaUpdate(Sender: TObject);
|
||||
@ -60,7 +61,8 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uFactuGES_App,
|
||||
// uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils,
|
||||
// uGenerarFacturasProvAlbProvUtils,
|
||||
uGenerarAlbaranesProvUtils,
|
||||
uEditorBase, schAlbaranesProveedorClient_Intf,
|
||||
uGridUtils, uDBSelectionListUtils;
|
||||
|
||||
@ -116,7 +118,7 @@ procedure TfEditorAlbaranesProveedor.DuplicarInterno;
|
||||
var
|
||||
AAlbaran : IBizAlbaranProveedor;
|
||||
begin
|
||||
{
|
||||
|
||||
inherited;
|
||||
AAlbaran := FController.Duplicar(Albaranes);
|
||||
try
|
||||
@ -124,7 +126,7 @@ begin
|
||||
finally
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
}
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesProveedor.EliminarInterno;
|
||||
@ -265,7 +267,7 @@ begin
|
||||
begin
|
||||
case JsNuevoAlbaranDialog.CustomButtonResult of
|
||||
200 : begin // Utilizar un pedido
|
||||
// GenerarAlbaranProv;
|
||||
GenerarAlbaranesProv;
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
100 : begin // Albaran nuevo vacio
|
||||
@ -274,6 +276,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesProveedor.PonerTitulos(const ATitulo: string);
|
||||
@ -289,12 +293,11 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesProveedor.PrevisualizarInterno;
|
||||
{var
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AAlbaranes: IBizAlbaranProveedor;
|
||||
AllItems: Boolean;}
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
{
|
||||
AAlbaranes := Nil;
|
||||
AllItems := False;
|
||||
|
||||
@ -328,7 +331,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesProveedor.SetController(const Value: IAlbaranesProveedorController);
|
||||
|
||||
@ -2,4 +2,13 @@ inherited fEditorElegirArticulosAlbaranProveedor: TfEditorElegirArticulosAlbaran
|
||||
Caption = 'fEditorElegirArticulosAlbaranProveedor'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited pnlHeader: TPanel
|
||||
inherited lblTitle: TLabel
|
||||
Width = 606
|
||||
end
|
||||
inherited lblComments: TLabel
|
||||
Width = 581
|
||||
Height = 27
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -9,7 +9,8 @@ uses
|
||||
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
|
||||
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
|
||||
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
||||
uIEditorElegirArticulosAlbaranesProveedor, uBizContactos;
|
||||
uIEditorElegirArticulosAlbaranesProveedor, uBizContactos, uDAInterfaces,
|
||||
StdCtrls;
|
||||
|
||||
type
|
||||
TfEditorElegirArticulosAlbaranProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesProveedor)
|
||||
|
||||
@ -322,6 +322,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Top = 249
|
||||
Width = 366
|
||||
Height = 32
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -358,9 +359,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 350
|
||||
ExplicitTop = 276
|
||||
ExplicitHeight = 228
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitHeight = 228
|
||||
Height = 228
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
@ -445,6 +449,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
end
|
||||
object dxLayoutControl1Group9: TdxLayoutGroup
|
||||
Caption = 'El albar'#225'n pertenece a la tienda'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
object dxLayoutControl1Item13: TdxLayoutItem
|
||||
Control = frViewTienda1
|
||||
ControlOptions.AutoColor = True
|
||||
|
||||
@ -144,6 +144,7 @@ end;
|
||||
procedure TfrViewAlbaranProveedor.actElegirDireccionUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
{
|
||||
if (Sender as TAction).Enabled then
|
||||
(Sender as TAction).Enabled := (not ReadOnly) and
|
||||
Assigned(FAlbaran) and
|
||||
@ -154,6 +155,7 @@ begin
|
||||
Assigned(FAlbaran.Proveedor.Direcciones) and
|
||||
FAlbaran.Proveedor.Direcciones.DataTable.Active and
|
||||
(FAlbaran.Proveedor.Direcciones.DataTable.RecordCount > 0);
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranProveedor.actVerPedidoExecute(Sender: TObject);
|
||||
|
||||
@ -1,6 +1,7 @@
|
||||
inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
|
||||
Width = 569
|
||||
Height = 225
|
||||
OnShow = CustomViewShow
|
||||
ExplicitWidth = 569
|
||||
ExplicitHeight = 225
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
@ -11,6 +12,7 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
569
|
||||
|
||||
@ -41,6 +41,7 @@ type
|
||||
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure bModificarClick(Sender: TObject);
|
||||
procedure txtDireccionDblClick(Sender: TObject);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
protected
|
||||
FAlmacenesController : IAlmacenesController;
|
||||
FAlmacenes: IBizAlmacen;
|
||||
@ -96,18 +97,21 @@ end;
|
||||
|
||||
procedure TfrViewDireccionEntregaAlbaranProv.CambioDireccionAlmacen;
|
||||
begin
|
||||
if Assigned(FAlbaran)
|
||||
and Assigned(FAlmacenes) then
|
||||
if not FAlbaran.DataTable.ReadOnly then
|
||||
begin
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.CALLE := FAlmacenes.CALLE;
|
||||
FAlbaran.POBLACION := FAlmacenes.POBLACION;
|
||||
FAlbaran.POBLACION := FAlmacenes.POBLACION;
|
||||
FAlbaran.PROVINCIA := FAlmacenes.PROVINCIA;
|
||||
FAlbaran.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
|
||||
FAlbaran.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
|
||||
FAlbaran.TELEFONO := FAlmacenes.TELEFONO;
|
||||
RefrescarDireccion;
|
||||
if Assigned(FAlbaran)
|
||||
and Assigned(FAlmacenes) then
|
||||
begin
|
||||
cbLista.EditText := FAlmacenes.NOMBRE;
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.CALLE := FAlmacenes.CALLE;
|
||||
FAlbaran.POBLACION := FAlmacenes.POBLACION;
|
||||
FAlbaran.PROVINCIA := FAlmacenes.PROVINCIA;
|
||||
FAlbaran.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
|
||||
FAlbaran.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
|
||||
FAlbaran.TELEFONO := FAlmacenes.TELEFONO;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -115,8 +119,7 @@ procedure TfrViewDireccionEntregaAlbaranProv.cbListaPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
begin
|
||||
if Assigned(FAlbaran) and Assigned(FAlmacenes)
|
||||
and (FAlbaran.ID_ALMACEN <> FAlmacenes.ID) then
|
||||
if Assigned(FAlbaran) and Assigned(FAlmacenes) then
|
||||
CambioDireccionAlmacen;
|
||||
end;
|
||||
|
||||
@ -130,6 +133,17 @@ begin
|
||||
dsAlmacenes.DataTable := FAlmacenes.DataTable;
|
||||
end;
|
||||
|
||||
procedure TfrViewDireccionEntregaAlbaranProv.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if Assigned(FAlbaran) and not FAlbaran.ID_ALMACENIsNull then
|
||||
begin
|
||||
CambioDireccionAlmacen;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
destructor TfrViewDireccionEntregaAlbaranProv.Destroy;
|
||||
begin
|
||||
cbLista.Properties.OnValidate := Nil;
|
||||
@ -149,21 +163,27 @@ begin
|
||||
txtDireccion.Caption := '';
|
||||
if Assigned(FAlbaran) then
|
||||
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
|
||||
begin
|
||||
txtDireccion.Enabled := True;
|
||||
bModificar.Enabled := True;
|
||||
|
||||
cbLista.Enabled := False;
|
||||
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
|
||||
else begin
|
||||
txtDireccion.Enabled := False;
|
||||
bModificar.Enabled := False;
|
||||
cbLista.Enabled := True;
|
||||
cbLista.DroppedDown := True;
|
||||
txtDireccion.Enabled := False;
|
||||
bModificar.Enabled := False;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -179,21 +199,10 @@ begin
|
||||
dsAlbaran.DataTable := FAlbaran.DataTable;
|
||||
cbLista.Properties.OnValidate := cbListaPropertiesValidate;
|
||||
|
||||
{ Para poder inicializar con el almacén por defecto en el caso de un
|
||||
almacén nuevo, antes hay que comprobar que la dirección alternativa
|
||||
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
|
||||
if (FAlbaran.ID_ALMACEN < 1) then
|
||||
// CambioDireccionAlmacen
|
||||
else
|
||||
if (FAlbaran.ID_ALMACEN < 1) then
|
||||
actOtro.Checked := True;
|
||||
actLista.Checked := True;
|
||||
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
|
||||
@ -4,8 +4,6 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
|
||||
ExplicitHeight = 414
|
||||
inherited cxGrid: TcxGrid
|
||||
Height = 286
|
||||
RootLevelOptions.DetailTabsPosition = dtpTop
|
||||
OnActiveTabChanged = cxGridActiveTabChanged
|
||||
ExplicitHeight = 286
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
object cxGridViewID_PROVEEDOR: TcxGridDBColumn
|
||||
@ -13,7 +11,14 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
|
||||
Visible = False
|
||||
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'
|
||||
end
|
||||
end
|
||||
@ -21,14 +26,26 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
|
||||
Binary file not shown.
@ -14,6 +14,7 @@ type
|
||||
function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo;
|
||||
function BuscarInventariables: IBizArticulo;
|
||||
function BuscarTodos: IBizArticulo; overload;
|
||||
function BuscarTodosPorProveedor: IBizArticulo; overload;
|
||||
function BuscarTodos(ACliente: IBizCliente): IBizArticulo; overload;
|
||||
function BuscarTodos(AProveedor: IBizProveedor): IBizArticulo; overload;
|
||||
function BuscarReferencia(const Ref: String; AClienteID: Integer): IBizArticulo;
|
||||
@ -82,6 +83,7 @@ type
|
||||
procedure Anadir(AArticulo : IBizArticulo); virtual;
|
||||
function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; virtual;
|
||||
function BuscarTodos: IBizArticulo; overload;
|
||||
function BuscarTodosPorProveedor: IBizArticulo; overload;
|
||||
function BuscarInventariables: IBizArticulo;
|
||||
function BuscarTodos(ACliente: IBizCliente): IBizArticulo; overload;
|
||||
function BuscarTodos(ACliente: Integer): IBizArticulo; overload;
|
||||
@ -327,6 +329,13 @@ begin
|
||||
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;
|
||||
begin
|
||||
Result := FDataModule.GetItems(txArticulo);
|
||||
|
||||
@ -148,6 +148,25 @@ inherited DataModuleArticulos: TDataModuleArticulos
|
||||
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]
|
||||
@ -345,4 +364,131 @@ inherited DataModuleArticulos: TDataModuleArticulos
|
||||
Left = 232
|
||||
Top = 176
|
||||
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
|
||||
|
||||
@ -22,6 +22,8 @@ type
|
||||
ds_ArticulosParaCliente: TDADataSource;
|
||||
tbl_Articulos_Proveedores: TDAMemDataTable;
|
||||
ds_Articulos_Proveedores: TDADataSource;
|
||||
tbl_ArticulosParaCompra: TDAMemDataTable;
|
||||
ds_ArticulosParaCompra: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
private
|
||||
function _GetProveedores : IBizArticulosProveedores;
|
||||
@ -135,8 +137,8 @@ begin
|
||||
try
|
||||
case Tipo of
|
||||
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_Articulos);
|
||||
txProveedor: AArticulo := CloneDataTable(tbl_ArticulosParaCompra); //En el caso de tener varios proveedores para un mismo artículo
|
||||
// txProveedor: AArticulo := CloneDataTable(tbl_Articulos); //En el caso de tener solo un proveedor por articulo
|
||||
end;
|
||||
|
||||
AsignarClaseNegocio(AArticulo);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -116,7 +116,7 @@ begin
|
||||
PRECIO_NETO := 0;
|
||||
COMISIONABLE := 1;
|
||||
ELIMINADO := 0;
|
||||
INVENTARIABLE := 1;
|
||||
INVENTARIABLE := 0;
|
||||
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||
end;
|
||||
|
||||
|
||||
126
Source/Modulos/Articulos/Model/uBizArticulosProveedores.pas
Normal file
126
Source/Modulos/Articulos/Model/uBizArticulosProveedores.pas
Normal 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.
|
||||
@ -318,6 +318,22 @@ object srvArticulos: TsrvArticulos
|
||||
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 = 'Articulos'
|
||||
@ -433,6 +449,250 @@ object srvArticulos: TsrvArticulos
|
||||
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
|
||||
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
|
||||
item
|
||||
@ -746,6 +1006,29 @@ object srvArticulos: TsrvArticulos
|
||||
DataType = datString
|
||||
Size = 255
|
||||
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>
|
||||
Statements = <
|
||||
item
|
||||
@ -756,12 +1039,13 @@ object srvArticulos: TsrvArticulos
|
||||
'CION, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_ALTA, FECHA_MODI' +
|
||||
'FICACION, USUARIO,'#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, I' +
|
||||
'D_PROVEEDOR,'#10' PRECIO_NETO, PRECIO_PVP, REFERENCIA_PROV, INVE' +
|
||||
'NTARIABLE, ELIMINADO, TARIFA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :R' +
|
||||
'EFERENCIA, :DESCRIPCION, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, ' +
|
||||
':FECHA_ALTA, :FECHA_MODIFICACION,'#10' :USUARIO, :PRECIO_COSTE, ' +
|
||||
':PRECIO_PORTE, :DESCUENTO,'#10' :ID_PROVEEDOR, :PRECIO_NETO, :PR' +
|
||||
'ECIO_PVP, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO, :TA' +
|
||||
'RIFA)'#10
|
||||
'NTARIABLE, ELIMINADO, TARIFA,'#10' FABRICANTE, REFERENCIA_FAB, S' +
|
||||
'TOCK_MIN, UNIDAD_MEDIDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERE' +
|
||||
'NCIA, :DESCRIPCION, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :FECH' +
|
||||
'A_ALTA, :FECHA_MODIFICACION,'#10' :USUARIO, :PRECIO_COSTE, :PREC' +
|
||||
'IO_PORTE, :DESCUENTO,'#10' :ID_PROVEEDOR, :PRECIO_NETO, :PRECIO_' +
|
||||
'PVP, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO, :TARIFA,' +
|
||||
' :FABRICANTE, :REFERENCIA_FAB, :STOCK_MIN, :UNIDAD_MEDIDA)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -888,6 +1172,29 @@ object srvArticulos: TsrvArticulos
|
||||
Size = 255
|
||||
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
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -906,8 +1213,10 @@ object srvArticulos: TsrvArticulos
|
||||
'NTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO' +
|
||||
'_NETO = :PRECIO_NETO,'#10' PRECIO_PVP = :PRECIO_PVP,'#10' INVENTAR' +
|
||||
'IABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_PROV,'#10 +
|
||||
' ELIMINADO = :ELIMINADO,'#10' TARIFA = :TARIFA'#10' WHERE'#10' (ID' +
|
||||
' = :OLD_ID)'#10
|
||||
' ELIMINADO = :ELIMINADO,'#10' TARIFA = :TARIFA,'#10' FABRICANTE' +
|
||||
' = :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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1060,9 +1369,13 @@ object srvArticulos: TsrvArticulos
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ACTUALIZACION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
DataType = datAutoInc
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
@ -1077,8 +1390,9 @@ object srvArticulos: TsrvArticulos
|
||||
'EFERENCIA_PROV, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' DESCUENT' +
|
||||
'O = :DESCUENTO, '#10' PRECIO_NETO = :PRECIO_NETO, '#10' PRECIO_POR' +
|
||||
'TE = :PRECIO_PORTE, '#10' PRECIO_PVP_VENTA = :PRECIO_PVP_VENTA, '#10 +
|
||||
' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL'#10' WHERE'#10' (ID = :OLD_' +
|
||||
'ID)'
|
||||
' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL,'#10' FECHA_ACTUALIZACIO' +
|
||||
'N = :FECHA_ACTUALIZACION'#10' WHERE'#10' (ID = :OLD_ID)'#10' '#10' '#10' ' +
|
||||
' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
Binary file not shown.
@ -55,31 +55,37 @@
|
||||
<DelphiCompile Include="Articulos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Articulos_controller.dcp" />
|
||||
<DCCReference Include="Articulos_model.dcp" />
|
||||
<DCCReference Include="Contactos_view.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxExportD11.dcp" />
|
||||
<DCCReference Include="cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="cxGridD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="cxPageControlD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="Familias_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="SubFamilias_controller.dcp" />
|
||||
<DCCReference Include="Tarifas_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\SubFamilias_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="uEditorArticulo.pas">
|
||||
<Form>fEditorArticulo</Form>
|
||||
@ -106,14 +112,9 @@
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewProveedoresArticulo.pas">
|
||||
<Form>frViewProveedoresArticulos</Form>
|
||||
<Form>frViewProveedoresArticulo</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -4,21 +4,21 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
HorzScrollBar.Visible = False
|
||||
VertScrollBar.Visible = False
|
||||
Caption = 'Ficha de art'#237'culo'
|
||||
ClientHeight = 480
|
||||
ClientWidth = 624
|
||||
ClientHeight = 669
|
||||
ClientWidth = 957
|
||||
Scaled = False
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 632
|
||||
ExplicitHeight = 518
|
||||
ExplicitWidth = 965
|
||||
ExplicitHeight = 707
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 624
|
||||
Width = 957
|
||||
Caption = 'Art'#237'culo'
|
||||
ExplicitTop = 52
|
||||
ExplicitWidth = 624
|
||||
inherited Image1: TImage
|
||||
Left = 597
|
||||
Left = 930
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||
@ -37,7 +37,7 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 624
|
||||
Width = 957
|
||||
ExplicitWidth = 624
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 543
|
||||
@ -66,7 +66,7 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
DockPos = 0
|
||||
ExplicitWidth = 624
|
||||
ExplicitWidth = 957
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
inherited TBXItem8: TTBXItem
|
||||
Visible = False
|
||||
@ -101,8 +101,8 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 461
|
||||
Width = 624
|
||||
Top = 650
|
||||
Width = 957
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
@ -111,26 +111,27 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
ExplicitWidth = 624
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 618
|
||||
Height = 346
|
||||
ActivePage = pagPrecios
|
||||
Width = 951
|
||||
Height = 535
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 346
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 610
|
||||
ExplicitHeight = 318
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 25
|
||||
ExplicitWidth = 943
|
||||
ExplicitHeight = 507
|
||||
end
|
||||
object pagPrecios: TTabSheet
|
||||
Caption = 'Precios'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 610
|
||||
ExplicitHeight = 318
|
||||
inline frViewProveedoresArticulo1: TfrViewProveedoresArticulo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 610
|
||||
Height = 318
|
||||
Width = 943
|
||||
Height = 507
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -140,24 +141,28 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitLeft = -164
|
||||
ExplicitTop = -195
|
||||
ExplicitTop = -3
|
||||
ExplicitWidth = 943
|
||||
ExplicitHeight = 507
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 610
|
||||
Height = 293
|
||||
Width = 943
|
||||
Height = 482
|
||||
ExplicitWidth = 943
|
||||
ExplicitHeight = 482
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 610
|
||||
Width = 943
|
||||
ExplicitWidth = 943
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 624
|
||||
Width = 957
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 624
|
||||
inherited lbComentario: TLabel
|
||||
Width = 614
|
||||
Width = 947
|
||||
Height = 25
|
||||
end
|
||||
end
|
||||
|
||||
@ -2,6 +2,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
Caption = 'Seleccionar art'#237'culos'
|
||||
ClientWidth = 656
|
||||
ExplicitWidth = 664
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -132,7 +133,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
AlignWithMargins = True
|
||||
Left = 25
|
||||
Top = 8
|
||||
Width = 606
|
||||
Width = 131
|
||||
Height = 13
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
@ -146,20 +147,17 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
ExplicitWidth = 131
|
||||
end
|
||||
object lblComments: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 50
|
||||
Top = 29
|
||||
Width = 581
|
||||
Height = 27
|
||||
Width = 3
|
||||
Height = 13
|
||||
Margins.Left = 25
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Align = alClient
|
||||
ExplicitWidth = 3
|
||||
ExplicitHeight = 13
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [5]
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 1088
|
||||
Height = 588
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -10,19 +10,20 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
object dxLayoutControlArticulo: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Width = 1088
|
||||
Height = 481
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth]
|
||||
ExplicitWidth = 451
|
||||
DesignSize = (
|
||||
451
|
||||
1088
|
||||
481)
|
||||
object PngSpeedButton2: TPngSpeedButton
|
||||
Left = 546
|
||||
Top = 28
|
||||
Left = 1024
|
||||
Top = 731
|
||||
Width = 23
|
||||
Height = 22
|
||||
Action = actAnadir
|
||||
@ -48,15 +49,15 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
end
|
||||
object PngSpeedButton1: TPngSpeedButton
|
||||
Left = 546
|
||||
Top = 56
|
||||
Left = 1024
|
||||
Top = 759
|
||||
Width = 23
|
||||
Height = 22
|
||||
Action = actEliminar
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
end
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 103
|
||||
Left = 116
|
||||
Top = 28
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
@ -77,7 +78,7 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 164
|
||||
end
|
||||
object eDescripcion: TcxDBTextEdit
|
||||
Left = 103
|
||||
Left = 116
|
||||
Top = 136
|
||||
DataBinding.DataField = 'DESCRIPCION'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -97,8 +98,8 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 108
|
||||
end
|
||||
object eNoComisionable: TcxDBCheckBox
|
||||
Left = 103
|
||||
Top = 163
|
||||
Left = 116
|
||||
Top = 331
|
||||
Caption = 'Art'#237'culo no comisionable'
|
||||
DataBinding.DataField = 'COMISIONABLE'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -118,12 +119,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 12
|
||||
Width = 144
|
||||
end
|
||||
object eImagen: TcxImage
|
||||
Left = 486
|
||||
Top = 28
|
||||
Left = 22
|
||||
Top = 731
|
||||
Properties.GraphicClassName = 'TJPEGImage'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.PopupMenuLayout.MenuItems = []
|
||||
@ -139,12 +140,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 19
|
||||
Height = 100
|
||||
Width = 140
|
||||
end
|
||||
object cbFamilia: TcxDBComboBox
|
||||
Left = 103
|
||||
Left = 116
|
||||
Top = 82
|
||||
DataBinding.DataField = 'FAMILIA'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -168,8 +169,8 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 70
|
||||
end
|
||||
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
|
||||
Left = 219
|
||||
Top = 220
|
||||
Left = 22
|
||||
Top = 493
|
||||
Width = 350
|
||||
Height = 202
|
||||
Enabled = False
|
||||
@ -179,10 +180,10 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 15
|
||||
TabOrder = 18
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 219
|
||||
ExplicitTop = 220
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 493
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
ExplicitWidth = 562
|
||||
@ -200,11 +201,19 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 933
|
||||
ExplicitLeft = 933
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 817
|
||||
ExplicitLeft = 817
|
||||
end
|
||||
end
|
||||
end
|
||||
object eReferenciaProv: TcxDBTextEdit
|
||||
Left = 103
|
||||
Top = 220
|
||||
Left = 116
|
||||
Top = 358
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_PROV'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -217,12 +226,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 13
|
||||
Width = 86
|
||||
end
|
||||
object ePrecioCoste: TcxDBCurrencyEdit
|
||||
Left = 103
|
||||
Top = 247
|
||||
Left = 116
|
||||
Top = 193
|
||||
DataBinding.DataField = 'PRECIO_COSTE'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
@ -239,12 +248,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
Width = 86
|
||||
TabOrder = 5
|
||||
Width = 110
|
||||
end
|
||||
object eDescuento: TcxDBSpinEdit
|
||||
Left = 103
|
||||
Top = 274
|
||||
Left = 116
|
||||
Top = 385
|
||||
DataBinding.DataField = 'DESCUENTO'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Enabled = False
|
||||
@ -263,12 +272,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 14
|
||||
Width = 86
|
||||
end
|
||||
object ePrecioNeto: TcxDBCurrencyEdit
|
||||
Left = 103
|
||||
Top = 301
|
||||
Left = 116
|
||||
Top = 412
|
||||
DataBinding.DataField = 'PRECIO_NETO'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Enabled = False
|
||||
@ -288,12 +297,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.TextColor = clWindowText
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 15
|
||||
Width = 86
|
||||
end
|
||||
object ePrecioPorte: TcxDBCurrencyEdit
|
||||
Left = 103
|
||||
Top = 328
|
||||
Left = 116
|
||||
Top = 439
|
||||
DataBinding.DataField = 'PRECIO_PORTE'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Enabled = False
|
||||
@ -309,16 +318,16 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 16
|
||||
Width = 86
|
||||
end
|
||||
object cbNoInventariable: TcxDBCheckBox
|
||||
Left = 289
|
||||
Top = 163
|
||||
Left = 22
|
||||
Top = 220
|
||||
Caption = 'Art'#237'culo no inventariable'
|
||||
DataBinding.DataField = 'INVENTARIABLE'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Enabled = False
|
||||
Properties.Alignment = taRightJustify
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
Properties.ValueChecked = 0
|
||||
@ -338,8 +347,8 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 144
|
||||
end
|
||||
object ePrecioPVP: TcxDBCurrencyEdit
|
||||
Left = 103
|
||||
Top = 355
|
||||
Left = 116
|
||||
Top = 466
|
||||
DataBinding.DataField = 'PRECIO_PVP'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Enabled = False
|
||||
@ -355,11 +364,11 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 13
|
||||
TabOrder = 17
|
||||
Width = 288
|
||||
end
|
||||
object cbSubfamilia: TcxDBComboBox
|
||||
Left = 103
|
||||
Left = 116
|
||||
Top = 109
|
||||
DataBinding.DataField = 'REFERENCIA_PROV'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -383,17 +392,16 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 448
|
||||
end
|
||||
object ePrecioPVP2: TcxCurrencyEdit
|
||||
Left = 103
|
||||
Top = 382
|
||||
Enabled = False
|
||||
Left = 407
|
||||
Top = 193
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
Properties.ReadOnly = False
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
TabOrder = 14
|
||||
TabOrder = 8
|
||||
Width = 121
|
||||
end
|
||||
object cbTarifa: TcxDBComboBox
|
||||
Left = 103
|
||||
Left = 116
|
||||
Top = 55
|
||||
DataBinding.DataField = 'TARIFA'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -417,78 +425,271 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
TabOrder = 1
|
||||
Width = 718
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControlArticuloGroup7: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlArticuloGroup1: TdxLayoutGroup
|
||||
AutoAligns = []
|
||||
object dxLayoutControlArticuloGroup1: TdxLayoutGroup
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avClient
|
||||
Caption = 'Datos del art'#237'culo'
|
||||
object dxLayoutControlArticuloItem3: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avClient
|
||||
Caption = 'Datos del art'#237'culo'
|
||||
object dxLayoutControlArticuloItem3: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Referencia:'
|
||||
Control = eReferencia
|
||||
Caption = 'Referencia:'
|
||||
Control = eReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlArticuloGroup4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControlArticuloItem12: TdxLayoutItem
|
||||
Caption = 'Tarifa:'
|
||||
Control = cbTarifa
|
||||
ControlOptions.ShowBorder = False
|
||||
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
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
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
|
||||
Enabled = False
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlArticuloItem1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = ' '
|
||||
Control = eNoComisionable
|
||||
object dxLayoutControlArticuloItem16: TdxLayoutItem
|
||||
Caption = 'Puntos:'
|
||||
Control = ePrecioCoste
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlArticuloItem7: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = ' '
|
||||
object dxLayoutControlArticuloGroup7: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Control = cbNoInventariable
|
||||
ControlOptions.ShowBorder = False
|
||||
Hidden = True
|
||||
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
|
||||
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
|
||||
object dxLayoutControlArticuloGroup2: TdxLayoutGroup
|
||||
@ -524,74 +725,6 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
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
|
||||
object dsViewArticulo: TDADataSource
|
||||
|
||||
@ -9,8 +9,8 @@ uses
|
||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||
cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
|
||||
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
||||
uTarifasController, uFamiliasController, uSubFamiliasController, uViewDatosYSeleccionProveedor,
|
||||
cxSpinEdit, cxCurrencyEdit, uArticulosController, uDAInterfaces;
|
||||
uTarifasController, uFamiliasController, uSubFamiliasController, uUnidadesMedidaController,
|
||||
uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit, uArticulosController, uDAInterfaces;
|
||||
|
||||
type
|
||||
IViewArticulo = interface(IViewBase)
|
||||
@ -47,7 +47,6 @@ type
|
||||
dxLayoutControlArticuloItem5: TdxLayoutItem;
|
||||
PngSpeedButton1: TPngSpeedButton;
|
||||
dxLayoutControlArticuloGroup3: TdxLayoutGroup;
|
||||
dxLayoutControlArticuloGroup7: TdxLayoutGroup;
|
||||
eImagen: TcxImage;
|
||||
dxLayoutControlArticuloItem6: TdxLayoutItem;
|
||||
dxLayoutControlArticuloGroup5: TdxLayoutGroup;
|
||||
@ -69,7 +68,6 @@ type
|
||||
dxLayoutControlArticuloGroup12: TdxLayoutGroup;
|
||||
dxLayoutControlArticuloItem7: TdxLayoutItem;
|
||||
cbNoInventariable: TcxDBCheckBox;
|
||||
dxLayoutControlArticuloGroup8: TdxLayoutGroup;
|
||||
dxLayoutControlArticuloItem9: TdxLayoutItem;
|
||||
ePrecioPVP: TcxDBCurrencyEdit;
|
||||
dxLayoutControlArticuloItem10: TdxLayoutItem;
|
||||
@ -78,6 +76,18 @@ type
|
||||
dxLayoutControlArticuloItem11: TdxLayoutItem;
|
||||
dxLayoutControlArticuloItem12: TdxLayoutItem;
|
||||
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 actAnadirExecute(Sender: TObject);
|
||||
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);
|
||||
@ -94,6 +104,9 @@ type
|
||||
procedure cbTarifaPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbTarifaPropertiesValidate(Sender: TObject;
|
||||
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
|
||||
procedure CargarImagen;
|
||||
procedure SalvarImagen;
|
||||
@ -101,6 +114,7 @@ type
|
||||
FTarifasController: ITarifasController;
|
||||
FFamiliasController: IFamiliasController;
|
||||
FSubFamiliasController: ISubFamiliasController;
|
||||
FUnidadesController: IUnidadesMedidaController;
|
||||
FController: IArticulosController;
|
||||
FArticulo: IBizArticulo;
|
||||
function GetArticulo: IBizArticulo;
|
||||
@ -117,7 +131,7 @@ implementation
|
||||
|
||||
uses
|
||||
uFactuGES_App, uDataModuleArticulos, uSistemaFunc, uBizTarifas,
|
||||
uBizFamilias, uBizSubFamilias, uBizContactos, uNumUtils;
|
||||
uBizFamilias, uBizSubFamilias, uBizUnidadesMedida, uBizContactos, uNumUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -291,20 +305,71 @@ begin
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
FTarifasController := TTarifasController.Create;
|
||||
FTarifasController := TTarifasController.Create;
|
||||
FFamiliasController := TFamiliasController.Create;
|
||||
FSubFamiliasController := TSubFamiliasController.Create;
|
||||
ePrecioCoste.Properties.OnEditValueChanged := PuntosChanged;
|
||||
FSubFamiliasController := TSubFamiliasController.Create;
|
||||
FUnidadesController := TUnidadesMedidaController.Create;
|
||||
ePrecioCoste.Properties.OnEditValueChanged := PuntosChanged;
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulo.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
FTarifasController := Nil;
|
||||
FFamiliasController := Nil;
|
||||
FSubFamiliasController := Nil;
|
||||
FSubFamiliasController := Nil;
|
||||
FUnidadesController := NIL;
|
||||
ePrecioCoste.Properties.OnEditValueChanged := Nil;
|
||||
eDescuento.Properties.OnEditValueChanged := Nil;
|
||||
inherited;
|
||||
|
||||
@ -44,11 +44,9 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
Tag = 1
|
||||
Value = 1
|
||||
end>
|
||||
Visible = False
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 22
|
||||
end
|
||||
object cxGridViewCOMISIONABLE: TcxGridDBColumn
|
||||
@ -113,6 +111,10 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
BestFitMaxWidth = 120
|
||||
Width = 210
|
||||
end
|
||||
object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
|
||||
Caption = 'Unidad Medida'
|
||||
DataBinding.FieldName = 'UNIDAD_MEDIDA'
|
||||
end
|
||||
object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
|
||||
Caption = 'Proveedor'
|
||||
DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
|
||||
@ -182,11 +184,15 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'TARIFA 2020'
|
||||
Caption = 'Todos'
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
Tag = 1
|
||||
Caption = 'TARIFAS ANTERIORES'
|
||||
Caption = 'TARIFA 2020'
|
||||
end
|
||||
object cxGridLevel2: TcxGridLevel
|
||||
Tag = 2
|
||||
Caption = 'OTRAS TARIFAS'
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
|
||||
@ -45,6 +45,8 @@ type
|
||||
cxGridViewPRECIOPVP2: TcxGridDBColumn;
|
||||
cxGridViewTARIFA: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
|
||||
procedure cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
@ -162,8 +164,12 @@ begin
|
||||
FFiltro := AddFilterGrid(fboAnd);
|
||||
|
||||
case cxGrid.ActiveLevel.Index of
|
||||
0 : FFiltro.AddItem(cxGridViewTARIFA, foEqual, 'TARIFA 2020', 'TARIFA 2020');
|
||||
1 : FFiltro.AddItem(cxGridViewTARIFA, foNotEqual, 'TARIFA 2020', 'ARTICULOS DE OTRAS TARIFAS');
|
||||
1 : FFiltro.AddItem(cxGridViewTARIFA, foEqual, 'TARIFA 2020', 'TARIFA 2020');
|
||||
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;
|
||||
|
||||
|
||||
@ -117,7 +117,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 451
|
||||
object TBXItem12: TTBXItem [0]
|
||||
Action = actAnadirArticulos
|
||||
DisplayMode = nbdmImageAndText
|
||||
|
||||
@ -69,7 +69,7 @@ procedure TfrViewDetallesArticulos.CustomViewCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cxGridViewREFERENCIA.Properties.OnValidate := OnValidateReferencia;
|
||||
cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := OnValidateReferenciaProveedor;
|
||||
// cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := OnValidateReferenciaProveedor;
|
||||
cxGridViewCANTIDAD.Properties.OnValidate := OnValidateCantidad;
|
||||
end;
|
||||
|
||||
@ -77,7 +77,7 @@ procedure TfrViewDetallesArticulos.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cxGridViewREFERENCIA.Properties.OnValidate := Nil;
|
||||
cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := Nil;
|
||||
// cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := Nil;
|
||||
cxGridViewCANTIDAD.Properties.OnValidate := Nil;
|
||||
end;
|
||||
|
||||
@ -117,8 +117,9 @@ procedure TfrViewDetallesArticulos.OnValidateReferenciaProveedor(Sender: TObject
|
||||
var
|
||||
lsReferencia : String;
|
||||
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
|
||||
if (VarIsNull(DisplayValue)) then
|
||||
{ if (VarIsNull(DisplayValue)) then
|
||||
Exit;
|
||||
|
||||
lsReferencia := VarToStr(DisplayValue);
|
||||
@ -130,6 +131,7 @@ begin
|
||||
ErrorText := 'La referencia introducida no exite en el catálogo';
|
||||
Error := True;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrViewDetallesArticulos.RellenarArticulosInterno;
|
||||
|
||||
125
Source/Modulos/Articulos/Views/uViewProveedoresArticulo.dfm
Normal file
125
Source/Modulos/Articulos/Views/uViewProveedoresArticulo.dfm
Normal 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
132
Source/Modulos/Articulos/Views/uViewProveedoresArticulo.pas
Normal 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.
|
||||
@ -13,8 +13,12 @@
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.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 proveedor\Controller\FacturasProveedor_controller.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="Data\Contabilidad_data.dproj" />
|
||||
<Projects Include="Model\Contabilidad_model.dproj" />
|
||||
@ -171,14 +175,50 @@
|
||||
<Target Name="Articulos_view:Make">
|
||||
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -18,23 +18,24 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 91
|
||||
Width = 683
|
||||
Height = 49
|
||||
Height = 53
|
||||
ExplicitTop = 91
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 49
|
||||
ExplicitHeight = 53
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 378
|
||||
ExplicitWidth = 142
|
||||
ExplicitHeight = 27
|
||||
inherited TBXItem36: TTBXItem
|
||||
Action = actAnchoAuto2
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 378
|
||||
Top = 23
|
||||
Left = 142
|
||||
Top = 26
|
||||
DockPos = 96
|
||||
DockRow = 1
|
||||
ExplicitLeft = 378
|
||||
ExplicitTop = 23
|
||||
ExplicitLeft = 142
|
||||
ExplicitTop = 26
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
end
|
||||
@ -44,11 +45,13 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 647
|
||||
Top = 23
|
||||
Top = 26
|
||||
DockPos = 678
|
||||
DockRow = 1
|
||||
Visible = False
|
||||
ExplicitLeft = 647
|
||||
ExplicitTop = 23
|
||||
ExplicitTop = 26
|
||||
ExplicitWidth = 36
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
@ -103,26 +106,26 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
end
|
||||
end
|
||||
inherited frViewClientes1: TfrViewClientes [4]
|
||||
Top = 140
|
||||
Top = 144
|
||||
Width = 683
|
||||
Height = 324
|
||||
Height = 320
|
||||
Padding.Left = 10
|
||||
Padding.Top = 10
|
||||
Padding.Right = 10
|
||||
Padding.Bottom = 5
|
||||
TabOrder = 4
|
||||
ExplicitTop = 140
|
||||
ExplicitTop = 144
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 324
|
||||
ExplicitHeight = 320
|
||||
inherited cxGrid: TcxGrid
|
||||
Left = 10
|
||||
Top = 112
|
||||
Width = 663
|
||||
Height = 181
|
||||
Height = 177
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 663
|
||||
ExplicitHeight = 181
|
||||
ExplicitHeight = 177
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -145,8 +148,28 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 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
|
||||
Left = 388
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 388
|
||||
ExplicitWidth = 232
|
||||
Width = 232
|
||||
@ -164,9 +187,9 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Left = 10
|
||||
Top = 293
|
||||
Top = 289
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 293
|
||||
ExplicitTop = 289
|
||||
ExplicitWidth = 663
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 663
|
||||
@ -268,6 +291,12 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
inherited actConfPagina: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actImprimir: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actDeshacer: TEditUndo
|
||||
Visible = False
|
||||
end
|
||||
@ -313,6 +342,10 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
inherited actGruposCliente: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actInformes: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [7]
|
||||
end
|
||||
@ -336,6 +369,8 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
end
|
||||
inherited JsPrevisualizarDialog: TJSDialog [15]
|
||||
end
|
||||
inherited JsImprimirDialog: TJSDialog [16]
|
||||
end
|
||||
object JsClienteBloqueadoDialog: TJSDialog
|
||||
DialogOptions = [doCommandLinks, doModal]
|
||||
Glyph.Data = {
|
||||
|
||||
@ -3,7 +3,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
ClientHeight = 480
|
||||
ClientWidth = 656
|
||||
ExplicitWidth = 664
|
||||
ExplicitHeight = 514
|
||||
ExplicitHeight = 518
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -20,10 +20,13 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 91
|
||||
Width = 656
|
||||
Height = 53
|
||||
ExplicitTop = 91
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 53
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 387
|
||||
ExplicitWidth = 142
|
||||
ExplicitHeight = 27
|
||||
inherited TBXItem2: TTBXItem
|
||||
Images = frViewProveedores1.PngImageList
|
||||
end
|
||||
@ -32,12 +35,12 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 387
|
||||
Top = 23
|
||||
Left = 142
|
||||
Top = 26
|
||||
DockPos = 108
|
||||
DockRow = 1
|
||||
ExplicitLeft = 387
|
||||
ExplicitTop = 23
|
||||
ExplicitLeft = 142
|
||||
ExplicitTop = 26
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
end
|
||||
@ -45,6 +48,16 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 595
|
||||
Top = 26
|
||||
DockPos = 595
|
||||
DockRow = 1
|
||||
Visible = False
|
||||
ExplicitLeft = 595
|
||||
ExplicitTop = 26
|
||||
ExplicitWidth = 36
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 461
|
||||
@ -99,26 +112,26 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
end
|
||||
end
|
||||
inherited frViewProveedores1: TfrViewProveedores [4]
|
||||
Top = 166
|
||||
Top = 144
|
||||
Width = 656
|
||||
Height = 259
|
||||
Height = 281
|
||||
Padding.Left = 10
|
||||
Padding.Top = 10
|
||||
Padding.Right = 10
|
||||
Padding.Bottom = 5
|
||||
TabOrder = 4
|
||||
ExplicitTop = 166
|
||||
ExplicitTop = 170
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 259
|
||||
ExplicitHeight = 255
|
||||
inherited cxGrid: TcxGrid
|
||||
Left = 10
|
||||
Top = 112
|
||||
Width = 636
|
||||
Height = 116
|
||||
Height = 138
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 636
|
||||
ExplicitHeight = 180
|
||||
ExplicitHeight = 112
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -142,9 +155,31 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 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
|
||||
Left = 376
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 376
|
||||
ExplicitWidth = 201
|
||||
Width = 201
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -159,9 +194,9 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Left = 10
|
||||
Top = 228
|
||||
Top = 250
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 292
|
||||
ExplicitTop = 224
|
||||
ExplicitWidth = 636
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 636
|
||||
@ -204,13 +239,11 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
Padding.Bottom = 8
|
||||
ParentBackground = False
|
||||
TabOrder = 5
|
||||
ExplicitLeft = -8
|
||||
ExplicitTop = -37
|
||||
object lblTitle: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 25
|
||||
Top = 8
|
||||
Width = 135
|
||||
Width = 606
|
||||
Height = 13
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
@ -224,17 +257,20 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
ExplicitWidth = 135
|
||||
end
|
||||
object lblComments: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 50
|
||||
Top = 29
|
||||
Width = 3
|
||||
Height = 13
|
||||
Width = 581
|
||||
Height = 27
|
||||
Margins.Left = 25
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Align = alClient
|
||||
ExplicitWidth = 3
|
||||
ExplicitHeight = 13
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [6]
|
||||
@ -258,6 +294,12 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
inherited actConfPagina: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actImprimir: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actDeshacer: TEditUndo
|
||||
Visible = False
|
||||
end
|
||||
@ -300,6 +342,9 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
inherited actDuplicar: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actInformes: TAction
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [7]
|
||||
end
|
||||
@ -323,6 +368,8 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
end
|
||||
inherited JsImprimirDialog: TJSDialog [15]
|
||||
end
|
||||
inherited JsListaContactosNoEliminados: TJSDialog [16]
|
||||
end
|
||||
object EditorSeleccionActionList: TActionList
|
||||
Images = SmallImages
|
||||
Left = 200
|
||||
|
||||
@ -1,4 +1,9 @@
|
||||
inherited frViewElegirArticulosContratosCliente: TfrViewElegirArticulosContratosCliente
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -7,18 +12,24 @@ inherited frViewElegirArticulosContratosCliente: TfrViewElegirArticulosContratos
|
||||
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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 200
|
||||
Width = 200
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -1408,7 +1408,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
ARecibos.DESCRIPCION := 'RECIBO ' + ARecibos.REFERENCIA + ' - ' + CifraToLetras(ARecibos.IMPORTE);
|
||||
ARecibos.DESCRIPCION := 'RECIBO ' + ARecibos.REFERENCIA + ' - ' + ARecibos.NOMBRE; // CifraToLetras(ARecibos.IMPORTE);
|
||||
ARecibosClienteController.Guardar(ARecibos);
|
||||
end;
|
||||
|
||||
@ -1436,7 +1436,7 @@ begin
|
||||
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
|
||||
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_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);
|
||||
end;
|
||||
|
||||
|
||||
@ -393,6 +393,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'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' +
|
||||
'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' +
|
||||
' 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
|
||||
@ -429,6 +430,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
DatasetField = 'POBLACION'
|
||||
TableField = 'POBLACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_RETENCION'
|
||||
TableField = 'IMPORTE_RETENCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'ListadoFacturasResumen'
|
||||
@ -465,6 +470,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RETENCION'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
@ -501,9 +510,9 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
||||
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
|
||||
'UACION, NIF_CIF, REFERENCIA_CLIENTE, FECHA_FACTURA, FECHA_VENCIM' +
|
||||
'IENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_f' +
|
||||
'acturas_cliente'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, ' +
|
||||
'REFERENCIA, NOMBRE'#10#10
|
||||
'IENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA,'#10'RETENCION, IMPORTE_RETE' +
|
||||
'NCION, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'orde' +
|
||||
'r by ANO, MES, FECHA_FACTURA, REFERENCIA, NOMBRE'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -569,6 +578,14 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
DatasetField = 'FECHA_VENCIMIENTO'
|
||||
TableField = 'FECHA_VENCIMIENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'RETENCION'
|
||||
TableField = 'RETENCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_RETENCION'
|
||||
TableField = 'IMPORTE_RETENCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'ListadoFacturas'
|
||||
@ -639,6 +656,14 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'RETENCION'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RETENCION'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
@ -1611,7 +1636,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 43496.552480104170000000
|
||||
ReportOptions.LastChange = 44215.518285219910000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
@ -1734,6 +1759,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
@ -1746,6 +1775,14 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'RETENCION'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RETENCION'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
|
||||
@ -1,26 +1,33 @@
|
||||
inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCliente
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
|
||||
Visible = False
|
||||
end
|
||||
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
|
||||
Visible = False
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
|
||||
@ -12,7 +12,7 @@ uses
|
||||
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
|
||||
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewElegirArticulosFacturasCliente = interface(IViewArticulos)
|
||||
|
||||
@ -68,7 +68,7 @@ var
|
||||
begin
|
||||
if Assigned(ADetalles) then
|
||||
begin
|
||||
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
|
||||
AArticulos := (FArticulosController.BuscarTodosPorProveedor as IBizArticulo);
|
||||
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
|
||||
if ANuevaFila then
|
||||
|
||||
@ -1365,7 +1365,7 @@ begin
|
||||
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);
|
||||
end;
|
||||
|
||||
|
||||
@ -10,6 +10,7 @@
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.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\Views\Articulos_view.dproj" />
|
||||
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
|
||||
@ -22,6 +23,8 @@
|
||||
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
|
||||
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.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="Data\FacturasProveedor_data.dproj" />
|
||||
<Projects Include="Model\FacturasProveedor_model.dproj" />
|
||||
@ -241,14 +244,41 @@
|
||||
<Target Name="RecibosProveedor_view:Make">
|
||||
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -60,7 +60,8 @@ requires
|
||||
cxExtEditorsD11,
|
||||
cxExportD11,
|
||||
ContratosCliente_controller,
|
||||
ContratosCliente_model;
|
||||
ContratosCliente_model,
|
||||
AlbProv_FacProv_relation;
|
||||
|
||||
contains
|
||||
uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas',
|
||||
|
||||
@ -42,8 +42,6 @@
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
@ -52,42 +50,43 @@
|
||||
<DelphiCompile Include="FacturasProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
|
||||
<Form>fEditorElegirArticulosFacturaProveedor</Form>
|
||||
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
|
||||
|
||||
@ -75,9 +75,7 @@ uses
|
||||
uDataModuleFacturasProveedor, uDataModuleUsuarios,
|
||||
uGridUtils, uDBSelectionListUtils, uFactuGES_App, uBizEjercicios,
|
||||
uAlbaranesProveedorController, uBizAlbaranesProveedor,
|
||||
uEditorBase, uGestorInformesController;
|
||||
|
||||
// , uGenerarFacturasProvAlbProvUtils;
|
||||
uEditorBase, uGestorInformesController, uGenerarFacturasProvAlbProvUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -352,11 +350,27 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasProveedor.NuevoInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if FController.Anadir(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
Respuesta := JsNuevaFacturaDialog.Execute;
|
||||
|
||||
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;
|
||||
|
||||
procedure TfEditorFacturasProveedor.OnListaAnosChange(Sender: TObject; const Text: string);
|
||||
|
||||
@ -4,7 +4,6 @@ inherited frViewElegirArticulosFacturasProveedor: TfrViewElegirArticulosFacturas
|
||||
ExplicitHeight = 449
|
||||
inherited cxGrid: TcxGrid
|
||||
Height = 321
|
||||
OnActiveTabChanged = cxGridActiveTabChanged
|
||||
ExplicitHeight = 321
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
object cxGridViewID_PROVEEDOR: TcxGridDBColumn
|
||||
@ -12,7 +11,14 @@ inherited frViewElegirArticulosFacturasProveedor: TfrViewElegirArticulosFacturas
|
||||
Visible = False
|
||||
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'
|
||||
end
|
||||
end
|
||||
|
||||
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user