Upgrade 6.8B - adeverinta CM nu se listeaza corect

[imre.bodosi]

Adeverinta CM nu se listeaza corect dupa upgrade, daca marca nu este de 5 caractere.
Solutia: modificati formulele model in tdoc T901 astfel:

Code: Select all

GETM                ; citeste marca                ;
        X_5:=SPACE(LEN(T903)),
        X_7:=sal_GMarca(@X_5),
        X_5:=h_PADR(X_5,LEN(T903)), 
        x_oPrint[14]:=IF(X_7.AND.!EMPTY(X_5),x_oPrint[14],99),
        X_6:=IF(EMPTY(X_5),"",RTRIM(ImpI("p_","X_5","sp_031"))+" "+RTRIM(ImpI("p_","X_5","sp_032")))

Adica se insereaza randul: X_5:=h_PADR(X_5,LEN(T903)),

[imre.bodosi]

Rezolvat in 6.8B1, 10/02