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

3
Source/Cliente/FactuGES.dproj
View File

@ -51,8 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">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 Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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 Width = 650
ExplicitWidth = 650 ExplicitWidth = 650
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 605 ExplicitWidth = 650
inherited TBXItem26: TTBXItem inherited TBXItem26: TTBXItem
Visible = False Visible = False
end end
@ -77,12 +77,14 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3] object pgPaginas: TPageControl [3]
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 109 Top = 112
Width = 644 Width = 644
Height = 328 Height = 325
ActivePage = pagGeneral ActivePage = pagGeneral
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 109
ExplicitHeight = 328
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0 ExplicitLeft = 0
@ -93,7 +95,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
object PnlComentario: TPanel [4] object PnlComentario: TPanel [4]
Left = 0 Left = 0
Top = 76 Top = 79
Width = 650 Width = 650
Height = 30 Height = 30
Align = alTop Align = alTop
@ -103,6 +105,7 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
VerticalAlignment = taAlignTop VerticalAlignment = taAlignTop
ExplicitTop = 76
object lbComentario: TLabel object lbComentario: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 6 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="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="Controller\AlbaranesCliente_controller.dproj" /> <Projects Include="Controller\AlbaranesCliente_controller.dproj" />
<Projects Include="Data\AlbaranesCliente_data.dproj" /> <Projects Include="Data\AlbaranesCliente_data.dproj" />
<Projects Include="Model\AlbaranesCliente_model.dproj" /> <Projects Include="Model\AlbaranesCliente_model.dproj" />
@ -96,6 +98,24 @@
<Target Name="AlbaranesCliente_controller:Make"> <Target Name="AlbaranesCliente_controller:Make">
<MSBuild Projects="Controller\AlbaranesCliente_controller.dproj" Targets="Make" /> <MSBuild Projects="Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
</Target> </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"> <Target Name="AlbaranesCliente_view">
<MSBuild Projects="Views\AlbaranesCliente_view.dproj" Targets="" /> <MSBuild Projects="Views\AlbaranesCliente_view.dproj" Targets="" />
</Target> </Target>
@ -142,13 +162,13 @@
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

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

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

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

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

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

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

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

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

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

