Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (15 sloc) 654 Bytes
#Include 'Protheus.ch'
User Function SSGerParc()
//Variaves Locais
Local aParcs := {}
Local nParcs := 0
Local cCodParc := "002"
Local nVlrTot := 1000
//Array de Retorno com os Vencimentos e Valores das Parcelas
aParcs := Condicao(nVlrTot, cCodParc, 0, dDataBase)
//Executa o For ate processar todas a Parcelas
For nParcs := 1 To Len(aParcs)
//Exibe uma mensagem com as Datas de Vencimento da Parcelas e os seus respectivos Valores
MsgInfo("Data de Vecto. Parcela " + StrZero(nParcs, 2) + ": " + cValToChar(aParcs[nParcs][1]) + " - " + "Valor Parcela " + StrZero(nParcs, 2) + ": " + cValToChar(aParcs[nParcs][2]))
Next nParcs
Return