PROCEDURE get_billetes
*----------------------
LPARAMETERS tnValor,tcList_Denom
LOCAL lnElements,i,lcString,lnRest
tcList_Denom = EVL(tcList_Denom,"500,200,100,50,20,10,5,2,1,0.5,0.25,0.10")
lnElements = ALINES(laElements,m.tcList_Denom ,1+4,CHR(44))
FOR i = 1 TO m.lnElements
laElements[m.i] = VAL(laElements[m.i])
NEXT
ASORT(laElements,1,-1,1)
LOCAL ARRAY laDistrib(m.lnElements,2)
lnRest = m.tnValor
lcString = ""
FOR i = 1 TO m.lnElements
laDistrib[m.i,1] = laElements[m.i]
laDistrib[m.i,2] = 0
NEXT
FOR i = 1 TO m.lnElements
IF lnRest >= laDistrib[m.i,1]
laDistrib[m.i,2] = INT(m.lnRest/laDistrib[m.i,1])
lnRest = m.lnREst - laDistrib[m.i,2] * laDistrib[m.i,1]
IF laDistrib[m.i,2] > 0
lcString = m.lcString ;
+ PADR(TRANSFORM(laDistrib[i,1]),10," ");
+ PADL(TRANSFORM(laDistrib[i,2]),10," ");
+ CHR(13)+CHR(10)
ENDIF
ENDIF
ENDFOR
RETURN m.lcString
ENDPROC
Crear cuenta