Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglos varios Noviseda

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@78 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-01 15:48:29 +00:00
parent a4dceec0f3
commit 09ccd6c2b9
36 changed files with 367 additions and 593 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

20
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

57
Source/Informes/2/InfAlbaranCliente.fr3
View File

@ -1,57 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40196,796385081" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10; Pagina: Variant;&#13;&#10;&#13;&#10;&#13;&#10;procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Memo2.Lines.Clear;&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN')&#13;&#10; else&#13;&#10; Memo2.Lines.Add('ALBARÁN DE CLIENTE')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; begin&#13;&#10; Memo5.Lines.Clear;&#13;&#10; Memo5.Lines.Add('Nº orden:');&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo9OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; begin&#13;&#10; Memo9.Lines.Clear;&#13;&#10; Memo9.Lines.Add('Fecha orden:');&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="215" PaperHeight="297" PaperSize="256" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="737,00835" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="77,5" Top="0,5" Width="391,5436" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
<TfrxMemoView Name="Memo14" Left="1" Top="0,5" Width="75" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="MemoCampo2" Left="473" Top="0,5" Width="54,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
<TfrxMemoView Name="Memo16" Left="535" Top="0,5" Width="95,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
<TfrxMemoView Name="Memo17" Left="634" Top="0,5" Width="99,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="151,18110236" Left="0" Top="457" Width="737,00835">
<TfrxMemoView Name="Memo26" Align="baLeft" Left="0" Top="48,89765" Width="736,73253" Height="66,99227" OnBeforePrint="Memo26OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Forma de pago: [frxDBCabecera.&#34;FORMA_PAGO&#34;]&#13;&#10;&#13;&#10;Cuenta bancaria: [frxDBCabecera.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxLineView Name="Line4" Align="baRight" Left="0,89811378" Top="2" Width="736,11023622" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
<TfrxMemoView Name="Memo18" Left="0" Top="5" Width="110" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Importe neto"/>
<TfrxMemoView Name="Memo20" Left="0" Top="25,67718" Width="110" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_NETO&#34;]"/>
<TfrxMemoView Name="Memo24" Align="baLeft" Left="182" Top="5" Width="105" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Imp. Dto. cliente"/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="182" Top="25,67718" Width="105" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_DESCUENTO&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="110" Top="5" Width="72" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Dto. cliente"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="110" Top="25,67718" Width="72" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f%%" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;DESCUENTO&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="359" Top="5" Width="110" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Imp. Dto. pronto pago"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="359" Top="25,67718" Width="110" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_DESCUENTO2&#34;]"/>
<TfrxMemoView Name="Memo33" Align="baLeft" Left="287" Top="5" Width="72" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Dto. pronto pago"/>
<TfrxMemoView Name="Memo34" Align="baLeft" Left="287" Top="25,67718" Width="72" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f%%" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;DESCUENTO2&#34;]"/>
<TfrxMemoView Name="Memo35" Align="baRight" Left="632,00835" Top="5" Width="105" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Importe total"/>
<TfrxMemoView Name="Memo36" Align="baRight" Left="632,00835" Top="25,67718" Width="105" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="296,96075685" Left="0" Top="16" Width="737,00835" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="Memo15" Align="baLeft" Left="631,15748031" Top="270,01979" Width="105,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="530,44094488" Top="270,01979" Width="100,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe unidad"/>
<TfrxMemoView Name="Memo23" Align="baLeft" Left="76,2" Top="270,01979" Width="392,7" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="469" Top="270,01979" Width="60,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
<TfrxMemoView Name="Memo13" Left="0" Top="270,01979" Width="76,2" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxLineView Name="Line1" Left="736,5" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="76,2" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="530,44094488" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="384,05511811" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="125,42517" Width="342,2047" Height="111,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="&#60;b&#62;[frxDBCabecera.&#34;NOMBRE&#34;]&#60;/b&#62;&#13;&#10;[frxDBCabecera.&#34;CALLE&#34;]&#13;&#10;[&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;] [&#60;frxDBCabecera.&#34;POBLACION&#34;&#62;]&#13;&#10;[&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;]&#13;&#10;A la atención de: [frxDBCabecera.&#34;PERSONA_CONTACTO&#34;]"/>
<TfrxMemoView Name="Memo21" Left="0" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Albarán"/>
<TfrxMemoView Name="Memo22" Left="0" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo1" Left="60,5906" Top="224,09462" Width="62,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[&#60;Pagina&#62;]/[&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo2" Left="1" Top="224,09462" Width="60,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
<TfrxMemoView Name="Memo28" Left="3,5906" Top="51" Width="183,46444" Height="33,78740157" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="ALBARÃ<52>N"/>
<TfrxMemoView Name="Memo3" Left="130,44094" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Alb."/>
<TfrxMemoView Name="Memo4" Left="130,44094" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;FECHA_ALBARAN&#34;]"/>
<TfrxMemoView Name="Memo5" Left="47,03154" Top="166,44094" Width="85,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;REF_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo6" Left="0,44094" Top="166,44094" Width="45,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Cliente:"/>
<TfrxMemoView Name="Memo7" Left="166,03154" Top="166,44094" Width="93,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo9" Left="132,44094" Top="166,44094" Width="32,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="C.I.F:"/>
<TfrxMemoView Name="Memo10" Left="59,03154" Top="187,44094" Width="201,46444" Height="17,00787402" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;REF_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="0,44094" Top="187,44094" Width="57,85807" Height="17,00787402" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Vendedor:"/>
<TfrxLineView Name="Line6" Left="469" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line7" Left="632" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
</TfrxReportPage>
</TfrxReport>

50
Source/Informes/1/InfAlbaranCliente.fr3 → Source/Informes/InfAlbaranCliente.fr3
View File

@ -1,41 +1,41 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40196,796385081" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10; Pagina: Variant;&#13;&#10;&#13;&#10;&#13;&#10;procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Memo2.Lines.Clear;&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN')&#13;&#10; else&#13;&#10; Memo2.Lines.Add('ALBARÁN DE CLIENTE')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; begin&#13;&#10; Memo5.Lines.Clear;&#13;&#10; Memo5.Lines.Add('Nº orden:');&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo9OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; begin&#13;&#10; Memo9.Lines.Clear;&#13;&#10; Memo9.Lines.Add('Fecha orden:');&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
<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="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40210,5481891782" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10; Pagina: Variant;&#13;&#10;&#13;&#10;&#13;&#10;procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Memo2.Lines.Clear;&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN')&#13;&#10; else&#13;&#10; Memo2.Lines.Add('ALBARÁN DE CLIENTE')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; begin&#13;&#10; Memo5.Lines.Clear;&#13;&#10; Memo5.Lines.Add('Nº orden:');&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo9OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10; begin&#13;&#10; Memo9.Lines.Clear;&#13;&#10; Memo9.Lines.Add('Fecha orden:');&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo30OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) then&#13;&#10; begin&#13;&#10; Memo29.Visible := False; &#13;&#10; Memo30.Visible := False;&#13;&#10; Memo24.Visible := False; &#13;&#10; Memo25.Visible := False; &#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; Memo29.Visible := True; &#13;&#10; Memo30.Visible := True;&#13;&#10; Memo24.Visible := True; &#13;&#10; Memo25.Visible := True; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;DESCUENTO2&#34;&#62; = 0) then&#13;&#10; begin&#13;&#10; Memo33.Visible := False; &#13;&#10; Memo34.Visible := False;&#13;&#10; Memo31.Visible := False; &#13;&#10; Memo32.Visible := False; &#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; Memo33.Visible := True; &#13;&#10; Memo34.Visible := True;&#13;&#10; Memo31.Visible := True; &#13;&#10; Memo32.Visible := True; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Line3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62; = 0) and (&#60;frxDBCabecera.&#34;DESCUENTO2&#34;&#62; = 0) then&#13;&#10; begin&#13;&#10; Memo18.Visible := False; &#13;&#10; Memo20.Visible := False;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; Memo18.Visible := True; &#13;&#10; Memo20.Visible := True;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="215" PaperHeight="297" PaperSize="256" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="737,00835" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="77,5" Top="0,5" Width="391,5436" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="77,5" Top="0,5" Width="370" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A910000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A7B5C2A5C67656E657261746F72204D7366746564697420352E34312E31352E313531323B7D5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
<TfrxMemoView Name="Memo14" Left="1" Top="0,5" Width="75" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="MemoCampo2" Left="473" Top="0,5" Width="54,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
<TfrxMemoView Name="Memo16" Left="535" Top="0,5" Width="95,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
<TfrxMemoView Name="Memo17" Left="634" Top="0,5" Width="99,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="MemoCampo2" Left="453" Top="0,5" Width="54,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
<TfrxMemoView Name="Memo16" Left="512" Top="0,5" Width="95,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
<TfrxMemoView Name="Memo17" Left="614" Top="0,5" Width="99,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="151,18110236" Left="0" Top="457" Width="737,00835">
<TfrxMemoView Name="Memo26" Align="baLeft" Left="0" Top="48,89765" Width="736,73253" Height="66,99227" OnBeforePrint="Memo26OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Forma de pago: [frxDBCabecera.&#34;FORMA_PAGO&#34;]&#13;&#10;&#13;&#10;Cuenta bancaria: [frxDBCabecera.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxLineView Name="Line4" Align="baRight" Left="0,89811378" Top="2" Width="736,11023622" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
<TfrxPageFooter Name="PageFooter1" Height="151,18110236" Left="0" Top="457" Width="718,101251175">
<TfrxMemoView Name="Memo26" Align="baLeft" Left="0" Top="48,89765" Width="716,73" Height="66,99227" OnBeforePrint="Memo26OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Forma de pago: [frxDBCabecera.&#34;FORMA_PAGO&#34;]&#13;&#10;&#13;&#10;Cuenta bancaria: [frxDBCabecera.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxLineView Name="Line4" Align="baRight" Left="1,101251175" Top="2" Width="717" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
<TfrxMemoView Name="Memo18" Left="0" Top="5" Width="110" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Importe neto"/>
<TfrxMemoView Name="Memo20" Left="0" Top="25,67718" Width="110" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_NETO&#34;]"/>
<TfrxMemoView Name="Memo24" Align="baLeft" Left="182" Top="5" Width="105" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Imp. Dto. cliente"/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="182" Top="25,67718" Width="105" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_DESCUENTO&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="110" Top="5" Width="72" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Dto. cliente"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="110" Top="25,67718" Width="72" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f%%" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;DESCUENTO&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="110" Top="25,67718" Width="72" Height="17,00787157" OnBeforePrint="Memo30OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f%%" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;DESCUENTO&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="359" Top="5" Width="110" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Imp. Dto. pronto pago"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="359" Top="25,67718" Width="110" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_DESCUENTO2&#34;]"/>
<TfrxMemoView Name="Memo33" Align="baLeft" Left="287" Top="5" Width="72" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Dto. pronto pago"/>
<TfrxMemoView Name="Memo34" Align="baLeft" Left="287" Top="25,67718" Width="72" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f%%" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;DESCUENTO2&#34;]"/>
<TfrxMemoView Name="Memo35" Align="baRight" Left="632,00835" Top="5" Width="105" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Importe total"/>
<TfrxMemoView Name="Memo36" Align="baRight" Left="632,00835" Top="25,67718" Width="105" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo34" Align="baLeft" Left="287" Top="25,67718" Width="72" Height="17,00787157" OnBeforePrint="Memo34OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2f%%" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;DESCUENTO2&#34;]"/>
<TfrxMemoView Name="Memo35" Left="610,10046379" Top="5" Width="105" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Importe total"/>
<TfrxMemoView Name="Memo36" Left="610,10046379" Top="25,67718" Width="105" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="296,96075685" Left="0" Top="16" Width="737,00835" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="Memo15" Align="baLeft" Left="631,15748031" Top="270,01979" Width="105,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="530,44094488" Top="270,01979" Width="100,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe unidad"/>
<TfrxMemoView Name="Memo23" Align="baLeft" Left="76,2" Top="270,01979" Width="392,7" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="469" Top="270,01979" Width="60,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
<TfrxPageHeader Name="PageHeader1" Height="296,96075685" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="Memo15" Align="baLeft" Left="610,33307086" Top="270,01979" Width="105,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="509,61653543" Top="270,01979" Width="100,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe unidad"/>
<TfrxMemoView Name="Memo23" Align="baLeft" Left="76,2" Top="270,01979" Width="372,7" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="448,9" Top="270,01979" Width="60,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
<TfrxMemoView Name="Memo13" Left="0" Top="270,01979" Width="76,2" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxLineView Name="Line1" Left="736,5" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="716,04960629" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="76,2" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="530,44094488" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="384,05511811" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
<TfrxLineView Name="Line3" Left="76,2" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Align="baLeft" Left="509,61653543" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="125,42517" Width="342,2047" Height="111,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="&#60;b&#62;[frxDBCabecera.&#34;NOMBRE&#34;]&#60;/b&#62;&#13;&#10;[frxDBCabecera.&#34;CALLE&#34;]&#13;&#10;[&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;] [&#60;frxDBCabecera.&#34;POBLACION&#34;&#62;]&#13;&#10;[&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;]&#13;&#10;A la atención de: [frxDBCabecera.&#34;PERSONA_CONTACTO&#34;]"/>
<TfrxMemoView Name="Memo21" Left="0" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Albarán"/>
<TfrxMemoView Name="Memo22" Left="0" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
@ -50,8 +50,8 @@
<TfrxMemoView Name="Memo9" Left="132,44094" Top="166,44094" Width="32,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="C.I.F:"/>
<TfrxMemoView Name="Memo10" Left="59,03154" Top="187,44094" Width="201,46444" Height="17,00787402" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;REF_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="0,44094" Top="187,44094" Width="57,85807" Height="17,00787402" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Vendedor:"/>
<TfrxLineView Name="Line6" Left="469" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line7" Left="632" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line6" Align="baLeft" Left="448,9" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line7" Align="baLeft" Left="610,33307086" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
</TfrxReportPage>
</TfrxReport>

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

@ -102,7 +102,7 @@ begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO2 := IMPORTE_NETO * (DESCUENTO2/100);
IMPORTE_DESCUENTO2 := (IMPORTE_NETO - IMPORTE_DESCUENTO) * (DESCUENTO2/100);
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE;
end;

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

@ -159,7 +159,7 @@ begin
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
AInforme := DarRutaFichero(DarRutaInformes, rptInforme); //, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); Albaranes comunes a todas las empresas
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptInforme));

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

