Histórico da Página

Versões comparadas

Chave

Esta linha foi adicionada.
Esta linha foi removida.
A formatação mudou.

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Compatível às Bases de Dados

Portuguese

Pagetitle

	Rotina Automática Automatic Routine CTBA115 - Cadastro de Quadros Contabeis Configuraveis	Rotina Automática CTBA115 - Cadastro de Quadros Contabeis Configuraveis	Configurable Accounting Frameworks Registration
	Automatic Routine CTBA115 - Configurable Accounting Frameworks Registration

Function: Automatic Routine CTBA115 - Configurable Accounting Frameworks Registration

Scope

Função: Rotina Automática CTBA115 - Cadastro de Quadros Contabeis Configuraveis

Abrangências

:	Microsiga Protheus 11, Protheus 10

Versões

Versions:

Todas

All

Compatível Países

Compatible Countries:

Todos

All

Sistemas Operacionais

Operating Systems:

Todos

All

Compatible with the following Databases:

Todos Nível de Acesso

All

Access Level:

Nível

Level 1 (

Acesso Clientes

Customer Access)

Idiomas

Languages:

Português

Portuguese (

Brasil

Brazil) ,

Português

Portuguese (Portugal) ,

Espanhol

Spanish ,

Inglês

English

Descrição:

Esta rotina permite a inclusão de  Quadros Contabeis Configuráveis de forma automática.

Description:

This routine allows the add of Configurable Accounting Frameworks automatically.

Source Program

Programa Fonte

CTBA115.PRW

Sintaxe

Syntax:

Rotina Automática

Automatic Routine CTBA115 -

Cadastro de Quadros Contabeis Configuraveis

Configurable Accounting Frameworks Registration ([])

Retorno

Return:

()

Observações

Notes

MSExecAuto({|X, Y, Z| CTBA115(X, Y, Z)}, aDadosAuto, aItens, 3)

Exemplos

Examples

/*/

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa

Autor

Felipe

Cunha ³ Data ³

Cunha ³ Data ³ 10/01/12

³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do CTBA115 pela MSExecAuto() ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso ³SIGACTB

³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Example of calling CTBA115 via MSExecAuto()() ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso ³SIGACTB ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User

Function

MyCTBA115()

Local aDadosAuto

Local aDadosAuto :=

{}

Array com os dados a serem enviados pela MsExecAuto() para gravacao automaticaLocal aItens := {} // 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 aos//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Não passar por parametro o valor da filial.

Array with data to be sent by MsExecAuto() for automatic recording local aItens := {} // Array with data to be sent by MsExecAuto() for automatic recording Private 1MsdelpAuto := .F. // Determine whether help messages must be directed to log file Private lMsErroAuto := .F. // Determines if there was any inconsistency in the routine execution in relation to//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Do not pass the branch value as a parameter. ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaDadosAuto:=

{{'CVQ_CODIGO'

"003"

Nil},;

// Código

// Code {'CVQ_DESCRI'

"Q.

Contab.

Accounting 003"

Nil},;

// Descrição

// Description {'CVQ_IMPTOT'

"1"

Nil}}

// Imprime Totais

// Print Totals //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³

Não passar por parametro o valor da filial e codigo.³

Do not pass the branch value and code as parameters.³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaAdd(aItens,

{{'CVQ_ITEM'

"001"

Nil},;

Codigo Item

Item Code {'CVQ_DESCIT'

"QC

Item

01"

Nil},;

Descrição Item

Item Description {'CVQ_CDVGIT'

"003"

Nil},;

Cod.

Config Livros

Ledger Setting {'CVQ_FORMPA'

Nil},;

Form. periodo anterior

Prev. Period Formula {'CVQ_FORMPC'

Nil}})

// Form. periodo corrente

// Current Period Formula MSExecAuto({|X,

CTBA115(X,

Z)},

aDadosAuto,

aItens,

3)If

lMsErroAuto

lMsErroAuto lRetorno

.F.

MostraErro()

Else

Else lRetorno:=.T.

MsgAlert("

Registro Incluido"," Aviso!") EndIf Return

Record Add," "Alert!") EndIf Return

Parameters:

Name

Type

Description

Default

Mandatory

Reference

Parâmetros:

NomeTipoDescriçãoDefaultObrigatórioReferência

Array of Record

Páginas filhas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave