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

Ventana de seleccion visulaizar precios detalles y totales en presupuesto de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@72 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2013-06-07 16:09:30 +00:00
parent 1d00fb71ce
commit 168e90adc6
52 changed files with 808 additions and 373 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.

7
Source/Base/Base.dproj
View File

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

3
Source/Cliente/FactuGES.dproj
View File

@ -51,8 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

11
Source/GUIBase/uEditorDBItem.dfm
View File

@ -21,7 +21,7 @@ inherited fEditorDBItem: TfEditorDBItem
Width = 650
ExplicitWidth = 650
inherited tbxMain: TTBXToolbar
ExplicitWidth = 605
ExplicitWidth = 650
inherited TBXItem26: TTBXItem
Visible = False
end
@ -77,12 +77,14 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3]
AlignWithMargins = True
Left = 3
Top = 109
Top = 112
Width = 644
Height = 328
Height = 325
ActivePage = pagGeneral
Align = alClient
TabOrder = 2
ExplicitTop = 109
ExplicitHeight = 328
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
@ -93,7 +95,7 @@ inherited fEditorDBItem: TfEditorDBItem
end
object PnlComentario: TPanel [4]
Left = 0
Top = 76
Top = 79
Width = 650
Height = 30
Align = alTop
@ -103,6 +105,7 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False
TabOrder = 4
VerticalAlignment = taAlignTop
ExplicitTop = 76
object lbComentario: TLabel
AlignWithMargins = True
Left = 6

12
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

59
Source/Informes/1/InfRemesaCliente.fr3 Normal file
View File

@ -0,0 +1,59 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41428,7654222685" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;// Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(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 PageFooter1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass&#13;&#10; and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;)then&#13;&#10; begin&#13;&#10; eTotal.Visible := True;&#13;&#10; vTotal.Visible := True;&#13;&#10; Cuadro.Visible := True;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; eTotal.Visible := False;&#13;&#10; vTotal.Visible := False;&#13;&#10; Cuadro.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="16" Width="718,1107" OnBeforePrint="Band2OnBeforePrint">
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="100" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
<TfrxMemoView Name="Memo24" Align="baRight" Left="628" Top="228,5671" Width="90" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxShapeView Name="Shape2" Left="325,48052" Top="113,3859" Width="393,07112" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo3" Align="baRight" Left="330" Top="228,5671" Width="223" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo4" Align="baRight" Left="553" Top="228,5671" Width="75" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;FECHA_REMESA&#34;]"/>
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" ShowHint="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo15" Left="396,1577" Top="18,89765" Width="314,39394" Height="64,25201" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo19" Left="336,37817" Top="139,84261" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
<TfrxMemoView Name="Memo26" Left="382,39394" Top="139,84261" Width="331,93723" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
<TfrxMemoView Name="Memo27" Left="336,37817" Top="117,16543" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
<TfrxMemoView Name="Memo28" Left="336,37817" Top="162,51979" Width="75,5906" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
<TfrxMemoView Name="Memo29" Left="415,52783" Top="162,51979" Width="53,13389" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
<TfrxMemoView Name="Memo30" Left="472,44125" Top="162,51979" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
<TfrxMemoView Name="Memo31" Left="559,14997" Top="162,51979" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
<TfrxMemoView Name="Memo32" Left="336,37817" Top="185,19697" Width="26,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
<TfrxMemoView Name="Memo33" Left="366,39394" Top="185,19697" Width="34,23624" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
<TfrxMemoView Name="Memo34" Left="472,44125" Top="185,19697" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
<TfrxMemoView Name="Memo37" Left="559,14997" Top="185,19697" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Align="baRight" Left="553" Top="229,54" Width="0" Height="774,80314961" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Align="baRight" Left="628" Top="229,54" Width="0" Height="774,80314961" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="718" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo1" Align="baRight" Left="180" Top="228,5671" Width="150" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cuenta"/>
<TfrxLineView Name="Line6" Align="baRight" Left="330" Top="230" Width="0" Height="774,80314961" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line9" Align="baRight" Left="180" Top="230" Width="0" Height="774,80314961" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo8" Align="baRight" Left="105" Top="228,5671" Width="75" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
<TfrxLineView Name="Line5" Align="baRight" Left="105" Top="229,54" Width="0" Height="774,80314961" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="335" Width="718,1107" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="MemPrecio" Left="555,40153087" Top="2" Width="70" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_CLIENTE&#34;]"/>
<TfrxMemoView Name="MemImpTotal" Left="630,36216811" Top="2" Width="85,16535189" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="MemCantidad" Left="332,46837457" Top="2" Width="217,44892874" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo21" Left="107,22449" Top="2" Width="70" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo2" Left="6,18491" Top="2" Width="97" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo9" Left="182" Top="2" Width="144" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[IIF(Length(Trim(&#60;frxDBDetalles.&#34;ENTIDAD_CLIENTE&#34;&#62;))&#62;0, &#60;frxDBDetalles.&#34;ENTIDAD_CLIENTE&#34;&#62; + '-' + &#60;frxDBDetalles.&#34;SUCURSAL_CLIENTE&#34;&#62; + '-' + &#60;frxDBDetalles.&#34;DC_CLIENTE&#34;&#62;+ '-' + &#60;frxDBDetalles.&#34;CUENTA_CLIENTE&#34;&#62;,'')]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="42,70866142" Left="0" Top="414" Width="718,1107" OnBeforePrint="PageFooter1OnBeforePrint">
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="714,708661417323" Height="28,88188" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="vtotal" Left="566,9295" Top="3,77953000000002" Width="147,87415" Height="22,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="etotal" Left="430,86642" Top="6,67718000000002" Width="132" Height="16" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
<TfrxLineView Name="Linea" Left="3,77953" Top="0" Width="714,330708661417" Height="0" ShowHint="False" Frame.Typ="4"/>
</TfrxPageFooter>
</TfrxReportPage>
</TfrxReport>

