Cross Segmento - Backoffice Linha Protheus - ADVPL - Exemplo da Rotina automática CTBA060

Tempo aproximado para leitura: 00:01:00 min

Dúvida
Cliente esta solicitando exemplo de utilização de rotina automática da CTBA060

Ambiente
Protheus – Contábil – A partir da versão 11.80

Solução
Exemplo

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function xCTBA060()

local aClass := {}
PRIVATE lMsErroAuto := .F.

//-------------------------------------------------------------------//
//*{Protheus.doc}CTBA060 //
//*Programa de Classe de Valores //
//*@author Totvs //
//*@since 20/12/2018 //
//*@version 12 //
//-------------------------------------------------------------------//

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"

aadd(aClass,{"CTH_CLVL","003 ",NIL})
aadd(aClass,{"CTH_CLASSE","2",NIL})
aadd(aClass,{"CTH_DESC01","REAL ",NIL})

CTBA060(aClass,3)
If !lMsErroAuto
 ConOut("Incluido com sucesso! ")
 Else
 ConOut("Erro na inclusao!")
 MOSTRAERRO()
 EndIf
 ConOut("Fim : "+Time())
 RESET ENVIRONMENT
Return