Extras de cont in valuta

[imre.bodosi]

Dupa o idee de Koreh Laszlo.
Se poate aplica in cazuri simple: un Client are facturi intr-o valuta si toate sunt in acceasi bd si pe acelasi cod client.

Implementare
Se defineste operatia si procedura de mai jos in Extras client.

Operare:
Se executa Extragerea in Fise client pe valuta (V )
Se executa operatia de pregatire definita.
Se executa Preluare fise.
Se sterge Fisa client sau se extrage altcvea, operatia de pregatire face prelucrari in Fise prin care devine incooerenta.

Code: Select all

Operatie de pregatire preluare in Extras clienti
Formule
-fisier : _(X_1:="EUR",gcmd_Exec("C1VAL"))

gcmd: C1VAL

h_UseAlias ("facf")
DBGOTOP()
#WHILE !EOF()
    facf->FILTRU := SUBSTR(facf->FILTRU,1,46)+"L"+SUBSTR(facf->FILTRU,48)
    #IF facf->MONEDA=X_1
        facf->VALFAC := facf->DOLFAC
        facf->VALPLA := facf->VALPLA
    #ELSE    
        facf->VALFAC := 0
        facf->VALPLA := 0
    #ENDIF 
    DBSKIP() 
#ENDDO
h_CloseAlias("facf")

Observatii:
Dupa operatia de pregatire din Extras clienti, Fisa clienti nu mai este utilizabila, trebuie stearsa.
Extrasul este in lb.romana, dar de la V8.0 cu Alt V sau vizualizare se poate prelua intr-un editor extern macar tabelul.
Se pot defini operatii pentru mai multe valute si se executa operatiile pe rand pentru fiecare valuta.
Se poate defini similar si pentru Extras furnizori.

[laszlo.koreh]

Este o mica eroare:
facf->VALPLA := facf->DOLPLA