BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
bDelPostPost в Initlist`е не работает, Собственно проблема описана в названии темы
 
Всем доброго времени суток! Не работает 40-ой параметр bDelPostPost в Initlist(), такое ощущение что он вообще не вызывается. В чем может быть проблема или как его правильно использовать?
Простой пример, как его пытался проверить:
Код
bDelPostPost:={||SayAndWait("bDelPostPost")}


Забыл уточнить. Система БЭСТ4+ 12.01 SP21
Изменено: Catharos - 12.09.2011 14:34:54
 
А по конкретнее ?
Запись прошла удаление до конца или нет ?
Запятые точно посчитали ?

Покажите код Инитлиста Вашего

Уточняю - тестировать буду ТОЛЬКО на текущем СП
 
Собственно сам код
Код
LOCAL aSet,aSetKey,nTop,nBot,cColHead,aBlockCols,cCurproc, nLeft, Name_p, aRef, summa_pri_vvode, tmpsumma, stroka_skoba, mindate, bDelPostPost
PRIVATE tmpindex

aSet:=SAVESET() 
aSetKey:=SAVESETKEY() 

NETUSE("WORK",LOADPATH()+"\real\regopl.dbf",,.F.)
NETUSE("_PLATEGKI",LoadPath()+"\bank\doc51.dbf",,.F.)

WORK->(OrdSetFocus("TAG_SCHET"))
WORK->(SetScope("SCHET+CODE+DOPCODE",mdoc->(SCHET+AGENTCODE+DOPCODE)))

WORK->(dbgotop())

tmpindex:=_PLATEGKI->(CreateTempIndex("oborot+cr+scr+dtos(doper)",""))
_PLATEGKI->(SetScope("oborot+cr+scr","0"+mdoc->(schet+agentcode)))

DISPBOX(7,5,16,73,(CHR( 201 )+ CHR( 205 )+ CHR( 187 )+ CHR( 186 )+ CHR( 188 )+ CHR( 205 )+ CHR( 200 )+ CHR( 186 )+' ' ),"W+/B") 

nTop:=8 
nBot:=15
nLeft:=7

cColHead:={"Счет №Заказа  №пл.док.   Дата           Сумма       Исп. средства"} 

cCurProc:={||"2"} 
aBlockCols:={{{||LEFT(FIELD->SCHET,4)},0},{{||FIELD->dopcode},6},{{||FIELD->NUMDOC},14},{{||FIELD->DATE},24},{{||STR(FIELD->SUMMA,14,2)},36},{{||STR(FIELD->regsum,14,2)},51}}

bDel:={||.T.}
aPic:={,,"999999999.99","999999999.99"}

nUniMode:=2
bScrInit:={||tmpsumma:=field->REGSUM, IF(nApp=2,tmpsumma:=0,tmpsumma:=field->REGSUM), 1}

_aHeads:={{"Введите дату платежного документа...........:","DATE"}, ;
{"Введите номер  платежного документа.........:","NUMDOC"}, ;
{"Сумма платежного документа (не менять)......:","SUMMA","1","1","0"}, ;
{"Сумма в счет заказа.........................:","REGSUM","1","1","0"}}

aWhen:={,,{||summa_pri_vvode:=aIn[3],.T.},{||summa_pri_vvode:=aIn[3],.T.}}
 
aValid:={,,{||aIn[3]:=summa_pri_vvode,.T.},{||if(aIn[4]>aIn[3],aIn[4]:=aIn[3],),.T.}}

_PLATEGKI->( MAKEREFER("plategki","Список платежных документов",1 ;
,{" Дата  ","№ пл. док.","  Название операции ", "Сумма    ", "   Остаток"},         ;
{3,5,16}, "n/w,w+/n",{"DOPER","NDOC", "SUMMA", "SUMMA-SUMREG"},{"aIn[1]","aIn[2]","aIn[3]", "aIn[4]"},"aIn[1]", ;
{{||FIELD->DOPER},{||FIELD->NDOC}, {||LEFT(FIELD->NAME,20)},                       ;
{||RIGHT(STR(FIELD->SUMMA,22,2),12)},{||RIGHT(STR(FIELD->SUMMA-FIELD->sumreg,22,2),12,1)}},,,,,,,,,,,,,,,,,))

aRef:={"plategki"}

bPost:={||tmpsumreg:=_PLATEGKI->sumreg, tmpsummaO:=mdoc->summa0, tmpregsum:=field->regsum, ;
_PLATEGKI->(reclock()),_PLATEGKI->sumreg:=tmpsumreg-tmpsumma+tmpregsum, ;
_PLATEGKI->(f_dbunlock()), field->schet:=mdoc->schet, ;
field->code:=mdoc->agentcode, field->dopcode:=mdoc->dopcode, ;
FindMinDate(), ;
mdoc->(reclock()), mdoc->summa0:=tmpsummaO-tmpsumma+tmpregsum, ;
mdoc->(f_dbunlock()), SayAndWait(dtos(mdoc->date0))}

bDelPost:={||tmpsumreg:=_PLATEGKI->sumreg, tmpsummaO:=mdoc->summa0, ;
tmpregsum:=field->regsum}

bDelPostPost:={||SayAndWait("123123"),_PLATEGKI->(reclock()), ;
_PLATEGKI->sumreg:=tmpsumreg-tmpregsum, ;
_PLATEGKI->(f_dbunlock()), ;
FindMinDate(), ;
mdoc->(reclock()), mdoc->summa0:=tmpsummaO-tmpregsum, ;
mdoc->(f_dbunlock()), SayAndWait(dtos(mdoc->date0))}

WORK->( INITLIST(nTop,nBot,cColHead,aBlockCols,cCurProc,; //1-5
_aHeads, aRef, aPic, aWhen, aValid,; //6-10
nUniMode, bDel, bScrInit,,,        ; //11-15
bPost, bDelPost,,,,                ; //16-20
nLeft,,,,,                         ; //21-25
,,,,, ; //26-30
,,,,, ; //31-35
,,,,bDelPostPost,))                //36-40


_PLATEGKI->(SetScope())
WORK->(SetScope())
_PLATEGKI->( DBCLOSEAREA() )
WORK->( DBCLOSEAREA() )

RESTSETKEY(aSetKey) 
RESTSET(aSet) 

RETURN

//--------------------------------------------------------------------------
function FindMinDate()

work->(dbgotop())
mindate:=WORK->date
SayAndWait(DTOS(mindate))

do while !WORK->(eof())
    if mindate>work->date
        mindate:=WORK->date
    endif
    work->(dbskip())
end do

mdoc->(reclock())
mdoc->date0:=mindate
mdoc->(f_dbunlock())

return


Запятые, как видите, просчитаны правильно. При работе плагина строка удаляется. В соответствующей dbf-ке записи помечены как удаленные.
Изменено: Catharos - 13.09.2011 12:17:46
 
Напишите хоть что-нибудь, а то тишина убивает. Я правда уже смог обойтись без использования bDelPostPost, но способ получился не очень удачный, да и вообще хочется узнать в чем проблема. :mecry:
 
Цитата
Catharos пишет:
Напишите хоть что-нибудь, а то тишина убивает. Я правда уже смог обойтись без использования bDelPostPost

Могу только подтвердить, что да - "не работает".
Сделал тестовый плагин и убедился.
Посмотрел исх. и в нем не нашел причины чтобы не работало.

Могу с отладчиком попросить у КБ и поработать в этом направлении,
Но ведь вот в чем дело - надо будет БЭСТ продлевать !
Вы готовы ?
 
Цитата
nordk пишет:
Но ведь вот в чем дело - надо будет БЭСТ продлевать !
Вы готовы ?


Не понимаю что Вы имеете ввиду. Как понять "продлевать" и "Вы готовы"?
 
Цитата
Catharos пишет:
Забыл уточнить. Система БЭСТ4+ 12.01 SP21


SP 21 Исправить не получится.
У Вас программа на гарантии ?
Вы сможете установить себе последний SP ?
 
Да, деньги платим исправно, обновиться сможем.
 
Понятно
Страницы: 1
Читают тему (гостей: 1)