From 8da845aa8260833c931bdf8d28962d746cd44d3a Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 23 Oct 2014 09:16:09 +0000
Subject: [PATCH] Mascara libra

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@233 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 Source/Informes/6/en/InfFacturaCliente.fr3    |   6 ++--
 .../Views/uViewFacturasCliente.dfm            |  16 ++++++---
 .../Views/uViewFacturasCliente.pas            |  23 +++++++------
 .../uGenerarFacturasProPreCliUtils.pas        |   1 -
 .../uGenerarPedidosCliUtils.dfm               |   6 ++--
 .../uGenerarPedidosCliUtils.pas               |  32 +++++++++++++++---
 .../Controller/TiposDocumento_controller.dcu  | Bin 16263 -> 16263 bytes
 Source/Servidor/FactuGES_Server.RES           | Bin 23208 -> 23208 bytes
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 9 files changed, 57 insertions(+), 29 deletions(-)

diff --git a/Source/Informes/6/en/InfFacturaCliente.fr3 b/Source/Informes/6/en/InfFacturaCliente.fr3
index fdc4d1b..d95f675 100644
--- a/Source/Informes/6/en/InfFacturaCliente.fr3
+++ b/Source/Informes/6/en/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41918,5748190162" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;                                        &#13;&#10;begin&#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;  DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;  or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + '  ' + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;&#13;&#10;  ACadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PAIS&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + ' - ' + &#60;frxDBCabecera.&#34;PAIS&#34;&#62;;&#13;&#10;  &#13;&#10;  DatosCliente.Lines.Add(ACadena);                           &#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  BandaDetalles.StartNewPage := False;&#13;&#10;  BandaDetalles.Visible := True;&#13;&#10;  MemPrecio.Style := 'Concepto normal';&#13;&#10;  MemCantidad.Style := 'Concepto normal';&#13;&#10;  MemImpTotal.Style := 'Concepto normal';&#13;&#10;  RichConcepto.Visible := True;&#13;&#10;  MemImpTotal.HideZeros := True;        &#13;&#10;&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; of&#13;&#10;  'Salto': begin&#13;&#10;        BandaDetalles.StartNewPage := True;&#13;&#10;        RichConcepto.Visible := False;&#13;&#10;       end;&#13;&#10;  'Titulo': begin&#13;&#10;       MemPrecio.Style := 'Concepto titulo';&#13;&#10;       MemCantidad.Style := 'Concepto titulo';&#13;&#10;       MemImpTotal.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  'Concepto': begin&#13;&#10;       MemPrecio.Style := 'Concepto normal';&#13;&#10;       MemCantidad.Style := 'Concepto normal';&#13;&#10;       MemImpTotal.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'Subtotal': begin&#13;&#10;       MemPrecio.Style := 'Concepto subtotal';&#13;&#10;       MemCantidad.Style := 'Concepto subtotal';&#13;&#10;       MemImpTotal.Style := 'Concepto subtotal';&#13;&#10;       MemImpTotal.HideZeros := False;           &#13;&#10;       end;&#13;&#10;  'Descuento': begin&#13;&#10;       BandaDetalles.Visible := False;&#13;&#10;       RichConcepto.Color := clNone;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;&#13;&#10;  RichConcepto.Color := MemImpTotal.Color;&#13;&#10;  RichConcepto.Frame := MemImpTotal.Frame;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo15OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo15.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('REFUND')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('INVOICE')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;RE&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       eRE.Lines.Clear;&#13;&#10;       RE.Lines.Clear;&#13;&#10;  end;&#13;&#10;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       eDescuento.Lines.Clear;&#13;&#10;       Descuento.Lines.Clear;&#13;&#10;  end;&#13;&#10;      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena : String;&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;TITULAR&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;    Cadena := Memo11.Lines.Text;&#13;&#10;    Memo11.Lines.Clear;&#13;&#10;    Memo11.Lines.Add(&#60;frxDBCabecera.&#34;TITULAR&#34;&#62;);&#13;&#10;    Memo11.Lines.Add(Cadena);&#13;&#10;  end&#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 Overlay1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ShowLogotipo&#62; then&#13;&#10;  begin&#13;&#10;     Overlay1.Visible := True;                                       &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Overlay1.Visible := False;   &#13;&#10;  end                                &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;pagina&#62; &#60;&#62; &#60;TotalPaginas&#62;) then&#13;&#10;  begin&#13;&#10;    Shape5.Visible := False;&#13;&#10;    eBaseImponible.Visible := False;&#13;&#10;    BaseImponible.Visible := False;&#13;&#10;    eDescuento.Visible := False;&#13;&#10;    Descuento.Visible := False;&#13;&#10;    eIVA.Visible := False;&#13;&#10;    IVA.Visible := False;&#13;&#10;    eRE.Visible := False;&#13;&#10;    RE.Visible := False;&#13;&#10;    eTotalFactura.Visible := False;&#13;&#10;    TotalFactura.Visible := False;&#13;&#10;  end&#13;&#10;  else                                            &#13;&#10;  begin&#13;&#10;    Shape5.Visible := True;                                                                               &#13;&#10;    eBaseImponible.Visible := True;&#13;&#10;    BaseImponible.Visible := True;&#13;&#10;    eDescuento.Visible := True;&#13;&#10;    Descuento.Visible := True;&#13;&#10;    eIVA.Visible := True;&#13;&#10;    IVA.Visible := True;&#13;&#10;    eRE.Visible := True;&#13;&#10;    RE.Visible := True;&#13;&#10;    eTotalFactura.Visible := True;&#13;&#10;    TotalFactura.Visible := True;                                  &#13;&#10;&#13;&#10;//    eVencimientos.top := eVencimientos.top + shape5.height;                                                                 &#13;&#10;//    Subreport1.top := Subreport1.top + shape5.height;&#13;&#10;//    eFormaPago.top := eFormaPago.top + shape5.height;&#13;&#10;//    FormaPago.top := eFormaPago.top + shape5.height;                                                                             &#13;&#10;    &#13;&#10;  end          &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="4.7.71" 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="41935,4632686111" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;                                        &#13;&#10;begin&#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;  DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;  or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + '  ' + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;&#13;&#10;  ACadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PAIS&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + ' - ' + &#60;frxDBCabecera.&#34;PAIS&#34;&#62;;&#13;&#10;  &#13;&#10;  DatosCliente.Lines.Add(ACadena);                           &#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  BandaDetalles.StartNewPage := False;&#13;&#10;  BandaDetalles.Visible := True;&#13;&#10;  MemPrecio.Style := 'Concepto normal';&#13;&#10;  MemCantidad.Style := 'Concepto normal';&#13;&#10;  MemImpTotal.Style := 'Concepto normal';&#13;&#10;  RichConcepto.Visible := True;&#13;&#10;  MemImpTotal.HideZeros := True;        &#13;&#10;&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; of&#13;&#10;  'Salto': begin&#13;&#10;        BandaDetalles.StartNewPage := True;&#13;&#10;        RichConcepto.Visible := False;&#13;&#10;       end;&#13;&#10;  'Titulo': begin&#13;&#10;       MemPrecio.Style := 'Concepto titulo';&#13;&#10;       MemCantidad.Style := 'Concepto titulo';&#13;&#10;       MemImpTotal.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  'Concepto': begin&#13;&#10;       MemPrecio.Style := 'Concepto normal';&#13;&#10;       MemCantidad.Style := 'Concepto normal';&#13;&#10;       MemImpTotal.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'Subtotal': begin&#13;&#10;       MemPrecio.Style := 'Concepto subtotal';&#13;&#10;       MemCantidad.Style := 'Concepto subtotal';&#13;&#10;       MemImpTotal.Style := 'Concepto subtotal';&#13;&#10;       MemImpTotal.HideZeros := False;           &#13;&#10;       end;&#13;&#10;  'Descuento': begin&#13;&#10;       BandaDetalles.Visible := False;&#13;&#10;       RichConcepto.Color := clNone;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;&#13;&#10;  RichConcepto.Color := MemImpTotal.Color;&#13;&#10;  RichConcepto.Frame := MemImpTotal.Frame;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;//  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo15OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo15.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('REFUND')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('INVOICE')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;RE&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       eRE.Lines.Clear;&#13;&#10;       RE.Lines.Clear;&#13;&#10;  end;&#13;&#10;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;DESCUENTO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       eDescuento.Lines.Clear;&#13;&#10;       Descuento.Lines.Clear;&#13;&#10;  end;&#13;&#10;      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena : String;&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;TITULAR&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;    Cadena := Memo11.Lines.Text;&#13;&#10;    Memo11.Lines.Clear;&#13;&#10;    Memo11.Lines.Add(&#60;frxDBCabecera.&#34;TITULAR&#34;&#62;);&#13;&#10;    Memo11.Lines.Add(Cadena);&#13;&#10;  end&#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 Overlay1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ShowLogotipo&#62; then&#13;&#10;  begin&#13;&#10;     Overlay1.Visible := True;                                       &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     Overlay1.Visible := False;   &#13;&#10;  end                                &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;pagina&#62; &#60;&#62; &#60;TotalPaginas&#62;) then&#13;&#10;  begin&#13;&#10;    Shape5.Visible := False;&#13;&#10;    eBaseImponible.Visible := False;&#13;&#10;    BaseImponible.Visible := False;&#13;&#10;    eDescuento.Visible := False;&#13;&#10;    Descuento.Visible := False;&#13;&#10;    eIVA.Visible := False;&#13;&#10;    IVA.Visible := False;&#13;&#10;    eRE.Visible := False;&#13;&#10;    RE.Visible := False;&#13;&#10;    eTotalFactura.Visible := False;&#13;&#10;    TotalFactura.Visible := False;&#13;&#10;  end&#13;&#10;  else                                            &#13;&#10;  begin&#13;&#10;    Shape5.Visible := True;                                                                               &#13;&#10;    eBaseImponible.Visible := True;&#13;&#10;    BaseImponible.Visible := True;&#13;&#10;    eDescuento.Visible := True;&#13;&#10;    Descuento.Visible := True;&#13;&#10;    eIVA.Visible := True;&#13;&#10;    IVA.Visible := True;&#13;&#10;    eRE.Visible := True;&#13;&#10;    RE.Visible := True;&#13;&#10;    eTotalFactura.Visible := True;&#13;&#10;    TotalFactura.Visible := True;                                  &#13;&#10;&#13;&#10;//    eVencimientos.top := eVencimientos.top + shape5.height;                                                                 &#13;&#10;//    Subreport1.top := Subreport1.top + shape5.height;&#13;&#10;//    eFormaPago.top := eFormaPago.top + shape5.height;&#13;&#10;//    FormaPago.top := eFormaPago.top + shape5.height;                                                                             &#13;&#10;    &#13;&#10;  end          &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C65732200010C3C00000020446174615365743D22667278444256656E63696D69656E746F732220446174615365744E616D653D22667278444256656E63696D69656E746F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="522396771" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
     <TfrxOverlay Name="Overlay1" Height="1122" Left="0" Top="398" Width="718,101251175" OnBeforePrint="Overlay1OnBeforePrint">
