PE ESPGERPLAN

If ExistBlock("ESPGERPLAN")
	ExecBlock("ESPGERPLAN",.F.,.F.,{oMeter,oText,oDlg,lEnd,cArqtmp,dDataIni,dDataFim,cAlias,cIdent,cContaIni,cContaFim,;
		cCCIni,cCCFim,cItemIni,cItemFim,cClvlIni,cClVlFim,cMoeda,cSaldos,aSetOfBook,cSegmento,cSegIni,;
		cSegFim,cFiltSegm,lNImpMov,lImpConta,nGrupo,cHeader,lImpAntLP,dDataLP,nDivide,lVlrZerado,;
		cFiltroEnt,cCodFilEnt,cSegmentoG,cSegIniG,cSegFimG,cFiltSegmG,lUsGaap,cMoedConv,;
		cConsCrit,dDataConv,nTaxaConv,aGeren,lImpMov,lImpSint,cFilUSU,lRecDesp0,;
		cRecDesp,dDtZeraRD,lImp3Ent,lImp4Ent,lImpEntGer,lFiltraCC,lFiltraIt,lFiltraCV,aSelFil,dDtCorte,cQuadroCTB })
		Return(cArqTmp)
EndIf

/*
Parametros

01-oMeter = Objeto, Controle da régua
02-oText = Objeto, Controle da régua
03-oDlg = Objeto, Janela
04-lEnd = Lógico, Controle da régua -> finalizar
05-cArqTmp = Caracter, Arquivo temporário
06-dDataIni = Data, Data Inicial de Processamento
07-dDataFim = Data, Data Final de Processamento
08-cAlias = Caracter, Alias do Arquivo
09-cIdent = Caracter, Identificador do arquivo a ser processado
10-cContaIni = Caracter, Conta Inicial
11-cContaFim = Caracter, Conta Final
12-cCCIni = Caracter, Centro de Custo Inicial
13-cCCFim = Caracter, Centro de Custo Final
14-cItemIni = Carater, Item Inicial
15-cItemFim = Caracter, Item Final
16-cClvlIni = Caracter, Classe de Valor Inicial
17-cClvlFim = Caracter, Classe de Valor Final
18-cMoeda = Caracter, Moeda
19-cSaldos = Caracter, Tipos de Saldo a serem processados
20-aSetOfBook = Array, Matriz de configuração de livros
21-cSegmento = Caracter, Indica qual o segmento será filtrado
22-cSegIni = Caracter, Conteúdo Inicial do segmento
23-cSegFim = Caracter, Conteúdo Final do segmento
24-cFiltSegm = Caracter, Filtra por Segmento
25-lNImpMov = Lógico, Se Imprime Entidade sem movimento
26-lImpConta = Lógico, Se Imprime Conta
27-nGrupo = Numerico, Grupo
28-cHeader = Caracter, Identifica qual a Entidade Principal
29-lImpAntLP = Lógico, Se imprime lançamentos Lucros e Perdas
30-dDataLP = Data, Data da ultima Apuração de Lucros e Perdas
31-nDivide = Numerico, Divide valores por (100,1000,1000000)
32-lVlrZerado = Lógico, Grava ou não valores zerados no arq temporário
33-cFiltroEnt = Caracter, Entidade Gerencial que servira de filtro dentro de outra Entidade Gerencial. Ex.: Centro de Custo sendo filtrado por Item Contábil (CTH)
34-cCodFilEnt = Caracter, Código da Entidade Gerencial utilizada como filtro
35-cSegmentoG = Caracter, Filtra por Segmento Gerencial (CC/Item ou ClVl)
36-cSegIniG = Caracter, CSegmento Gerencial Inicial
37-cSegFimG = Caracter, Segmento Gerencial Final
38-cFiltSegmG = Caracter, Segmento Gerencial Contido em
39-lUsGaap = Lógico, Se e Balancete de Conversão de moeda
40-cMoedConv = Caracter, Moeda para a qual buscara o critério de conversão no Pl.Contas
41-cConsCrit = Caracter, Critério de conversão utilizado: 1-Diário, 2-Médio, 3-Mensal, 4-Informada, 5-Plano de Contas
42-dDataConv = Data, Data de Conversão
43-nTaxaConv = Numerico, Taxa de Conversão
44-aGeren = Array, Matriz que armazena os compositores do Pl. Ger. para efetuar o filtro de relatorio.
45-lImpMov = Lógico, Não utilizado
46-lImpSint = Lógico, Se atualiza sintéticas
47-cFilUSU = Caracter, Filtro informado pelo usuário
48-lRecDesp0 = Lógico, Se imprime saldo anterior do período anterior zerado
49-cRecDesp = Caracter, Grupo de receitas e despesas
50-dDtZeraRD = Data, Data de zeramento de receitas e despesas
51-lImp3Ent = Lógico, Se e Balancete C.Custo / Conta / Item
52-lImp4Ent = Lógico, Se e Balancete por CC x Cta x Item x Cl.Valor
53-lImpEntGer = Lógico, Se e Balancete de Entidade (C.Custo/Item/Cl.Vlr por Entid. Gerencial)
54-lFiltraCC = Lógico, Se considera o filtro das perguntas para C.Custo
55-lFiltraIt = Lógico, Se considera o filtro das perguntas para Item
56-lFiltraCV = Lógico, Se considera o filtro das perguntas para Cl.Valor

RETORNO

cArqTMP = Caracter, Arquivo temporário criado.
*/