@ -42,8 +42,8 @@ type
function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente;
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false; const Marca: Integer = 0);
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false; const Marca: Integer = 0);
procedure Preview(AFactura : IBizFacturaCliente; const AOriginal, ACopia, AContabilidad: Integer; AllItems: Boolean = false);
procedure Print(AFactura : IBizFacturaCliente; const AOriginal, ACopia, AContabilidad: Integer; AllItems: Boolean = false);
procedure RecalcularImportes(AFactura: IBizFacturaCliente);
function EsModificable(AFactura: IBizFacturaCliente): Boolean;
@ -108,8 +108,8 @@ type
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
procedure RecuperarCliente(AFactura : IBizFacturaCliente);
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false; const Marca: Integer = 0);
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false; const Marca: Integer = 0);
procedure Preview(AFactura : IBizFacturaCliente; const AOriginal, ACopia, AContabilidad: Integer; AllItems: Boolean = false);
procedure Print(AFactura : IBizFacturaCliente; const AOriginal, ACopia, AContabilidad: Integer; AllItems: Boolean = false);
procedure RecalcularImportes(AFactura: IBizFacturaCliente);
function EsModificable(AFactura: IBizFacturaCliente): Boolean;
@ -1040,7 +1040,7 @@ begin
Result := AFactura;
end;
procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllItems: Boolean = false; const Marca: Integer = 0);
procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; const AOriginal, ACopia, AContabilidad: Integer; AllItems: Boolean = false);
var
AReportController : IFacturasClienteReportController;
ID_Facturas: TIntegerList;
@ -1067,7 +1067,7 @@ begin
else
ID_Facturas.Add(AFactura.ID);
AReportController.Preview(ID_Facturas, Marca);
AReportController.Preview(ID_Facturas, AOriginal, ACopia, AContabilidad);
finally
AReportController := NIL;
@ -1075,7 +1075,7 @@ begin
end;
end;
procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false; Const Marca: Integer = 0);
procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; Const AOriginal, ACopia, AContabilidad: Integer; AllItems: Boolean = false);
var
AReportController : IFacturasClienteReportController;
ID_Facturas: TIntegerList;
@ -1102,7 +1102,7 @@ begin
else
ID_Facturas.Add(AFactura.ID);
AReportController.Print(ID_Facturas, Marca);
AReportController.Print(ID_Facturas, AOriginal, ACopia, AContabilidad);
finally
AReportController := NIL;

