Histórico da Página

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

User Function TKTLVPAGTK341ROT()
    Local aParcAtu  := PARAMIXB[1] //Parcelas Atuais
    Local nOpcaAdicRot      := 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
AAdd( aAdicRot, { "Custom", "U_TK341CUSTOM()", 0, 4 } )

Return aAdicRot

User Function TK341CUSTOM()

Alert("Função chamada pelo PE: TK341ROT")

Return Nil