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 |