diff --git a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index b180c54..d153933 100644 --- a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -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 = '#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();' @@ -1145,39 +1132,6 @@ 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);' @@ -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 ( = ) 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' diff --git a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas b/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas index bb8f0bf..5c588fe 100644 --- a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas +++ b/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas @@ -38,8 +38,8 @@ type frxDotMatrixExport1: TfrxDotMatrixExport; frxDialogControls1: TfrxDialogControls; DABINAdapter: TDABINAdapter; - frxReport1: TfrxReport; schFacturasCliente: TDASchema; + frxReport1: TfrxReport; private protected { IsrvFacturasCliente methods }