jmlifi
15-12-2005, 10:28:05
El QReport me visualiza una información (es correcta), pero a la hora de imprimir me saca información diferente.
Me visualiza(correcto):
PACKING LIST 8
ALBARAN: 8
KIT: GP016393 0.1
KENAZEN
GP011685 CONDUCTOR
1018555 PLATFORM
VARIOS
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66
Me Imprime:
PACKING LIST 8
ALBARAN: 8
KIT: GP016393 0.1
KENAZEN
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66
VARIOS
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66
Tengo un formulario(report) y algunos componentes son los siguientes: componentes:
tblProveedores: TSQLQuery;
tblPackingList: TSQLQuery;
QR: TQuickRep;
DetailBand1: TQRBand;
QRSubDetail1: TQRSubDetail;
PageHeaderBand1: TQRBand;
QR.dataset = tblProveedores
DetailBand1.BandType = rbGroupHeader
DetailBand1.LinkBand = QRSubDetail1
QRSubDetail1.HeaderBand = DetailBand1
Procedimiento:
procedure TLstAdministracionFrm.Ejecuta(const alba: Integer; const kiti: String; const codpack: integer);
begin
albaran.Caption := IntToStr(alba);
kit.caption := kiti;
tblProveedores.ParamByName('codpack').AsInteger := codpack;
tblProveedores.Open;
tblproveedores.First;
while not tblproveedores.Eof do begin
tblPackingList.ParamByName('proveedor').AsString := tblproveedoresPROVEEDOR.AsString;
tblPackingList.ParamByName('codpack').AsInteger := codpack;
tblPackingList.Open;
tblproveedores.Next;
end;
if not tblPackingList.IsEmpty then
cod.Caption := IntToStr(codpack);
end;
¿Cual puede ser la solución?
Me visualiza(correcto):
PACKING LIST 8
ALBARAN: 8
KIT: GP016393 0.1
KENAZEN
GP011685 CONDUCTOR
1018555 PLATFORM
VARIOS
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66
Me Imprime:
PACKING LIST 8
ALBARAN: 8
KIT: GP016393 0.1
KENAZEN
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66
VARIOS
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66
Tengo un formulario(report) y algunos componentes son los siguientes: componentes:
tblProveedores: TSQLQuery;
tblPackingList: TSQLQuery;
QR: TQuickRep;
DetailBand1: TQRBand;
QRSubDetail1: TQRSubDetail;
PageHeaderBand1: TQRBand;
QR.dataset = tblProveedores
DetailBand1.BandType = rbGroupHeader
DetailBand1.LinkBand = QRSubDetail1
QRSubDetail1.HeaderBand = DetailBand1
Procedimiento:
procedure TLstAdministracionFrm.Ejecuta(const alba: Integer; const kiti: String; const codpack: integer);
begin
albaran.Caption := IntToStr(alba);
kit.caption := kiti;
tblProveedores.ParamByName('codpack').AsInteger := codpack;
tblProveedores.Open;
tblproveedores.First;
while not tblproveedores.Eof do begin
tblPackingList.ParamByName('proveedor').AsString := tblproveedoresPROVEEDOR.AsString;
tblPackingList.ParamByName('codpack').AsInteger := codpack;
tblPackingList.Open;
tblproveedores.Next;
end;
if not tblPackingList.IsEmpty then
cod.Caption := IntToStr(codpack);
end;
¿Cual puede ser la solución?