USER FUNCTION FIN050VA()
	LOCAL aArray := {}
    LOCAL nOpc   := 3 // 3-Inclusão, 4 Alteração 

	// Dados do valor acessório.
	LOCAL aVAAut     := {}
	LOCAL cValAce1   := "000001"  // Código do Va
	LOCAL nValAce1   := 200       // Valor do Va
	LOCAL cValAce2   := "000012"
	LOCAL nValAce2   := 4

	PRIVATE lMsErroAuto := .F.
 
	aArray := { { "E2_PREFIXO"  , "PAG"             , NIL },;
              { "E2_NUM"      , "0001"            , NIL },;
              { "E2_TIPO"     , "NF"              , NIL },;
              { "E2_NATUREZ"  , "001"             , NIL },;
              { "E2_FORNECE"  , "0001"            , NIL },;
              { "E2_EMISSAO"  , CtoD("17/02/2012"), NIL },;
              { "E2_VENCTO"   , CtoD("17/02/2012"), NIL },;
              { "E2_VENCREA"  , CtoD("17/02/2012"), NIL },;
              { "E2_VALOR"    , 5000              , NIL } }
 
    // Array com valor acessório 
    aAdd(aVAAut, {cValAce1, nValAce1})
    aAdd(aVAAut, {cValAce2, nValAce2})

    MsExecAuto( { |a,b,c,d,e,f,g,h,i,j,k,l| FINA050(a, b, c, d, e, f, g, h, i, j, k, l)}, aArray,, nOpc,,,,,,,,, aVAAut)   
 
	If lMsErroAuto
	    MostraErro()
	Else
		If nOpc == 3 	    
			Alert("Título incluido com sucesso!")
		Else
			Alert("Título alterado com sucesso!")
		EndIf
	Endif
 
Return