CRM_FOR()

Funkcija suformuoja CRM operaciją

Sintaksė

CRM_FOR([data],[kodas_ks],[kodas_ms],[kodas_hu],[kodas_hp],[pastabos],[file],[file_nuoroda],[rysys_modulis],[rysys_operacija],[perkelta],[kodas_ls_1],[kodas_ls_2],[kodas_ls_3],[kodas_ls_4],[aprasymas1],[aprasymas2],[aprasymas3],[aprasymas4],[num1],[num2],[cf_num3],[num4],[kodas_hv])

Grąžina

Simbolinę reikšmę

Parametrai

Parametras Aprašymas Formatas
data CRM operacijos data (pagal nutylėjimą imama sistemos data) D
kodas_ks kliento kodas (jei tokio kliento kodo nebus aprašyta klientų sąraše, programa kliento kodą suformuos tuščią, o nurodytą reikšmę patalpins į CRM operacijos kliento pavadinimą) C(12)
kodas_ms menedžerio kodas C(12)
kodas_hu užduoties kodas (jei tokio užduoties kodo nebus aprašyta užduočių sąraše, programa užduoties kodą suformuos tuščią, o nurodytą reikšmę patalpins į CRM operacijos užduoties pavadinimą) C(12)
kodas_hp projekto kodas (jei tokio projekto kodo nebus aprašyta projektų sąraše, programa projekto kodą suformuos tuščią, o nurodytą reikšmę patalpins į CRM operacijos projekto pavadinimą) C(12)
pastabos pastabos M
file PDF, DOC, XLS ar kitas failas, kurį norima įkelti prie CRM operacijos C
file_nuoroda požymis, ar bus įkeltas pats failas, ar nuoroda į jį ;
jei reikšmė 0 (pagal nutylėjimą)- įkeliamas failas,
jei reikšmė 1 - nuoroda į failą
N(1)
rysys_modulis modulis, su kuriuo norima suformuoti informacijos ryšį su suformuota CRM operacija, (privalomas, jei nurodomas rysys_operacija) C
rysys_operacija operacijos numeris, su kuria norima suformuoti informacijos ryšį su suformuota CRM operacija, (privalomas, jei nurodomas rysys_modulis) C(12)
perkelta suformuotos CRM operacijos perkėlimo požymis:
1 - jei operacija neperkelta (pagal nutylėjimą),
2 - jei operacija perkelta,
3- jei operacija koreguota
N(1)
kodas_ls_1 logistikos kodas 1 C(12)
kodas_ls_2 logistikos kodas 2 C(12)
kodas_ls_3 logistikos kodas 3 C(12)
kodas_ls_4 logistikos kodas 4 C(12)
aprasymas1 aprašymas 1 C(100)
aprasymas2 aprašymas 2 C(100)
aprasymas3 aprašymas 3 C(100)
aprasymas4 aprašymas 4 C(100)
num1 reikšmė 1 N(12,3)
num2 reikšmė 2 N(12,3)
num3 reikšmė 3 N(12,3)
num4 reikšmė 4 N(12,3)
kodas_hv kita užduotis C(12)

Pavyzdžiai

Perkeliant CRM operaciją tikrinama ar gautas atsakymas į išsiųstą laišką. Jeigu gautas, formuojama nauja CRM operacija su užduotimi "GAVIMAS", į kurią įkeliamas gauto atsakymo tekstas.

        m.yra_atsakymas=.f.
*- Laiško atsakymo tikrinimas
        LOCAL loOutlook AS Outlook.Application 
        LOCAL loInBox   AS Outlook.MAPIFolder 
        LOCAL loItem    AS Outlook.MailItem 
        LOCAL lnI       AS Integer 
        loOutlook = CREATEOBJECT('Outlook.Application')
        loOutlook.GetNamespace("MAPI").SendAndReceive(.f.)  && nuskaitome laiškus į pašto dėžutę
        =pauze(3)   && palaukiame kol atsisiųs laiškai
        loInBox   = loOutlook.GetNamespace("MAPI").GetDefaultFolder(6)
        FOR lnI = 1 TO loInBox.Items.Count 
           loItem = loInBox.Items[lnI]
            if at("Pranešimas Nr."+alltrim(Wk56k.k56_kodas_ho),alltrim(loItem.Subject))>0
                m.fll_pastabos=loItem.Body  && laiško tekstas

                =crm_for(,IIF(EMPTY(Wk56k.k56_kodas_ks),Wk56k.k56_pav_ks,Wk56k.k56_kodas_ks),Wk56k.k56_kodas_ms,;
                "GAVIMAS",,m.fll_pastabos,,,,,,,,,,,,,Wk56k.k56_aprasymas4) && laiško atsakymas
                    con_da=beg_tran("Wk56kff")
                        replace k56_e_mail with loItem.SenderEmailAddress;
                                in Wk56kff
                                    =vyk_upd("Wk56kff")
                            If !end_tran(con_da)
                                Return .f.
                            Endif
                            if used("Wk56") and Wk56.k56_kodas_ho=Wk56kff.k56_kodas_ho
                                replace k56_pastabos with Wk56kff.k56_e_mail;
                                        in Wk56
                                    =vyk_upd("Wk56")
                            endif

                loItem.UnRead=.f.   && perskaityto laiško požymis
                loItem.Save
                m.yra_atsakymas=.t.
            endif
        ENDFOR