Добрый день !
Подскажите как написать FieldPut ? Необходимо дату из таблицы mdoc написать в табл. main. Текст программы прилагаю.
Function main()
altd()
mdoc->(ordsetfocus('MDOC'))
Head := Дата документа " + dtoc(mdoc->date) + " Совпадает с датой оплаты ? Введите дату оплаты!")
aQues := {" Да "," Нет "}
If NoOrYes(Head,2,aQues)=1
If !empty(mdoc->date0)
alert("Дата оплаты проставлена : " + dtoc(mdoc->date0))
else
if lastkey() = 13
mdoc->(dbrLock())
myDate := DIALOG("Введите дату оплаты: ","99.99.99",Date())
mdoc->date0 := myDate
opl := DIALOG("Введите сумму оплаты: ","999999999.99",0)
mdoc->summa0 := opl
mdoc->(DbUnLock())
end if
end if
end if
netuse("main",LoadPath()+"main.dbf")
dbpush("main","NOPER_NDOC","main->NNOPER == mdoc->PRO .and. main->NNDOC == mdoc->NUMDOC",)
main->(reclock())
alert(main->DATAOPER)
dbskip(3)
alert(main->DT_SCHET)
nom:=main->(recno())
_nnoper := main->NNOPER
alert(_nnoper)
alert(main->DATAOPER)
alert(mdoc->DATE0)
//FName := FIELD(mdoc->DATE0)
//FVal-> &FNAME := main->DATAOPER
//FieldPut(mdoc->DATE0,main->DATAOPER)
alert(fieldblock(main->(fieldput(fieldpos("DATAOPER")),mdoc->DATE0))) // ошибка !!!!!!!!
alert(main->DATAOPER)
main->(f_dbunlock())
main->(dbclosearea())
dbpop()
return 0
Подскажите как написать FieldPut ? Необходимо дату из таблицы mdoc написать в табл. main. Текст программы прилагаю.
Function main()
altd()
mdoc->(ordsetfocus('MDOC'))
Head := Дата документа " + dtoc(mdoc->date) + " Совпадает с датой оплаты ? Введите дату оплаты!")
aQues := {" Да "," Нет "}
If NoOrYes(Head,2,aQues)=1
If !empty(mdoc->date0)
alert("Дата оплаты проставлена : " + dtoc(mdoc->date0))
else
if lastkey() = 13
mdoc->(dbrLock())
myDate := DIALOG("Введите дату оплаты: ","99.99.99",Date())
mdoc->date0 := myDate
opl := DIALOG("Введите сумму оплаты: ","999999999.99",0)
mdoc->summa0 := opl
mdoc->(DbUnLock())
end if
end if
end if
netuse("main",LoadPath()+"main.dbf")
dbpush("main","NOPER_NDOC","main->NNOPER == mdoc->PRO .and. main->NNDOC == mdoc->NUMDOC",)
main->(reclock())
alert(main->DATAOPER)
dbskip(3)
alert(main->DT_SCHET)
nom:=main->(recno())
_nnoper := main->NNOPER
alert(_nnoper)
alert(main->DATAOPER)
alert(mdoc->DATE0)
//FName := FIELD(mdoc->DATE0)
//FVal-> &FNAME := main->DATAOPER
//FieldPut(mdoc->DATE0,main->DATAOPER)
alert(fieldblock(main->(fieldput(fieldpos("DATAOPER")),mdoc->DATE0))) // ошибка !!!!!!!!
alert(main->DATAOPER)
main->(f_dbunlock())
main->(dbclosearea())
dbpop()
return 0