procedure TRECIVFORM.QRDBText1Print(sender: TObject; var Value: String);
begin
DataModule2.Table5.IndexName:= 'DNI';
if not DataModule2.Table5.Findkey([Query1.FieldByName ('NIF_PROP1').Value]) then
ShowMessage('No encuentro el Nif del propietario');
IF Query1.FieldByName('TIPO').Value = 'V' then
begin
QuickRep1.PrinterSettings.Copies:=1;
QRLabel1.Caption:= ' ';
QRLabel7.Caption:= 'arrendatario de la expresada vivienda';
QRLabel3.Caption:= 'Vivienda:';
QRLabel8.Caption:= 'la cantidad de:';
QRLabel28.Caption:= ' ';
QRLabel6.Caption:= QRLabel25.Caption;
end;
if Query1.FieldByName('TIPO').value = 'T' then
begin
QuickRep1.PrinterSettings.Copies:=1;
QRLabel1.Caption:= ' ';
QRLabel7.Caption:= 'arrendatario del expresado trastero';
QRLabel3.Caption:= 'Trastero:';
QRLabel8.Caption:= 'la cantidad de:';
QRLabel28.Caption:= ' ';
QRLabel6.Caption:= QRLabel25.Caption;
end;
if Query1.FieldByName('TIPO').Value = 'L' then
begin
QuickRep1.PrinterSettings.Copies:=2;
QRLabel1.Caption:= 'Recibo Núm: ';
QRLabel7.Caption:= 'arrendatario del expresado local';
QRLabel3.Caption:= 'Local:';
QRLabel8.Caption:= 'la cantidad de:';
QRLabel6.Caption:= QRLabel25.Caption;
QRLabel28.Caption:= Form24.DBEdit1.Text;
Form24.DBEdit1.Text:=IntToStr((StrToInt(Form24.DBEdit1.Text)+1));
pai:= pai+1;
end;
end;