16
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -10,8 +10,8 @@ uses
type
IFacturasClienteReportController = interface(IControllerBase)
['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
procedure Preview(const AListaID : TIntegerList; const Marca: Integer);
procedure Print(const AListaID : TIntegerList; const Marca: Integer);
procedure Preview(const AListaID : TIntegerList; const AOriginal, ACopia, AContabilidad: Integer);
procedure Print(const AListaID : TIntegerList; const AOriginal, ACopia, AContabilidad: Integer);
end;
TFacturasClienteReportController = class(TControllerBase, IFacturasClienteReportController)
@ -22,8 +22,8 @@ type
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; const Marca: Integer);
procedure Print(const AListaID : TIntegerList; const Marca: Integer);
procedure Preview(const AListaID : TIntegerList; const AOriginal, ACopia, AContabilidad: Integer);
procedure Print(const AListaID : TIntegerList; const AOriginal, ACopia, AContabilidad: Integer);
end;
@ -55,7 +55,7 @@ begin
inherited;
end;
procedure TFacturasClienteReportController.Preview(const AListaID : TIntegerList; const Marca: Integer);
procedure TFacturasClienteReportController.Preview(const AListaID : TIntegerList; const AOriginal, ACopia, AContabilidad: Integer);
var
AStream: Binary;
AEditor : IEditorFacturasClientePreview;
@ -64,7 +64,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptFacturas(AListaID, Marca);
AStream := FDataModule.GetRptFacturas(AListaID, AOriginal, ACopia, AContabilidad);
try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
if Assigned(AEditor) then
@ -85,7 +85,7 @@ begin
end;
end;
procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList; const Marca: Integer);
procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList; const AOriginal, ACopia, AContabilidad: Integer);
var
AStream: Binary;
AEditor : IEditorFacturasClientePreview;
@ -94,7 +94,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptFacturas(AListaID, Marca);
AStream := FDataModule.GetRptFacturas(AListaID, AOriginal, ACopia, AContabilidad);
try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
if Assigned(AEditor) then

