Форум

dbpush()
If NetUse("u_dover",LoadPath()+"user\dover.dbf")
endif
go top
do while !eof()
RLock()
u_dover->id_dov:=XGUID() 
DbUnlock()
dbskip()
enddo
u_dover->(DbCloseArea())
dbpop()

[FONT=Courier]Function main() 
Private nSumNDS, dDateOp, cCodeAn, aStru, cDir, cText
  dbpush()
  cdir:= LoadPath()+"mbook.dbf"
if nnumber=1
  aStru:={}
  aStru:={{"NNOPER","N",7,0}}
  aAdd(aStru,{"TASK","C",2,0})
  aAdd(aStru,{"DATAOPER","D",8,0})
  aAdd(aStru,{"NNDOC","C",6,0})
  aAdd(aStru,{"DT_SCHET","C",10,0})
  aAdd(aStru,{"DT_CODE","C",6,0})
  aAdd(aStru,{"KT_SCHET","C",10,0})
  aAdd(aStru,{"KT_CODE","C",6,0})
  aAdd(aStru,{"SUMMA","N",19,3})
  aAdd(aStru,{"NAMEOPER","C",50,0})
  aAdd(aStru,{"VALUTA","C",3,0})
  aAdd(aStru,{"VSUMMA","N",19,3})
  aAdd(aStru,{"VCURS","N",13,5})
  aAdd(aStru,{"SCLAD","C",1,0})
  aAdd(aStru,{"USER_DATE","D",8,0})
  aAdd(aStru,{"STATUS","C",1,0})
  aAdd(aStru,{"Z_STATUS","C",1,0})
  aAdd(aStru,{"NNOPER_D","N",7,0})
  aAdd(aStru,{"NNOPER_K","N",7,0})
  aAdd(aStru,{"N_STATUS","C",1,0})
  aAdd(aStru,{"CRYPT_CODE","C",11,0})
  aAdd(aStru,{"CRC","N",10,0})
  aAdd(aStru,{"ID_ST","N",4,0})
  aAdd(aStru,{"USER_CODE","C",6,0})
  DBCreate(cDir,aStru)
  if type('aPars')='A'
//    alert("Не заданы счета Дт,Кт, будет установлено по умолчанию 6803,76АВ")
    cDts="6803"
    cKts="76АВ"
  else
    cdts:=alltrim(aPars[1])
    cKts:=alltrim(aPars[2])
  endif
endif
  if aPars=nil
    cDts="6803"
    cKts="76АВ"
  else
    cdts:=alltrim(aPars[1])
    cKts:=alltrim(aPars[2])
  endif
if book->type="3" .and. book->summa_nds>0
  dDateOp:=book->tek_data
  nSumNDS:=book->summa_nds*(-1)
  cCodeAn:=partner->code
  cText:="Сторно НДС за  "+alltrim(str(month(dDateOp)))+" месяц "+alltrim(str(year(dDateOp)))+" года."
  netuse('mbook',cdir)
  mbook->(addrec())
  mbook->NNOPER    :=0
  mbook->TASK      :="05"
  mbook->DATAOPER  :=dDateOp
  mbook->NNDOC     :="002НДС"+alltrim(str(month(dDateOp)))
  mbook->DT_SCHET  :=cDts
  mbook->DT_CODE   :=""
  mbook->KT_SCHET  :=cKts
  mbook->KT_CODE   :=cCodeAn
  mbook->SUMMA     :=nSumNDS
  mbook->NAMEOPER  :=ctext
  mbook->VALUTA    :="РУБ"
  mbook->VSUMMA    :=nSumNDS
  mbook->VCURS     :=1
  mbook->SCLAD     :=""
  mbook->USER_DATE :=date()
  mbook->NNOPER_D  :=0
  mbook->NNOPER_K  :=0
  mbook->USER_CODE :=_USER_CODE
  mbook->(f_dbUnLock())
  mbook->(dbCloseArea())
endif
if book->type="2" .and. book->summa_nds>0
  cDts="76АВ"
  cKts="6803"
  dDateOp:=book->tek_data
  nSumNDS:=book->summa_nds
  cCodeAn:=partner->code
  cText:="Начислен НДС с авансов "+alltrim(str(month(dDateOp)))+" месяц "+alltrim(str(year(dDateOp)))+" года."
  netuse('mbook',cdir)
  mbook->(addrec())
  mbook->NNOPER    :=0
  mbook->TASK      :="05"
  mbook->DATAOPER  :=dDateOp
  mbook->NNDOC     :="002НДС"+alltrim(str(month(dDateOp)))
  mbook->DT_SCHET  :=cDts
  mbook->DT_CODE   :=cCodeAn
  mbook->KT_SCHET  :=cKts
  mbook->KT_CODE   :=""
  mbook->SUMMA     :=nSumNDS
  mbook->NAMEOPER  :=ctext
  mbook->VALUTA    :="РУБ"
  mbook->VSUMMA    :=nSumNDS
  mbook->VCURS     :=1
  mbook->SCLAD     :=""
  mbook->USER_DATE :=date()
  mbook->NNOPER_D  :=0
  mbook->NNOPER_K  :=0
  mbook->USER_CODE :=_USER_CODE
  mbook->(f_dbUnLock())
  mbook->(dbCloseArea())
endif
  dbpop()
if nnumber=nkolstrok
alert("Файл экспорта mbook.dbf сформирован. Для занесения в книгу необходимо произвести импорт файла mbook.dbf!")
endif
Return[/FONT]

                                      
[FONT=Courier]Field Name   Type          Len     Dec
==========   =========   =====   =====
CODEDOC      Character       3       0
NUMDOC       Character       6       0
DATE         Date            8       0
AGENTNAME    Character      25       0
AGENTCODE    Character       6       0
PRIM         Character      37       0
TNUM         Character       6       0
FIO          Character      35       0[/FONT]