@@ -62,9 +62,9 @@
     </TfrxMasterData>
   </TfrxReportPage>
   <TfrxReportPage Name="Page2" PaperWidth="215,00041667" PaperHeight="297,00008333" PaperSize="256" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" LargeDesignHeight="True" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
-    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="737,00835" ColumnWidth="0" ColumnGap="0" DataSet="frxDBVencimientos" DataSetName="frxDBVencimientos" RowCount="0">
+    <TfrxMasterData Name="MasterData1" Height="13,82684" Left="0" Top="16" Width="737,000475991765" ColumnWidth="0" ColumnGap="0" DataSet="frxDBVencimientos" DataSetName="frxDBVencimientos" RowCount="0">
       <TfrxMemoView Name="Memo31" Left="0" Top="0" Width="79,90569" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;FECHA_VENCIMIENTO&#34;]"/>
-      <TfrxMemoView Name="Memo40" Left="86,92919" Top="0" Width="98,80334" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;]"/>
+      <TfrxMemoView Name="Memo40" Left="86,92919" Top="0" Width="98,80334" Height="13,82684" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="£ #,0.00" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBVencimientos.&#34;IMPORTE_TOTAL&#34;]"/>
     </TfrxMasterData>
   </TfrxReportPage>
 </TfrxReport>
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index 7810dfe..5db86a5 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm	
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm	
@@ -185,6 +185,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         DataBinding.FieldName = 'REFERENCIA_COMISION'
         Width = 54
       end
