(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 :)