EXECAUTO MATA040 - VENDEDOR EXCLUSAO

Salve salve....

EXECAUTO MATA040 - VENDEDOR EXCLUSAO

#INCLUDE "TOTVS.CH"



User Function MATA040()
Local aSA3Auto                := {} as array
Local nOpc                       := 5 as numeric

Private lMsErroAuto 	 := .F. as array


aAdd( aSA3Auto, {"A3_COD"   , '000001'    , Nil } )
aAdd( aSA3Auto, {"A3_NOME"  , 'UDESENV'   , Nil } )

MsExecAuto( {|ER,UD,AM| MATA040(ER,UD,AM)}, aSA3Auto, nOpc  )
If lMsErroAuto
Endif

Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima