Здравствуйте! Помогите, кто может! Перешли с этого года на Б5. До этого работали на Б4. В модуле "Товары" при реализации со склада на запись документа отрабатывала программка, по которой печатался чек. У нас стоит фискальный регистратор Меркурий MS-K версия 2 Торнадо. Пять лет работали без проблем. Теперь с переходом на Б5 этот плагин не работает. Понятно, что нужно его переписывать. Но времени уже нет на учебу. Да и не сильны. Программист который этим занимался уволился. Сейчас выходим из положения тем, что выписываем товар в Б4 и дублируем документы реализации в Б5. Но это не выход. Может у кого есть готовое решение этого
а. Или кто подскажет в чем ошибка. Будем очень признательны....
Вот текст программы, которая работала на Бэсте4.
Function Main()
local ss,gg,ml,hkkm,dept,nds,strnds,st1
//
cscr:="**************************"
sayScreen(cscr,10,25,"w+/b")
cscr:="* ПЕЧАТЬ ЧЕКА *"
sayScreen(cscr,11,25,"w+/B")
cscr:="**************************"
sayScreen(cscr,12,25,"w+/b")
if select('MDOC') > 0 .and. select('MDOCM') > 0
if empty(mdoc->date0)
mdoc->(ordsetfocus('MDOC'))
mdocm->(ordsetfocus('MDOCM'))
mlabel->(ordsetfocus('MLABEL'))
ss := mdoc->sclad + mdoc->vid + mdoc->type
ss := ss + mdoc->codedoc + mdoc->numdoc + dtos(mdoc->date)
ss := upper(ss)
gg := ss
nds:= 0
if mdocm->(dbseek(ss))
hkkm := CreateObject('AddIn.FprnM45')
try
hkkm:DeviceEnabled := .t.
hkkm:CheckState()
hkkm:CancelCheck()
hkkm:Password := '1'
hkkm:Mode := 1
hkkm:SetMode()
do while !mdocm->(eof()) .and. (ss == gg)
if mlabel->(dbseek(upper(mdocm->grup + mdocm->nnum)))
ml := mlabel->name
ml := rtrim(ml)
do while len(ml) > 33
hkkm:Caption := OemToAnsi(left(ml, 33))
hkkm:PrintS tring()
ml := substr(ml, 34)
enddo
hkkm:Name := OemToAnsi(ml)
else
hkkm:Name := '?'
endif
hkkm:Price := Round(mdocm->Cenaout, 2)
hkkm:Quantity := Round(mdocm->Kolout, 3)
hkkm:Department := 2
hkkm:Registration()
nds:= nds + Round(mdocm->Cenaout,2)*Round(mdocm->Kolout,3)
mdocm->(dbskip())
ss := mdocm->sclad + mdocm->vid + mdocm->type
ss := ss + mdocm->codedoc + mdocm->numdoc + dtos(mdocm->date)
ss := upper(ss)
enddo
hkkm:Caption := OemToAnsi("======================================")
hkkm:PrintS tring()
//strnds :="в том числе НДС : "+str(Round(nds,2)*18/118,8,2)
hkkm:Caption := OemToAnsi("в том числе НДС :"+str(Round(nds,2)*18/118,8,2))
hkkm:PrintS tring()
hkkm:TypeClose := 0
hkkm:CloseCheck()
hkkm := nil
catch
hkkm:CancelCheck()
hkkm := nil
a lert('ОШИБКА !')
return -1
end
*
mdoc->(dbrlock())
mdoc->date0 := Date()
mdoc->summa0 := mdoc->summa
mdoc->(dbcommit())
mdoc->(dbunlock())
endif
endif
endif
return 0