6
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -33,7 +33,7 @@ type
function NewItem : IBizFacturaCliente;
// Report
function GetRptFacturas(const AListaID: TIntegerList; const Marca: Integer): Binary;
function GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
end;
implementation
@ -52,13 +52,13 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModuleFacturasCliente.GetRptFacturas(const AListaID: TIntegerList; const Marca: Integer): Binary;
function TDataModuleFacturasCliente.GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, Marca);
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, AOriginal, ACopia, AContabilidad);
finally
// FreeANDNIL(AParam);
end;

2
Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas
View File

@ -8,7 +8,7 @@ uses
type
IDataModuleFacturasClienteReport = interface
['{D241A912-78C6-4C65-AEBF-8DDEFE35F511}']
function GetRptFacturas(const AListaID: TIntegerList; const Marca: Integer): Binary;
function GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
end;
implementation

2
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -137,7 +137,7 @@ begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO2 := IMPORTE_NETO * (DESCUENTO2/100);
IMPORTE_DESCUENTO2 := (IMPORTE_NETO - IMPORTE_DESCUENTO) * (DESCUENTO2/100);
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE;
end;

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

@ -30,20 +30,21 @@ object RptFacturasCliente: TRptFacturasCliente
'e.importe_re, v_facturas_cliente.importe_total,'#10' v_facturas_cl' +
'iente.observaciones, v_facturas_cliente.nif_cif,'#10' contactos.RE' +
'FERENCIA as REF_CLIENTE,'#10' contactos.PERSONA_CONTACTO,'#10' conta' +
'ctos2.nombre as nombre_vendedor,'#10' v_facturas_cliente.id_client' +
'e, v_facturas_cliente.nombre,'#10' v_facturas_cliente.calle, v_fac' +
'turas_cliente.provincia,'#10' v_facturas_cliente.poblacion, v_fact' +
'uras_cliente.codigo_postal,'#10' v_facturas_cliente.recargo_equiva' +
'lencia, v_facturas_cliente.importe_neto,'#10' v_facturas_cliente.i' +
'mporte_porte, formas_pago.descripcion as FORMA_PAGO,'#10' v_factur' +
'as_cliente.DATOS_BANCARIOS, v_facturas_cliente.RETENCION, v_fact' +
'uras_cliente.IMPORTE_RETENCION'#10'from v_facturas_cliente'#10' left o' +
'uter join contactos on (contactos.id = v_facturas_cliente.id_cli' +
'ente)'#10' left outer join formas_pago on (formas_pago.id = v_fact' +
'uras_cliente.id_forma_pago)'#10' left outer join clientes_datos on' +
' (clientes_datos.id_cliente = v_facturas_cliente.id_cliente)'#10' ' +
'left outer join contactos contactos2 on (contactos2.id = cliente' +
's_datos.id_agente)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
'ctos2.REFERENCIA as REF_VENDEDOR,'#10' contactos2.nombre as nombre' +
'_vendedor,'#10' v_facturas_cliente.id_cliente, v_facturas_cliente.' +
'nombre,'#10' v_facturas_cliente.calle, v_facturas_cliente.provinci' +
'a,'#10' v_facturas_cliente.poblacion, v_facturas_cliente.codigo_po' +
'stal,'#10' v_facturas_cliente.recargo_equivalencia, v_facturas_cli' +
'ente.importe_neto,'#10' v_facturas_cliente.importe_porte, formas_p' +
'ago.descripcion as FORMA_PAGO,'#10' v_facturas_cliente.DATOS_BANCA' +
'RIOS, v_facturas_cliente.RETENCION, v_facturas_cliente.IMPORTE_R' +
'ETENCION'#10'from v_facturas_cliente'#10' left outer join contactos on' +
' (contactos.id = v_facturas_cliente.id_cliente)'#10' left outer jo' +
'in formas_pago on (formas_pago.id = v_facturas_cliente.id_forma_' +
'pago)'#10' left outer join clientes_datos on (clientes_datos.id_cl' +
'iente = v_facturas_cliente.id_cliente)'#10' left outer join contac' +
'tos contactos2 on (contactos2.id = clientes_datos.id_agente)'#10'WHE' +
'RE V_FACTURAS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -185,6 +186,10 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = 'NOMBRE_VENDEDOR'
TableField = 'NOMBRE_VENDEDOR'
end
item
DatasetField = 'REF_VENDEDOR'
TableField = 'REF_VENDEDOR'
end>
end>
Name = 'InformeFacturasCliente'
@ -292,6 +297,11 @@ object RptFacturasCliente: TRptFacturasCliente
DataType = datString
Size = 255
end
item
Name = 'REF_VENDEDOR'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_VENDEDOR'
DataType = datString
@ -1535,180 +1545,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
object tbl_Cabecera: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end
item
Name = 'DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_DESCUENTO'
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IVA'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
end
item
Name = 'RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_VENDEDOR'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_NOMBRE'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_CALLE'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_PROVINCIA'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_POBLACION'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item
Name = 'RETENCION'
DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
end>
Fields = <>
Params = <
item
Name = 'ID'
@ -1755,7 +1592,7 @@ object RptFacturasCliente: TRptFacturasCliente
Top = 392
end
object frxReport: TfrxReport
Version = '4.7.71'
Version = '4.8.11'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
@ -1764,66 +1601,8 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40197.447447002300000000
ReportOptions.LastChange = 40210.690281921300000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'var'
' Pagina: Variant;'
''
''
'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo2.Lines.Clear;'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')'
' else'
' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')'
'end;'
''
'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo5.Lines.Clear;'
' Memo5.Lines.Add('#39'N'#186' orden:'#39');'
' end;'
'end;'
''
'procedure Memo9OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo9.Lines.Clear;'
' Memo9.Lines.Add('#39'Fecha orden:'#39');'
' end;'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));'
''
' if Marca = 1 then'
' eCopia.Visible := True;'
' '
' if Marca = 2 then'
' eContabilidad.Visible := True; ' +
' '
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
'begin'
''
'end.')
ShowProgress = False
StoreInDFM = False
OnStartReport = 'frxReportOnStartReport'

17
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -8,7 +8,7 @@ uses
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer;
uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer, uROClient;
type
TRptFacturasCliente = class(TDataModule)
@ -115,7 +115,7 @@ type
procedure RecuperarNombresClientes;
public
function GenerarFactura(const ListaID : TIntegerArray; const Marca: Integer): Binary;
function GenerarFactura(const ListaID : TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -172,7 +172,7 @@ begin
FreeANDNIL(FListaNombresClientes);
end;
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray; const Marca: Integer): Binary;
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
var
i: Integer;
begin
@ -180,7 +180,16 @@ begin
try
//Vamos generando todos y cada una de las facturas recibidas
for i := 0 to ListaID.Count - 1 do
_GenerarFactura(ListaID.Items[i], Marca);
begin
if (Original = 1) then
_GenerarFactura(ListaID.Items[i], 1);
if (Copia = 1) then
_GenerarFactura(ListaID.Items[i], 2);
if (Contabilidad = 1) then
_GenerarFactura(ListaID.Items[i], 3);
end;
frxReport.PreviewPages.SaveToStream(Result);
finally

6
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -34,7 +34,7 @@ type
private
protected
{ IsrvFacturasCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const Marca: Integer): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
end;
implementation
@ -81,13 +81,13 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const Marca: Integer): Binary;
function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarFactura(ListaID, Marca);
Result := AReportGenerator.GenerarFactura(ListaID, Original, Copia, Contabilidad);
finally
FreeAndNIL(AReportGenerator);
end;

44
Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.dfm
View File

@ -1,79 +1,75 @@
inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFacturasCliente
Caption = 'Opciones para facturas de cliente'
ClientHeight = 240
ClientWidth = 418
ExplicitWidth = 424
ClientWidth = 366
ExplicitWidth = 372
ExplicitHeight = 272
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 418
Width = 366
ExplicitWidth = 418
end
inherited Bevel3: TBevel
Top = 196
Width = 418
Width = 366
ExplicitTop = 196
ExplicitWidth = 418
end
inherited pnlBotones: TPanel
Top = 198
Width = 418
Width = 366
ExplicitTop = 198
ExplicitWidth = 418
inherited btnAceptar: TButton
Left = 254
ExplicitLeft = 254
Left = 193
ExplicitLeft = 193
end
inherited btnCancelar: TButton
Left = 333
ExplicitLeft = 333
Left = 272
ExplicitLeft = 272
end
end
inherited pnlHeader: TPanel
Width = 418
Width = 366
ExplicitWidth = 418
inherited lblInstruccion: TLabel
Width = 368
Width = 317
Margins.Bottom = 10
Caption = 'Indique las siguiente opciones para la factura de cliente:'
ExplicitWidth = 317
end
inherited Label2: TLabel
Top = 31
Width = 343
Height = 25
Visible = False
ExplicitTop = 31
end
end
inherited pnlCuerpo: TPanel
Width = 418
Width = 366
Height = 130
ExplicitWidth = 418
ExplicitHeight = 130
object opcion1: TcxRadioButton
object cbOriginal: TCheckBox
Left = 50
Top = 16
Width = 113
Width = 97
Height = 17
Caption = 'ORIGINAL'
Checked = True
TabOrder = 0
TabStop = True
end
object opcion2: TcxRadioButton
object cbCopia: TCheckBox
Left = 50
Top = 50
Width = 113
Top = 51
Width = 97
Height = 17
Caption = 'COPIA'
TabOrder = 1
end
object opcion3: TcxRadioButton
object cbContabilidad: TCheckBox
Left = 50
Top = 87
Width = 113
Top = 88
Width = 97
Height = 17
Caption = 'CONTABILIDAD'
TabOrder = 2

24
Source/Modulos/Facturas de cliente/Views/uDialogOpcionesImpresionFacturasCliente.pas
View File

@ -8,9 +8,9 @@ uses
type
TfDialogOpcionesImpresionFacturasCliente = class(TfDialogBase)
opcion1: TcxRadioButton;
opcion2: TcxRadioButton;
opcion3: TcxRadioButton;
cbOriginal: TCheckBox;
cbCopia: TCheckBox;
cbContabilidad: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
private
@ -19,13 +19,13 @@ type
{ Public declarations }
end;
function ElegirOpcionesImpresionFacturaCliente(var AMarca : Integer): Boolean;
function ElegirOpcionesImpresionFacturaCliente(var AOriginal, ACopia, AContabilidad : Integer): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionFacturaCliente(var AMarca : Integer): Boolean;
function ElegirOpcionesImpresionFacturaCliente(var AOriginal, ACopia, AContabilidad : Integer): Boolean;
var
AEditor : TfDialogOpcionesImpresionFacturasCliente;
begin
@ -36,12 +36,14 @@ begin
begin
if True then
begin
if AEditor.opcion1.Checked then
AMarca := 1
else if AEditor.opcion2.Checked then
AMarca := 2
else if AEditor.opcion3.Checked then
AMarca := 3
if AEditor.cbOriginal.Checked then
AOriginal := 1;
if AEditor.cbCopia.Checked then
ACopia := 1;
if AEditor.cbContabilidad.Checked then
AContabilidad := 1;
end;
end;
finally

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

@ -357,6 +357,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited TBXDock1: TSpTBXDock
Top = 46
Width = 888
ExplicitTop = 46
ExplicitWidth = 798
inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 762
@ -411,10 +412,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitLeft = 472
end
inherited Bevel4: TBevel
Left = 584
Left = 585
Width = 317
ExplicitLeft = 584
Height = 9
ExplicitLeft = 585
ExplicitWidth = 317
ExplicitHeight = 9
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
@ -424,13 +427,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
StyleHot.LookAndFeel.SkinName = ''
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 655
Left = 656
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 655
ExplicitLeft = 656
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 585
@ -440,6 +443,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 585
ExplicitWidth = 90
Width = 90
end
inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
@ -449,40 +454,40 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtIVA: TcxDBSpinEdit
Left = 584
Left = 585
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 584
ExplicitLeft = 585
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 584
Left = 585
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 584
ExplicitLeft = 585
end
inherited edtRE: TcxDBSpinEdit
Left = 584
Left = 585
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 584
ExplicitLeft = 585
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 655
Left = 656
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 655
ExplicitLeft = 656
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''

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

