Marius Mutu
832fea4913
- TVA-ul de pe DVI poate avea valuta si curs proprii, diferite de ale facturii (rand "protejat": rand_dvi/valuta_proprie pe introdc, sparge_tva_protejat). - Discount financiar pe factura: rand tip_rand='G' (401 = 767), TVA calculat pe baza diminuata, marfa si preturile articolelor pe valoarea integrala. - Factura multi-cota: randurile S, G si T se sparg pe cotele articolelor, cu explicatia TVA din familia coloanei si alinierea T -> S. - Teste noi in utile/Teste/achizitie_import (discount, DVI, cote, e2e). Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01U9uDgDfUQXbh2Neib36CN8
15 lines
685 B
Plaintext
15 lines
685 B
Plaintext
* mock_caut_valuta.prg - inlocuieste caut_valuta (ocautare.prg) fara UI/Oracle.
|
|
* Incarcat cu SET PROCEDURE ADDITIVE INAINTE de "ocautare" (castiga primul incarcat, capcana g).
|
|
* Obiectul de rezultat (PUBLIC goMockValuta) e construit INLINE in programul principal
|
|
* (capcana l: CREATEOBJECT/ADDPROPERTY nu merg corect apelate dintr-o procedura in acest runtime).
|
|
FUNCTION caut_valuta
|
|
LPARAMETERS tnPornire, tlDesktop, tlFaraMonedaNationala
|
|
LOCAL loRezultat
|
|
IF TYPE('goMockValutaCoada') = 'O' AND !ISNULL(goMockValutaCoada) AND goMockValutaCoada.Count > 0
|
|
loRezultat = goMockValutaCoada.Item(1)
|
|
goMockValutaCoada.Remove(1)
|
|
RETURN loRezultat
|
|
ENDIF
|
|
RETURN goMockValuta
|
|
ENDFUNC
|