diff --git a/BD/BASEDATOS.FDB b/BD/BASEDATOS.FDB index fce8054..81f8dcd 100644 Binary files a/BD/BASEDATOS.FDB and b/BD/BASEDATOS.FDB differ diff --git a/Cliente/FactuGES.dof b/Cliente/FactuGES.dof index bc1c128..dc88775 100644 --- a/Cliente/FactuGES.dof +++ b/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. diff --git a/Cliente/FactuGES.res b/Cliente/FactuGES.res index d5ebab7..bf08909 100644 Binary files a/Cliente/FactuGES.res and b/Cliente/FactuGES.res differ diff --git a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index bf99416..6b1e436 100644 --- a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/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 = '#39#39' then' + ' PresupuestoRel.Lines.Add('#39'-'#39')' + ' else' + + ' PresupuestoRel.Lines.Add();' + 'end;' + '' 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' cadenaAux: String;' 'begin' ' DatosCliente.Lines.Clear;' ' DatosCliente.Lines.Add();' @@ -1791,6 +1804,39 @@ object srvFacturasCliente: TsrvFacturasCliente ' DatosCliente.Lines.Add( + );' + '' + ' CadenaAux := '#39#39';' + ' if <> '#39#39' then' + ' if CadenaAux = '#39#39' then' + + ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' + ' else' + + ' CadenaAux := CadenaAux + '#39' / '#39' + ;' + '' + ' if <> '#39#39' then' + ' if CadenaAux = '#39#39' then' + + ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' + ' else' + + ' CadenaAux := CadenaAux + '#39' / '#39' + ;' + '' + ' if <> '#39#39' then' + ' if CadenaAux = '#39#39' then' + + ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' + ' else' + + ' CadenaAux := CadenaAux + '#39' / '#39' + ' + + ';' + '' + ' 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' + - 'ummary1.Height + 20;' + ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSum' + + 'mary1.Height - 1;' 'end;' '' - 'procedure Band3OnBeforePrint(Sender: TfrxComponent);' + 'procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);' 'begin' - '' - ' if ( = ) then' - ' begin' - ' shape6.Visible := True;' - ' memo14.Visible := True;' - ' memo35.Visible := True;' - ' memo36.Visible := True;' - ' memo37.Visible := True;' - ' memo38.Visible := True;' - ' 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;' + ' case of' + ' '#39'S'#39': begin' + ' MemoCampo3.Visible := True;' + ' MemoCampo4.Visible := True;' + ' end;' + ' '#39'N'#39': begin' + ' MemoCampo3.Visible := False;' + ' MemoCampo4.Visible := False;' + ' end;' ' end;' 'end;' '' diff --git a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas b/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas index 1bc57da..e12f0e7 100644 --- a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas +++ b/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 } diff --git a/Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas b/Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas index ec6a39b..1109579 100644 --- a/Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas +++ b/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 diff --git a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas index d300241..f549fbc 100644 --- a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas +++ b/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 diff --git a/Output/Servidor/Informes/InfAlbaran.fr3 b/Output/Servidor/Informes/InfAlbaran.fr3 index 9ea0348..a10515b 100644 --- a/Output/Servidor/Informes/InfAlbaran.fr3 +++ b/Output/Servidor/Informes/InfAlbaran.fr3 @@ -1,5 +1,5 @@ - + @@ -28,7 +28,7 @@ - + @@ -36,7 +36,7 @@ - + diff --git a/Output/Servidor/Informes/InfFacturaCliente.fr3 b/Output/Servidor/Informes/InfFacturaCliente.fr3 index 25fd029..c430548 100644 --- a/Output/Servidor/Informes/InfFacturaCliente.fr3 +++ b/Output/Servidor/Informes/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -27,7 +27,7 @@ - + @@ -51,7 +51,7 @@ - + diff --git a/Output/Servidor/Informes/InfIncidencia.fr3 b/Output/Servidor/Informes/InfIncidencia.fr3 index b331dae..c5ae81b 100644 --- a/Output/Servidor/Informes/InfIncidencia.fr3 +++ b/Output/Servidor/Informes/InfIncidencia.fr3 @@ -1,5 +1,5 @@ - + @@ -28,7 +28,7 @@ - + @@ -40,7 +40,7 @@ - + diff --git a/Output/Servidor/Informes/InfPresupuesto.fr3 b/Output/Servidor/Informes/InfPresupuesto.fr3 index 643f999..90a2a64 100644 --- a/Output/Servidor/Informes/InfPresupuesto.fr3 +++ b/Output/Servidor/Informes/InfPresupuesto.fr3 @@ -1,5 +1,5 @@ - + @@ -32,7 +32,7 @@ - + @@ -44,7 +44,7 @@ - + @@ -69,4 +69,18 @@ + + + + + + + + + + + + + + diff --git a/Output/Servidor/Informes/InfRecibo.fr3 b/Output/Servidor/Informes/InfRecibo.fr3 index 01ea6ab..e033427 100644 --- a/Output/Servidor/Informes/InfRecibo.fr3 +++ b/Output/Servidor/Informes/InfRecibo.fr3 @@ -1,5 +1,5 @@ - + @@ -20,30 +20,30 @@ - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + - - - - - + + + + + diff --git a/Servidor/FactuGES_Server.dof b/Servidor/FactuGES_Server.dof index 0e3d670..30de0f5 100644 --- a/Servidor/FactuGES_Server.dof +++ b/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. diff --git a/Servidor/FactuGES_Server.res b/Servidor/FactuGES_Server.res index 048c4b4..a85e4dd 100644 Binary files a/Servidor/FactuGES_Server.res and b/Servidor/FactuGES_Server.res differ