@ -32,7 +32,7 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
protected protected
{ IsrvAlbaranesCliente methods } { 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; function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end; end;
@ -81,13 +81,13 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; 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 var
AReportGenerator : TRptAlbaranesCliente; AReportGenerator : TRptAlbaranesCliente;
begin begin
AReportGenerator := TRptAlbaranesCliente.Create(nil); AReportGenerator := TRptAlbaranesCliente.Create(nil);
try try
Result := AReportGenerator.GenerarAlbaran(ListaID, VerLogotipo, VerPrecios); Result := AReportGenerator.GenerarAlbaran(ListaID, VerLogotipo, VerPrecios, VerTotales);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; 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\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
@ -58,15 +78,16 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="AlbaranesCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="rtl.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="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form> <Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
@ -132,7 +153,6 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form> <Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

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

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

@ -13,17 +13,18 @@ type
cbVerIncidencias: TCheckBox; cbVerIncidencias: TCheckBox;
cbVerObservaciones: TCheckBox; cbVerObservaciones: TCheckBox;
cbVerLogotipo: TCheckBox; cbVerLogotipo: TCheckBox;
cbVerTotales: TCheckBox;
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject);
end; 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 implementation
{$R *.dfm} {$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 var
AEditor : TfDialogOpcionesImpresionAlbaranesCliente; AEditor : TfDialogOpcionesImpresionAlbaranesCliente;
begin begin
@ -31,6 +32,7 @@ begin
try try
AEditor.cbVerLogotipo.Checked := AVerLogotipo; AEditor.cbVerLogotipo.Checked := AVerLogotipo;
AEditor.cbVerPrecios.Checked := AVerPrecios; AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerTotales.Checked := AVerTotales;
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor; AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
AEditor.cbVerObservaciones.Checked := AVerObservaciones; AEditor.cbVerObservaciones.Checked := AVerObservaciones;
AEditor.cbVerIncidencias.Checked := AVerIncidencias; AEditor.cbVerIncidencias.Checked := AVerIncidencias;
@ -41,6 +43,7 @@ begin
begin begin
AVerLogotipo := AEditor.cbVerLogotipo.Checked; AVerLogotipo := AEditor.cbVerLogotipo.Checked;
AVerPrecios := AEditor.cbVerPrecios.Checked; AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerTotales := AEditor.cbVerTotales.Checked;
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked; AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
AVerObservaciones := AEditor.cbVerObservaciones.Checked; AVerObservaciones := AEditor.cbVerObservaciones.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.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 object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -451,10 +455,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 787 Width = 787
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 787 ExplicitWidth = 787
inherited lbComentario: TLabel
Width = 777
Height = 25
end
end end
inherited EditorActionList: TActionList [9] inherited EditorActionList: TActionList [9]
Left = 32 Left = 32

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

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

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

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

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

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

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

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

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

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

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

@ -60,15 +60,11 @@ type
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
edtSituacion: TcxDBComboBox; edtSituacion: TcxDBComboBox;
ledtSituacion: TdxLayoutItem; ledtSituacion: TdxLayoutItem;
Button1: TButton;
dxLayoutControl1Item9: TdxLayoutItem;
DBEdit1: TDBEdit;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure cbFormaPagoPropertiesEditValueChanged(Sender: TObject); procedure cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
procedure edtFechaVencimientoPropertiesEditValueChanged(Sender: TObject); procedure edtFechaVencimientoPropertiesEditValueChanged(Sender: TObject);
procedure Button1Click(Sender: TObject);
protected protected
FFactura : IBizFacturaCliente; FFactura : IBizFacturaCliente;
FController : IFacturasClienteController; FController : IFacturasClienteController;
@ -105,8 +101,8 @@ begin
inherited; inherited;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
// cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged; cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
// edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged; edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged;
end; end;
procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject);
@ -148,14 +144,6 @@ begin
end; end;
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); procedure TfrViewFacturaCliente.cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
begin begin
if Assigned(Factura) and (Factura.DataTable.State in dsEditModes) then 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 EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
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 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); procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -174,8 +178,12 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
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 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); procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -1107,7 +1115,9 @@ begin
} }
end; 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 var
AReportController : IPresupuestosClienteReportController; AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList; ID_Presupuestos: TIntegerList;
@ -1133,14 +1143,16 @@ begin
else else
ID_Presupuestos.Add(APresupuesto.ID); ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Preview(ID_Presupuestos, VerLogotipo); AReportController.Preview(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
finally finally
AReportController := NIL; AReportController := NIL;
FreeAndNil(ID_Presupuestos); FreeAndNil(ID_Presupuestos);
end; end;
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 var
AReportController : IPresupuestosClienteReportController; AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList; ID_Presupuestos: TIntegerList;
@ -1165,7 +1177,7 @@ begin
else else
ID_Presupuestos.Add(APresupuesto.ID); ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Print(ID_Presupuestos, VerLogotipo); AReportController.Print(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
finally finally
AReportController := NIL; AReportController := NIL;

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

@ -10,8 +10,12 @@ uses
type type
IPresupuestosClienteReportController = interface(IControllerBase) IPresupuestosClienteReportController = interface(IControllerBase)
['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}'] ['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean); procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean); const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const 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; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -23,8 +27,12 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean); procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean); const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const 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; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -79,7 +87,9 @@ begin
end; end;
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 var
AStream: Binary; AStream: Binary;
AEditor : IEditorPresupuestosClientePreview; AEditor : IEditorPresupuestosClientePreview;
@ -88,7 +98,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo); AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
try try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -112,7 +122,9 @@ begin
end; end;
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 var
AStream: Binary; AStream: Binary;
AEditor : IEditorPresupuestosClientePreview; AEditor : IEditorPresupuestosClientePreview;
@ -121,7 +133,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo); AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
try try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then 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; function GetCapitulo(const TIPO_ARTICULO : String) : IBizCapitulo;
// Report // Report
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary; function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary; 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; function GetAnosItems : TStringList;
end; end;
@ -78,26 +82,30 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; 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 var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := TIntegerArray.Create; AParam := TIntegerArray.Create;
try try
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;
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 var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := AListaID.ToIntegerArray; AParam := AListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;

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

@ -8,8 +8,12 @@ uses
type type
IDataModulePresupuestosClienteReport = interface IDataModulePresupuestosClienteReport = interface
['{70CEBB06-376F-4363-B80F-DDA4324E0F85}'] ['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary; function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary; 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; end;
implementation implementation

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

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

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

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

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

@ -92,6 +92,7 @@ contains
uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame}, uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame},
uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame}, uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame},
uViewConfiguracionCapitulo in 'uViewConfiguracionCapitulo.pas' {frViewConfiguracionCapitulo: 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. end.

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

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

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

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

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

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

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

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

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

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

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

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

10
Source/Servicios/FactuGES.RODL
View File

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

23
Source/Servicios/FactuGES_Intf.pas
View File

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

22
Source/Servicios/FactuGES_Invk.pas
View File

@ -1009,10 +1009,12 @@ begin
end; end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); 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 var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean; VerLogotipo: Boolean;
VerPrecios: Boolean;
VerTotales: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1021,8 +1023,10 @@ begin
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __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.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1041,10 +1045,12 @@ begin
end; end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); 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 var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean; VerLogotipo: Boolean;
VerPrecios: Boolean;
VerTotales: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1053,8 +1059,10 @@ begin
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __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.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1117,11 +1125,12 @@ begin
end; end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); 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 var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean; VerLogotipo: Boolean;
VerPrecios: Boolean; VerPrecios: Boolean;
VerTotales: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1131,8 +1140,9 @@ begin
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []); __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.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __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.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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 Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.