@ -17,7 +17,8 @@ uses
uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids,
uViewDetallesArticulosParaVenta, cxLabel, uViewTotalesFactura;
uViewDetallesArticulosParaVenta, cxLabel, uViewTotalesFactura, cxGraphics,
cxLookAndFeels, cxLookAndFeelPainters;
type
@ -330,16 +331,17 @@ end;
procedure TfEditorFacturaCliente.ImprimirInterno;
var
AllItems: Boolean;
AMarca: Integer;
AOriginal: Integer;
ACopia: Integer;
AContabilidad: Integer;
begin
inherited;
AllItems := False;
AMarca := 0;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AMarca) then
FController.Print(FFactura, AllItems, AMarca);
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
FController.Print(FFactura, AOriginal, ACopia, AContabilidad, AllItems);
end;
procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
@ -418,16 +420,17 @@ end;
procedure TfEditorFacturaCliente.PrevisualizarInterno;
var
AllItems: Boolean;
AMarca: Integer;
AOriginal: Integer;
ACopia: Integer;
AContabilidad: Integer;
begin
inherited;
AllItems := False;
AMarca := 0;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AMarca) then
FController.Preview(FFactura, AllItems, AMarca);
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
FController.Preview(FFactura, AOriginal, ACopia, AContabilidad, AllItems);
end;
procedure TfEditorFacturaCliente.RecalcularPortePorUnidad;

31
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -45,12 +45,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ImageIndex = 22
Images = SmallImages
object TBXItem39: TSpTBXItem
Action = actNuevaFactura
Caption = 'Nueva factura...'
Action = actNuevaFactura
end
object TBXItem38: TSpTBXItem
Action = actNuevoAbono
Caption = 'Nuevo abono...'
Action = actNuevoAbono
end
end
inherited TBXItem2: TSpTBXItem
@ -62,24 +62,26 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end
end
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 427
ExplicitWidth = 435
inherited lblAno: TSpTBXLabelItem
Visible = True
end
inherited cbxListaAnos: TSpTBXComboBox
Visible = True
end
inherited sepAno: TSpTBXSeparatorItem
Visible = True
end
inherited cbxListaAnos: TSpTBXComboBox
Left = 33
Visible = True
ExplicitLeft = 33
end
end
inherited tbxMenu: TSpTBXToolbar
DockPos = 0
ExplicitWidth = 842
end
inherited TBXTMain2: TSpTBXToolbar
Left = 427
ExplicitLeft = 427
Left = 435
ExplicitLeft = 435
object TBXItem41: TSpTBXItem
Action = actInformes
end
@ -152,6 +154,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 842
ExplicitWidth = 842
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 842
ExplicitWidth = 842
inherited dxLayoutControl1: TdxLayoutControl
Width = 842
@ -194,8 +197,8 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 842
ExplicitWidth = 842
Width = 832
ExplicitWidth = 832
inherited tbxBotones: TSpTBXToolbar
Width = 832
ExplicitWidth = 832
@ -205,14 +208,15 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 519
Width = 842
ExplicitTop = 519
ExplicitWidth = 842
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 842
ExplicitWidth = 842
inherited TBXToolbar1: TSpTBXToolbar
Width = 832
ExplicitWidth = 832
Width = 842
ExplicitWidth = 842
end
end
end
@ -222,6 +226,9 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
BuiltInReportLink = True
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item

21
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -17,7 +17,8 @@ uses
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, StdCtrls, cxContainer, cxTextEdit,
cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
TntStdCtrls, SpTBXEditors;
type
@ -303,12 +304,13 @@ var
Respuesta : Integer;
AFacturas: IBizFacturaCliente;
AllItems: Boolean;
AMarca: Integer;
AOriginal: Integer;
ACopia: Integer;
AContabilidad: Integer;
begin
AFacturas := Nil;
AllItems := False;
AMarca := 0;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -335,9 +337,9 @@ begin
AFacturas := Facturas;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AMarca) then
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
if Assigned(AFacturas) then
FController.Print(AFacturas, AllItems, AMarca);
FController.Print(AFacturas, AOriginal, ACopia, AContabilidad, AllItems);
end;
end;
end;
@ -397,12 +399,13 @@ var
Respuesta : Integer;
AFacturas: IBizFacturaCliente;
AllItems: Boolean;
AMarca: Integer;
AOriginal: Integer;
ACopia: Integer;
AContabilidad: Integer;
begin
AFacturas := Nil;
AllItems := False;
AMarca := 0;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -429,9 +432,9 @@ begin
AFacturas := Facturas;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AMarca) then
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
if Assigned(AFacturas) then
FController.Preview(AFacturas, AllItems, AMarca);
FController.Preview(AFacturas, AOriginal, ACopia, AContabilidad, AllItems);
end;
end;
end;

59
Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.dfm
View File

@ -16,7 +16,6 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
634
193)
@ -27,7 +26,6 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
@ -54,7 +52,6 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
AutoSize = False
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
@ -272,92 +269,97 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
Width = 403
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Button1'
ShowCaption = False
CaptionOptions.Text = 'Button1'
CaptionOptions.Visible = False
Control = Button1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Button2'
ShowCaption = False
CaptionOptions.Text = 'Button2'
CaptionOptions.Visible = False
Control = Button2
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Nombre:'
CaptionOptions.Text = 'Nombre:'
Control = edtlNombre
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'NIF/CIF:'
CaptionOptions.Text = 'NIF/CIF:'
Control = edtNIFCIF
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Direcci'#243'n:'
CaptionOptions.Text = 'Direcci'#243'n:'
Control = edtDireccion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Button4'
AlignHorz = ahLeft
CaptionOptions.Text = 'Button4'
CaptionOptions.Visible = False
Enabled = False
ShowCaption = False
Visible = False
Control = Button4
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group6: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Contacto:'
CaptionOptions.Text = 'Contacto:'
Control = edtPersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
CaptionOptions.Visible = False
Enabled = False
ShowCaption = False
Visible = False
Control = Button5
ControlOptions.ShowBorder = False
@ -366,10 +368,9 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
end
end
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button3'
ShowCaption = False
CaptionOptions.Text = 'Button3'
CaptionOptions.Visible = False
Control = Button3
ControlOptions.ShowBorder = False
end

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

