user function myCtb030()

	Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica
	Private lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arq. de log
	Private lMsErroAuto := .f. // Determina se houve alguma inconsistencia na execucao da rotina em relacao aos

	aDadosAuto:= { {'CTT_CUSTO' , "05700002 " , Nil},; // Especifica qual o Código do Centro de Custo.
	{'CTT_CLASSE' , "2" , Nil},; // Especifica a classe do Centro de Custo, que poderá ser: - Sintética: Centros de Custo totalizadores dos Centros de Custo Analíticos - Analítica: Centros de Custo que recebem os valores dos lançamentos contábeis
	{'CTT_NORMAL' , " " , Nil},; // Indica a classificação do centro de custo. 1-Receita ; 2-Despesa
	{'CTT_DESC01' , "CENTRO CUSTO SQA TESTE MAPA METAL " , Nil},; // Indica a Nomenclatura do Centro de Custo na Moeda 1
	{'CTT_BLOQ' , "2" , Nil},; // Indica se o Centro de Custo está ou não bloqueado para os lançamentos contábeis.
	{'CTT_DTEXIS' , 

#INCLUDE 'Protheus.ch'

user function mCtb030Alt()

	Local aDadosAuto := {}
    Local cCusto     := "000001"

	Private lMsHelpAuto := .F.
	Private lMsErroAuto := .F.

    DBSelectArea("CTT")
    CTT->(DBSetOrder(1)) //CTT_FILIAL+CTT_CUSTO
    If CTT->(DbSeek(xFilial("CTT")+cCusto))

        aDadosAuto:= {{'CTT_CUSTO' , cCusto, Nil},; //Necessário passar o centro de custo para posicionamento do execauto
                      {'CTT_DESC01' , "DESCRICAO ALTERADA" , Nil}} //Descrição na moeda 01 -- Campo que será alterado
        MSExecAuto({|x, y| CTBA030(x, y)},aDadosAuto, 4)

        If lMsErroAuto
            MostraErro()
        EndIf
    EndIf    
return

#INCLUDE 'Protheus.ch'

user function mCtb030Exc()

	Local aDadosAuto := {}
    Local cCusto     := "1234"

	Private lMsHelpAuto := .F.
	Private lMsErroAuto := .F.

    DBSelectArea("CTT")
    CTT->(DBSetOrder(1)) //CTT_FILIAL+CTT_CUSTO
    If CTT->(DbSeek(xFilial("CTT")+cCusto))

        aDadosAuto:= {{'CTT_CUSTO' , cCusto, Nil}}//Necessário passar o centro de custo para posicionamento do execauto
        MSExecAuto({|x, y| CTBA030(x, y)},aDadosAuto, 5)

        If lMsErroAuto
            MostraErro()
        EndIf
    EndIf    
return