Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Errores #452: Repasar el refresco del numero de copias impresas que hay que dar a refrescar para ver el valor correcto

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@88 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-10-13 09:36:28 +00:00
parent 68392bb6c1
commit 32bf6dd0f5
3 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -51,9 +51,9 @@ type
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -172,9 +172,9 @@ type
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -1201,14 +1201,15 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteController.Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; function TAlbaranesClienteController.Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList; ID_Albaranes: TIntegerList;
begin begin
Result := False;
AReportController := TAlbaranesClienteReportController.Create; AReportController := TAlbaranesClienteReportController.Create;
ID_Albaranes := TIntegerList.Create; ID_Albaranes := TIntegerList.Create;
try try
@ -1229,7 +1230,7 @@ begin
else else
ID_Albaranes.Add(AAlbaran.ID); ID_Albaranes.Add(AAlbaran.ID);
AReportController.Print(ID_Albaranes, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias); Result := AReportController.Print(ID_Albaranes, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
finally finally
AReportController := NIL; AReportController := NIL;

15
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -13,9 +13,9 @@ type
procedure Preview(const AListaID : TIntegerList; procedure Preview(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; function Print(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
@ -34,9 +34,9 @@ type
procedure Preview(const AListaID : TIntegerList; procedure Preview(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; function Print(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
@ -216,14 +216,15 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; function TAlbaranesClienteReportController.Print(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -240,7 +241,7 @@ begin
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.TablaImpresion := nme_AlbaranesCliente; AEditor.TablaImpresion := nme_AlbaranesCliente;
AEditor.IdTablaImpresion := AListaID.ToString; AEditor.IdTablaImpresion := AListaID.ToString;
AEditor.Print; Result := AEditor.Print;
finally finally
AEditor.Release; AEditor.Release;
end; end;

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -465,7 +465,8 @@ begin
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias); if FController.Print(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
RefrescarInterno;
end; end;
end; end;
end; end;