DVS dokumentų rodymas MGAMA dokumentų sąraše

MGAMA dokumentų sąraše galima parodyti tam tikros rūšies (pvz., SS_RA01) dokumentus iš DVS operacijų sąrašo, nepriklausomai ar vartotojas juos turi patvirtinti, ar ne. Kartu parodoma visa dokumento tvirtinimo istorija.

Gali būti aprašoma vadovui, kuris nori matyti darbuotojams susipažinimui išsiųstų dokumentų tvirtinimo proceso eigą.

Suadministruojama DVS rūšis SS_RA01 - "Raštai "

Servisas -> DVS -> DVS rūšys

DVS rūšiai SS_RA01 - "Raštai " paspaudus mygtuką " Vartotojų leidimai" suadministruojama kas galės matyti tos DVS rūšies dokumentus (pažymimi vartotojai arba vartotojų grupės):

Jeigu naudojama nesisteminė DVS rūšis, pirmiausia ji sukuriama, o tada analogiškai suadministruojama.

Platesnis aprašymas: Vartotojų administravimas.

Sukuriama arba papildoma esama dokumentų sąrašo nuskaitymo formulė MG_DV_NUSK.

Servisas -> Kortelės -> Formulės

-- Dokumentų sąrašo nuskaitymas
declare @kodas_rd char(12) -- DVS rūšies kodas

-- DVS operacijos, kurių rūšis SS_RA01
declare @imone varchar(250)

select @kodas_rd='SS_RA01'
select @pav_rd=rtrim(K41_PAV) from dbo.K41_RD where K41_KODAS_RD=@kodas_rd

-- savi rekvizitai iš parametrų
select @imone=ltrim(rtrim(rtrim(N23_REIKSME1)+' '+rtrim(N23_REIKSME2)))
from dbo.N23_PRMD
where N23_KODAS_PR='SS_INF_PAV' and N23_MODUL='' and N23_USR=''

