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