AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se añade página en presupuestos para LOPDGR

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@46 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2019-10-10 14:16:25 +00:00
parent 1da2bbb082
commit bc3d67cd04
14 changed files with 119 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BD/BASEDATOS.FDB
View File

Binary file not shown.

6
Cliente/FactuGES.dof
View File

@ -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.

BIN
Cliente/FactuGES.res
View File

Binary file not shown.

96
Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -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' +
'ummary1.Height + 20;'
' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSum' +
'mary1.Height - 1;'
'end;'
''
'procedure Band3OnBeforePrint(Sender: TfrxComponent);'
'procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);'
'begin'
''
' if (<Page#> = <TotalPages#>) 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 <frxDBDetalles."VALORADO"> 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;'
''

2
Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

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

5
Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas
View File

@ -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

2
Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas
View File

@ -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

6
Output/Servidor/Informes/InfAlbaran.fr3
View File

File diff suppressed because one or more lines are too long

6
Output/Servidor/Informes/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Output/Servidor/Informes/InfIncidencia.fr3
View File

File diff suppressed because one or more lines are too long

20
Output/Servidor/Informes/InfPresupuesto.fr3
View File

File diff suppressed because one or more lines are too long

44
Output/Servidor/Informes/InfRecibo.fr3
View File

File diff suppressed because one or more lines are too long

6
Servidor/FactuGES_Server.dof
View File

@ -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.

BIN
Servidor/FactuGES_Server.res
View File

Binary file not shown.