24
Source/Informes/2/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

24
Source/Informes/3/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

26
Source/Informes/4/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

26
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
View File

@ -11,7 +11,9 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="Controller\AlbaranesCliente_controller.dproj" />
<Projects Include="Data\AlbaranesCliente_data.dproj" />
<Projects Include="Model\AlbaranesCliente_model.dproj" />
@ -96,6 +98,24 @@
<Target Name="AlbaranesCliente_controller:Make">
<MSBuild Projects="Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="AlbCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_view">
<MSBuild Projects="Views\AlbaranesCliente_view.dproj" Targets="" />
</Target>
@ -142,13 +162,13 @@
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;FacturasCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;FacturasCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;FacturasCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -43,10 +43,10 @@ type
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -142,10 +142,10 @@ type
procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente);
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -1013,7 +1013,7 @@ begin
end;
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
@ -1043,7 +1043,7 @@ begin
else
ID_Albaranes.Add(AAlbaran.ID);
AReportController.Preview(ID_Albaranes, VerLogotipo, VerImprimirPrecios);
AReportController.Preview(ID_Albaranes, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
finally
AReportController := NIL;
@ -1052,7 +1052,7 @@ begin
end;
procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
@ -1080,7 +1080,7 @@ begin
else
ID_Albaranes.Add(AAlbaran.ID);
AReportController.Print(ID_Albaranes, VerLogotipo, VerImprimirPrecios);
AReportController.Print(ID_Albaranes, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
finally
AReportController := NIL;

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

@ -11,10 +11,10 @@ type
IAlbaranesClienteReportController = interface(IControllerBase)
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
@ -31,10 +31,10 @@ type
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
@ -144,7 +144,7 @@ begin
end;
procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AStream: Binary;
@ -152,7 +152,7 @@ var
begin
AEditor := NIL;
AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo, VerImprimirPrecios);
AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
@ -174,7 +174,7 @@ begin
end;
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AStream: Binary;
@ -184,7 +184,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo, VerImprimirPrecios);
AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then

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

@ -38,11 +38,11 @@ type
// Report
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
end;
@ -68,21 +68,21 @@ begin
end;
function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
begin
AParam := ListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
finally
FreeAndNil(AParam);
end;
end;
function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
@ -90,7 +90,7 @@ begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
finally
FreeAndNil(AParam);
end;

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

@ -9,11 +9,11 @@ type
IDataModuleAlbaranesClienteReport = interface
['{42C55204-5AB9-403E-8385-1A62B02D8234}']
function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
end;

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

@ -38,11 +38,12 @@ type
FConnection: IDAConnection;
FVerLogotipo: Boolean;
FVerPrecios: Boolean;
FVerTotales: Boolean;
//Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const ID: Integer);
public
function GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True): Binary;
function GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
end;
@ -73,14 +74,15 @@ begin
frxReport.EngineOptions.NewSilentMode := simReThrow;
end;
function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean= True): Binary;
function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean= True; const VerTotales: Boolean = True): Binary;
var
i: Integer;
begin
Result := Binary.Create;
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
FVerPrecios := VerPrecios;
FVerPrecios := VerPrecios;
FVerTotales := VerTotales;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@ -89,7 +91,7 @@ begin
frxReport.PreviewPages.SaveToStream(Result);
end;
function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True): Binary;
function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
var
i: Integer;
begin
@ -97,7 +99,8 @@ begin
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
FVerPrecios := VerPrecios;
FVerPrecios := VerPrecios;
FVerTotales := VerTotales;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@ -129,7 +132,8 @@ begin
frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.Variables.Variables['VerTotales'] := FVerTotales;
frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False);
finally

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