+      object cxGridViewPAIS: TcxGridDBColumn
+        Caption = 'Pa'#237's'
+        DataBinding.FieldName = 'PAIS'
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todas'
@@ -273,7 +277,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         object TBXSeparatorItem1: TTBXSeparatorItem
         end
         object TBXItem2: TTBXItem
-          Action = actProvincia
+          Action = actPais
         end
       end
     end
@@ -303,15 +307,17 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     end
   end
   inherited ActionList1: TActionList
+    Left = 192
+    Top = 368
     object actCliente: TAction
       Caption = 'Cliente'
       OnExecute = actClienteExecute
       OnUpdate = actClienteUpdate
     end
-    object actProvincia: TAction
-      Caption = 'Provincia'
-      OnExecute = actProvinciaExecute
-      OnUpdate = actProvinciaUpdate
+    object actPais: TAction
+      Caption = 'Pa'#237's'
+      OnExecute = actPaisExecute
+      OnUpdate = actPaisUpdate
     end
   end
   inherited GridPNGImageList: TPngImageList
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
index 2d81329..d9a0239 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas	
@@ -50,7 +50,7 @@ type
     cxStylePendientes: TcxStyle;
     cxStyleParciales: TcxStyle;
     actCliente: TAction;
-    actProvincia: TAction;
+    actPais: TAction;
     TBXItem2: TTBXItem;
     TBXSeparatorItem1: TTBXSeparatorItem;
     TBXItem3: TTBXItem;
