Profox > Forum

Forum Home

Visual FoxPro

Cod, sintaxa si comenzi

Folosirea unei ...

Folosirea unei functii definite de utilizator in combinatie cu <GET>

6/6/2010 1:31:22 PM

marius2dor

11 posts

Folosirea unei functii definite de utilizator in combinatie cu <GET>
(N/A)

Buna ziua,
Am o problema care implica folosirea unei functii UDF (user defined function), cel putin asa vad eu rezolvarea problemei. Apropo, folosesc sintaxa de Fox curat (nimic visual).
Pe scurt:

1.Am de introdus intr-un camp "ocode" (space(4) ) intr-o tabela , o secventa de cifre care pot lua valori de la '0001' la '9999'. Fac asta prin inermediul unei variabile, mocode.
2. As vrea ca dupa read sa nu "intorc" utilizatorul inapoi, obligandul sa introduca de fiecare data si zerourile din fata daca len (alltrim(ocode))<4, si sa le completeze programul.
3. Am gandit o functie care evalueaza valoarea introdusa (daca e sub 10, completeaza 3 zerouri in fata, daca sub 100, 2 zerouri s.a.m.d.), iar ceea ce returneaza functia sa folosesc in metoda GET.

Partea proasta e ca nu functioneaza. Apare mesajul " Function argument value, type, or count is invalid", iar cursorul era fixat pe linia boldata, din codul de mai jos. Ma puteti ajuta?
Multumesc

Iata mai jos sintaxa:

mcomcode=space(6)
marea=space(3)
mlcode=space(5)
mocode=space(4)

@ 1,2 SAY 'Cod Localitate' GET mcomcode PICTURE '999999' valid not empty(mcomcode)
@ 1,25 say 'Cod zona' get marea picture '999' valid not empty(marea)
@ 1,40 say 'Cod strada' get mlcode picture '99999' valid not empty(mlcode)
@ 1,60 say 'Cod magazin' get codmag(mocode) picture '9999' valid not empty(mocode)
read

function codmag
parameter mocode

do case
    case len(alltrim(mocode))<4 and val(alltrim(mocode))<10
        mocode='000'+ alltrim(str(int(val(mocode))))
    case len(alltrim(mocode))<4 and val(alltrim(mocode))<100
        mocode='00' + alltrim(str(int(val(mocode))))
    case len(alltrim(mocode))<4 and val(alltrim(mocode))<1000
        mocode='0' + alltrim(str(int(val(mocode))))
endcase

return mocode

6/6/2010 2:38:22 PM

costin_mentor

492 posts

www.accessoft.ro

Re: Folosirea unei functii definite de utilizator in combinatie cu <GET>
(N/A)

Citeste variabila normal si apoi inainte de introducerea in tabela ( campul este de tip caracter ) :
repl campul_tau with padl(moncode,4,'0')

6/7/2010 6:09:00 PM

niculescu.adriana

31 posts

Re: Folosirea unei functii definite de utilizator in combinatie cu <GET>
(N/A)

Cred ca apare o problema pentru ca GET citeste ce se introduce de la tastatura si incarca variabila de memorie cu acea valoare. Cred ca sintaxa este gresita. Trebuie GET mocod picture ... valid functia(mocod). Daca vrei sa folosesti functia utilizeazo in valid.

Page 1 of 1

Visual FoxPro

Cod, sintaxa si comenzi

Folosirea unei ...