БЭСТ-4+ SP42
Арм -> Управления продажами. Реестр счетов-фактур.
Использую спец функцию на проверку документа, текст:
{pro\plugins\print\real\acc.txt}
Private lRes, aSetKey
Private Rgt_Date, Cur_Date, Doc_Date
private cIDENT
lRes := .T.
aSetKey :=SaveSetKey()
DbPush()
cIDENT := "03УПРАВЛЕНИЕ ОП.ПЕРИОДОМ"
NetUse("md", LoadPath() + "sclad\memdat.dbf",,.F.)
md->(OrdSetFocus("TAG_IDENT"))
md->(SetScope())
md->(SetScope("UPPER(VALUE)", cIDENT))
md->(DbGoTop())
Rgt_Date := CToD(AllTrim(md->value))
md->(dbClosearea())
Doc_Date := sh_fact->tek_data
If Rgt_Date > Doc_Date
sayandwait("Дата документа меньше установленного для оперативного периода")
lRes := .F.
// __keyboard(chr(27))
Else
lRes := .T.
EndIf
DbPop()
RestSetKey(aSetkey)
Return lRes
{}
Изменяю дату, выдаётся предупреждение, изменяется дата на новую, штатно выхожу из документа.
Необходимо при дате док меньшей оперативного периода док возвращался в режим редактирования.
Арм -> Управления продажами. Реестр счетов-фактур.
Использую спец функцию на проверку документа, текст:
{pro\plugins\print\real\acc.txt}
Private lRes, aSetKey
Private Rgt_Date, Cur_Date, Doc_Date
private cIDENT
lRes := .T.
aSetKey :=SaveSetKey()
DbPush()
cIDENT := "03УПРАВЛЕНИЕ ОП.ПЕРИОДОМ"
NetUse("md", LoadPath() + "sclad\memdat.dbf",,.F.)
md->(OrdSetFocus("TAG_IDENT"))
md->(SetScope())
md->(SetScope("UPPER(VALUE)", cIDENT))
md->(DbGoTop())
Rgt_Date := CToD(AllTrim(md->value))
md->(dbClosearea())
Doc_Date := sh_fact->tek_data
If Rgt_Date > Doc_Date
sayandwait("Дата документа меньше установленного для оперативного периода")
lRes := .F.
// __keyboard(chr(27))
Else
lRes := .T.
EndIf
DbPop()
RestSetKey(aSetkey)
Return lRes
{}
Изменяю дату, выдаётся предупреждение, изменяется дата на новую, штатно выхожу из документа.
Необходимо при дате док меньшей оперативного периода док возвращался в режим редактирования.