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