User Function ESPGERPLAN 			

	Local oMeter := PARAMIXB[1]
	Local oText := PARAMIXB[2]
	Local oDlg := PARAMIXB[3]
	Local lEnd := PARAMIXB[4]
	Local cArqtmp := PARAMIXB[5]
	Local dDataIni := PARAMIXB[6]
	Local dDataFim := PARAMIXB[7]
	Local cAlias := PARAMIXB[8]
	Local cIdent := PARAMIXB[9]
	Local cContaIni := PARAMIXB[10]
	Local cContaFim := PARAMIXB[11]
	Local cCCIni := PARAMIXB[12]
	Local cCCFim := PARAMIXB[13]
	Local cItemIni := PARAMIXB[14]
	Local cItemFim := PARAMIXB[15]
	Local cClvlIni := PARAMIXB[16]
	Local cClVlFim := PARAMIXB[17]
	Local cMoeda := PARAMIXB[18]
	Local cSaldos := PARAMIXB[19]
	Local aSetOfBook := PARAMIXB[20]
	Local cSegmento := PARAMIXB[21]
	Local cSegIni := PARAMIXB[22]
	Local cSegFim := PARAMIXB[23]
	Local cFiltSegm := PARAMIXB[24]
	Local lNImpMov := PARAMIXB[25]
	Local lImpConta := PARAMIXB[26]
	Local nGrupo := PARAMIXB[27]
	Local cHeader := PARAMIXB[28]
	Local lImpAntLP := PARAMIXB[29]
	Local dDataLP := PARAMIXB[30]
	Local nDivide := PARAMIXB[31]
	Local lVlrZerado := PARAMIXB[32]
	Local FiltroEnt := PARAMIXB[33]
	Local cCodFilEnt := PARAMIXB[34]
	Local cSegmentoG := PARAMIXB[35]
	Local cSegIniG := PARAMIXB[36]
	Local cSegFimG := PARAMIXB[37]
	Local cFiltSegmG := PARAMIXB[38]
	Local lUsGaap := PARAMIXB[39]
	Local cMoedConv := PARAMIXB[40]
	Local cConsCrit := PARAMIXB[41]
	Local dDataConv := PARAMIXB[42]
	Local nTaxaConv := PARAMIXB[43]
	Local aGeren := PARAMIXB[44]
	Local lImpMov := PARAMIXB[45]
	Local lImpSint := PARAMIXB[46]
	Local cFilUSU := PARAMIXB[47]
	Local lRecDesp0 := PARAMIXB[48]
	Local cRecDesp := PARAMIXB[49]
	Local dDtZeraRD := PARAMIXB[50]
	Local lImp3Ent := PARAMIXB[51]
	Local lImp4Ent := PARAMIXB[52]
	Local lImpEntGer := PARAMIXB[53]
	Local lFiltraCC := PARAMIXB[54]
	Local lFiltraIt := PARAMIXB[55]
	Local lFiltraCV := PARAMIXB[56]
	Local aSelFil := PARAMIXB[57]
	Local dDtCorte := PARAMIXB[58]
	Local cQuadroCTB := PARAMIXB[59]
	
	MsgAlert("CHAMADA DO PONTO DE ENTRADA: ESPGERPLAN")

Return