Completare explicatii incasari cu date din factura

[imre.bodosi]

In procedura de validare a unei incasari
incarca in xI_Obs2Fac, randul2 de Explicatii, din Loturile de iesire a facturii, a bonului fiscal incasat:
cod1/descr1=valVanz1; cod2/descr2=valVanz2;...

Desigur spatiul este limitat (40 caractere) si se poate utiliza daca textele sunt scurte si sunt putine randuri in facture.

Code: Select all

#INCEPUT
    // incarca in Obs2Fac din Loturi de iesire: cod1/descr1=valVanz1, cod2/descr2=valVanz2,...
    #DACA ("V"$xI_StareIP.AND.xI_TipDoc="IBF  ".AND.xI_TipFac="BONF ".AND.EMPTY(xI_ObsFac2))
        # xI_1 := SELECT()
        # xI_2 := {}
        #DACA h_UseAlias("facr",xI_2,"SR")
            # xI_ObsFac2 := ""
            # xI_3 := {||xI_ObsFac2:=xI_ObsFac2+RTRIM(facr->CODMAT)+"/"+RTRIM(facr->DESCR)+"="+LTRIM(STR(facr->CANT*facr->PUVIN,12,2))+CHR(59)}
            # xI_4 := {||facr->TIP+facr->NRFAC==xI_TipFac+xI_NrFac}
            # DBEVAL (xI_3,xI_4,,,,.F.)
            # inc->OBS2FAC := xI_ObsFac2
        # h_CloseAlias(,xI_2)
        # DBSELECTAREA(xI_1)
#SFIRSITVALIDARE
//

In Registrul de casa utilizator se pot tipari cele 3 randuri de explicatii din incasare, in asa fel incat randul 2 si 3 apar doar daca contin informatii:

Code: Select all

Formular:
 {Cr} {Document                } {Explicatia                            } {SumInc      } {SumPla      }
                                 {Explicatia2                           }
                                 {Partener                              }
Formule:
Explicatia         ; Explicatia       ; xI_ObsFac1               ; C40
Explicatia2        ; Explicatia2      ; IF(EMPTY(xI_ObsFac2), NIL,xI_ObsFac2) ; C40
Partener           ; Partener         ; IF(EMPTY(xI_Partener),NIL,xI_CodPart+"-"+xI_Partener); C40