@ -11,7 +11,7 @@ uses
DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces,
cxMaskEdit, cxButtonEdit, uBizFacturasCliente, uBizDireccionesContacto,
uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons,
cxMemo;
cxMemo, cxGraphics, cxLookAndFeels, dxLayoutcxEditAdapters;
type
IViewDatosYSeleccionClienteFacturaCliente = interface(IViewBase)

78
Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm
View File

@ -1,51 +1,43 @@
inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
inherited ToolBar1: TToolBar
Height = 73
ExplicitHeight = 73
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Height = 95
ExplicitHeight = 95
inherited FontName: TJvFontComboBox [4]
Left = 56
Top = 22
ExplicitLeft = 56
ExplicitTop = 22
end
inherited ToolButton14: TToolButton [5]
Left = 201
Wrap = False
ExplicitLeft = 201
end
inherited FontSize: TEdit
Left = 266
Top = 22
ExplicitLeft = 266
ExplicitTop = 22
end
inherited UpDown1: TUpDown
Left = 308
Top = 22
ExplicitLeft = 308
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 325
Top = 22
ExplicitLeft = 325
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
inherited ToolButton11: TToolButton [9]
Left = 333
Top = 22
ExplicitLeft = 333
ExplicitTop = 22
end
inherited ToolButton7: TToolButton
Top = 22
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Top = 22
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
inherited ToolButton12: TToolButton [10]
Left = 0
Top = 22
Wrap = True
@ -53,28 +45,41 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
ExplicitTop = 22
ExplicitHeight = 27
end
inherited ToolButton9: TToolButton
inherited ToolButton9: TToolButton [11]
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end
inherited ToolButton10: TToolButton
inherited ToolButton10: TToolButton [12]
Left = 145
Top = 49
ExplicitLeft = 145
ExplicitTop = 49
end
inherited ToolButton11: TToolButton
inherited ToolButton6: TToolButton [13]
Left = 270
Top = 49
ExplicitLeft = 270
ExplicitTop = 49
end
inherited ToolButton7: TToolButton [14]
Left = 336
Top = 49
Wrap = True
ExplicitLeft = 336
ExplicitTop = 49
end
inherited ToolButton8: TToolButton [15]
Left = 0
Top = 71
ExplicitLeft = 0
ExplicitTop = 71
end
end
inherited cxGrid: TcxGrid
Top = 99
Height = 205
Top = 121
Height = 183
ExplicitTop = 99
ExplicitHeight = 205
inherited cxGridView: TcxGridDBTableView
@ -82,9 +87,6 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.ReadOnly = True
end
inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
@ -92,8 +94,8 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
end
end
inherited TBXDock1: TSpTBXDock
Top = 73
ExplicitTop = 73
Top = 95
ExplicitTop = 68
inherited TBXToolbar1: TSpTBXToolbar
DockPos = 0
inherited TBXSubmenuItem1: TSpTBXSubmenuItem

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

@ -13,7 +13,8 @@ uses
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar,
uControllerDetallesArticulos, uViewDetallesArticulos, uBizFacturasCliente,
uDAInterfaces, cxDropDownEdit, cxButtonEdit, Menus, cxGridCustomPopupMenu,
cxGridPopupMenu, cxEditRepositoryItems, uViewDetallesArticulosParaVenta;
cxGridPopupMenu, cxEditRepositoryItems, uViewDetallesArticulosParaVenta,
cxLookAndFeels, cxLookAndFeelPainters;
type
IViewDetallesFacturaCliente = interface(IViewDetallesArticulos)

93
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 882
Height = 522
Width = 451
Height = 304
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,26 +9,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 882
Height = 522
Width = 451
Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
LayoutLookAndFeel = dxLayoutOfficeLookAndFeel1
DesignSize = (
882
522)
451
304)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -132,7 +128,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 269
end
object bFormasPago: TButton
Left = 404
Left = 172
Top = 103
Width = 132
Height = 23
@ -163,7 +159,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 165
end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 575
Left = 343
Top = 30
Width = 295
Height = 200
@ -175,7 +171,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False
TabOrder = 6
ReadOnly = False
ExplicitLeft = 575
ExplicitLeft = 343
ExplicitTop = 30
ExplicitWidth = 295
ExplicitHeight = 200
@ -189,32 +185,36 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 172
Left = 171
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 172
ExplicitLeft = 171
end
inherited Button3: TBitBtn
Left = 83
ExplicitLeft = 83
Left = 82
ExplicitLeft = 82
end
inherited Button4: TButton
Left = 252
ExplicitLeft = 252
Left = 251
ExplicitLeft = 251
end
inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 403
Width = 403
end
inherited Button5: TButton
Left = 252
ExplicitLeft = 252
Left = 251
ExplicitLeft = 251
end
inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = ''
@ -266,58 +266,62 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 275
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Datos de la factura'
CaptionOptions.Text = 'Datos de la factura'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Referencia:'
CaptionOptions.Text = 'Referencia:'
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha de la factura:'
CaptionOptions.Text = 'Fecha de la factura:'
Control = edtFecha
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group6: TdxLayoutGroup
Caption = 'Forma de pago'
CaptionOptions.Text = 'Forma de pago'
ButtonOptions.Buttons = <>
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma de pago:'
CaptionOptions.Text = 'Forma de pago:'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
ShowCaption = False
CaptionOptions.Visible = False
Control = bFormasPago
ControlOptions.ShowBorder = False
end
end
object ledtFechaVencimiento: TdxLayoutItem
Caption = 'Fecha de vencimiento:'
CaptionOptions.Text = 'Fecha de vencimiento:'
Enabled = False
Visible = False
Control = edtFechaVemcimiento
@ -325,20 +329,20 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
end
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Cuenta bancaria:'
CaptionOptions.Text = 'Cuenta bancaria:'
Control = cbCuentaBancaria
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Datos del cliente'
CaptionOptions.Text = 'Datos del cliente'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'frViewDatosYSeleccionClienteFacturaCliente1'
ShowCaption = False
CaptionOptions.Text = 'frViewDatosYSeleccionClienteFacturaCliente1'
CaptionOptions.Visible = False
Control = frViewDatosYSeleccionClienteFacturaCliente1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
@ -346,13 +350,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Observaciones'
CaptionOptions.Text = 'Observaciones'
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Control = memObservaciones

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

