/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa  ³MyCTBA030 ³ Autor ³                       ³ Data ³          ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do CTBA030 pela MSExecAuto() para        ³±±±±³          ³Cadastro de centro de custo                                 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³SIGACTB                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA030()Local aDadosAuto := {}		// Array com os dados a serem enviados pela MsExecAuto() para gravacao automaticaPrivate lMsHelpAuto := .f.	// Determina se as mensagens de help devem ser direcionadas para o arq. de logPrivate lMsErroAuto := .f.	// Determina se houve alguma inconsistencia na execucao da rotina em relacao aosaDadosAuto:= {	{'CTT_CUSTO'   , "000000013"	, 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'    , "0"			, Nil},;	// Indica a classificação do centro de custo. 1-Receita ; 2-Despesa                                        {'CTT_DESC01'    , "Centro de Custo 01"			, 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' , CTOD("01/01/11"), Nil},;	// Especifica qual a Data de Início de Existência para este Centro de Custo{'CTT_DTEXSF' , CTOD("31/12/12"), Nil},;	// Especifica qual a Data final de Existência para este Centro de Custo.{'CTT_CCLP' , "00001"			, Nil},;	// Indica o Centro de Custo de Apuração de Resultado.{'CTT_CCPON' , "00002"			, Nil},;	// Indica o Centro de Custo Ponte de Apuração de Resultado.{'CTT_BOOK' , "01"			, Nil},;	// Este é o elo de ligação entre o Cadastro Configuração de Livros e a Centro de Custo{'CTT_CCSUP'  , "000000000"			, Nil},;	// Indica qual é o Centro de Custo superior ao que está sendo cadastrado (dentro da hierarquia dos Centros de Custo).{'CTT_RES'   , "13"			, Nil}}		// Indica um “apelido” para o Centro de Custo (que poderá conter letras ou números) e que poderá ser utilizado na digitação dos lançamentos contábeis, facilitando essa digitação.MSExecAuto({|x, y| CTBA030(x, y)},aDadosAuto, 3)If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.EndIfReturn