Se añade página en presupuestos para LOPDGR

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@46 9a1d36f3-7752-2d40-8ccb-50eb49674c68

Cliente/FactuGES.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
 MinorVer=6
-Release=4
+Release=5
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.6.4.0
+FileVersion=1.6.5.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.6.4.0
+ProductVersion=1.6.5.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -1774,14 +1774,27 @@ object srvFacturasCliente: TsrvFacturasCliente
     ReportOptions.CreateDate = 37871.995398692100000000
     ReportOptions.Description.Strings = (
       'Demonstrates how to create simple list report.')
-    ReportOptions.LastChange = 39275.443804247680000000
+    ReportOptions.LastChange = 43748.663813726850000000
     ReportOptions.VersionBuild = '1'
     ReportOptions.VersionMajor = '12'
     ReportOptions.VersionMinor = '13'
     ReportOptions.VersionRelease = '1'
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
+      'procedure PresupuestoRelOnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '       PresupuestoRel.Lines.Clear;'
+      '       if <frxDBCabecera."REFERENCIAPRE"> = '#39#39' then'
+      '          PresupuestoRel.Lines.Add('#39'-'#39')'
+      '       else'
+      
+        '          PresupuestoRel.Lines.Add(<frxDBCabecera."REFERENCIAPRE' +
+        '">);'
+      'end;'
+      ''
       'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
+      'var'
+      '  cadenaAux: String;'
       'begin'
       '  DatosCliente.Lines.Clear;'
       '  DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
@@ -1791,6 +1804,39 @@ object srvFacturasCliente: TsrvFacturasCliente
       
         '     DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <fr' +
         'xDBCabecera."POBLACION">);'
+      ''
+      '  CadenaAux := '#39#39';'
+      '  if <frxDBCabecera."TELEFONO1"> <> '#39#39' then'
+      '     if CadenaAux = '#39#39' then'
+      
+        '        CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."TELEF' +
+        'ONO1">'
+      '     else'
+      
+        '        CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."TELEFON' +
+        'O1">;'
+      ''
+      '  if <frxDBCabecera."TELEFONO2"> <> '#39#39' then'
+      '     if CadenaAux = '#39#39' then'
+      
+        '        CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."TELEF' +
+        'ONO2">'
+      '     else'
+      
+        '        CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."TELEFON' +
+        'O2">;'
+      ''
+      '  if <frxDBCabecera."MOVIL"> <> '#39#39' then'
+      '     if CadenaAux = '#39#39' then'
+      
+        '        CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."MOVIL' +
+        '">'
+      '     else'
+      
+        '        CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."MOVIL">' +
+        ';'
+      ''
+      '  DatosCliente.Lines.Add(CadenaAux);'
       'end;'
       ''
       'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
@@ -1820,45 +1866,21 @@ object srvFacturasCliente: TsrvFacturasCliente
       'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
       'begin'
       
-        '//       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportS' +
+        '       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSum' +
-        'ummary1.Height + 20;'
+        'mary1.Height - 1;'
       'end;'
       ''
-      'procedure Band3OnBeforePrint(Sender: TfrxComponent);'
+      'procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);'
       'begin'
-      ''
+      '  case <frxDBDetalles."VALORADO"> of'
-      '  if (<Page#> = <TotalPages#>) then'
+      '  '#39'S'#39': begin'
-      '  begin'
+      '         MemoCampo3.Visible := True;'
-      '     shape6.Visible := True;'
+      '         MemoCampo4.Visible := True;'
-      '     memo14.Visible := True;'
+      '       end;'
-      '     memo35.Visible := True;'
+      '  '#39'N'#39': begin'
-      '     memo36.Visible := True;'
+      '         MemoCampo3.Visible := False;'
-      '     memo37.Visible := True;'
+      '         MemoCampo4.Visible := False;'
-      '     memo38.Visible := True;'
+      '       end;'
-      '     memo39.Visible := True;'
-      '     memo40.Visible := True;'
-      '     memo41.Visible := True;'
-      '     memo42.Visible := True;'
-      '     memo43.Visible := True;'
-      '     memo44.Visible := True;'
-      '     memo45.Visible := True;'
-      '  end'
-      '  else'
-      '  begin'
-      '     shape6.Visible := False;'
-      '     shape6.Visible := False;'
-      '     memo14.Visible := False;'
-      '     memo35.Visible := False;'
-      '     memo36.Visible := False;'
-      '     memo37.Visible := False;'
-      '     memo38.Visible := False;'
-      '     memo39.Visible := False;'
-      '     memo40.Visible := False;'
-      '     memo41.Visible := False;'
-      '     memo42.Visible := False;'
-      '     memo43.Visible := False;'
-      '     memo44.Visible := False;'
-      '     memo45.Visible := False;'
       '  end;'
       'end;'
       ''

Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas

@@ -38,9 +38,9 @@ type
     frxDotMatrixExport1: TfrxDotMatrixExport;
     frxDialogControls1: TfrxDialogControls;
     DABINAdapter: TDABINAdapter;
-    frxReport1: TfrxReport;
     bpFacturasCliente: TDABusinessProcessor;
     schFacturasCliente: TDASchema;
+    frxReport1: TfrxReport;
   private
   protected
     { IsrvFacturasCliente methods }

Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas

@@ -161,7 +161,10 @@ begin
 
   if not Assigned(APresupuesto.Cliente) or
     (APresupuesto.Cliente.DataTable.IsEmpty) then
-    raise Exception.Create('Debe indicar el cliente de este presupuesto');
+    raise Exception.Create('Debe indicar el cliente de este presupuesto')
+  else
+    if (APresupuesto.Cliente.DataTable.FieldByName('NIFCIF').IsNull)  then
+    raise Exception.Create('Debe indicar el DNI del cliente para cumplir LOPD');
 
 
   if (FloatToStr(APresupuesto.FECHADECISION) <> '0') and

Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas

@@ -30,8 +30,8 @@ type
     tbl_Presupuesto: TDACDSDataTable;
     tbl_DetallesPresupuesto: TDACDSDataTable;
     DABINAdapter: TDABINAdapter;
-    frxReport1: TfrxReport;
     schPresupuestos: TDASchema;
+    frxReport1: TfrxReport;
     procedure DARemoteServiceActivate(const aClientID: TGUID;
       aSession: TROSession; const aMessage: IROMessage);
   private

Servidor/FactuGES_Server.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
 MinorVer=6
-Release=3
+Release=5
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.6.3.0
+FileVersion=1.6.5.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES Server
-ProductVersion=1.6.3.0
+ProductVersion=1.6.5.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.