(bez virsraksta)
Jun. 15., 2004 | 12:48 pm
No:: nfoworm
Tagad veel aizvien chakareejos ar taam Formulaam... Kods tipa shitaads:
Karoch viss tiek jauki nodetekteets, ka 1.konts eksistee - bet Failures message netiek izdota... BLJODA! Piebesiijis jaut tas viss :)
@If(Tips = "Juridiskā persona";@Do(
JurPersonasKonti := 0;
@Set("JurPersonasKonti"; @DbLookup("" : "NoCache"; @DbName; "RegNrKonti"; JurPerRegNr; 2));
Konts1 := KontaNodala + "-" + KontaNumurs + "-" + KontaSufiks;
@If(KN2!="" & KNum2 !="" & KS2 !="";Konts2 := KN2 + "-" + KNum2+"-"+KS2;Konts2 := "");
@If(KN3!="" & KNum3 !="" & KS3 !="";Konts3 := KN3 + "-" + KNum3+"-"+KS2;Konts3 := "");
@If(JurPersonasKonti != "";@Do(
@If(@IsMember(Konts1;JurPersonasKonti);@Failure("Lūdzu pārskatiet ievadītās juridiskās personas kontus, jo tāda juridiskā persona vai tādi konta numuri jau ir ievadīti!");@Prompt([Ok];"Konts1";"Viss kedā - šitā konta nav!"));
@If(Konts2 != "" & @IsMember(Konts2;JurPersonasKonti);@Failure("Lūdzu pārskatiet ievadītās juridiskās personas kontus, jo tāda juridiskā persona vai tādi konta numuri jau ir ievadīti!");@Prompt([Ok];"Konts2";"Viss kedā - šitā konta nav!"));
@If(Konts3 != "" & @IsMember(Konts3;JurPersonasKonti);@Failure("Lūdzu pārskatiet ievadītās juridiskās personas kontus, jo tāda juridiskā persona vai tādi konta numuri jau ir ievadīti!");@Prompt([Ok];"Konts3";"Viss kedā - šitā konta nav!"))
);
"")
);"")Karoch viss tiek jauki nodetekteets, ka 1.konts eksistee - bet Failures message netiek izdota... BLJODA! Piebesiijis jaut tas viss :)