Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"

User Function TKTLVPAG()
    Local aParcAtu  := PARAMIXB[1] //Parcelas Atuais
    Local nOpc      := PARAMIXB[2] //Operação (3- Inclusão, 4- Alteração)
    Local aParc := {}

    If nOpc == 3
        Aadd(aParc, { Date(),;		//Data
                    250.0,;			//Valor
                    "R$    ",;		//Forma de Pagamento
                    "Teste",;		//Observação
                    0,;				//Valor em Percentual
                    ""})			//ID Cartão

        Aadd(aParc, { Date()+30,;	//Data
                    250.0,;			//Valor
                    "CC    ",;		//Forma de Pagamento
                    "Teste",;		//Observação
                    0,;				//Valor em Percentual
                    ""})			//ID Cartão

        Aadd(aParc, { Date()+60,;	//Data
                    250.0,;			//Valor
                    "CH    ",;		//Forma de Pagamento
                    "Teste",;		//Observação
                    0,;				//Valor em Percentual
                    ""})			//ID Cartão

        Aadd(aParc, { Date()+90,;	//Data
                    250.0,;			//Valor
                    "CC    ",;		//Forma de Pagamento
                    "Teste",;		//Observação
                    0,;				//Valor em Percentual
                    ""})			//ID Cartão
    EndIf

Return aParc