Completare explicatii incasari cu date din factura
Posted: 10 Jan 2016, 20:34
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.
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:
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
//
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