MGAMA - Rivile GAMA dokumentai - diegimas

1. Kiekvienam Rivile GAMA moduliui (pirkimams, pardavimams ir t.t.) sukuriamos atskiros DVS rūšys:

Įvedamas kodas, pavadinimas ir tipas "Kiti dokumentai":

Paspaudus mygtuką "Vartotojų leidimai" suadministruojama kas galės matyti kiekvienos rūšies dokumentus (pažymimas vartotojas arba vartotojų grupė):

2. Aprašoma arba susiimportuojama dokumentų sąrašo nuskaitymo formulė.

   WN11_MG_DV_NUSK atsisiuntimas:

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

-- Pirkimų operacijų sąrašas
select @kodas_rd='MGAMA_SS_F08'
if exists(select * from #RGI_MGAMA_DVS_OP_LIST_leidimai where kodas_rd=@kodas_rd and galioja=1) -- Patikrinamos teisės ir DVS rūšies galiojimas
    insert into #RGI_MGAMA_DVS_OP_LIST (kodas_rd,modul,kodas_op,op_tipas,busena,apr1,apr2,apr3,op_data,r_date,search_expr)
    select @kodas_rd as kodas_rd,
            'PO' as modul,
            I06_KODAS_PO as kodas_op,
            I06_OP_TIP as op_tipas,
            I06_BUSENA as busena,
            rtrim(rtrim(I06_PAV)) as apr1,
            'Pirkimai: '+
            (case   when I06_OP_TIP in (1) then 'Sąskaita '
                    when I06_OP_TIP in (2) then 'Grąžinimas '
                    when I06_OP_TIP in (3) then 'Užsakymas '
                    when I06_OP_TIP in (4) then 'Pasiūlymas '
                    else 'Dokumentas ' end) as apr2,
            rtrim(I06_DOK_NR)+'  '+left(convert(varchar(23),I06_OP_DATA,102),10)+'  '+rtrim(I06_PASTABOS) as apr3,
            I06_DOK_DATA as op_data,
            I06_R_DATE as r_date,
            '' as search_expr
    from dbo.I06_PARH
    where I06_OP_TIP in (1,2) -- Tik važtaraštis ir grąžinimas
        and I06_DOK_DATA>=convert(datetime,left(convert(varchar(23),dateadd(year,-2,getdate()),102),4)+'.01.01',102) -- Paskutiniai 2 metai

-- Pardavimų operacijų sąrašas
select @kodas_rd='MGAMA_SS_F09'
if exists(select * from #RGI_MGAMA_DVS_OP_LIST_leidimai where kodas_rd=@kodas_rd and galioja=1) -- Patikrinamos teisės ir DVS rūšies galiojimas
    insert into #RGI_MGAMA_DVS_OP_LIST (kodas_rd,modul,kodas_op,op_tipas,busena,apr1,apr2,apr3,op_data,r_date,search_expr)
    select 'MGAMA_SS_F09' as kodas_rd,
            'RO' as modul,
            I06_KODAS_PO as kodas_op,
            I06_OP_TIP as op_tipas,
            I06_BUSENA as busena,
            rtrim(rtrim(I06_PAV)) as apr1,
            'Pardavimai: '+
            (case   when I06_OP_TIP in (51) then 'Sąskaita '
                    when I06_OP_TIP in (52) then 'Grąžinimas '
                    when I06_OP_TIP in (53) then 'Užsakymas '
                    when I06_OP_TIP in (55) then 'Pasiūlymas '
                    when I06_OP_TIP in (54) then 'Rezervavimas '
                    else 'Dokumentas ' end) as apr2,
            rtrim(I06_DOK_NR)+'  '+left(convert(varchar(23),I06_OP_DATA,102),10)+' '+rtrim(I06_PASTABOS) as apr3,
            I06_DOK_DATA as op_data,
            I06_R_DATE as r_date,
            '' as search_expr
    from dbo.I06_PARH
    where I06_OP_TIP in (51,52) -- Tik važtaraštis ir grąžinimas
        and I06_DOK_DATA>=convert(datetime,left(convert(varchar(23),dateadd(year,-2,getdate()),102),4)+'.01.01',102) -- Paskutiniai 2 metai

-- Pavyzdys: norint turėti kontekstinę paiešką pagal prekę dokumente (naudoti atsakingai - gali veikti lėtai):
-- MS SQL:
-- update #RGI_MGAMA_DVS_OP_LIST set search_expr=(STUFF((select '-' + rtrim(I07_PAV)+'-'+rtrim(I07_KODAS) as [text()] from I07_PARD where I07_KODAS_PO=kodas_op group by I07_PAV, I07_KODAS FOR XML PATH('') ),1,1,'')) where kodas_rd in ('MGAMA_SS_F08','MGAMA_SS_F09')
-- Sybase:
-- update #RGI_MGAMA_DVS_OP_LIST set search_expr=(select LIST(search_line,'-' ORDER BY search_line) as search_str from (select rtrim(I07_PAV)+'-'+rtrim(I07_KODAS) as search_line from I07_PARD where I07_KODAS_PO=I06_KODAS_PO group by I07_PAV, I07_KODAS ) as A) where kodas_rd in ('MGAMA_SS_F08','MGAMA_SS_F09')

-- Atsargų operacijų sąrašas
if exists(select * from #RGI_MGAMA_DVS_OP_LIST_leidimai where kodas_rd=@kodas_rd and galioja=1) -- Patikrinamos teisės ir DVS rūšies galiojimas
    insert into #RGI_MGAMA_DVS_OP_LIST (kodas_rd,modul,kodas_op,op_tipas,busena,apr1,apr2,apr3,op_data,r_date,search_expr)
    select 'MGAMA_PP_F10' as kodas_rd,
            'IN' as modul,
            I11_KODAS_IN as kodas_op,
            I11_TIPAS as op_tipas,
            I11_BUSENA as busena,
            rtrim(rtrim(I11_PAV)) as apr1,
            'Atsargos: '+
            (case I11_TIPAS 
                when 1 then 'Inventorizacija'
                when 2 then 'Nurašymas'
                when 2 then 'Gamyba'
                when 2 then 'Koregavimai'
                else 'Kitos'
            end) as apr2,
            rtrim(I11_DOK_NR)+'  '+left(convert(varchar(23),I11_OP_DATA,102),10)+' '+rtrim(I11_PAV) as apr3,
            I11_OP_DATA as op_data,
            I11_R_DATE as r_date,
            '' as search_expr
    from dbo.I11_INH
    where I11_OP_DATA>=convert(datetime,left(convert(varchar(23),dateadd(year,-2,getdate()),102),4)+'.01.01',102) -- Paskutiniai 2 metai

3. Aprašomas parametras "Dokumentų sąrašo nuskaitymo formulė" MGAMA_DV_FS.