@ -10,7 +10,8 @@ uses
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
ActnList, uViewDatosYSeleccionClienteFacturaCliente, uFacturasClienteController;
ActnList, uViewDatosYSeleccionClienteFacturaCliente, uFacturasClienteController,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
type
IViewFacturaCliente = interface(IViewBase)

6
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -144,6 +144,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 665
ExplicitWidth = 665
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 665
ExplicitWidth = 665
inherited dxLayoutControl1: TdxLayoutControl
Width = 665
@ -186,7 +187,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 665
Width = 655
ExplicitWidth = 665
inherited tbxBotones: TSpTBXToolbar
Width = 655
@ -197,6 +198,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 392
Width = 665
Visible = True
ExplicitTop = 392
ExplicitWidth = 665
@ -204,7 +206,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 665
ExplicitWidth = 665
inherited TBXToolbar1: TSpTBXToolbar
Width = 655
Width = 665
ExplicitWidth = 655
object TBXSeparatorItem2: TSpTBXSeparatorItem
end

4
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -14,7 +14,9 @@ uses
cxImage, Grids, DBGrids, uBizFacturasCliente, cxGridCustomPopupMenu,
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, SpTBXItem,
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, uCustomView,
uViewBase;
uViewBase, cxLookAndFeels, cxLookAndFeelPainters, dxPSPDFExportCore,
dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer;
type
IViewFacturasCliente = interface(IViewGrid)

38
Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.dfm
View File

@ -14,12 +14,14 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitHeight = 156
end
inherited Bevel4: TBevel
Left = 388
Left = 389
Top = 52
Width = 317
ExplicitLeft = 388
Height = 9
ExplicitLeft = 389
ExplicitTop = 52
ExplicitWidth = 317
ExplicitHeight = 9
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 173
@ -34,7 +36,7 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitTop = 37
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 459
Left = 460
Top = 87
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -42,7 +44,7 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 459
ExplicitLeft = 460
ExplicitTop = 87
end
inherited ImporteTotal: TcxDBCurrencyEdit
@ -56,6 +58,8 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
TabOrder = 14
ExplicitLeft = 389
ExplicitTop = 141
ExplicitWidth = 90
Width = 90
end
inherited edtDescuento: TcxDBSpinEdit
Left = 102
@ -69,7 +73,7 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitTop = 37
end
inherited edtIVA: TcxDBSpinEdit
Left = 388
Left = 389
Top = 87
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -77,11 +81,11 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 388
ExplicitLeft = 389
ExplicitTop = 87
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 388
Left = 389
Top = 10
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -89,11 +93,11 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 388
ExplicitLeft = 389
ExplicitTop = 10
end
inherited edtRE: TcxDBSpinEdit
Left = 388
Left = 389
Top = 114
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -101,11 +105,11 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 388
ExplicitLeft = 389
ExplicitTop = 114
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 459
Left = 460
Top = 114
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -113,7 +117,7 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 459
ExplicitLeft = 460
ExplicitTop = 114
end
inherited eImporteNeto: TcxDBCurrencyEdit
@ -244,7 +248,7 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem
@ -253,24 +257,24 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group10: TdxLayoutGroup
inherited dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Dto. cliente (%):'
CaptionOptions.Text = 'Dto. cliente (%):'
end
inherited dxLayoutControl1Item1: TdxLayoutItem
Enabled = False
end
end
object dxLayoutControl1Group12: TdxLayoutGroup [1]
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item20: TdxLayoutItem
Caption = 'Dto. pronto pago:'
CaptionOptions.Text = 'Dto. pronto pago:'
Control = eDescuento2
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item22: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Enabled = False
Control = eImporteDto2

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

@ -8,7 +8,8 @@ uses
uDADataTable, dxLayoutControl, cxDropDownEdit, cxCalendar, cxDBEdit,
cxCheckBox, StdCtrls, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxMaskEdit, cxSpinEdit, cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit,
cxControls, ExtCtrls;
cxControls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters;
type
TfrViewTotalesFactura = class(TfrViewTotales)

6
Source/Servicios/FactuGES.RODL
View File

@ -254,7 +254,11 @@
</Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter>
<Parameter Name="Marca" DataType="Integer" Flag="In" >
<Parameter Name="Original" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="Copia" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="Contabilidad" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>

10
Source/Servicios/FactuGES_Intf.pas
View File

@ -502,7 +502,7 @@ type
{ IsrvFacturasCliente }
IsrvFacturasCliente = interface(IDataAbstractService)
['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
function GenerarInforme(const ListaID: TIntegerArray; const Marca: Integer): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
end;
{ CosrvFacturasCliente }
@ -515,7 +515,7 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray; const Marca: Integer): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
end;
{ IsrvFacturasProveedor }
@ -1678,13 +1678,15 @@ begin
result := 'srvFacturasCliente';
end;
function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const Marca: Integer): Binary;
function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('Marca', TypeInfo(Integer), Marca, []);
__Message.Write('Original', TypeInfo(Integer), Original, []);
__Message.Write('Copia', TypeInfo(Integer), Copia, []);
__Message.Write('Contabilidad', TypeInfo(Integer), Contabilidad, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);

12
Source/Servicios/FactuGES_Invk.pas
View File

@ -791,10 +791,12 @@ begin
end;
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const Marca: Integer): Binary; }
{ function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
Marca: Integer;
Original: Integer;
Copia: Integer;
Contabilidad: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -802,9 +804,11 @@ begin
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('Marca', TypeInfo(Integer), Marca, []);
__Message.Read('Original', TypeInfo(Integer), Original, []);
__Message.Read('Copia', TypeInfo(Integer), Copia, []);
__Message.Read('Contabilidad', TypeInfo(Integer), Contabilidad, []);
lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, Marca);
lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, Original, Copia, Contabilidad);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "viernes, 29 de enero de 2010 18:04\0"
VALUE "CompileDate", "lunes, 01 de febrero de 2010 13:18\0"
END
END
BLOCK "VarFileInfo"