Histórico da Página

#Include 'Protheus.ch'

User Function Teste_Exec()

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

    Private lMsErroAuto := .F.
    
    Aadd(aCab, {"RA_FILIAL"	, "D MG 01 ",NIL})
    Aadd(aCab, {"RA_MAT"	, "000001"	,NIL})
    
    
    Aadd(aItem,{ "RK_PD" 			, "963"		,nil})
    Aadd(aItem,{ "RK_DOCUMEN"		, "999999"	,nil})
    Aadd(aItem,{ "RK_VALORTO"		, 5555.55	,nil})
    Aadd(aItem,{ "RK_PARCELA"		, 4			,nil})

    aAdd(aItens,aItem)

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

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

Return aLog