EXECAUTO CTBA040 - Cadastramento de Itens Contabeis

Salve salve....

EXECAUTO CTBA040 - Cadastramento de Itens Contabeis

#INCLUDE "TOTVS.CH"



User Function CTBA040()
Local aCTBA040                := {} as array
Local nOpc                       := 3 as numeric

Private lMsErroAuto 	 := .F. as array

/*nOpc
3= INCLUSAO
4= ALTERACAO
5= EXCLUSAO
*/

aAdd( aCTBA040, { 'CTD_FILIAL'  , xFilial("CTD")        , Nil } )
aAdd( aCTBA040, { 'CTD_ITEM'    , '00000101'                 , Nil } )
aAdd( aCTBA040, { 'CTD_CLASSE'  , '2'                   , Nil } )
aAdd( aCTBA040, { 'CTD_NORMAL'  , '2'                   , Nil } )
aAdd( aCTBA040, { 'CTD_DESC01'  , AllTrim('ADVPL ExecAuto') , Nil } )
aAdd( aCTBA040, { 'CTD_BLOQ'    , '2'                   , Nil } )


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

Return( Nil )

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

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