@ -32,7 +32,7 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
protected
{ IsrvAlbaranesCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end;
@ -81,13 +81,13 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
begin
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
Result := AReportGenerator.GenerarAlbaran(ListaID, VerLogotipo, VerPrecios);
Result := AReportGenerator.GenerarAlbaran(ListaID, VerLogotipo, VerPrecios, VerTotales);
finally
FreeAndNIL(AReportGenerator);
end;

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

@ -46,6 +46,26 @@
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
@ -58,15 +78,16 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
@ -132,7 +153,6 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

27
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.dfm
View File

@ -1,9 +1,9 @@
inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlbaranesCliente
Caption = 'Opciones para el albar'#225'n de cliente'
ClientHeight = 237
ClientHeight = 262
ClientWidth = 393
ExplicitWidth = 399
ExplicitHeight = 273
ExplicitHeight = 298
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
@ -11,13 +11,13 @@ inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlb
ExplicitWidth = 393
end
inherited Bevel3: TBevel
Top = 193
Top = 218
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
end
inherited pnlBotones: TPanel
Top = 195
Top = 220
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
@ -46,7 +46,7 @@ inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlb
end
inherited pnlCuerpo: TPanel
Width = 393
Height = 127
Height = 152
ExplicitWidth = 393
ExplicitHeight = 127
object cbVerPrecios: TCheckBox
@ -63,7 +63,7 @@ inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlb
object cbVerRefProveedor: TCheckBox
AlignWithMargins = True
Left = 50
Top = 99
Top = 121
Width = 441
Height = 17
Caption = 'Mostrar las referencias de proveedor de los conceptos'
@ -75,7 +75,7 @@ inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlb
object cbVerIncidencias: TCheckBox
AlignWithMargins = True
Left = 50
Top = 52
Top = 75
Width = 441
Height = 17
Caption = 'Mostrar las incidencias del albar'#225'n'
@ -87,7 +87,7 @@ inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlb
object cbVerObservaciones: TCheckBox
AlignWithMargins = True
Left = 50
Top = 75
Top = 98
Width = 441
Height = 17
Caption = 'Mostrar las observaciones del albar'#225'n'
@ -107,6 +107,17 @@ inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlb
State = cbChecked
TabOrder = 4
end
object cbVerTotales: TCheckBox
AlignWithMargins = True
Left = 50
Top = 52
Width = 415
Height = 17
Caption = 'Mostrar importes totales'
Checked = True
State = cbChecked
TabOrder = 5
end
end
inherited ActionListDialog: TActionList
inherited actAceptar: TAction

7
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.pas
View File

@ -13,17 +13,18 @@ type
cbVerIncidencias: TCheckBox;
cbVerObservaciones: TCheckBox;
cbVerLogotipo: TCheckBox;
cbVerTotales: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
end;
function ElegirOpcionesImpresionAlbaranCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
function ElegirOpcionesImpresionAlbaranCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionAlbaranCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
function ElegirOpcionesImpresionAlbaranCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
var
AEditor : TfDialogOpcionesImpresionAlbaranesCliente;
begin
@ -31,6 +32,7 @@ begin
try
AEditor.cbVerLogotipo.Checked := AVerLogotipo;
AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerTotales.Checked := AVerTotales;
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
AEditor.cbVerObservaciones.Checked := AVerObservaciones;
AEditor.cbVerIncidencias.Checked := AVerIncidencias;
@ -41,6 +43,7 @@ begin
begin
AVerLogotipo := AEditor.cbVerLogotipo.Checked;
AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerTotales := AEditor.cbVerTotales.Checked;
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
AVerObservaciones := AEditor.cbVerObservaciones.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.Checked;

8
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -212,6 +212,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -451,10 +455,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 787
ExplicitTop = 79
ExplicitWidth = 787
inherited lbComentario: TLabel
Width = 777
Height = 25
end
end
inherited EditorActionList: TActionList [9]
Left = 32

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

@ -226,6 +226,7 @@ procedure TfEditorAlbaranCliente.ImprimirInterno;
var
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
@ -234,12 +235,13 @@ begin
inherited;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirTotales := True;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(FAlbaran, False, FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(FAlbaran, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -323,6 +325,7 @@ procedure TfEditorAlbaranCliente.PrevisualizarInterno;
var
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
@ -331,12 +334,13 @@ begin
inherited;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirTotales := True;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(FAlbaran, False, FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(FAlbaran, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

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

@ -147,12 +147,12 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
ExplicitWidth = 583
end
inherited TBXTMain2: TTBXToolbar
Left = 0
Left = 334
Top = 79
Visible = True
ExplicitLeft = 0
ExplicitLeft = 334
ExplicitTop = 79
ExplicitWidth = 583
ExplicitWidth = 142
ExplicitHeight = 26
object TBXItem42: TTBXItem
Action = actEnviar
@ -207,30 +207,34 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
object actEnviar: TAction
Category = 'Acciones'
Caption = 'Enviar albar'#225'n...'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actEnviarExecute
OnUpdate = actEnviarUpdate
end
object actCancelarEnvio: TAction
Category = 'Acciones'
Caption = 'Cancelar envio'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actCancelarEnvioExecute
OnUpdate = actCancelarEnvioUpdate
end
object actConfirmarRecepcion: TAction
Category = 'Acciones'
Caption = 'Confirmar recepcion'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actConfirmarRecepcionExecute
OnUpdate = actConfirmarRecepcionUpdate
end
object actGenerarEtiquetas: TAction
Category = 'Acciones'
Caption = 'Generar etiquetas'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actGenerarEtiquetasExecute
OnUpdate = actGenerarEtiquetasUpdate
end
end
inherited SmallImages: TPngImageList

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

@ -252,11 +252,13 @@ end;
procedure TfEditorAlbaranesCliente.actEnviarUpdate(Sender: TObject);
begin
{
inherited;
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and ViewGrid.esSeleccionCeldaDatos
and (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE);
}
end;
procedure TfEditorAlbaranesCliente.AsignarVista;
@ -351,22 +353,6 @@ begin
if not Assigned(Albaranes) then
raise Exception.Create('No hay ningún albarán asignado');
{$IFDEF ALMACEN}
actEnviar.Visible := True;
actEnviar.Enabled := True;
actCancelarEnvio.Visible := True;
actCancelarEnvio.Enabled := True;
actConfirmarRecepcion.Visible := True;
actConfirmarRecepcion.Enabled := True;
{$ELSE}
actEnviar.Visible := False;
actEnviar.Enabled := False;
actCancelarEnvio.Visible := False;
actCancelarEnvio.Enabled := False;
actConfirmarRecepcion.Visible := False;
actConfirmarRecepcion.Enabled := False;
{$ENDIF}
Albaranes.DataTable.Active := True;
ViewGrid.GotoFirst;
//Para que coja el ancho automático
@ -390,6 +376,7 @@ var
AllItems: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
@ -399,6 +386,7 @@ begin
AllItems := False;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirTotales := True;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
@ -429,8 +417,8 @@ begin
if Assigned(AAlbaranes) then
begin
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(AAlbaranes, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(AAlbaranes, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
end;
end;
@ -501,6 +489,7 @@ var
AllItems: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
@ -510,6 +499,7 @@ begin
AllItems := False;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirTotales := True;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
@ -540,8 +530,8 @@ begin
if Assigned(AAlbaranes) then
begin
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(AAlbaranes, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
if ElegirOpcionesImpresionAlbaranCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(AAlbaranes, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
end;
end;

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

@ -7,12 +7,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Position = poScreenCenter
OnClose = CustomEditorClose
ExplicitWidth = 868
ExplicitHeight = 696
ExplicitHeight = 700
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 860
Caption = 'Nueva factura de cliente'
ExplicitTop = 52
ExplicitWidth = 860
inherited Image1: TImage
Left = 833
@ -42,7 +43,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 860
ExplicitWidth = 860
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
ExplicitWidth = 551
inherited TBXItem2: TTBXItem
Visible = False
end
@ -80,21 +81,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited pgPaginas: TPageControl
Width = 854
Height = 368
ActivePage = pagContenido
Height = 365
OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 854
ExplicitHeight = 368
ExplicitHeight = 365
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 846
ExplicitHeight = 340
ExplicitHeight = 337
inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0
Top = 0
Width = 846
Height = 340
Height = 337
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -105,12 +106,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 846
ExplicitHeight = 340
ExplicitHeight = 337
inherited dxLayoutControl1: TdxLayoutControl
Width = 846
Height = 340
Height = 337
ExplicitWidth = 846
ExplicitHeight = 340
ExplicitHeight = 337
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -136,8 +137,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 78
end
inherited bFormasPago: TButton
Left = 280
ExplicitLeft = 280
Left = 279
ExplicitLeft = 279
end
inherited frViewTienda1: TfrViewTienda
inherited dxLayoutControl1: TdxLayoutControl
@ -152,9 +153,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited frViewClienteFactura1: TfrViewClienteFactura
Left = 440
Left = 439
Width = 398
ExplicitLeft = 440
ExplicitLeft = 439
ExplicitWidth = 398
inherited dxLayoutControl1: TdxLayoutControl
Width = 398
@ -208,17 +209,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 275
Left = 274
DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 275
ExplicitLeft = 274
end
inherited Button3: TBitBtn
Left = 165
ExplicitLeft = 165
Left = 164
ExplicitLeft = 164
end
inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
@ -245,7 +246,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 785
ExplicitWidth = 783
Height = 228
Width = 521
end
@ -262,10 +263,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 121
Width = 121
end
inherited Button1: TButton
Width = 75
ExplicitWidth = 75
end
end
end
end
@ -276,7 +273,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 0
Top = 0
Width = 846
Height = 340
Height = 337
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -289,7 +286,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 846
ExplicitHeight = 340
ExplicitHeight = 337
inherited ToolBar1: TToolBar
Width = 846
Height = 24
@ -376,10 +373,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited cxGrid: TcxGrid
Top = 50
Width = 846
Height = 290
Height = 287
ExplicitTop = 50
ExplicitWidth = 846
ExplicitHeight = 290
ExplicitHeight = 287
end
inherited TBXDock1: TTBXDock
Top = 24
@ -387,7 +384,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 24
ExplicitWidth = 846
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
ExplicitWidth = 622
end
end
end
@ -447,6 +444,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited PnlComentario: TPanel
Width = 860
TabOrder = 5
ExplicitTop = 79
ExplicitWidth = 860
inherited lbComentario: TLabel
Width = 850
@ -477,8 +475,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited Bevel3: TBevel
Left = 457
Top = 30
Height = 122
ExplicitLeft = 457
ExplicitTop = 30
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 569
@ -597,6 +597,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Style.IsFontAssigned = True
ExplicitLeft = 640
ExplicitTop = 104
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Top = 30

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

@ -105,7 +105,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
inline frViewTienda1: TfrViewTienda
Left = 22
Top = 246
Top = 215
Width = 351
Height = 48
Enabled = False
@ -115,10 +115,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
TabOrder = 6
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 246
ExplicitTop = 215
ExplicitWidth = 351
ExplicitHeight = 48
inherited dxLayoutControl1: TdxLayoutControl
@ -143,7 +143,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
TabOrder = 8
ReadOnly = False
ExplicitLeft = 401
ExplicitTop = 30
@ -182,6 +182,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Left = 82
ExplicitLeft = 82
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end
end
object edtFechaVencimiento: TcxDBDateEdit
@ -211,7 +215,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 375
Top = 344
Width = 521
Height = 20
Font.Charset = DEFAULT_CHARSET
@ -220,10 +224,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
TabOrder = 9
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 375
ExplicitTop = 344
ExplicitHeight = 20
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
@ -234,7 +238,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
object cbRecargoEquivalencia: TcxDBCheckBox
Left = 22
Top = 324
Top = 293
Caption = ' No acogida a comisiones'
DataBinding.DataField = 'SIN_COMISION'
DataBinding.DataSource = DADataSource
@ -260,7 +264,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 7
Width = 158
end
object edtSituacion: TcxDBComboBox
@ -277,15 +281,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
TabOrder = 2
Width = 121
end
object Button1: TButton
Left = 22
Top = 191
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 6
OnClick = Button1Click
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -346,12 +341,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Button1'
ShowCaption = False
Control = Button1
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaVertical]
@ -407,15 +396,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
end
end
object DBEdit1: TDBEdit
Left = 135
Top = 205
Width = 248
Height = 21
DataField = 'FECHA_VENCIMIENTO'
DataSource = DADataSource
TabOrder = 1
end
object DADataSource: TDADataSource
Left = 16
Top = 56

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

@ -60,15 +60,11 @@ type
dxLayoutControl1Group9: TdxLayoutGroup;
edtSituacion: TcxDBComboBox;
ledtSituacion: TdxLayoutItem;
Button1: TButton;
dxLayoutControl1Item9: TdxLayoutItem;
DBEdit1: TDBEdit;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
procedure edtFechaVencimientoPropertiesEditValueChanged(Sender: TObject);
procedure Button1Click(Sender: TObject);
protected
FFactura : IBizFacturaCliente;
FController : IFacturasClienteController;
@ -105,8 +101,8 @@ begin
inherited;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
// cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
// edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged;
cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged;
end;
procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject);
@ -148,14 +144,6 @@ begin
end;
end;
procedure TfrViewFacturaCliente.Button1Click(Sender: TObject);
begin
inherited;
Factura.Edit;
Factura.DataTable.FieldByName(fld_FacturasClienteFECHA_VENCIMIENTO).AsVariant := Null;
Factura.Post;
end;
procedure TfrViewFacturaCliente.cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
begin
if Assigned(Factura) and (Factura.DataTable.State in dsEditModes) then

28
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -98,8 +98,12 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -174,8 +178,12 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -1107,7 +1115,9 @@ begin
}
end;
procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList;
@ -1133,14 +1143,16 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Preview(ID_Presupuestos, VerLogotipo);
AReportController.Preview(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
finally
AReportController := NIL;
FreeAndNil(ID_Presupuestos);
end;
end;
procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList;
@ -1165,7 +1177,7 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Print(ID_Presupuestos, VerLogotipo);
AReportController.Print(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
finally
AReportController := NIL;

28
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

@ -10,8 +10,12 @@ uses
type
IPresupuestosClienteReportController = interface(IControllerBase)
['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@ -23,8 +27,12 @@ type
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@ -79,7 +87,9 @@ begin
end;
end;
procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AStream: Binary;
AEditor : IEditorPresupuestosClientePreview;
@ -88,7 +98,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo);
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then
@ -112,7 +122,9 @@ begin
end;
end;
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AStream: Binary;
AEditor : IEditorPresupuestosClientePreview;
@ -121,7 +133,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo);
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then

20
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -51,8 +51,12 @@ type
function GetCapitulo(const TIPO_ARTICULO : String) : IBizCapitulo;
// Report
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary;
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetAnosItems : TStringList;
end;
@ -78,26 +82,30 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary;
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
finally
FreeANDNIL(AParam)
end;
end;
function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
finally
FreeANDNIL(AParam)
end;

8
Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
View File

@ -8,8 +8,12 @@ uses
type
IDataModulePresupuestosClienteReport = interface
['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary;
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
end;
implementation

16
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -93,6 +93,8 @@ type
FImporteMinimo: Currency;
FDesglosado : Boolean;
FVerLogotipo : Boolean;
FVerPrecios: Boolean;
FVerTotales: Boolean;
procedure _GenerarPresupuesto(const AID : Integer);
@ -103,8 +105,8 @@ type
procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes;
public
function GenerarPresupuesto(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarPresupuesto(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end;
@ -152,7 +154,7 @@ begin
end;
end;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
var
i: Integer;
begin
@ -160,6 +162,8 @@ begin
try
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
FVerPrecios := VerPrecios;
FVerTotales := VerTotales;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@ -490,7 +494,7 @@ begin
end;
end;
function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
var
i: Integer;
begin
@ -498,6 +502,8 @@ begin
try
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
FVerPrecios := VerPrecios;
FVerTotales := VerTotales;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@ -552,6 +558,8 @@ begin
frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.Variables.Variables['VerTotales'] := FVerTotales;
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False);

12
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -34,8 +34,8 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
protected
{ IsrvPresupuestosCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
end;
implementation
@ -79,25 +79,25 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
var
AReportGenerator : TRptPresupuestosCliente;
begin
AReportGenerator := TRptPresupuestosCliente.Create(nil);
try
Result := AReportGenerator.GenerarPresupuesto(ListaID, VerLogotipo);
Result := AReportGenerator.GenerarPresupuesto(ListaID, VerLogotipo, VerPrecios, VerTotales);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
var
AReportGenerator : TRptPresupuestosCliente;
begin
AReportGenerator := TRptPresupuestosCliente.Create(nil);
try
Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerLogotipo);
Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerLogotipo, VerPrecios, VerTotales);
finally
FreeAndNIL(AReportGenerator);
end;

3
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -92,6 +92,7 @@ contains
uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame},
uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame},
uViewConfiguracionCapitulo in 'uViewConfiguracionCapitulo.pas' {frViewConfiguracionCapitulo: TFrame},
uViewConfiguracionDocObra in 'uViewConfiguracionDocObra.pas' {frViewConfiguracionDocObra: TFrame};
uViewConfiguracionDocObra in 'uViewConfiguracionDocObra.pas' {frViewConfiguracionDocObra: TFrame},
uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas'{frDialogOpcionesImpresionPresupuestosCliente: Tform};
end.

6
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -86,6 +86,10 @@
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uDialogOpcionesImpresionPresupuestosCliente.pas">
<Form>frDialogOpcionesImpresionPresupuestosCliente</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uEditorAsignarDescuento.pas">
<Form>fEditorAsignarDescuento</Form>
</DCCReference>
@ -134,7 +138,7 @@
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocObra.pas">
<Form>frViewConfiguracionCapitulo</Form>
<Form>frViewConfiguracionDocObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocVarios.pas">

130
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm Normal file
View File

@ -0,0 +1,130 @@
inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresionPresupuestosCliente
Caption = 'Opciones para el presupuesto de cliente'
ClientHeight = 262
ClientWidth = 393
ExplicitWidth = 399
ExplicitHeight = 298
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 393
ExplicitWidth = 393
end
inherited Bevel3: TBevel
Top = 218
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
end
inherited pnlBotones: TPanel
Top = 220
Width = 393
ExplicitTop = 220
ExplicitWidth = 393
inherited btnAceptar: TButton
Left = 229
ExplicitLeft = 229
end
inherited btnCancelar: TButton
Left = 308
ExplicitLeft = 308
end
end
inherited pnlHeader: TPanel
Width = 393
ExplicitWidth = 393
inherited lblTitle: TLabel
Width = 343
Caption = 'Indique las siguiente opciones para el presupuesto de cliente:'
ExplicitWidth = 347
end
inherited lblComments: TLabel
Width = 318
Height = 27
Visible = False
end
end
inherited pnlCuerpo: TPanel
Width = 393
Height = 152
ExplicitWidth = 393
ExplicitHeight = 152
object cbVerPrecios: TCheckBox
AlignWithMargins = True
Left = 50
Top = 29
Width = 415
Height = 17
Caption = 'Mostrar los precios en los conceptos'
Checked = True
State = cbChecked
TabOrder = 0
end
object cbVerRefProveedor: TCheckBox
AlignWithMargins = True
Left = 50
Top = 121
Width = 441
Height = 17
Caption = 'Mostrar las referencias de proveedor de los conceptos'
Checked = True
State = cbChecked
TabOrder = 1
Visible = False
end
object cbVerIncidencias: TCheckBox
AlignWithMargins = True
Left = 50
Top = 75
Width = 441
Height = 17
Caption = 'Mostrar las incidencias del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 2
Visible = False
end
object cbVerObservaciones: TCheckBox
AlignWithMargins = True
Left = 50
Top = 98
Width = 441
Height = 17
Caption = 'Mostrar las observaciones del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 3
Visible = False
end
object cbVerLogotipo: TCheckBox
AlignWithMargins = True
Left = 50
Top = 6
Width = 415
Height = 17
Caption = 'Mostrar logotipo'
Checked = True
State = cbChecked
TabOrder = 4
end
object cbVerTotales: TCheckBox
AlignWithMargins = True
Left = 50
Top = 52
Width = 415
Height = 17
Caption = 'Mostrar importes totales'
Checked = True
State = cbChecked
TabOrder = 5
end
end
inherited ActionListDialog: TActionList
inherited actAceptar: TAction
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
end

68
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas Normal file
View File

@ -0,0 +1,68 @@
unit uDialogOpcionesImpresionPresupuestosCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;
type
TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
cbVerPrecios: TCheckBox;
cbVerRefProveedor: TCheckBox;
cbVerIncidencias: TCheckBox;
cbVerObservaciones: TCheckBox;
cbVerLogotipo: TCheckBox;
cbVerTotales: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
end;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionPresupuestoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
var
AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
begin
AEditor := TfDialogOpcionesImpresionPresupuestosCliente.Create(NIL);
try
AEditor.cbVerLogotipo.Checked := AVerLogotipo;
AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerTotales.Checked := AVerTotales;
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
AEditor.cbVerObservaciones.Checked := AVerObservaciones;
AEditor.cbVerIncidencias.Checked := AVerIncidencias;
Result := (AEditor.ShowModal = mrOk);
if Result then
begin
AVerLogotipo := AEditor.cbVerLogotipo.Checked;
AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerTotales := AEditor.cbVerTotales.Checked;
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
AVerObservaciones := AEditor.cbVerObservaciones.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.Checked;
end;
finally
AEditor.Release;
end;
end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk
end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
end.

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

@ -6,12 +6,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ClientWidth = 848
OnClose = CustomEditorClose
ExplicitWidth = 856
ExplicitHeight = 710
ExplicitHeight = 714
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 848
Caption = 'Nuevo presupuesto de cliente'
ExplicitTop = 52
ExplicitWidth = 848
inherited Image1: TImage
Left = 821
@ -129,7 +130,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 848
ExplicitWidth = 848
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
ExplicitWidth = 551
inherited TBXItem2: TTBXItem
Visible = False
end
@ -176,17 +177,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited pgPaginas: TPageControl
Width = 842
Height = 317
Height = 314
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 842
ExplicitHeight = 317
ExplicitHeight = 314
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 834
ExplicitHeight = 289
ExplicitHeight = 286
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@ -195,7 +197,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0
Top = 0
Width = 834
Height = 289
Height = 286
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -208,7 +210,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 289
ExplicitHeight = 286
inherited ToolBar1: TToolBar
Width = 834
Height = 24
@ -289,10 +291,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited cxGrid: TcxGrid
Top = 50
Width = 834
Height = 239
Height = 236
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 239
ExplicitHeight = 236
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewPROPIEDAD: TcxGridDBColumn
IsCaptionAssigned = True
@ -305,7 +307,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 24
ExplicitWidth = 834
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665
ExplicitWidth = 753
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
@ -326,7 +328,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0
Top = 0
Width = 834
Height = 289
Height = 286
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -337,7 +339,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 289
ExplicitHeight = 286
inherited pnlSup: TPanel
Width = 834
ExplicitWidth = 834
@ -347,13 +349,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited GroupBox1: TGroupBox
Width = 834
Height = 261
Height = 258
ExplicitWidth = 834
ExplicitHeight = 261
ExplicitHeight = 258
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 830
ExplicitHeight = 244
Height = 244
ExplicitHeight = 241
Height = 241
Width = 830
end
end
@ -366,7 +368,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0
Top = 0
Width = 834
Height = 289
Height = 286
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -377,16 +379,17 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 289
ExplicitHeight = 286
inherited TBXDock: TTBXDock
Width = 834
ExplicitWidth = 834
end
inherited ListView1: TListView
Width = 834
Height = 266
Height = 260
ExplicitTop = 26
ExplicitWidth = 834
ExplicitHeight = 266
ExplicitHeight = 260
end
inherited EditorActionList: TActionList
Left = 8
@ -397,6 +400,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited PnlComentario: TPanel
Width = 848
ExplicitTop = 79
ExplicitWidth = 848
inherited lbComentario: TLabel
Width = 838
@ -425,16 +429,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 848
inherited Bevel3: TBevel
Left = 304
Left = 352
Top = 57
ExplicitLeft = 304
Height = 122
ExplicitLeft = 352
ExplicitTop = 57
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 416
Left = 464
Top = 88
Width = 342
ExplicitLeft = 416
ExplicitLeft = 464
ExplicitTop = 88
ExplicitWidth = 342
end
@ -442,20 +448,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 84
Style.IsFontAssigned = True
ExplicitTop = 84
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 487
Left = 535
Top = 108
Style.IsFontAssigned = True
ExplicitLeft = 487
ExplicitLeft = 535
ExplicitTop = 108
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 417
Left = 465
Top = 189
Style.IsFontAssigned = True
ExplicitLeft = 417
ExplicitLeft = 465
ExplicitTop = 189
ExplicitWidth = 137
Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
Top = 84
@ -463,79 +475,100 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 84
end
inherited edtIVA: TcxDBSpinEdit
Left = 416
Left = 464
Top = 108
Style.IsFontAssigned = True
ExplicitLeft = 416
ExplicitLeft = 464
ExplicitTop = 108
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 416
Left = 464
Top = 57
Style.IsFontAssigned = True
ExplicitLeft = 416
ExplicitLeft = 464
ExplicitTop = 57
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 416
Left = 464
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 416
ExplicitLeft = 464
ExplicitTop = 162
end
inherited edtIRPF: TcxDBSpinEdit
Left = 416
Left = 464
Top = 135
Style.IsFontAssigned = True
ExplicitLeft = 416
ExplicitLeft = 464
ExplicitTop = 135
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 487
Left = 535
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 487
ExplicitLeft = 535
ExplicitTop = 162
ExplicitWidth = 56
Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 487
Left = 535
Top = 135
Style.IsFontAssigned = True
ExplicitLeft = 487
ExplicitLeft = 535
ExplicitTop = 135
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Top = 57
Style.IsFontAssigned = True
ExplicitTop = 57
ExplicitWidth = 147
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Top = 138
ExplicitTop = 138
ExplicitWidth = 81
Width = 81
end
inherited cbValorado: TcxDBCheckBox
Left = 11
Top = 11
Enabled = False
ExplicitLeft = 11
ExplicitTop = 11
ExplicitWidth = 455
Width = 455
end
inherited bTiposIVA: TButton
Left = 156
Left = 204
Top = 138
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 156
ExplicitLeft = 204
ExplicitTop = 138
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 165
ExplicitTop = 165
ExplicitWidth = 219
Width = 219
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited cxValorado: TdxLayoutItem
Enabled = False
Visible = False
end
end
end
inherited DADataSource: TDADataSource

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

@ -102,7 +102,7 @@ type
implementation
uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uDialogOpcionesImpresionPresupuestosCliente, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils;
{$R *.dfm}
@ -285,15 +285,25 @@ end;
procedure TfEditorPresupuestoCliente.ImprimirInterno;
var
AVerLogotipo: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
inherited;
AVerLogotipo := True;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirTotales := True;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if not Modified then
begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(FPresupuesto, False, AVerLogotipo);
end;
if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(FPresupuesto, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
@ -361,15 +371,26 @@ end;
procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
var
AVerLogotipo: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
inherited;
AVerLogotipo := True;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirTotales := True;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if not Modified then
begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(FPresupuesto, False, AVerLogotipo);
end;
if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(FPresupuesto, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
function TfEditorPresupuestoCliente.PuedoImprimir: Boolean;

12
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
ClientHeight = 503
ClientWidth = 913
ExplicitWidth = 921
ExplicitHeight = 537
ExplicitHeight = 541
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -126,7 +126,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Width = 913
ExplicitWidth = 913
inherited tbxMain: TTBXToolbar
ExplicitWidth = 632
ExplicitWidth = 711
object TBXSubmenuItem3: TTBXSubmenuItem [0]
Caption = 'Nuevo'
DisplayMode = nbdmImageAndText
@ -158,7 +158,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431
ExplicitWidth = 454
inherited lblAno: TTBXLabelItem
Visible = True
end
@ -191,11 +191,11 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end
end
inherited TBXTMain2: TTBXToolbar
Left = 431
Left = 454
DockPos = 343
Visible = True
ExplicitLeft = 431
ExplicitWidth = 252
ExplicitLeft = 454
ExplicitWidth = 278
object TBXItem43: TTBXItem
Action = actAceptar
DisplayMode = nbdmImageAndText

41
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -112,7 +112,7 @@ uses
uDataModulePresupuestosCliente, uDataModuleUsuarios, uFactuGES_App,
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
uDBSelectionListUtils, uGridUtils,
uGenerarContratosCliUtils,
uGenerarContratosCliUtils, uDialogOpcionesImpresionPresupuestosCliente,
uGestorInformesController, uEditorFechaDecisionPresupuesto;
@ -485,11 +485,22 @@ var
Respuesta : Integer;
APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean;
AVerLogotipo: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
APresupuestos := Nil;
AllItems := False;
AVerLogotipo := True;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirTotales := True;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -517,8 +528,8 @@ begin
if Assigned(APresupuestos) then
begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(APresupuestos, AllItems, AVerLogotipo);
if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(APresupuestos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
end;
end;
@ -563,11 +574,23 @@ var
Respuesta : Integer;
APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean;
AVerLogotipo: Boolean;
FVerLogotipo: Boolean;
FImprimirPrecios : Boolean;
FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
APresupuestos := Nil;
AllItems := False;
AVerLogotipo := True;
FVerLogotipo := True;
FImprimirPrecios := False;
FImprimirTotales := True;
FImprimirRefProveedor := False;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -595,8 +618,8 @@ begin
if Assigned(APresupuestos) then
begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(APresupuestos, AllItems, AVerLogotipo);
if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(APresupuestos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
end;
end;

10
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -57,11 +57,18 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
end
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewPOSICION: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = True
VisibleForCustomization = False
Width = 32
end
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
VisibleForCustomization = False
Width = 57
end
object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [4]
@ -70,7 +77,6 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
VisibleForCustomization = False
end
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Visible = True
end
inherited cxGridViewVALORADO: TcxGridDBColumn [6]
Visible = True

2
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -196,7 +196,7 @@ end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloVariosExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true);
end;
function TfrViewDetallesPresupuestoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;

26
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -129,12 +129,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
MultiLine = True
ExplicitTop = 112
ExplicitWidth = 883
ExplicitHeight = 460
ExplicitHeight = 470
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 875
ExplicitHeight = 432
ExplicitHeight = 442
inline frViewRemesaCliente1: TfrViewRemesaCliente
Left = 0
Top = 0
@ -155,7 +155,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 875
Height = 220
ExplicitWidth = 875
ExplicitHeight = 210
ExplicitHeight = 220
DesignSize = (
875
220)
@ -252,7 +252,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitTop = 210
ExplicitTop = 220
ExplicitWidth = 875
ExplicitHeight = 222
inherited cxGrid: TcxGrid
@ -1082,13 +1082,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Top = 0
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
inherited LargeImages: TPngImageList [9]
inherited LargeImages: TPngImageList [8]
PngImages = <
item
PngImage.Data = {
@ -1892,6 +1886,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Top = 0
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage [9]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560
Top = 32
@ -1908,14 +1908,14 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
object actNorma19: TAction
Category = 'Acciones'
Caption = 'Norma 19'
Enabled = False
OnExecute = actNorma19Execute
OnUpdate = actNorma19Update
end
object actNorma32: TAction
Category = 'Acciones'
Caption = 'Norma 32'
Enabled = False
OnExecute = actNorma32Execute
OnUpdate = actNorma32Update
end
end
inherited StatusBarImages: TPngImageList

10
Source/Servicios/FactuGES.RODL
View File

@ -342,6 +342,10 @@
</Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarInformeEnPDF" UID="{16270F10-DFBD-469A-A401-033B4CBA4381}">
@ -352,6 +356,10 @@
</Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
@ -388,6 +396,8 @@
</Parameter>
<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">

23
Source/Servicios/FactuGES_Intf.pas
View File

@ -556,8 +556,8 @@ type
{ IsrvPresupuestosCliente }
IsrvPresupuestosCliente = interface(IDataAbstractService)
['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
end;
{ CosrvPresupuestosCliente }
@ -570,8 +570,8 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
end;
{ IsrvPedidosProveedor }
@ -596,7 +596,7 @@ type
{ IsrvAlbaranesCliente }
IsrvAlbaranesCliente = interface(IDataAbstractService)
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end;
@ -610,7 +610,7 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end;
@ -1896,13 +1896,15 @@ begin
result := 'srvPresupuestosCliente';
end;
function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1914,13 +1916,15 @@ begin
end
end;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1977,7 +1981,7 @@ begin
result := 'srvAlbaranesCliente';
end;
function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary;
function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
begin
try
result := nil;
@ -1985,6 +1989,7 @@ begin
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);

22
Source/Servicios/FactuGES_Invk.pas
View File

@ -1009,10 +1009,12 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; }
{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
VerPrecios: Boolean;
VerTotales: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1021,8 +1023,10 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerLogotipo);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerLogotipo, VerPrecios, VerTotales);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1041,10 +1045,12 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; }
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
VerPrecios: Boolean;
VerTotales: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1053,8 +1059,10 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerLogotipo);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerLogotipo, VerPrecios, VerTotales);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1117,11 +1125,12 @@ begin
end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean): Binary; }
{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
VerPrecios: Boolean;
VerTotales: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1131,8 +1140,9 @@ begin
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerLogotipo, VerPrecios);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerLogotipo, VerPrecios, VerTotales);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 20 de mayo de 2013 10:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 03 de junio de 2013 12:33</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.