ADVPL - Fator de vencimento boleto
Existe várias soluções, segue algumas:
1
nDiasVenc := XXX->XXX_VENCTO - CtoD("07/10/97")
If nDiasVenc > 9999
nDiasVenc := nDiasVenc - 9000
Endif
cFatorVenc := AllTrim(Str(nDiasVenc))
2
nDiasVenc := XXX->XXX_VENCTO - CtoD("07/10/97")
Do While nDiasVenc > 9999
nDiasVenc := nDiasVenc - 9000
EndDo
cFatorVenc := AllTrim(Str(nDiasVenc))
3 (Não validado)
dVencto - iif( dVencto >= StoD("20250222"), StoD("20220529"), Stod("19971007") )
