If m.nosh= 0 
   cFraza_command='execute select_from_fam_where_prizn3 0'
   If !SQLExec(m.nFlag_podkl,m.cFraza_command,'fam_prodavec_redactir_sql1')> 0 
      m.nosh= 1 
      If Messagebox('Невозможно получить данные справочника фамилий!'+Chr( 13 )+'Подробнее?', 64 + 4 ,m.cFraza_title)= 6 
         Local laError( 1 )
         Aerror(laError)
         =Messagebox(laError( 2 ), 64 ,m.cFraza_title)
      Endif
   Else
      Select fam_prodavec_redactir_sql1
      Index On Alltrim(prizn2) Tag priznak Ascending
   Endif
Endif

If m.nosh= 0 
   cFraza_command='execute select_from_imy_where_prizn3 0'
   If !SQLExec(m.nFlag_podkl,m.cFraza_command,'imy_prodavec_redactir_sql1')> 0 
      m.nosh= 1 
      If Messagebox('Невозможно получить данные справочника имен!'+Chr( 13 )+'Подробнее?', 64 + 4 ,m.cFraza_title)= 6 
         Local laError( 1 )
         Aerror(laError)
         =Messagebox(laError( 2 ), 64 ,m.cFraza_title)
      Endif
      Use In fam_prodavec_redactir_sql1
   Else
      Select imy_prodavec_redactir_sql1
      Index On Alltrim(prizn2) Tag priznak Ascending
   Endif
Endif

If m.nosh= 0 
   m.nCount_ID= 1 
   Do While m.nCount_ID> 0 
      nFlag_dobav_sprav= 0 
      nFlag_redactir_sprav= 0 
      cID_provodki_redactir_sprav=''
      cSprav=''
      cID_sprav=''
      cID_Provodki_sprav_sprav=''
      cSprav_prejn=cOblast_prejn( 2 )
      Do procedure_cID_sprav_provodki_redactir_prodavec With m.nosh,m.nFlag_podkl,nFlag_dobav_sprav,nFlag_redactir_sprav,cID_provodki_redactir_sprav,;
         cSprav,m.cSprav_prejn,Thisform.Name, 8 , 3 ,cID_sprav,cID_Provodki_sprav_sprav,m.cFraza_title,cID_array_provodki,j,;
         'Oblast_prodavec_redactir_sql2'
      nFlag_dobav_Oblast( 2 )=nFlag_dobav_sprav
      nFlag_redactir_Oblast( 2 )=nFlag_redactir_sprav
      cID_provodki_redactir_Oblast( 2 )=cID_provodki_redactir_sprav
      cOblast( 2 )=cSprav
      cID_Oblast( 2 )=cID_sprav
      cID_Provodki_sprav_Oblast( 2 )=cID_Provodki_sprav_sprav
      m.nCount_ID=Iif(Isnull(cID_Oblast( 2 )), 0 ,Iif(Len(Alltrim(cID_Oblast( 2 )))= 0 , 0 ,Iif(cID_Oblast( 2 )==cID_Oblast( 1 ), 1 , 0 )))
   Enddo
Endif

If m.nosh= 0 
   m.nCount_ID= 1 
   Do While m.nCount_ID> 0 
      nFlag_dobav_sprav= 0 
      nFlag_redactir_sprav= 0 
      cID_provodki_redactir_sprav=''
      cSprav=''
      cID_sprav=''
      cID_Provodki_sprav_sprav=''
      cSprav_prejn=cPunkt_tip_prejn( 2 )
      Do procedure_cID_sprav_provodki_redactir_prodavec With m.nosh,m.nFlag_podkl,nFlag_dobav_sprav,nFlag_redactir_sprav,cID_provodki_redactir_sprav,;
         cSprav,m.cSprav_prejn,Thisform.Name, 8 , 4 ,cID_sprav,cID_Provodki_sprav_sprav,m.cFraza_title,cID_array_provodki,j,;
         'Punkt_tip_prodavec_redactir_sql2'
      nFlag_dobav_Punkt_tip( 2 )=nFlag_dobav_sprav
      nFlag_redactir_Punkt_tip( 2 )=nFlag_redactir_sprav
      cID_provodki_redactir_Punkt_tip( 2 )=cID_provodki_redactir_sprav
      cPunkt_tip( 2 )=cSprav
      cID_Punkt_tip( 2 )=cID_sprav
      cID_Provodki_sprav_Punkt_tip( 2 )=cID_Provodki_sprav_sprav
      m.nCount_ID=Iif(Isnull(cID_Punkt_tip( 2 )), 0 ,Iif(Len(Alltrim(cID_Punkt_tip( 2 )))= 0 , 0 ,Iif(cID_Punkt_tip( 2 )==cID_Punkt_tip( 1 ), 1 , 0 )))
   Enddo
Endif

*Параметры для передечи в ХП сервера
*************************************************************************************************************************************************
*cID_Prodavec -ID-запись нового пользователя
*dDate_zapis - дата и время добавления
*************************************************************************************************************************************************
*cID_fam -ID-ссылка на запись справочника фамилий
*cFam -Фамилия
*cID_Provodki_sprav_fam -ID-запись при добавлении записи в справочник
*nFlag_dobav_fam &&если = 0 -то НЕ нужно добавлять запись в справочник, если = 1  то добавить запись необходимо
*nFlag_redactir_fam &&если = 0  -то редактирование НЕ произошло, если = 1 , то редактирование произошло
*cID_provodki_redactir_fam -ID-запись проводки при редактировании записи в таблице <PRODAVEC>
*************************************************************************************************************************************************
*cID_imy -ID-ссылка на запись справочника
*cImy -Имя
*cID_Provodki_imy -ID-запись при добавлении записи в справочник
*nFlag_dobav_imy= 0  &&если = 0 -то НЕ нужно добавлять запись в справочник, если = 1  то добавить запись необходимо
*nFlag_redactir_imy &&если = 0  -то редактирование НЕ произошло, если = 1 , то редактирование произошло
*cID_provodki_redactir_imy -ID-запись проводки при редактировании записи в таблице <PRODAVEC>
*************************************************************************************************************************************************