@@ -60,13 +60,14 @@ type
     cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
     cxGridViewRE: TcxGridDBColumn;
     cxGridViewIMPORTE_RE: TcxGridDBColumn;
+    cxGridViewPAIS: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
     procedure actClienteExecute(Sender: TObject);
-    procedure actProvinciaExecute(Sender: TObject);
-    procedure actProvinciaUpdate(Sender: TObject);
+    procedure actPaisExecute(Sender: TObject);
+    procedure actPaisUpdate(Sender: TObject);
     procedure actClienteUpdate(Sender: TObject);
     procedure cxGridViewDataControllerCompare(
       ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
@@ -124,24 +125,24 @@ begin
   (Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
 end;
 
-procedure TfrViewFacturasCliente.actProvinciaExecute(Sender: TObject);
+procedure TfrViewFacturasCliente.actPaisExecute(Sender: TObject);
 begin
-  if (cxGridViewPROVINCIA.GroupIndex < 0) then
+  if (cxGridViewPAIS.GroupIndex < 0) then
   begin
-    cxGridViewPROVINCIA.GroupIndex := cxGridView.GroupedColumnCount;
-    cxGridViewPROVINCIA.Visible := False;
+    cxGridViewPAIS.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewPAIS.Visible := False;
   end
   else
   begin
-    cxGridViewPROVINCIA.GroupIndex := -1;
-    cxGridViewPROVINCIA.Visible := True;
+    cxGridViewPAIS.GroupIndex := -1;
+    cxGridViewPAIS.Visible := True;
   end;
 end;
 
-procedure TfrViewFacturasCliente.actProvinciaUpdate(Sender: TObject);
+procedure TfrViewFacturasCliente.actPaisUpdate(Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
+  (Sender as TAction).Checked := not (cxGridViewPAIS.GroupIndex < 0);
 end;
 
 procedure TfrViewFacturasCliente.AnadirFiltroFechas;
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas proforma/uGenerarFacturasProPreCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas proforma/uGenerarFacturasProPreCliUtils.pas
index 726274a..dff5d6c 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas proforma/uGenerarFacturasProPreCliUtils.pas	
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas proforma/uGenerarFacturasProPreCliUtils.pas	
@@ -157,7 +157,6 @@ begin
          end;
          dmGenerarFacturasProPre.JsListaFacturasGeneradas.Execute;
       end;
-
       Result := True;
     end;
 
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.dfm b/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.dfm
index d459e9b..02c1315 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.dfm	
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.dfm	
@@ -33,7 +33,7 @@ object dmGenerarPedidosCli: TdmGenerarPedidosCli
       FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
       82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
       1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
-    Instruction.Text = 'Se ha generado el albar'#225'n de cliente'
+    Instruction.Text = 'Se ha generado el pedido de cliente'
     Instruction.Glyph.Data = {
       0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
       00001C0806000000720DDF940000000970485973000017120000171201679FD2
@@ -66,10 +66,10 @@ object dmGenerarPedidosCli: TdmGenerarPedidosCli
     Instruction.Icon = tdiCustom
     CustomButtons = <
       item
-        Caption = 'Ver el albar'#225'n'
+        Caption = 'Ver el pedido'
         Value = 100
         Info.Strings = (
-          'Mostrar el albar'#225'n que se ha creado')
+          'Mostrar el pedido que se ha creado')
       end>
     ButtonBar.Buttons = [cbOK]
     ButtonBar.Cancel = cbOK
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas
index ff8b202..8c3f541 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas	
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas	
@@ -73,7 +73,6 @@ begin
   APedido.PAIS := APedido.Cliente.Direcciones.PAIS;
   APedido.PERSONA_CONTACTO := APedido.Cliente.Direcciones.PERSONA_CONTACTO;
   APedido.TELEFONO := APedido.Cliente.Direcciones.TELEFONO;
-
 end;
 
 procedure CopiarArticulosPresupuesto(AOrigen: IBizDetallesPresupuestoCliente;
@@ -173,7 +172,7 @@ end;
 
 function GenerarPedidoCliPre(APresupuesto : IBizPresupuestoCliente) : Boolean; overload;
 var
-  i: Integer;
+  ARespuesta : Integer;
   PedidosNuevos: IBizPedidoCliente;
 
 begin
@@ -195,11 +194,33 @@ begin
     CopiarPresupuestoAPedido(APresupuesto, PedidosNuevos);
     CopiarArticulosPresupuesto(APresupuesto.Detalles, PedidosNuevos.Detalles);
 //    PedidosNuevos.CalcularImporteTotal;
-    APedidosClienteController.Guardar(PedidosNuevos);
+//    APedidosClienteController.Guardar(PedidosNuevos);
 
+    //Sustituir por if de guardar
+    if APedidosClienteController.Guardar(PedidosNuevos) then
+    begin
+      with dmGenerarPedidosCli.JsListaPedidosGenerados do
+      begin
+        Instruction.Text := 'Se ha generado el pedido';
+        Content.Clear;
+        Content.Add(Format('Se ha generado correctamente el pedido %s a partir del presupuesto de cliente' + #10#13, [PedidosNuevos.REFERENCIA]));
+        Execute;
+
+        ARespuesta := CustomButtonResult;
+        case ARespuesta of
+          100 : begin
+                  // Ver el albarán
+                  APedidosClienteController.Ver(PedidosNuevos);
+                end;
+          200 : // Continuar;
+        end;
+      end;
+    end;
+
+{
     if PedidosNuevos.DataTable.RecordCount = 1 then
        ShowInfoMessage('El pedido se ha dado de alta con el código ' + PedidosNuevos.REFERENCIA);
-{
+
     else begin
          with dmGenerarAlbaranesCli.JsListaAlbaranesGenerados.Content do
          begin
@@ -218,8 +239,9 @@ begin
       Result := True;
     end;
 }
+
    finally
-     PedidosNuevos := NIL;
+//     PedidosNuevos := NIL;
      if Assigned(APresupuestosClienteController) then
         Finalizar;
    end;
diff --git a/Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dcu b/Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dcu
index 8079361ab003963c1e7ca86466558dccc57f87e9..54605f76a1b10d1879edbc5aed1ed3f3a1e9d82f 100644
GIT binary patch
delta 36
pcmZp#Z?ET3W?&F%w`XAZ(Btenk;jPH(8*+?qXr9zyD?YF9stGR3km=L

delta 36
pcmZp#Z?ET3W?&F%w`X9`nRn4;B99TXg`4q2M-3JbcVn)UJpjL?3d#Tg

diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index ce9526bf8bebb5918eb8e4bfd9cbcbcd8eb1907e..5cfab3199ae4b716a89268dab66b3341c4f7cd3f 100644
GIT binary patch
delta 15
WcmZ3nm2t&Z#tjisjOLRgqx=ChWCiR1

delta 15
WcmZ3nm2t&Z#tjisjAoM~qx=ChUj^#`

diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 2cf8d1c..e02defe 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.4.1.0\0"
               VALUE "ProductVersion", "4.4.1.0\0"
-              VALUE "CompileDate", "viernes, 03 de octubre de 2014 16:38\0"
+              VALUE "CompileDate", "viernes, 03 de octubre de 2014 17:38\0"
          END
     END
     BLOCK "VarFileInfo"