Балуев Максим
Joined: 19 Sep 2003
Posts: 21
Location: Балуев
Occupation: Мобил-Экспресс (программист)
Interests: Кемерово
|
 Posted: 11 Oct 2004 09:35 Post subject: |
 |
|
2 варианта корректировки:
Обычный (Enter) через InitList()
или навешанный на любую комбинацию клавиш (например:CTRL+Enter) через QInput()
//***************************
//Вызывается по CTRL+Enter
//***************************
Function Editor1()
Private aHeads, aPict, aSetMin, aKeyMin
aHeads := {{"Количество: ","mdocm->Kol"}}
aPict := {"9999999.999"}
aSetMin := SaveSet()
aKeyMin := SaveSetKey()
mDocm->(QInput(15,25,17,55,aHeads,1,,aPict))
RestSetKey(aKeyMin)
RestSet(aSetMin)
Return
//****************************************************************
// Основная прога
// Навесь на CTRL+F5 в управлении продажами в книге учета заказов
//****************************************************************
Private cColHead, aHeads, aPict, aBlockCols, aHotKey, aCtrl, aShift, aAlt
Private aSetMin, aKeyMin
DbPush("mdocm","rbookm","",{"Upper(DopCode)",mdoc->(Upper(DopCode))})
mLabel->(OrdSetFocus("mLabel"))
MDOCM->(f_setRelation("mLabel","Upper(Grup+Nnum)"))
cColHead := " Наименование Количество "
aBlockCols := {}
AAdd(aBlockCols,{FormulPars("mLabel->Name",{""}),1})
AAdd(aBlockCols,{FormulPars("Str(mdocm->Kol,19,4)",{""}),36})
aHeads := {{"Количество: ","mdocm->Kol"}}
aPict := {"9999999.999"}
aCtrl := {}
AAdd(aCtrl,{"Enter: Корректировка",10,FormulParsBlock("EvalFun('Editor1')",{""}),1})
aShift := {}
aAlt := {}
aHotKey := {aCtrl, aShift, aAlt}
aSetMin := SaveSet()
aKeyMin := SaveSetKey()
ShadowBox("",2,0,23,79,"W+/B")
mdocm->(InitList(5,19,cColHead,aBlockCols,,aHeads,,aPict,,,,,,,,,,,,,,,,,,,,,,aHotKey))
RestSetKey(aKeyMin)
RestSet(aSetMin)
DbPop() |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
