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ą.

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

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

Platesnis aprašymas: Vartotojų administravimas.

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

-- 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

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

4. Patikrinamas ir, jei reikia, papildomas parametras "Dokumentų rodymo tipai" MGAMA_DV_TIP.

5. Sukuriama formulė dokumento informacijos detalizavimui: MG_RASTAI .

-- 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

6. Sukuriama nauja MGAMA forma

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".