Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

En la cola de impresión poner el nombre de lo que se está imprimiendo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@492 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-12-17 15:04:52 +00:00
parent af71604151
commit fb65b1f505
5 changed files with 17 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
View File

@ -69,8 +69,6 @@ object RptComisiones: TRptComisiones
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeComisiones' LogicalName = 'InformeComisiones'
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
@ -860,7 +858,7 @@ object RptComisiones: TRptComisiones
Top = 150 Top = 150
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.3' Version = '4.8.11'
DotMatrixReport = False DotMatrixReport = False
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
@ -870,11 +868,6 @@ object RptComisiones: TRptComisiones
ReportOptions.CreateDate = 39589.794825115700000000 ReportOptions.CreateDate = 39589.794825115700000000
ReportOptions.LastChange = 39589.813437314820000000 ReportOptions.LastChange = 39589.813437314820000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
'begin'
''
'end.')
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
Left = 169 Left = 169
@ -884,6 +877,7 @@ object RptComisiones: TRptComisiones
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCabecera DataSource = DADataCabecera
BCDToCurrency = False
Left = 264 Left = 264
Top = 16 Top = 16
end end
@ -895,6 +889,7 @@ object RptComisiones: TRptComisiones
UserName = 'frxDBDetalles1' UserName = 'frxDBDetalles1'
CloseDataSource = False CloseDataSource = False
DataSource = DADataDetalles1 DataSource = DADataDetalles1
BCDToCurrency = False
Left = 352 Left = 352
Top = 16 Top = 16
end end
@ -1094,8 +1089,6 @@ object RptComisiones: TRptComisiones
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeComisionesFacturas' LogicalName = 'InformeComisionesFacturas'
IndexDefs = <> IndexDefs = <>
Left = 352 Left = 352
@ -1105,6 +1098,7 @@ object RptComisiones: TRptComisiones
UserName = 'frxDBDetalles2' UserName = 'frxDBDetalles2'
CloseDataSource = False CloseDataSource = False
DataSource = DADataDetalles2 DataSource = DADataDetalles2
BCDToCurrency = False
Left = 456 Left = 456
Top = 16 Top = 16
end end
@ -1156,8 +1150,6 @@ object RptComisiones: TRptComisiones
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeComisionesVendedores' LogicalName = 'InformeComisionesVendedores'
IndexDefs = <> IndexDefs = <>
Left = 456 Left = 456

8
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
View File

@ -66,9 +66,14 @@ var
begin begin
FConnection.BeginTransaction; FConnection.BeginTransaction;
try try
tbl_Comisiones.Active := False;
tbl_Facturas.Active := False;
tbl_Vendedores.Active := False;
tbl_Comisiones.ParamByName('ID').AsInteger := ID; tbl_Comisiones.ParamByName('ID').AsInteger := ID;
tbl_Facturas.ParamByName('ID').AsInteger := ID; tbl_Facturas.ParamByName('ID').AsInteger := ID;
tbl_Vendedores.ParamByName('ID').AsInteger := ID; tbl_Vendedores.ParamByName('ID').AsInteger := ID;
tbl_Comisiones.Active := True; tbl_Comisiones.Active := True;
tbl_Facturas.Active := True; tbl_Facturas.Active := True;
tbl_Vendedores.Active := True; tbl_Vendedores.Active := True;
@ -78,6 +83,7 @@ begin
raise Exception.Create (('Error Servidor: GenerarComision, no encuentra informe' + rptComision)); raise Exception.Create (('Error Servidor: GenerarComision, no encuentra informe' + rptComision));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.ReportOptions.Name := 'Comisiones';
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; FConnection.RollbackTransaction;
@ -95,7 +101,7 @@ begin
ID_Comisiones := TStringList.Create; ID_Comisiones := TStringList.Create;
ID_Comisiones.CommaText := AComisionID; ID_Comisiones.CommaText := AComisionID;
//Vamos generando todos y cada uno de los albaranes recibidos //Vamos generando todos y cada uno de las comisiones pedidas
for i := 0 to ID_Comisiones.Count - 1 do for i := 0 to ID_Comisiones.Count - 1 do
GenerarComision(StrToInt(ID_Comisiones.Strings[i])); GenerarComision(StrToInt(ID_Comisiones.Strings[i]));

1
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -616,6 +616,7 @@ begin
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente)); raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.ReportOptions.Name := 'Factura ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

84
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -202,8 +202,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Cabecera' LogicalName = 'Informe_Cabecera'
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
@ -910,7 +908,7 @@ object RptRecibosCliente: TRptRecibosCliente
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.3' Version = '4.8.11'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -928,79 +926,6 @@ object RptRecibosCliente: TRptRecibosCliente
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1' ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA"> + '#39' - '#39 +
' + <frxDBCabecera."CODIGO_POSTAL_EMPRESA"> + '#39' '#39' + <frxDBCabecer' +
'a."POBLACION_EMPRESA">);'
''
' Cadena := '#39#39';'
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
' if (<frxDBCabecera."FAX"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
' DatosEmpresa.Lines.Add(Cadena);'
'end;'
''
'procedure Memo54OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCompensados."REFERENCIA"> <> '#39#39') then'
' Memo54.Text := '#39'Recibos compensados'#39';'
'end;'
''
'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> = '#39#39') then'
' begin'
' EtiCompensado.Visible := False;'
' EtiCompensado2.Visible := False;'
' end;'
'end;'
''
'procedure Memo55OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."REFERENCIA_REC_COMPENSADO"> <> '#39#39') then'
' begin'
' Memo55.Text := '#39'( Compensado en el recibo '#39' + <frxDBCabecer' +
'a."REFERENCIA_REC_COMPENSADO"> + '#39' )'#39';'
' Memo1.Text := '#39'( Compensado en el recibo '#39' + <frxDBCabecera' +
'."REFERENCIA_REC_COMPENSADO"> + '#39' )'#39';'
' end;'
'end;'
''
'procedure Memo40OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
' begin'
' Memo40.visible := False;'
' Memo25.visible := False; '
' eFormaPagoFactura.visible := False;'
' Memo26.visible := False; '
' end'
'end;'
''
'procedure Memo35OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."ID_FACTURA"> < 1) then'
' begin'
' Memo35.visible := False;'
' Memo44.visible := False; '
' eFechaFactura.visible := False;'
' Memo47.visible := False; '
' end'
'end;'
''
'begin'
''
'end.')
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
Left = 169 Left = 169
@ -1010,6 +935,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCabecera DataSource = DADataCabecera
BCDToCurrency = False
Left = 264 Left = 264
Top = 16 Top = 16
end end
@ -1023,6 +949,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBCompensados' UserName = 'frxDBCompensados'
CloseDataSource = True CloseDataSource = True
DataSource = DADataCompensados DataSource = DADataCompensados
BCDToCurrency = False
Left = 360 Left = 360
Top = 16 Top = 16
end end
@ -1055,8 +982,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Compensados' LogicalName = 'Informe_Compensados'
IndexDefs = <> IndexDefs = <>
Left = 360 Left = 360
@ -1124,8 +1049,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeListadoRecibos' LogicalName = 'InformeListadoRecibos'
IndexDefs = <> IndexDefs = <>
Left = 496 Left = 496
@ -1141,6 +1064,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibos' UserName = 'frxDBInformeListadoRecibos'
CloseDataSource = True CloseDataSource = True
DataSource = DADSInformeListadoRecibos DataSource = DADSInformeListadoRecibos
BCDToCurrency = False
Left = 496 Left = 496
Top = 16 Top = 16
end end

1
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
View File

@ -268,6 +268,7 @@ begin
raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme)); raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.ReportOptions.Name := 'Recibo de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"