MGAMA - Pirkimo dokumentų apmokėjimo prašymas - konfigūravimas

DVS operacijų (tipas "Informacija buhalterijai") būsenų aprašymas

Servisas -> DVS -> DVS operacijos

Naujas dokumentas

SQL procedūra :

RGI_MGAMA_BUSENA_TV @reset=1

Vartotojų leidimai - leidimų suteikti nereikia. Tvirtinimo operacijos kuriamos iš MGAMA aplikacijos .

Tvirtina buhalterija

SQL procedūra :

RGI_MGAMA_DVS_TV @bukle=1

Vartotojų leidimai - leidimą reikia suteikti buhalterijos darbuotojams, kurie būseną tvirtins iš Rivile GAMA programos.

Leidimai suteikiami paspaudus Vartotojų leidimai ir pažymėjus vartotojus.

Patvirtinta

SQL procedūra :

RGI_MGAMA_DVS_TV @inf=1

Vartotojų leidimai - Būsena galutinė. Leidimo suteikti nereikia.

Atmesta

SQL procedūra :

RGI_MGAMA_DVS_TV @inf=1, @bukle=3, @reset=3

Vartotojų leidimai - Būsena galutinė. Leidimo suteikti nereikia.

Klavišo užprogramavimas suminių skolų atžymėjimui pagal DVS operaciją

Servisas - > Debitorinės/ kreditorinės operacijos -> Suminės skolos

Užprogramuojamas klavišas " Atžymėjimas pagal DVS operaciją".

EXECSCRIPT(SUBSTR(komanda_v,ATC(CHR(13),komanda_v,ij_k+1)))
EXIT

m.pcKodas_od=PS_KOD("OD","DVS operacija")
IF EMPTY(m.pcKodas_od)
    RETURN .F.
ENDIF

update Wt03 set ppc_perkelta=0
=vyk_upd("Wt03")

=f_select(;
" declare @xml XML"+CHR(13)+;
" select @xml=RGI_K42_XML from dbo.K42_OD where K42_KODAS_OD='"+m.pcKodas_od+"'"+CHR(13)+;
" exec dbo.RGI_F_FORM_RESULT_TO_CURSOR @data_xml=@xml","K42_XML")
go top in K42_XML
IF EOF("K42_XML")
    RETURN .F.
ENDIF

IF USED("rez_tmp")
    USE IN rez_tmp
ENDIF
select PADR(SUBSTR(GETWORDNUM(Id,1,"|"),3),12) as kodas_ks, PADR(GETWORDNUM(Id,2,"|"),20) as dok_nr, GETWORDNUM(Id,3,"|") as data_mok from K42_XML where left(Id,2)='#S' into cursor rez_tmp readwrite
use in K42_XML

update Wt03 set ppc_perkelta=0
update Wt03 set ppc_perkelta=1 from rez_tmp where T03_KODAS_KS=kodas_ks and T03_DOK_NR=dok_nr and TTOD(T03_DATA_MOK)=CTOD(data_mok)
=vyk_upd("Wt03")
select Wt03
go top
LOCATE FOR ppc_perkelta=1

select * from Wt03 where ppc_perkelta=1 into cursor t03_tmp readwrite

IF RECCOUNT("t03_tmp")<>RECCOUNT("rez_tmp")
    l_messagebox("Pažymėti ne visi įrašai: "+TRANSFORM(RECCOUNT("t03_tmp"))+"/"+TRANSFORM(RECCOUNT("rez_tmp")),64,"Nepilna informacija")
ENDIF

USE IN rez_tmp
USE IN t03_tmp
l_window("Įrašai pažymėti")

return .T.