if exists(select * from #RGI_MGAMA_DVS_OP_LIST_leidimai where kodas_rd=@kodas_rd and galioja=1)
    insert into #RGI_MGAMA_DVS_OP_LIST
        (kodas_rd,modul,kodas_op,op_tipas,busena,apr1,apr2,apr3,op_data,r_date,search_expr,statusasPavadinimas,statusasSpalva)
    select @kodas_rd as kodas_rd,
            'OD' as modul,
            K42_KODAS_OD as kodas_op,
            K41_TIPAS as op_tipas,
            K42_BUSENA as busena,
            isnull(nullif(rtrim(N08_PAV),''),
              isnull(nullif(ltrim(rtrim(rtrim(ltrim(K14_VARDAS))+' '+rtrim(ltrim(K14_PAV)))),''),
                isnull(nullif(rtrim(N15_PAV),''), @imone))) as apr1,
            @pav_rd as apr2,
            ltrim(rtrim(rtrim(K42_DOK_NR)+' '+left(convert(varchar(23),K42_DOK_DATA,120),10))) as apr3,
            K42_DOK_DATA as op_data,
            K42_R_DATE as r_date,
            rtrim(K42_DOK_NR) as search_expr,
            isnull(rtrim(L19_PAV),'') as statusasPavadinimas,
            '' as statusasSpalva
    from dbo.K42_OD
        inner join dbo.K41_RD on K41_KODAS_RD=K42_KODAS_RD
        left join dbo.L19_BUS on L19_MODUL='OD' and L19_TIPAS=K41_TIPAS and L19_BUSENA=K42_BUSENA
        left join dbo.N08_KLIJ on N08_KODAS_KS=K42_KODAS_KS
        left join dbo.K14_ASM on K14_KODAS_4A=K42_KODAS_4A
        left join dbo.N15_MEN on N15_KODAS_MS=K42_KODAS_MS
    where K42_KODAS_RD=@kodas_rd

Patikrinamas ir, jei reikia, aprašomas parametras "Dokumentų sąrašo nuskaitymo formulė" MGAMA_DV_FS.
Patikrinamas ir, jei reikia, papildomas parametras "Dokumentų rodymo tipai" MGAMA_DV_TIP.

Parametre turi būti nurodytas DVS dokumentų tipo "Raštai" numeris, t.y. 5.

Sukuriama formulė dokumento informacijos detalizavimui: MG_RASTAI.

Servisas -> Kortelės -> Formulės

sql

-- MG_RASTAI: MGAMA formos INIT, DVS rašto turinys
declare @imone varchar(250)
select @imone=ltrim(rtrim(rtrim(N23_REIKSME1)+' '+rtrim(N23_REIKSME2)))
from dbo.N23_PRMD
where N23_KODAS_PR='SS_INF_PAV' and N23_MODUL='' and N23_USR=''

select @result='', @statusasPavadinimas='', @statusasSpalva=''

select @statusasPavadinimas=isnull(rtrim(L19_PAV),''),
        @add_data=left(convert(char(19),K42_ADD_DATE,120),16),
        @result=
         '<schema><type>inline</type><key>Įmonė</key> <value>'+dbo.RGI_F_XML_ENCODE(
            isnull(nullif(rtrim(N08_PAV),''),
              isnull(nullif(ltrim(rtrim(rtrim(ltrim(K14_VARDAS))+' '+rtrim(ltrim(K14_PAV)))),''),
                isnull(nullif(rtrim(N15_PAV),''), @imone))))+'</value></schema>'
        +'<schema><type>inline</type><key>DVS rūšis</key> <value>'+dbo.RGI_F_XML_ENCODE(rtrim(K41_PAV))+'</value></schema>'
        +'<schema><type>inline</type><key>Dokumento Nr.</key> <value>'+dbo.RGI_F_XML_ENCODE(rtrim(K42_DOK_NR))+'</value></schema>'
        +'<schema><type>inline</type><key>Dokumento data</key> <value>'+left(convert(varchar(23),K42_DOK_DATA,120),10)+'</value></schema>'
        +'<schema><type>inline</type><key>Pavadinimas</key> <value>'+dbo.RGI_F_XML_ENCODE(rtrim(K42_PAV))+'</value></schema>'
        +case when rtrim(K42_APRASYMAS1)<>'' then '<schema><type>inline</type><key>Aprašymas 1</key><value>'+dbo.RGI_F_XML_ENCODE(rtrim(K42_APRASYMAS1))+'</value></schema>' else '' end
        +case when rtrim(K42_APRASYMAS2)<>'' then '<schema><type>inline</type><key>Aprašymas 2</key><value>'+dbo.RGI_F_XML_ENCODE(rtrim(K42_APRASYMAS2))+'</value></schema>' else '' end
        +case when rtrim(K42_APRASYMAS3)<>'' then '<schema><type>inline</type><key>Aprašymas 3</key><value>'+dbo.RGI_F_XML_ENCODE(rtrim(K42_APRASYMAS3))+'</value></schema>' else '' end
        +case when rtrim(K42_APRASYMAS4)<>'' then '<schema><type>inline</type><key>Aprašymas 4</key><value>'+dbo.RGI_F_XML_ENCODE(rtrim(K42_APRASYMAS4))+'</value></schema>' else '' end
from dbo.K42_OD
    inner join dbo.K41_RD on K41_KODAS_RD=K42_KODAS_RD
    left join dbo.L19_BUS on L19_MODUL='OD' and L19_TIPAS=K41_TIPAS and L19_BUSENA=K42_BUSENA
    left join dbo.N08_KLIJ on N08_KODAS_KS=K42_KODAS_KS
    left join dbo.K14_ASM on K14_KODAS_4A=K42_KODAS_4A
    left join dbo.N15_MEN on N15_KODAS_MS=K42_KODAS_MS
where K42_KODAS_OD=@kodas_op

select @result='<config><key>SHOW_DOKUMENTAS</key><value>true</value></config>'
              +'<config><key>SHOW_DOKUMENTAI</key><value>true</value></config>'
              +@result

Sukuriama nauja MGAMA forma

MGAMA - >Nustatymai -> Dokumentų formos

Formos INIT - nurodoma dokumento detalizacijos formulė MG_RASTAI.

DVS rūšis - nurodomas DVS rūšies kodas SS_RA01.

Forma skirta tik dokumentų peržiūrai, todėl pažymima kaip " Neaktyvi".