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

Subida de cambios en el informe de factura de clietne

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@7 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2007-09-12 14:41:49 +00:00
parent a207f042c7
commit 992c3efd09
2 changed files with 42 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1115,27 +1115,14 @@ object srvFacturasCliente: TsrvFacturasCliente
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 38763.819912650500000000
ReportOptions.LastChange = 39275.443804247680000000
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">);'
@ -1145,39 +1132,6 @@ 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);'
@ -1207,8 +1161,46 @@ object srvFacturasCliente: TsrvFacturasCliente
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSum' +
'mary1.Height - 1;'
'// Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportS' +
'ummary1.Height + 20;'
'end;'
''
'procedure Band3OnBeforePrint(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;'
' end;'
'end;'
''
'begin'

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

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