DBCREATE(cInsDBF,aInsStru)
NetUseExc('TMC',cInsDBF)
aKey:={{'TMC1','UPPER(CODE+SCLAD+VID+TYPE)',{||UPPER(CODE+SCLAD+VID+TYPE)}}, ;
{'TMC1_2','UPPER(GRUP+NNUM+SCLAD)',{||UPPER(GRUP+NNUM+SCLAD)}} ;
}
FOR i:=1 TO LEN(aKey)
TMC->( ORDCREATE(cInsIdx,aKey[i,1],aKey[i,2],aKey[i,3]) )
NEXT
Joined: 26 Jun 2003 Posts: 20 Location: Наталья Occupation: Комплексные системы Interests: Челябинск
Posted: 17 Aug 2007 13:25 Post subject:
Возвращаемся к нашим баранам !
Клиенты отложили свои требования бессрочно, да и в отпуске хорошо было
Но раз уж взялась за дело надо хотя б для собственного развития до конца дойти. В общем на днях продолжим!
Joined: 26 Jun 2003 Posts: 20 Location: Наталья Occupation: Комплексные системы Interests: Челябинск
Posted: 21 Aug 2007 17:38 Post subject:
1.Непонятно что значит "брать структуру массива один в один"
В предыдущей теме было:
//1- группа+NNUM+partia+Sclad
//2 - единица изм
//3 - кол-во
//4 - цена в осн.валюте
//далее (не обязательно):
//5 - ранее выбранное кол-во (0)
//6 - ранее выбранная сумма (0)
//7 - не задействовано
//8 - цена в валюте
//9 - код валюты
//10 - курс валюты
//11 - nOCena1 из MLabel
//12 - nOCena2 из MLabel
//13 - nOCena3 из MLabel
//14 - nOCena4 из MLabel
//15 - nVCena1 из MLabel
//16 - nVCena2 из MLabel
//17 - nVCena3 из MLabel
//18 - nVCena4 из MLabel
и я пишу первые 4 поля (раз с 5-го необязательно указано)+ свои 2 поля
aInsStru := {{'TOVAR','C',29,0},{'ED','C',5,0},;
{'KOL','N',19,4},;
{'BRUTTO','N',19,4},{'TARA','N',19,4}}
а индекс aKey:={{'TMC1','UPPER(TOVAR)',{||UPPER(TOVAR)}};
}
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 22 Aug 2007 00:13 Post subject:
Не обязательный параметр не значит, что он не нужен никогда
А если у Вас уже было что-то набрано и Вы продолжаете/изменяете документ?
Давайте использовать если уж не хотите все элементы массива, то по десятый точн
Joined: 26 Jun 2003 Posts: 20 Location: Наталья Occupation: Комплексные системы Interests: Челябинск
Posted: 22 Aug 2007 14:52 Post subject:
7-е поле ("не задействовано") как определять и нужно ли оно вообще?
10-е тоже - на предприятии нет валютного учета
Так правильно:
aInsStru := {{'TOVAR','C',29,0},{'ED','C',5,0},;
{'KOL','N',19,4},{'CENA0','N',19,8},;
{'KOLOLD','N',19,4},{'SUMOLD','N',19,3},;
{'CENAVAL','N',19,4},{'CODEVAL','C',3,0},;
{'BRUTTO','N',19,4},{'TARA','N',19,4}}
А функция:
function Ini_cFile(lArr)
if len(aWorkVars)>0
for i:=1 to len(aWorkVars)
TMC->(addrec())
TMC->tovar:=aWorkVars[1][1]
TMC->ed:=aWorkVars[1][2]
TMC->kol:=aWorkVars[1][3]
TMC->cena0:=aWorkVars[1][4]
TMC->kolold:=aWorkVars[1][5]
TMC->sumold:=aWorkVars[1][6]
TMC->cenaval:=aWorkVars[1][7]
TMC->codeval:=aWorkVars[1][8]
next
TMC->(F_DBUNLOCK())
TMC->(DBCOMMIT())
endif
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 22 Aug 2007 18:16 Post subject:
Code:
TMC->codeval:=aWorkVars[1][8]
Так неправильно, потому как первый элемент наверно должен быть i
Теперь поскольку тема затянулась приведите весь текст, что получился, чтобы понимать что будем дальше дела
Joined: 26 Jun 2003 Posts: 20 Location: Наталья Occupation: Комплексные системы Interests: Челябинск
Posted: 23 Aug 2007 13:34 Post subject:
function main()
LOCAL cFile,cHd,aSet,aSetKey,resalias
LOCAL aStroki:={}
aSet:=SAVESET()
aSetKey:=SAVESETKEY()
cInsDBF := TempFile(m->GlobalTmpPath,"DBF")
cInsIdx := TempFile(m->GlobalTmpPath,"CDX")
aInsStru := {{'TOVAR','C',29,0},{'ED','C',5,0},;
{'KOL','N',19,4},{'CENA0','N',19,8},;
{'KOLOLD','N',19,4},{'SUMOLD','N',19,3},;
{'CENAVAL','N',19,4},{'CODEVAL','C',3,0},;
{'BRUTTO','N',19,4},{'TARA','N',19,4}}
altd()
cHd:=dbcreate(cInsDBF,aInsStru)
// dbusearea(.t.,,cFile,'cEdit',.t.)
NetUseExc('TMC',cInsDBF)
aKey:={{'TMC1','UPPER(TOVAR)',{||UPPER(TOVAR)}};
}
FOR i:=1 TO LEN(aKey)
TMC->( ORDCREATE(cInsIdx,aKey[i,1],aKey[i,2],aKey[i,3]) )
NEXT
select TMC
aStroki:=array(1
Ini_cFile(aStroki)
TMC->(dbclosearea())
RESTSETKEY(aSetKey)
RESTSET(aSet)
return NIL
*************************************************************
function Ini_cFile(lArr)
if len(aWorkVars)>0
for i:=1 to len(aWorkVars)
TMC->(addrec())
TMC->tovar:=aWorkVars[1][1]
TMC->ed:=aWorkVars[1][2]
TMC->kol:=aWorkVars[1][3]
TMC->cena0:=aWorkVars[1][4]
TMC->kolold:=aWorkVars[1][5]
TMC->sumold:=aWorkVars[1][6]
TMC->cenaval:=aWorkVars[1][7]
TMC->codeval:=aWorkVars[1][8]
next
TMC->(F_DBUNLOCK())
TMC->(DBCOMMIT())
endif
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 27 Aug 2007 10:37 Post subject:
Тогда Вам нужно написать свое окно посредством InitList.
В нем разместите нужную информацию для удобного ввода.
Сам InitList организуйте на основе временного файла, который мы
создали.
Если нужны подробности по данной задаче - задавайте вопросы
Joined: 26 Jun 2003 Posts: 20 Location: Наталья Occupation: Комплексные системы Interests: Челябинск
Posted: 29 Aug 2007 18:10 Post subject:
При стандартном вводе по F4 кроме ввода строк есть еще окна где уже введенные строки показываются и окно проводок. Их тоже нужно самим создавать или только нижнее окн
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
Posted: 29 Aug 2007 21:26 Post subject:
"Вы слишком долго былди в море"
Давайте напомню мысль.
У нас есть событие Картотека товаров.
Т.е. мы осуществляем прорисовку нашего окна вместо окна картотеки.
А по выходу из нашего окна мы вернем БЭСТу данные, по которым
он заполнит свои родные окна со строками товара, проводками
и т.д. и т.п.
Т.е. мы как бы делаем режим альтернативного набора вместо
стандартного окна картотеки товаров а все остальное как обычно буд
All times are GMT + 4 Hours Goto page Previous1, 2
Page 2 of 2
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
