QuickRep [OnNeedData]

Delphi

31/03/2003

Ae!!
O problema é o seguinte.. Tenho 15 Serviços por cliente [Banco do Brasil, Caixa Econômica, INSS..], porém nem sempre um cliente possui os 15 [muitas vezes possui apenas 1], mas no relatório eu coloquei os 15.
Só que cada vez q dou um preview ele mostra os 15, dae fiz o seguinte:
Verifiquei 1 a 1 se existia produto a partir do 2º [ o 1º é obrigatório]. Mas coloquei esse código no OnNeedData.. Está correto?
Ele precsa ler ess código para cada cliente..
[b:f9b9a18273][o tão falado codigo][/b:f9b9a18273] if dtmcontrole.Qry_Extrato.FieldByName(´Prod2´).AsString=´´ then begin frm_qryEXTRATO.QRDBText68.Visible:=false; frm_qryEXTRATO.QRDBText69.Visible:=false; frm_qryEXTRATO.QRDBText70.Visible:=false; frm_qryEXTRATO.QRDBText71.Visible:=false; frm_qryEXTRATO.QRDBText72.Visible:=false; frm_qryEXTRATO.QRDBText79.Visible:=false; frm_qryEXTRATO.QRDBText67.Visible:=false; frm_qryEXTRATO.QRDBText66.Visible:=false; frm_qryEXTRATO.QRDBText65.Visible:=false; frm_qryEXTRATO.QRDBText64.Visible:=false; frm_qryEXTRATO.QRDBText63.Visible:=false; frm_qryEXTRATO.QRDBText80.Visible:=false; frm_qryEXTRATO.QRDBText58.Visible:=false; frm_qryEXTRATO.QRDBText59.Visible:=false; frm_qryEXTRATO.QRDBText60.Visible:=false; frm_qryEXTRATO.QRDBText61.Visible:=false; frm_qryEXTRATO.QRDBText72.Visible:=false; frm_qryEXTRATO.QRDBText81.Visible:=false; frm_qryEXTRATO.QRDBText57.Visible:=false; frm_qryEXTRATO.QRDBText58.Visible:=false; frm_qryEXTRATO.QRDBText55.Visible:=false; frm_qryEXTRATO.QRDBText54.Visible:=false; frm_qryEXTRATO.QRDBText53.Visible:=false; frm_qryEXTRATO.QRDBText82.Visible:=false; frm_qryEXTRATO.QRDBText48.Visible:=false; frm_qryEXTRATO.QRDBText49.Visible:=false; frm_qryEXTRATO.QRDBText50.Visible:=false; frm_qryEXTRATO.QRDBText51.Visible:=false; frm_qryEXTRATO.QRDBText52.Visible:=false; frm_qryEXTRATO.QRDBText83.Visible:=false; frm_qryEXTRATO.QRDBText47.Visible:=false; frm_qryEXTRATO.QRDBText46.Visible:=false; frm_qryEXTRATO.QRDBText45.Visible:=false; frm_qryEXTRATO.QRDBText44.Visible:=false; frm_qryEXTRATO.QRDBText43.Visible:=false; frm_qryEXTRATO.QRDBText84.Visible:=false; frm_qryEXTRATO.QRDBText42.Visible:=false; frm_qryEXTRATO.QRDBText35.Visible:=false; frm_qryEXTRATO.QRDBText34.Visible:=false; frm_qryEXTRATO.QRDBText27.Visible:=false; frm_qryEXTRATO.QRDBText26.Visible:=false; frm_qryEXTRATO.QRDBText85.Visible:=false; frm_qryEXTRATO.QRDBText41.Visible:=false; frm_qryEXTRATO.QRDBText36.Visible:=false; frm_qryEXTRATO.QRDBText33.Visible:=false; frm_qryEXTRATO.QRDBText28.Visible:=false; frm_qryEXTRATO.QRDBText25.Visible:=false; frm_qryEXTRATO.QRDBText86.Visible:=false; frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod3´).AsString=´´ then begin frm_qryEXTRATO.QRDBText67.Visible:=false; frm_qryEXTRATO.QRDBText66.Visible:=false; frm_qryEXTRATO.QRDBText65.Visible:=false; frm_qryEXTRATO.QRDBText64.Visible:=false; frm_qryEXTRATO.QRDBText63.Visible:=false; frm_qryEXTRATO.QRDBText80.Visible:=false; frm_qryEXTRATO.QRDBText58.Visible:=false; frm_qryEXTRATO.QRDBText59.Visible:=false; frm_qryEXTRATO.QRDBText60.Visible:=false; frm_qryEXTRATO.QRDBText61.Visible:=false; frm_qryEXTRATO.QRDBText72.Visible:=false; frm_qryEXTRATO.QRDBText81.Visible:=false; frm_qryEXTRATO.QRDBText57.Visible:=false; frm_qryEXTRATO.QRDBText58.Visible:=false; frm_qryEXTRATO.QRDBText55.Visible:=false; frm_qryEXTRATO.QRDBText54.Visible:=false; frm_qryEXTRATO.QRDBText53.Visible:=false; frm_qryEXTRATO.QRDBText82.Visible:=false; frm_qryEXTRATO.QRDBText48.Visible:=false; frm_qryEXTRATO.QRDBText49.Visible:=false; frm_qryEXTRATO.QRDBText50.Visible:=false; frm_qryEXTRATO.QRDBText51.Visible:=false; frm_qryEXTRATO.QRDBText52.Visible:=false; frm_qryEXTRATO.QRDBText83.Visible:=false; frm_qryEXTRATO.QRDBText47.Visible:=false; frm_qryEXTRATO.QRDBText46.Visible:=false; frm_qryEXTRATO.QRDBText45.Visible:=false; frm_qryEXTRATO.QRDBText44.Visible:=false; frm_qryEXTRATO.QRDBText43.Visible:=false; frm_qryEXTRATO.QRDBText84.Visible:=false; frm_qryEXTRATO.QRDBText42.Visible:=false; frm_qryEXTRATO.QRDBText35.Visible:=false; frm_qryEXTRATO.QRDBText34.Visible:=false; frm_qryEXTRATO.QRDBText27.Visible:=false; frm_qryEXTRATO.QRDBText26.Visible:=false; frm_qryEXTRATO.QRDBText85.Visible:=false; frm_qryEXTRATO.QRDBText41.Visible:=false; frm_qryEXTRATO.QRDBText36.Visible:=false; frm_qryEXTRATO.QRDBText33.Visible:=false; frm_qryEXTRATO.QRDBText28.Visible:=false; frm_qryEXTRATO.QRDBText25.Visible:=false; frm_qryEXTRATO.QRDBText86.Visible:=false; frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod4´).AsString=´´ then begin frm_qryEXTRATO.QRDBText58.Visible:=false; frm_qryEXTRATO.QRDBText59.Visible:=false; frm_qryEXTRATO.QRDBText60.Visible:=false; frm_qryEXTRATO.QRDBText61.Visible:=false; frm_qryEXTRATO.QRDBText72.Visible:=false; frm_qryEXTRATO.QRDBText81.Visible:=false; frm_qryEXTRATO.QRDBText57.Visible:=false; frm_qryEXTRATO.QRDBText58.Visible:=false; frm_qryEXTRATO.QRDBText55.Visible:=false; frm_qryEXTRATO.QRDBText54.Visible:=false; frm_qryEXTRATO.QRDBText53.Visible:=false; frm_qryEXTRATO.QRDBText82.Visible:=false; frm_qryEXTRATO.QRDBText48.Visible:=false; frm_qryEXTRATO.QRDBText49.Visible:=false; frm_qryEXTRATO.QRDBText50.Visible:=false; frm_qryEXTRATO.QRDBText51.Visible:=false; frm_qryEXTRATO.QRDBText52.Visible:=false; frm_qryEXTRATO.QRDBText83.Visible:=false; frm_qryEXTRATO.QRDBText47.Visible:=false; frm_qryEXTRATO.QRDBText46.Visible:=false; frm_qryEXTRATO.QRDBText45.Visible:=false; frm_qryEXTRATO.QRDBText44.Visible:=false; frm_qryEXTRATO.QRDBText43.Visible:=false; frm_qryEXTRATO.QRDBText84.Visible:=false; frm_qryEXTRATO.QRDBText42.Visible:=false; frm_qryEXTRATO.QRDBText35.Visible:=false; frm_qryEXTRATO.QRDBText34.Visible:=false; frm_qryEXTRATO.QRDBText27.Visible:=false; frm_qryEXTRATO.QRDBText26.Visible:=false; frm_qryEXTRATO.QRDBText85.Visible:=false; frm_qryEXTRATO.QRDBText41.Visible:=false; frm_qryEXTRATO.QRDBText36.Visible:=false; frm_qryEXTRATO.QRDBText33.Visible:=false; frm_qryEXTRATO.QRDBText28.Visible:=false; frm_qryEXTRATO.QRDBText25.Visible:=false; frm_qryEXTRATO.QRDBText86.Visible:=false; frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod5´).AsString=´´ then begin frm_qryEXTRATO.QRDBText57.Visible:=false; frm_qryEXTRATO.QRDBText58.Visible:=false; frm_qryEXTRATO.QRDBText55.Visible:=false; frm_qryEXTRATO.QRDBText54.Visible:=false; frm_qryEXTRATO.QRDBText53.Visible:=false; frm_qryEXTRATO.QRDBText82.Visible:=false; frm_qryEXTRATO.QRDBText48.Visible:=false; frm_qryEXTRATO.QRDBText49.Visible:=false; frm_qryEXTRATO.QRDBText50.Visible:=false; frm_qryEXTRATO.QRDBText51.Visible:=false; frm_qryEXTRATO.QRDBText52.Visible:=false; frm_qryEXTRATO.QRDBText83.Visible:=false; frm_qryEXTRATO.QRDBText47.Visible:=false; frm_qryEXTRATO.QRDBText46.Visible:=false; frm_qryEXTRATO.QRDBText45.Visible:=false; frm_qryEXTRATO.QRDBText44.Visible:=false; frm_qryEXTRATO.QRDBText43.Visible:=false; frm_qryEXTRATO.QRDBText84.Visible:=false; frm_qryEXTRATO.QRDBText42.Visible:=false; frm_qryEXTRATO.QRDBText35.Visible:=false; frm_qryEXTRATO.QRDBText34.Visible:=false; frm_qryEXTRATO.QRDBText27.Visible:=false; frm_qryEXTRATO.QRDBText26.Visible:=false; frm_qryEXTRATO.QRDBText85.Visible:=false; frm_qryEXTRATO.QRDBText41.Visible:=false; frm_qryEXTRATO.QRDBText36.Visible:=false; frm_qryEXTRATO.QRDBText33.Visible:=false; frm_qryEXTRATO.QRDBText28.Visible:=false; frm_qryEXTRATO.QRDBText25.Visible:=false; frm_qryEXTRATO.QRDBText86.Visible:=false; frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod6´).AsString=´´ then begin frm_qryEXTRATO.QRDBText48.Visible:=false; frm_qryEXTRATO.QRDBText49.Visible:=false; frm_qryEXTRATO.QRDBText50.Visible:=false; frm_qryEXTRATO.QRDBText51.Visible:=false; frm_qryEXTRATO.QRDBText52.Visible:=false; frm_qryEXTRATO.QRDBText83.Visible:=false; frm_qryEXTRATO.QRDBText47.Visible:=false; frm_qryEXTRATO.QRDBText46.Visible:=false; frm_qryEXTRATO.QRDBText45.Visible:=false; frm_qryEXTRATO.QRDBText44.Visible:=false; frm_qryEXTRATO.QRDBText43.Visible:=false; frm_qryEXTRATO.QRDBText84.Visible:=false; frm_qryEXTRATO.QRDBText42.Visible:=false; frm_qryEXTRATO.QRDBText35.Visible:=false; frm_qryEXTRATO.QRDBText34.Visible:=false; frm_qryEXTRATO.QRDBText27.Visible:=false; frm_qryEXTRATO.QRDBText26.Visible:=false; frm_qryEXTRATO.QRDBText85.Visible:=false; frm_qryEXTRATO.QRDBText41.Visible:=false; frm_qryEXTRATO.QRDBText36.Visible:=false; frm_qryEXTRATO.QRDBText33.Visible:=false; frm_qryEXTRATO.QRDBText28.Visible:=false; frm_qryEXTRATO.QRDBText25.Visible:=false; frm_qryEXTRATO.QRDBText86.Visible:=false; frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod7´).AsString=´´ then begin frm_qryEXTRATO.QRDBText47.Visible:=false; frm_qryEXTRATO.QRDBText46.Visible:=false; frm_qryEXTRATO.QRDBText45.Visible:=false; frm_qryEXTRATO.QRDBText44.Visible:=false; frm_qryEXTRATO.QRDBText43.Visible:=false; frm_qryEXTRATO.QRDBText84.Visible:=false; frm_qryEXTRATO.QRDBText42.Visible:=false; frm_qryEXTRATO.QRDBText35.Visible:=false; frm_qryEXTRATO.QRDBText34.Visible:=false; frm_qryEXTRATO.QRDBText27.Visible:=false; frm_qryEXTRATO.QRDBText26.Visible:=false; frm_qryEXTRATO.QRDBText85.Visible:=false; frm_qryEXTRATO.QRDBText41.Visible:=false; frm_qryEXTRATO.QRDBText36.Visible:=false; frm_qryEXTRATO.QRDBText33.Visible:=false; frm_qryEXTRATO.QRDBText28.Visible:=false; frm_qryEXTRATO.QRDBText25.Visible:=false; frm_qryEXTRATO.QRDBText86.Visible:=false; frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod8´).AsString=´´ then begin frm_qryEXTRATO.QRDBText42.Visible:=false; frm_qryEXTRATO.QRDBText35.Visible:=false; frm_qryEXTRATO.QRDBText34.Visible:=false; frm_qryEXTRATO.QRDBText27.Visible:=false; frm_qryEXTRATO.QRDBText26.Visible:=false; frm_qryEXTRATO.QRDBText85.Visible:=false; frm_qryEXTRATO.QRDBText41.Visible:=false; frm_qryEXTRATO.QRDBText36.Visible:=false; frm_qryEXTRATO.QRDBText33.Visible:=false; frm_qryEXTRATO.QRDBText28.Visible:=false; frm_qryEXTRATO.QRDBText25.Visible:=false; frm_qryEXTRATO.QRDBText86.Visible:=false; frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod9´).AsString=´´ then begin frm_qryEXTRATO.QRDBText41.Visible:=false; frm_qryEXTRATO.QRDBText36.Visible:=false; frm_qryEXTRATO.QRDBText33.Visible:=false; frm_qryEXTRATO.QRDBText28.Visible:=false; frm_qryEXTRATO.QRDBText25.Visible:=false; frm_qryEXTRATO.QRDBText86.Visible:=false; frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod10´).AsString=´´ then begin frm_qryEXTRATO.QRDBText40.Visible:=false; frm_qryEXTRATO.QRDBText37.Visible:=false; frm_qryEXTRATO.QRDBText32.Visible:=false; frm_qryEXTRATO.QRDBText29.Visible:=false; frm_qryEXTRATO.QRDBText24.Visible:=false; frm_qryEXTRATO.QRDBText87.Visible:=false; frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod11´).AsString=´´ then begin frm_qryEXTRATO.QRDBText39.Visible:=false; frm_qryEXTRATO.QRDBText38.Visible:=false; frm_qryEXTRATO.QRDBText31.Visible:=false; frm_qryEXTRATO.QRDBText30.Visible:=false; frm_qryEXTRATO.QRDBText23.Visible:=false; frm_qryEXTRATO.QRDBText88.Visible:=false; frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod12´).AsString=´´ then begin frm_qryEXTRATO.QRDBText21.Visible:=false; frm_qryEXTRATO.QRDBText20.Visible:=false; frm_qryEXTRATO.QRDBText16.Visible:=false; frm_qryEXTRATO.QRDBText14.Visible:=false; frm_qryEXTRATO.QRDBText15.Visible:=false; frm_qryEXTRATO.QRDBText89.Visible:=false; frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod13´).AsString=´´ then begin frm_qryEXTRATO.QRDBText22.Visible:=false; frm_qryEXTRATO.QRDBText19.Visible:=false; frm_qryEXTRATO.QRDBText18.Visible:=false; frm_qryEXTRATO.QRDBText13.Visible:=false; frm_qryEXTRATO.QRDBText12.Visible:=false; frm_qryEXTRATO.QRDBText90.Visible:=false; frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod14´).AsString=´´ then begin frm_qryEXTRATO.QRDBText7.Visible:=false; frm_qryEXTRATO.QRDBText8.Visible:=false; frm_qryEXTRATO.QRDBText9.Visible:=false; frm_qryEXTRATO.QRDBText10.Visible:=false; frm_qryEXTRATO.QRDBText11.Visible:=false; frm_qryEXTRATO.QRDBText91.Visible:=false; frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end else begin if dtmcontrole.Qry_Extrato.FieldByName(´Prod15´).AsString=´´ then begin frm_qryEXTRATO.QRDBText2.Visible:=false; frm_qryEXTRATO.QRDBText3.Visible:=false; frm_qryEXTRATO.QRDBText4.Visible:=false; frm_qryEXTRATO.QRDBText5.Visible:=false; frm_qryEXTRATO.QRDBText6.Visible:=false; frm_qryEXTRATO.QRDBText92.Visible:=false; end; end; end; end; end; end; end; end; end; end; end; end; end;



Skaarj

Skaarj

Curtidas 0

Respostas

Okama

Okama

31/03/2003

Você já tentou usar QrBand Detail ?
Imagino que vc tire um relatório por cliente com 15 serviços. Seria mais fácil consultar cada cliente e imprimir.


GOSTEI 0
Skaarj

Skaarj

31/03/2003

Você já tentou usar QrBand Detail ? Imagino que vc tire um relatório por cliente com 15 serviços. Seria mais fácil consultar cada cliente e imprimir.

Okay, mas como posso fazer entao? Nunca usei o Detail..


GOSTEI 0
Okama

Okama

31/03/2003

No quickRep insira um componente QRBand e marque sua propriedade BandType como Detail.

O Quickrep deve ter sua propriedade DataSet definida para o Dataset que conterá os dados.

No Band coloque um componente QRDBText, altere as propriedades DataSet e DataField (igual ao DBEdit).

Faça a consulta e mande imprimir (QuickRep1.Print // QuickRep>Preview);

O QRBand:Detail lista todo o conteúdo da consulta, assim fica melhor para tratar os registros, faça a consulta primeiro, trate os erros e imprima como está na tabela.


GOSTEI 0
POSTAR