Select Iif(Arc_treb.Kod_D= 0 , "Без Договора                  ", Dogi.Dogovor) as Dogovor,;
   Arc_opla.Nom_Treb+Replicate(" ", 8 ) as dog, "      "+Str(Arc_opla.God_Treb, 4 ) as Dat,;
   "     " as nomer, Arc_opla.Summa_Opl, Arc_opla.Data_Oplat as Data, Arc_opla.I_Nomer1;
   From  Arc_treb;
   Join Arc_opla on Arc_opla.God_Treb=Year(Arc_treb.Data_Treb).and.Arc_opla.Nom_Treb=Arc_treb.Nom_Treb.and.;
   Arc_opla.N_Por=np.and.Arc_opla.Data_Oplat=Dt.and.Arc_opla.Kod_Post=Kp.and.;
   (Arc_opla.I_Nomer1=Q_I_Nom.or.Arc_opla.I_Nomer1= 0 );
   Left Join dogi On Arc_treb.Kod_D=Dogi.Kod_D;
   INTO CURSOR OplWrem1