Implementação de rotina Automática na rotina de Valores Futuros

Características do Requisito

Descrição

Implementação da rotina automática (ExecAuto) na rotina de cadastro de valores futuros (GPEA110)

Na chamada da Função GPEA110 devem ser passados os parâmetros

nOpcAuto - Indica a operação que será realizada, 3 - Inclusão, 4 - Alteração; 5 - Exclusão

aCab - Array com as informações para posicionar no funcionário 

aItens - Array com os lançamentos

Para informações sobre a estrutura do array aItens consulte a página http://tdn.totvs.com/x/bv1n 

Exemplo 

Exemplo de chamada da rotina automática:

#Include 'Protheus.ch'

User Function Teste_Exec()

    Local aCab := {}
    Local aItens := {}
    Local aLog := {}

    Private lMsErroAuto := .F.

    Aadd(aCab, {"RA_MAT", "000001"})
    Aadd(aCab, {"RA_FILIAL", "D MG 01 "})

    Aadd(aItens,"aItens", "RK_PD" , "963")
    Aadd(aItens,"aItens", "RK_VALORTO", 5555.55)
    Aadd(aItens,"aItens", "RK_PARCELA", 4)
    Aadd(aItens,"aItens", "RK_MESDISS", "012016")
   Aadd(aItens,"aItens", "RK_DOCUMEN", "000001")

    MSExecAuto({|a, b, c| GPEA110(3, aCab, aItens) }, 3, aCab, aItens)

    If ! lMsErroAuto
        ConOut("**** Alterado com sucesso! ****")
    Else
        aLog := getAutoGrLog()
        MostraErro()
        ConOut("Erro na Alteracao!")
    EndIf

Return