Arquivos Configurador – Sem Preju

Bloqueando opções na Pergunte

Rafael Gonçalves — Tue, 23 Mar 2021 00:01:08 +0000

Olá pessoal.

Neste artigo iremos demonstrar como bloquear opções nas perguntes, se está tendo problemas com alterações nas configurações pré-definidas do sistema, como contabilização automática ou aglutinação, vamos demonstrar mostrar como restringir o acesso a alteração pelos usuários.

Nesse exemplo vamos utilizar a rotina FINA040 (possui a pergunta FIN040 para parametrização da contabilização), acessando a rotina e pressionando F12, a pergunte é exibida.

Nesse exemplo vamos bloquear as perguntes MV_PAR01 e MV_PAR02, para isso acesso o configurador,.

O caminho completo da rotina é : Usuários > Senhas > Config. Perguntas

Clique em Incluir para adicionarmos uma restrição ao pergunte, informe o nome da pergunta, no nosso exemplo será FIN040, as opções serão carregadas. As linhas do pergunte aparecerão como deletadas, recupere a linha que deseja efetuar a manutenção e defina o conteúdo padrão.

Informe o usuário ou grupo de usuário que desejar vincular a essa nova regra e salve.

Ao acessar a rotina novamente e verificar as perguntes estarão bloqueadas!

O código fonte de outros exemplos podem ser encontrados em nosso git oficial.

Post interessantes:

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

configurar serviço rest aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Bloqueando opções na Pergunte apareceu primeiro em Sem Preju.

Alterando para o novo visual do Protheus com PO UI

Rafael Gonçalves — Tue, 15 Dec 2020 13:43:41 +0000

Olá pessoal, já conferiram o novo visual do protheus?

Com a evolução da tecnologia, o Protheus veio se adaptando e evoluindo conforme as necessidades do mercado, um avanço mesmo por exemplo, foi a utilização de CSS nos componentes gráficos, através das funcionalidades fornecidas com o usdo to TWebEngine e FWCallApp, será possível criar aplicações com o visual e recursos usados na web, ou seja visualmente mais modernos, e através de REST integrá-las com o Protheus.

A documentação (inclusive em como ativar) você confere em https://tdn.totvs.com/display/framework/Nova+interface+do+Protheus+com+PO+UI

Nessa primeira fase, a novidade chega com a tela de login e a de seleção de ambiente, abaixo o print do novo visual.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Alterando para o novo visual do Protheus com PO UI apareceu primeiro em Sem Preju.

Como atualizar os arquivos de Help dos Campos – Completo

Rafael Gonçalves — Tue, 08 Dec 2020 17:53:26 +0000

Olá pessoal

Segue como realizar a atualização do help dos campos, auxiliando o usuário na identificação de ajuda.

Primeiramente faça o download do arquivo, seguindo as etapas abaixo:

– Portal do Cliente: http://suporte.totvs.com
– Menu Downloads e Atualizações
– Linha Protheus
– Microsiga Protheus Versão 12.1.XX (onde XX é a Release do seu P12)
– Todos
– Categoria: Help de campo/pergunta
– Baixe os arquivos HELPS DE CAMPOS/PERGUNTAS DIFERENCIAL – BRASIL e HELPS DE CAMPOS/PERGUNTAS COMPLETO – BRASIL

Após baixar o pacote, descompacte os arquivos .txt para dentro da pasta Systemload do Protheus.

Para atualizar, pare o serviço do Protheus, acesse o módulo 99-Configurador, navegue em Atualizações / Help / Atualização do Help

Aguarde o processamento para a atualizar todos os help.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como atualizar os arquivos de Help dos Campos – Completo apareceu primeiro em Sem Preju.

Entendendo o SX5 – Tabelas Genéricas do Protheus

Rafael Gonçalves — Mon, 07 Dec 2020 13:17:39 +0000

Olá pessoal

Esta vez trouxe uma dica para facilitar o entendimento da SX5.

O que é SX5

Algumas vezes precisamos de um cadastro simples com duas colunas código e valor, por exemplo, estado e sua sigla, temos no Microsiga Protheus uma estrutura genéricas de tabelas.

O principal ganho é em tempo, ao evitar que se crie mais uma tabela no banco de dados, crie rotinas para inclusão e consulta padrões para ela(LookUps).

Por padrão os valores das tabelas Genéricas são adicionados via o modulo de Configurador, que apenas os estão no grupo de Administradores tem acesso.

Devemos ficar atento, para identificarmos quando o uso do SX5 é uma boa ideia. Para isso tomamos como base duas simples de perguntas:

O usuário comum irá poder adicionar dados nessa tabela?
É possível que num futuro essa tabela necessite de mais do que um campo valor?

Quando respondemos sim para qualquer uma dessas perguntas, é bem provável que a tabela genérica não atenda as suas necessidades. O que ocorre quando respondemos sim para uma dessas perguntas.

Se o usuário poderá adicionar os dados a tabela, é muito provável que precisaremos fazer validações sobre a entrada de dados dele, portanto uma rotina especifica é recomendada pois não temos mecanismos para efetuar isso na tabela Genérica; somente se ciarmos um fonte com essas tratativas chumbadas, o que pode não ser uma boa prática.
Caso se identifique que mais cedo ou mais tarde será necessário um ou mais campos na tabela não podemos o fazê-lo, pois o tabela é Genérica e não podemos criar um campo especifico apenas para sua tabela;

Estrutura SX5 Tabelas Genéricas

Campos	Tipo	Descrição
X5_FILIAL	Caracter	Código da Filial do sistema
X5_TABELA	Caracter	Código da tabela que será utilizada como chave .
X5_CHAVE	Caracter	Código que pode ter 6 caracteres para identificação de um valor na tabela
X5_DESCRI	Caracter	Conteúdo no idioma Português
X5_DESCSPA	Caracter	Conteúdo no idioma Espanhol
X5_DESCENG	Caracter	Conteúdo no idioma Inglês

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Entendendo o SX5 – Tabelas Genéricas do Protheus apareceu primeiro em Sem Preju.

Criação de Módulos Específicos no Protheus

Rafael Gonçalves — Sun, 15 Nov 2020 15:30:46 +0000

Olá pessoal

Esta vez trouxe uma dica para quem está precisando adicionar um novo modulo?

As vezes customizamos um processo inteiro em nosso cliente que as rotinas não se encaixam em nenhum módulo padrão!

No Protheus existe opção de criação de até três módulos específicos. Na realidade eles já existem, mas para que eles estejam disponíveis na escolha do módulos é necessário dar um nome a cada um deles como abaixo:

Não esqueça de dar permissão no configurador para o módulo e criar um menu =]

Abaixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#include 'totvs.ch'


/*/{Protheus.doc} SIGAESP - Módulo 97
Função ESPNOME - Define o nome para o módulo especifico - 97
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESPNOME
Return ("Novo Modulo 97")

/*/{Protheus.doc} ESP1NOME - Módulo 98
Função ESP1NOME - Define o nome para o módulo especifico - 98
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESP1NOME
Return ("Novo Modulo 98")

/*/{Protheus.doc} ESP2NOME - Módulo 99
Função ESP2NOME - Define o nome para o módulo especifico - 99
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESP2NOME
Return ("Novo Modulo 98")


//Tambem temos assim o ponto de entrada de carregamento do sistema, o nome da função é o mesmo da chamado do programa inicial.
user Function SigaEsp()
Alert( Time() )
Return .t.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Criação de Módulos Específicos no Protheus apareceu primeiro em Sem Preju.

Como criar filiais na Empresa Teste ?

Rafael Gonçalves — Thu, 21 May 2020 08:47:51 +0000

Saiba como adicionar mais filiais na Empresa Teste (99), sem consumir licenças.

Naturalmente o Protheus cria a empresa 99 com a filial 02 – Matriz, nesta empresa ainda é possível criar mais duas filiais (o código e descrição devem ser obrigatóriamente como abaixo) pelas rotinas padrões do Configurador.

Existe uma forma de criar mais duas filiais na empresa teste seguindo um padrão estipulado pela TOTVS que considera as filiais novas como empresa testes desobrigando o uso de licenças.

Como fazer na minha base?

O resultado da configuração de mais duas filiais deve ser como abaixo:

GRUPO DE EMPRESA: 99 – DESCRIÇÃO: TESTE – CÓDIGO DA FILIAL: 01 – DESCRIÇÃO: MATRIZ

GRUPO DE EMPRESA: 99 – DESCRIÇÃO: TESTE – CÓDIGO DA FILIAL: 02 – DESCRIÇÃO: FILIAL02

GRUPO DE EMPRESA: 99 – DESCRIÇÃO: TESTE – CÓDIGO DA FILIAL: 03 – DESCRIÇÃO: FILIAL03

Adicionar mais uma empresa com 3 filiais?

Ainda é possível adicionar uma nova Empresa – ZZ, com três filiais, como resultado ficaria assim:

GRUPO DE EMPRESA: ZZ – DESCRIÇÃO: TESTE – CÓDIGO DA FILIAL: 01 – DESCRIÇÃO: MATRIZ

GRUPO DE EMPRESA: ZZ – DESCRIÇÃO: TESTE – CÓDIGO DA FILIAL: 02 – DESCRIÇÃO: FILIAL02

GRUPO DE EMPRESA: ZZ – DESCRIÇÃO: TESTE – CÓDIGO DA FILIAL: 03 – DESCRIÇÃO: FILIAL03

Obs.: Não pode vincular nenhum cnpj e alterar a descrição nas filiais.

Todos os testes foram realizados na versão 12.1.27.

Post interessantes:

Aprenda a instalar o Protheusaqui.

Retornar datas por extensoaqui.

Barras de progressoaqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como criar filiais na Empresa Teste ? apareceu primeiro em Sem Preju.

Exportar dicionário de dados do protheus

Rafael Gonçalves — Sat, 25 Jan 2020 18:21:57 +0000

Aqui temos um exemplo de como gerar os arquivos do dicionário de dados do protheus que usamos para gerar as páginas usadas aqui no site.

Para saber mais sobre o dicionário de dados acesse aqui.

Acesse nosso Git e baixe esse e outros exemplo clicando aqui.


#Include "Protheus.ch"
#INCLUDE "fileio.ch"

#define CAMINHO 'D:\TOTVS\Tabelas\'
Static lBySQL := .T. //inserir dados via SQL



User Function SPEXPALL()
//Exporta tabelas
u_SPEXPTABL() //sem threads

//gera pagina principal com todas os links para paginas das tabelas
U_SPEXP1()

//gera pagina principal com todas os links para paginas das consultas padrões
U_SPEXP2()

//gera pagina principal com todas os links para paginas de grupo de campo
U_SPEXP3()

//gera pagina principal com todas os links para paginas de gatilhoss
U_SPEXP4()

//gera tabelas de consulta padrão
U_SPEXP5()

//gera tabelas de gatilhos
U_SPEXP6()

//gera tabelas de Grupo de Campos
U_SPEXP7()

Return .t.

/*/{Protheus.doc} SPEXPTABL
Função responsável por gerar documentação das tabelas do Protheus
@type function
@author Rafael Gonçalves da Silva
@since 16/12/2019
@version 1.0
/*/
User Function SPEXPTABL()
Local aArea    as array
Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric
Local aFields   as array // arary com campos de uma determinada tabela
Local _nI       as numeric


cDiretori  := CAMINHO+'\tabelas\'
//remover se for chamar do menu
RpcSetType(3)
RpcSetEnv('99', '01')

DbSelectArea('SX2')
SX2->(DbGoTop())
While !SX2->(EoF())
    aArea := GETAREA()
        FSGERA()
    RESTAREA(aArea)
    SX2->(DbSkip())
EndDo

Return .t.


//gera arquivo SX2
Static Function FSGERA()
Local aArea    as array

Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric
Local aFields   as array // arary com campos de uma determinada tabela
Local _nI       as numeric

cDiretori  := CAMINHO+'\tabelas\'
cArquivo := 'tabela_'+lower(X2_CHAVE)+'.html'
conout("Iniciando: "+cArquivo)
nHdl := fCreate(cDiretori+cArquivo)
//Se houve falhas, encerra a rotina
If nHdl == -1
    MsgAlert("O arquivo '"+cDiretori+cArquivo+"' não pode ser criado!", "Atenção")
    Return .t.
Endif

//inicio da montagem do HTML
fWrite(nHdl, '' + CRLF)
fWrite(nHdl, 'Tabela: '+SX2->X2_CHAVE + ' - '+ EncodeUTF8(alltrim(FwSX2Util():GetX2Name( SX2->X2_CHAVE )))+'' + CRLF)
fWrite(nHdl, '' + CRLF)
fWrite(nHdl, '
Tabela: '+SX2->X2_CHAVE + ' - '+ EncodeUTF8(alltrim(FwSX2Util():GetX2Name( SX2->X2_CHAVE )))+'

' + CRLF)
fWrite(nHdl, '
' + CRLF)

//Informações da Tabela
fWrite(nHdl, '

' + CRLF)
fWrite(nHdl, '


')
fWrite(nHdl, '
')
fWrite(nHdl,    '


')
fWrite(nHdl,    '


')
fWrite(nHdl,    '


')
fWrite(nHdl, '

')
fWrite(nHdl, '
')
fWrite(nHdl,    EncodeUTF8('


'))
fWrite(nHdl,    EncodeUTF8('


'))
fWrite(nHdl,    '


')
fWrite(nHdl, '

')
fWrite(nHdl, '
Tabela(SX2)
X2_NOME X2_UNICO X2_SYSOBJ
'+alltrim(SX2->X2_NOME)+' '+alltrim(SX2->X2_UNICO)+' '+alltrim(SX2->X2_SYSOBJ)+'

' + CRLF)
fWrite(nHdl, '
' + CRLF)
fWrite(nHdl, '


' + CRLF)
fWrite(nHdl, '
' + CRLF)


//imprime os indices da tabela
DbSelectArea('SIX')
SIX->(DbSetOrder(1))
If SIX->(DbSeek(SX2->X2_CHAVE))
    fWrite(nHdl, '

' + CRLF)
    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')
    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, EncodeUTF8('


'))
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')

    //Percorre os campos
    While ! SIX->(Eof()) .And. SIX->INDICE == SX2->X2_CHAVE
        fWrite(nHdl, '
')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '

' + CRLF)
        SIX->(DbSkip())
    EndDo
    fWrite(nHdl, 'Indices(SIX)
Ordem Chave Descrição NickName
'+SIX->ORDEM+' '+Alltrim(SIX->CHAVE)+' '+EncodeUTF8(Alltrim(SIX->DESCRICAO))+' '+Alltrim(SIX->NICKNAME)+'

' + CRLF)
EndIf

fWrite(nHdl, '
' + CRLF)
fWrite(nHdl, '


' + CRLF)
fWrite(nHdl, '
' + CRLF)


//Informações folders
DbSelectArea("SXA")
DbSetOrder(1)
If DbSeek(SX2->X2_CHAVE)
    fWrite(nHdl, '

' + CRLF)
    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')
    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')
    While (!Eof()) .AND. (SXA->XA_ALIAS == SX2->X2_CHAVE)
        fWrite(nHdl, '
')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '

')
        DbSelectArea("SXA")
        DbSkip()
    Enddo
    fWrite(nHdl, 'Abas(SXA)
XA_ALIAS XA_ORDEM XA_DESCRIC XA_AGRUP XA_TIPO
'+Alltrim(SXA->XA_ALIAS)+' '+Alltrim(SXA->XA_ORDEM)+' '+Alltrim(SXA->XA_DESCRIC)+' '+Alltrim(SXA->XA_AGRUP)+' '+Alltrim(SXA->XA_TIPO)+'

' + CRLF)
EndIf

fWrite(nHdl, '
' + CRLF)
fWrite(nHdl, '


' + CRLF)
fWrite(nHdl, '
' + CRLF)

//Percorre o SX3 para montar os campos
aFields := {}//Zera array de execuções anteriores
aFields := FWSX3Util():GetAllFields(SX2->X2_CHAVE,.T.) //
If len(aFields) <= 0 MsgAlert("Não foi encontrato nenhum campo para a tabela "+SX2->X2_CHAVE+"!", "Atenção")
    SX2->(DbSkip())
    fClose(nHdl)
    Return .t.
else
    //Cria tebela html para campos
    fWrite(nHdl, '

' + CRLF)
    fWrite(nHdl, '
' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '

' + CRLF)
    fWrite(nHdl, '
' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    // fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '

' + CRLF)

Endif

//Percorre array de campos
_nI := 1
For _nI:=1 to len(aFields)
    //https://tdn.totvs.com/pages/releaseview.action?pageId=6815033
    fWrite(nHdl, '
' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, EncodeUTF8('


') + CRLF)
    fWrite(nHdl, EncodeUTF8('


') + CRLF)

    fWrite(nHdl, '


' + CRLF)
    // fWrite(nHdl, '


' + CRLF)

    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    if !Empty(GetSx3Cache( aFields[_nI], 'X3_TRIGGER'))
        fWrite(nHdl, '


' + CRLF)
    else
        fWrite(nHdl, '


' + CRLF)
    endif
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '

' + CRLF)
Next

If len(aFields) > 0
    fWrite(nHdl, 'Campos(SX3)
X3_CAMPO X3_TITULO X3_DESCRIC HELP Campo HELP Solucao X3_TIPO X3_TAMANHO X3_DECIMAL X3_VALID X3_RELACAO X3_F3 X3_TRIGGER X3_BROWSE X3_VISUAL X3_CONTEXT X3_OBRIGAT X3_CBOX X3_WHEN X3_INIBRW X3_GRPSXG X3_FOLDER
'+Alltrim(GetSx3Cache( aFields[_nI], 'X3_CAMPO' ))+' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_TITULO'))+' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_DESCRIC'))+' '+EncodeUTF8(Alltrim(GetHlpSoluc(aFields[_nI])[1]))+' '+Alltrim(GetHlpSoluc(aFields[_nI])[2])+' '+GetSx3Cache( aFields[_nI], 'X3_TIPO') +' '+cvaltochar(GetSx3Cache( aFields[_nI], 'X3_TAMANHO')) +' '+cvaltochar(GetSx3Cache( aFields[_nI], 'X3_DECIMAL')) +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_VALID')) +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_RELACAO')) +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_F3')) +' '+GetSx3Cache( aFields[_nI], 'X3_TRIGGER') +' '+GetSx3Cache( aFields[_nI], 'X3_TRIGGER') +' '+GetSx3Cache( aFields[_nI], 'X3_BROWSE') +' '+GetSx3Cache( aFields[_nI], 'X3_VISUAL') +' '+GetSx3Cache( aFields[_nI], 'X3_CONTEXT') +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_OBRIGAT')) +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_CBOX')) +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_WHEN')) +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_INIBRW')) +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_GRPSXG')) +' '+Alltrim(GetSx3Cache( aFields[_nI], 'X3_FOLDER')) +'

' + CRLF)
endif

fWrite(nHdl, '
' + CRLF)
fWrite(nHdl, '


' + CRLF)
fWrite(nHdl, '
' + CRLF)

//Relacionamentos
DbSelectArea('SX9')
SX9->(DbSetOrder(1))
If SX9->(DbSeek(SX2->X2_CHAVE))
    fWrite(nHdl, '

' + CRLF)
    fWrite(nHdl, '
' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, '

' + CRLF)
    fWrite(nHdl, '
' + CRLF)
    fWrite(nHdl, '


' + CRLF)
    fWrite(nHdl, EncodeUTF8('


') + CRLF)
    fWrite(nHdl, EncodeUTF8('


') + CRLF)
    fWrite(nHdl, '

' + CRLF)

    //Percorre os campos
    While ! SX9->(Eof()) .And. SX9->X9_DOM == SX2->X2_CHAVE
        fWrite(nHdl, '
' + CRLF)
        fWrite(nHdl, '


' + CRLF)
        fWrite(nHdl, '


' + CRLF)
        fWrite(nHdl, '


' + CRLF)
        fWrite(nHdl, '

' + CRLF)

        SX9->(DbSkip())
    EndDo
EndIf

fWrite(nHdl, '
' + CRLF)
//Fecha ponteiro do arquivo
fWrite(nHdl, '' + CRLF)
fClose(nHdl)
conout("Finalizado: "+cArquivo)


return .t.



//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//gera tabelas de consulta padrão
User Function SPEXP5()
Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric

cDiretori  := CAMINHO +'F3\'
If !ExistDir( cDiretori )  //Checar se diretorio existe
    Conout('O Diretório: '+cDiretori+' Não existe, crie antes de continuar')
    Return .t.
else
    Conout('O arquivo será gerado no caminho: '+cDiretori+'.')
Endif

conout(IsBlind())
If !IsBlind() //nao for executado do menu
    RpcSetType(3)
    RpcSetEnv('99', '01')
Endif

conout("Iniciando exportação do SXB")

if select("SXB_EXP") > 0
    SXB_EXP->(DBCLOSEAREA())
endif
//-------------------
//Criação do objeto
//-------------------
oTempTable := FWTemporaryTable():New( "SXB_EXP" )
//--------------------------
//Monta os campos da tabela
//--------------------------
aFields := {}
aadd(aFields,{"XB_ALIAS","C",240,0})
aadd(aFields,{"XB_TIPO","C",240,0})
aadd(aFields,{"XB_SEQ","C",240,0})
aadd(aFields,{"XB_COLUNA","C",240,0})
aadd(aFields,{"XB_DESCRI","C",240,0})
aadd(aFields,{"XB_CONTEM","C",290,0})
oTemptable:SetFields( aFields )
oTempTable:AddIndex("01", {"XB_ALIAS"} )
//------------------
//Criação da tabela
//------------------
oTempTable:Create()

//------------------
//Grava os dados na tabela temporaria by SQL
//------------------
if lBySQL
    conout('inserindo dados no arquivo temporario por SQL')
    cQuery := "INSERT INTO " + oTempTable:GetRealName() + ' ( '
    For ii := 1 To Len(aFields)
		cQuery += aFields[ii][1] + ","
	Next ii
	cQuery := SubStr(cQuery,1,Len(cQuery)-1)
	cQuery += ") "
    cQuery += " SELECT XB_ALIAS,XB_TIPO,XB_SEQ,XB_COLUNA,XB_DESCRI,substring(XB_CONTEM,1,290)   "
    cQuery += " FROM SXB990 SXB " //TODO mudar para o alias de sua tabela
    cQuery += " WHERE SXB.D_E_L_E_T_ =' '"
    conout(cQuery)
    if TCSqlExec(cQuery) > 0
        conout('ERRO AO INSERIR DADOS NA TABELA TEMPORARIA')
        return .t.
    endif
else
    conout('inserindo dados no arquivo temporario')
    DbSelectArea('SXB')
    SXB->(DbGoTop())
    While !SXB->(EOF())

        DbSelectArea('SXB_EXP')
        reclock('SXB_EXP',.t.)
            SXB_EXP->XB_ALIAS   := alltrim(SXB->XB_ALIAS)
            SXB_EXP->XB_TIPO    := alltrim(SXB->XB_TIPO)
            SXB_EXP->XB_SEQ     := alltrim(SXB->XB_SEQ)
            SXB_EXP->XB_COLUNA  := alltrim(SXB->XB_COLUNA)
            SXB_EXP->XB_DESCRI  := alltrim(SXB->XB_DESCRI)
            SXB_EXP->XB_CONTEM  := alltrim(SXB->XB_CONTEM)
        SXB_EXP->(MsUnlock())
        DbSelectArea('SXB')
        SXB->(DBSKIP())
    Enddo

Endif

//------------------------------------
//Executa query para leitura da tabela
//------------------------------------
cQuery := "select * from "+ oTempTable:GetRealName() + " Order by  XB_ALIAS,XB_TIPO,XB_SEQ,XB_COLUNA,XB_DESCRI,XB_CONTEM"
MPSysOpenQuery( cQuery, 'QRYTMP' )
DbSelectArea('QRYTMP')
cAliAnt := '' //controle novo arquivo
while !eof()
    if cAliAnt <> QRYTMP->XB_ALIAS
        //Se nao for a primeira execucao, finaliza o arquivo anterior
        if !empty(cAliAnt)
            fWrite(nHdl, 'Relacionamentos(SX9)
X9_CDOM - Tabela Destino X9_EXPDOM - Expressão Origem X9_EXPCDOM - Expressão Destino
'+SX9->X9_CDOM+' '+Alltrim(SX9->X9_EXPDOM)+' '+Alltrim(SX9->X9_EXPCDOM)+'

' + CRLF)
            //Fecha ponteiro do arquivo
            fWrite(nHdl, '' + CRLF)
            fClose(nHdl)
            conout("Finalizado: "+cArquivo)
        endif

        cAliAnt := QRYTMP->XB_ALIAS
        cArquivo := lower(alltrim(QRYTMP->XB_ALIAS))+'.html'
        conout("Iniciando: "+cArquivo)
        nHdl := fCreate(cDiretori+cArquivo)
        //Se houve falhas, encerra a rotina
        If nHdl == -1
            MsgAlert("O arquivo '"+cDiretori+cArquivo+"' não pode ser criado!", "Atenção")
            exit
        Endif

        //inicio da montagem do HTML
        fWrite(nHdl, '' + CRLF)
        fWrite(nHdl, EncodeUTF8('Consulta Pasdrão: '+ alltrim(QRYTMP->XB_ALIAS) + ' - '+ alltrim(QRYTMP->XB_DESCRI)+'') + CRLF)
        fWrite(nHdl, '' + CRLF)
        fWrite(nHdl, '
Consulta Padrï¿½o: '+alltrim(QRYTMP->XB_ALIAS) + ' - '+ alltrim(QRYTMP->XB_DESCRI)+'

' + CRLF)
        fWrite(nHdl, '
' + CRLF)

        fWrite(nHdl, '

' + CRLF)
        fWrite(nHdl, '
')
        fWrite(nHdl, EncodeUTF8('


'))
        fWrite(nHdl, '

')
        fWrite(nHdl, '
')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '

')
    endif

    //imprime todas as linhas
    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')

    DbSelectArea('QRYTMP')
    QRYTMP->(dbskip())
Enddo

//Se executou algum SXB, fecha ultimo arquivo
if !empty(cAliAnt)
    fWrite(nHdl, 'Consulta Padrão(SXB): '+alltrim(QRYTMP->XB_ALIAS) + ' - '+ alltrim(QRYTMP->XB_DESCRI)+'
XB_ALIAS XB_TIPO XB_SEQ XB_COLUNA XB_DESCRI XB_CONTEM
'+alltrim(QRYTMP->XB_ALIAS)+' '+alltrim(QRYTMP->XB_TIPO)+' '+alltrim(QRYTMP->XB_SEQ)+' '+alltrim(QRYTMP->XB_COLUNA)+' '+alltrim(QRYTMP->XB_DESCRI)+' '+alltrim(QRYTMP->XB_CONTEM)+'

' + CRLF)
    //Fecha ponteiro do arquivo
    fWrite(nHdl, '' + CRLF)
    fClose(nHdl)
    conout("Finalizado: "+cArquivo)
endif

//Fecha alias SQL
if select("QRYTMP") > 0
    QRYTMP->(DBCLOSEAREA())
endif
//---------------------------------
//Exclui a tabela
//---------------------------------
oTempTable:Delete()


Return .t.




//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//gera tabelas de gatilhos
User Function SPEXP6()
Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric

cDiretori  := CAMINHO +'gatilhos\'
If !ExistDir( cDiretori )  //Checar se diretorio existe
    Conout('O Diretório: '+cDiretori+' Não existe, crie antes de continuar')
    Return .t.
else
    Conout('O arquivo será gerado no caminho: '+cDiretori+'.')
Endif

conout(IsBlind())
If !IsBlind() //nao for executado do menu
    RpcSetType(3)
    RpcSetEnv('99', '01')
Endif
conout("Iniciando SX7")
//Exportar SXB

if select("SX7_EXP") > 0
    SX7_EXP->(DBCLOSEAREA())
endif
//-------------------
//Criaï¿½ï¿½o do objeto
//-------------------
oTempTable := FWTemporaryTable():New( "SX7_EXP" )
//--------------------------
//Monta os campos da tabela
//--------------------------
aFields := {}
aadd(aFields,{"X7_CAMPO","C",240,0})
aadd(aFields,{"X7_SEQUENC","C",240,0})
aadd(aFields,{"X7_REGRA","C",240,0})
aadd(aFields,{"X7_CDOMIN","C",240,0})
aadd(aFields,{"X7_TIPO","C",240,0})
aadd(aFields,{"X7_SEEK","C",240,0})
aadd(aFields,{"X7_ALIAS","C",240,0})
aadd(aFields,{"X7_ORDEM","N",20,1})
aadd(aFields,{"X7_CHAVE","C",240,0})
aadd(aFields,{"X7_CONDIC","C",240,0})
oTemptable:SetFields( aFields )
oTempTable:AddIndex("01", {"X7_CAMPO"} )
//------------------
//Criaï¿½ï¿½o da tabela
//------------------
oTempTable:Create()

//------------------
//Grava os dados na tabela temporaria by SQL
//------------------
if lBySQL
    conout('inserindo dados no arquivo temporario por SQL')
    cQuery := "INSERT INTO " + oTempTable:GetRealName()+' ( '
        For ii := 1 To Len(aFields)
		cQuery += aFields[ii][1] + ","
	Next ii
	cQuery := SubStr(cQuery,1,Len(cQuery)-1)
	cQuery += ") "
    cQuery += " SELECT substring(X7_CAMPO,1,240),substring(X7_SEQUENC,1,240),substring(X7_REGRA,1,240),substring(X7_CDOMIN,1,240),substring(X7_TIPO,1,240),substring(X7_SEEK,1,240),substring(X7_ALIAS,1,240),X7_ORDEM,substring(X7_CHAVE,1,240),substring(X7_CONDIC,1,240) "
    cQuery += " FROM SX7990 SX7 " //TODO mudar para o alias de sua tabela
    cQuery += " WHERE SX7.D_E_L_E_T_ =' '  "
    conout(cQuery)
    if TCSqlExec(cQuery) > 0
        conout('ERRO AO INSERIR DADOS NA TABELA TEMPORARIA')
        return .t.
    endif
else
    conout('inserindo dados no arquivo temporario')
    DbSelectArea('SX7')
    SX7->(DbGoTop())
    While !SX7->(EOF())
        DbSelectArea('SX7_EXP')
        reclock('SX7_EXP',.t.)
            SX7_EXP->X7_CAMPO   := alltrim(SX7->X7_CAMPO)
            SX7_EXP->X7_SEQUENC := alltrim(SX7->X7_SEQUENC)
            SX7_EXP->X7_REGRA   := alltrim(SX7->X7_REGRA)
            SX7_EXP->X7_CDOMIN  := alltrim(SX7->X7_CDOMIN)
            SX7_EXP->X7_TIPO    := alltrim(SX7->X7_TIPO)
            SX7_EXP->X7_SEEK    := alltrim(SX7->X7_SEEK)
            SX7_EXP->X7_ALIAS   := alltrim(SX7->X7_ALIAS)
            SX7_EXP->X7_ORDEM   := SX7->X7_ORDEM
            SX7_EXP->X7_CHAVE   := alltrim(SX7->X7_CHAVE)
            SX7_EXP->X7_CONDIC  := alltrim(SX7->X7_CONDIC)
        SX7_EXP->(MsUnlock())
        DbSelectArea('SX7')
        SX7->(DBSKIP())
    Enddo

Endif

//------------------------------------
//Executa query para leitura da tabela
//------------------------------------
if Select('QRYTMP') > 0
    QRYTMP->(DbCloseAlias())
endif
cQuery := "select * from "+ oTempTable:GetRealName() + " Order by  X7_CAMPO, X7_SEQUENC "
MPSysOpenQuery( cQuery, 'QRYTMP' )
DbSelectArea('QRYTMP')
cAliAnt := '' //controle novo arquivo
while !eof()
    if cAliAnt <> QRYTMP->X7_CAMPO
        //Se nao for a primeira execucao, finaliza o arquivo anterior
        if !empty(cAliAnt)
            fWrite(nHdl, '

' + CRLF)
            //Fecha ponteiro do arquivo
            fWrite(nHdl, '' + CRLF)
            fClose(nHdl)
            conout("Finalizado: "+cArquivo)
        endif

        cAliAnt := QRYTMP->X7_CAMPO
        cArquivo := alltrim(QRYTMP->X7_CAMPO)+'.html'
        conout("Iniciando: "+cArquivo)
        nHdl := fCreate(cDiretori+cArquivo)
        //Se houve falhas, encerra a rotina
        If nHdl == -1
            MsgAlert("O arquivo '"+cDiretori+cArquivo+"' nï¿½o pode ser criado!", "Atenï¿½ï¿½o")
            exit
        Endif

        //inicio da montagem do HTML
        fWrite(nHdl, '' + CRLF)
        fWrite(nHdl, 'Gatilhos Campo: '+ alltrim(QRYTMP->X7_CAMPO)+'' + CRLF)
        fWrite(nHdl, '' + CRLF)
        fWrite(nHdl, '
Gatilhos no Campo: '+alltrim(QRYTMP->X7_CAMPO)+'

' + CRLF)
        fWrite(nHdl, '
' + CRLF)

        fWrite(nHdl, '

' + CRLF)
        fWrite(nHdl, '
')
        fWrite(nHdl, '


')
        fWrite(nHdl, '

')
        fWrite(nHdl, '
')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '


')
        fWrite(nHdl, '

')
    endif

    //imprime todas as linhas
    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')

    DbSelectArea('QRYTMP')
    QRYTMP->(dbskip())
Enddo

//Se executou algum SXB, fecha ultimo arquivo
if !empty(cAliAnt)
    fWrite(nHdl, 'Gatilhos(SX7) no Campo: '+alltrim(QRYTMP->X7_CAMPO)+'
X7_CAMPO X7_SEQUENC X7_REGRA X7_CDOMIN X7_TIPO X7_SEEK X7_ALIAS X7_ORDEM X7_CHAVE X7_CONDIC
'+alltrim(QRYTMP->X7_CAMPO)+' '+alltrim(QRYTMP->X7_SEQUENC)+' '+alltrim(QRYTMP->X7_REGRA)+' '+alltrim(QRYTMP->X7_CDOMIN)+' '+alltrim(QRYTMP->X7_TIPO)+' '+alltrim(QRYTMP->X7_SEEK)+' '+alltrim(QRYTMP->X7_ALIAS)+' '+alltrim(cvaltochar(QRYTMP->X7_ORDEM))+' '+alltrim(QRYTMP->X7_CHAVE)+' '+alltrim(QRYTMP->X7_CONDIC)+'

' + CRLF)
    //Fecha ponteiro do arquivo
    fWrite(nHdl, '' + CRLF)
    fClose(nHdl)
    conout("Finalizado: "+cArquivo)
endif

//Fecha alias SQL
if select("QRYTMP") > 0
    QRYTMP->(DBCLOSEAREA())
endif
//---------------------------------
//Exclui a tabela
//---------------------------------
oTempTable:Delete()


Return .t.


//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//gera tabelas de Grupo de Campos
User Function SPEXP7()
Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric

cDiretori  := CAMINHO +'grupoCampo\'
If !ExistDir( cDiretori )  //Checar se diretorio existe
    Conout('O Diretório: '+cDiretori+' Não existe, crie antes de continuar')
    Return .t.
else
    Conout('O arquivo será gerado no caminho: '+cDiretori+'.')
Endif

conout(IsBlind())
If !IsBlind() //nao for executado do menu
    RpcSetType(3)
    RpcSetEnv('99', '01')
Endif
conout("Iniciando SXG")
//Exportar SXB

dbselectArea('SXG')
DbGoTop()
While !eof()
    cArquivo := alltrim(SXG->XG_GRUPO)+'.html'
    conout("Iniciando: "+cArquivo)
    nHdl := fCreate(cDiretori+cArquivo)
    //Se houve falhas, encerra a rotina
    If nHdl == -1
        MsgAlert("O arquivo '"+cDiretori+cArquivo+"' não pode ser criado!", "Atenção")
        exit
    Endif

     //inicio da montagem do HTML
    fWrite(nHdl, '' + CRLF)
    fWrite(nHdl, 'Grupo de Campo(SXG): '+ alltrim(SXG->XG_GRUPO)+'' + CRLF)
    fWrite(nHdl, '' + CRLF)
    fWrite(nHdl, '
Grupo de Campo(SXG): '+alltrim(SXG->XG_GRUPO)+'

' + CRLF)
    fWrite(nHdl, '
' + CRLF)

    fWrite(nHdl, '

' + CRLF)
    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')
    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')

    fWrite(nHdl, '
')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '


')
    fWrite(nHdl, '

')

    fWrite(nHdl, 'Grupo de Campo(SXG): '+alltrim(SXG->XG_GRUPO)+'
XG_GRUPO XG_DESCRI XG_SIZEMAX XG_SIZEMIN XG_SIZE XG_PICTURE
'+ Alltrim(SXG->XG_GRUPO)+' '+ Alltrim(SXG->XG_DESCRI)+' '+ Alltrim(cvaltochar(SXG->XG_SIZEMAX))+' '+ Alltrim(cvaltochar(SXG->XG_SIZEMIN))+' '+ Alltrim(cvaltochar(SXG->XG_SIZE))+' '+Alltrim( SXG->XG_PICTURE)+'

' + CRLF)
    //Fecha ponteiro do arquivo
    fWrite(nHdl, '' + CRLF)
    fClose(nHdl)
    conout("Finalizado: "+cArquivo)

    dbselectArea('SXG')
    SXG->(DbSkip())
enddo

Return .t.







//Retorna o Header da Pagina
static function FSHeader()
Local cReturn as character
cReturn := ' '


//inicio da montagem do HTML
cReturn += ' ' + CRLF

cReturn += '


 ' + CRLF

return cReturn


//Retorna o rodapé
Static Function FSFooter()
Local cReturn as character

cReturn := ' '
cReturn += '' + CRLF
cReturn += '' + CRLF

return cReturn




//gera arquivo com todas as tabelas(listagem)
User Function SPEXP1()
Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric

cDiretori  := CAMINHO
If !ExistDir( cDiretori )  //Checar se diretorio existe
    Conout('O Diretório: '+cDiretori+' Não existe, crie antes de continuar')
    Return .t.
else
    Conout('O arquivo será gerado no caminho: '+cDiretori+'.')
Endif

conout(IsBlind())
If !IsBlind() //nao for executado do menu
    RpcSetType(3)
    RpcSetEnv('99', '01')
Endif

cArquivo := 'Tabelas_Protheus.php' //arquivo pai que chamas todos as demais tabelas
conout("Iniciando: "+cArquivo)

nHdl := fCreate(cDiretori+cArquivo)
//Se houve falhas, encerra a rotina
If nHdl == -1
    MsgAlert("O arquivo '"+cDiretori+cArquivo+"' não pode ser criado!", "Atenção")
    return
Endif

fWrite(nHdl, FSHeader() + CRLF) //header para WordPress, se não usar remover

fWrite(nHdl, ' ' + CRLF)
fWrite(nHdl, ' 




' + CRLF)
fWrite(nHdl, '	
Tabelas Protheus 

 ' + CRLF)
fWrite(nHdl, EncodeUTF8('	 ') + CRLF)
fWrite(nHdl, '	

 ' + CRLF)
fWrite(nHdl, '	  

 ' + CRLF)
fWrite(nHdl, '		
 ' + CRLF)
fWrite(nHdl, '			

 ' + CRLF)
fWrite(nHdl, '				
 ' + CRLF)
fWrite(nHdl, '					


 ' + CRLF)
fWrite(nHdl, '				

 ' + CRLF)
fWrite(nHdl, '			

 ' + CRLF)
fWrite(nHdl, '			
 ' + CRLF)

DbSelectArea('SX2')
SX2->(DbGoTop())
While !SX2->(EoF())

    fWrite(nHdl, '				
 ' + CRLF)
    fWrite(nHdl, '					


 ' + CRLF)
    fWrite(nHdl, '				

 ' + CRLF)
    SX2->(DbSkip())

EndDo

fWrite(nHdl, '        

' + CRLF)
fWrite(nHdl, '        Tabela
'+EncodeUTF8(alltrim(Upper(SX2->X2_CHAVE)+' - '+(FwSX2Util():GetX2Name( SX2->X2_CHAVE ))))+'

' + CRLF)
fWrite(nHdl, '   

' + CRLF)
fWrite(nHdl, '

' + CRLF)
fWrite(nHdl, '' + CRLF)

fWrite(nHdl, FSFooter() + CRLF) //rodapé para usar wordpress

fClose(nHdl)
conout("Finalizado exportação da pagina de tabela: "+cArquivo)

Return .t.





//gera arquivo com todas as consulta padrões(listagem)
User Function SPEXP2()
Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric
Local ii as numeric

cDiretori  := CAMINHO
If !ExistDir( cDiretori )  //Checar se diretorio existe
    Conout('O Diretório: '+cDiretori+' Não existe, crie antes de continuar')
    Return .t.
else
    Conout('O arquivo será gerado no caminho: '+cDiretori+'.')
Endif

conout(IsBlind())
If !IsBlind() //nao for executado do menu
    RpcSetType(3)
    RpcSetEnv('99', '01')
Endif

cArquivo := 'Consulta_Padrao_Protheus.php' //arquivo pai que chamas todos as demais tabelas
conout("Iniciando: "+cArquivo)

nHdl := fCreate(cDiretori+cArquivo)
//Se houve falhas, encerra a rotina
If nHdl == -1
    MsgAlert("O arquivo '"+cDiretori+cArquivo+"' não pode ser criado!", "Atenção")
    return
Endif

fWrite(nHdl, FSHeader() + CRLF) //header para WordPress, se não usar remover

fWrite(nHdl, ' ' + CRLF)
fWrite(nHdl, ' 




' + CRLF)
fWrite(nHdl, EncodeUTF8('	
Consulta Padrão  Protheus 

 ') + CRLF)
fWrite(nHdl, EncodeUTF8('	 ') + CRLF)
fWrite(nHdl, '	

 ' + CRLF)
fWrite(nHdl, '	  

 ' + CRLF)
fWrite(nHdl, '		
 ' + CRLF)
fWrite(nHdl, '			

 ' + CRLF)
fWrite(nHdl, '				
 ' + CRLF)
fWrite(nHdl, EncodeUTF8('					


 ') + CRLF)
fWrite(nHdl, '				

 ' + CRLF)
fWrite(nHdl, '			

 ' + CRLF)
fWrite(nHdl, '			
 ' + CRLF)

If select("SXB_EXP") > 0
    SXB_EXP->(DBCLOSEAREA())
EndIf
//-------------------
//Criação do objeto tebela temporaria
//-------------------
oTempTable := FWTemporaryTable():New( "SXB_EXP" )
//--------------------------
//Monta os campos da tabela
//--------------------------
aFields := {}
aadd(aFields,{"XB_ALIAS","C",240,0})
aadd(aFields,{"XB_DESCRI","C",240,0})
oTemptable:SetFields( aFields )
oTempTable:AddIndex("01", {"XB_ALIAS"} )
//------------------
//Criação da tabela temporaria
//------------------
oTempTable:Create()

//------------------
//Grava os dados na tabela temporaria by SQL
//------------------
if lBySQL
    conout('inserindo dados no arquivo temporario por SQL')
    cQuery := "INSERT INTO " + oTempTable:GetRealName() +" ( "
	For ii := 1 To Len(aFields)
		cQuery += aFields[ii][1] + ","
	Next ii
	cQuery := SubStr(cQuery,1,Len(cQuery)-1)
	cQuery += ") "
    cQuery += " select XB_ALIAS,XB_DESCRI  from SXB990 SXB "
    cQuery += " where XB_TIPO=1 and SXB.D_E_L_E_T_ =' ' "
    //cQuery += " order by XB_ALIAS "
    //conout(cQuery)
    if TCSqlExec(cQuery) > 0
        conout('ERRO AO INSERIR DADOS NA TABELA TEMPORARIA')
        return .t.
    endif
else
    conout('inserindo dados no arquivo temporario')
    DbSelectArea('SXB')
    SXB->(DbGoTop())
    While !SXB->(EOF())
        If alltrim(SXB->XB_TIPO) <> '1'
            DbSelectArea('SXB')
            SXB->(DBSKIP())
            loop
        endif

        DbSelectArea('SXB_EXP')
        reclock('SXB_EXP',.t.)
            SXB_EXP->XB_ALIAS   := alltrim(SXB->XB_ALIAS)
            SXB_EXP->XB_DESCRI  := alltrim(SXB->XB_DESCRI)
        SXB_EXP->(MsUnlock())
        DbSelectArea('SXB')
        SXB->(DBSKIP())
    Enddo

Endif

//------------------------------------
//Executa query para leitura da tabela
//------------------------------------
cQuery := "select * from "+ oTempTable:GetRealName() + " Order by  XB_ALIAS"
MPSysOpenQuery( cQuery, 'QRYTMP' )
DbSelectArea('QRYTMP')
cAliAnt := '' //controle novo arquivo
while !(QRYTMP->(eof()))

    fWrite(nHdl, '				
 ' + CRLF)
    fWrite(nHdl, '					


 ' + CRLF)
    fWrite(nHdl, '				

 ' + CRLF)

    QRYTMP->(dbskip())
Enddo

fWrite(nHdl, '        

' + CRLF)
fWrite(nHdl, '        Consulta Padrão
'+EncodeUTF8(alltrim(Upper(QRYTMP->XB_ALIAS)+' - '+Capital(QRYTMP->XB_DESCRI)))+'

' + CRLF)
fWrite(nHdl, '   

' + CRLF)
fWrite(nHdl, '

' + CRLF)
fWrite(nHdl, '' + CRLF)

fWrite(nHdl, FSFooter() + CRLF) //rodapé para usar wordpress

fClose(nHdl)
conout("Finalizado exportação da pagina de tabela: "+cArquivo)

Return .t.





//gera arquivo com todas os grupo de campo
User Function SPEXP3()
Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric

cDiretori  := CAMINHO
If !ExistDir( cDiretori )  //Checar se diretorio existe
    Conout('O Diretório: '+cDiretori+' Não existe, crie antes de continuar')
    Return .t.
else
    Conout('O arquivo será gerado no caminho: '+cDiretori+'.')
Endif

conout(IsBlind())
If !IsBlind() //nao for executado do menu
    RpcSetType(3)
    RpcSetEnv('99', '01')
Endif

cArquivo := 'grupo_campos_Protheus.php' //arquivo pai que chamas todos as demais tabelas
conout("Iniciando: "+cArquivo)

nHdl := fCreate(cDiretori+cArquivo)
//Se houve falhas, encerra a rotina
If nHdl == -1
    MsgAlert("O arquivo '"+cDiretori+cArquivo+"' não pode ser criado!", "Atenção")
    return
Endif

fWrite(nHdl, FSHeader() + CRLF) //header para WordPress, se não usar remover

fWrite(nHdl, ' ' + CRLF)
fWrite(nHdl, ' 




' + CRLF)
fWrite(nHdl, '	
Grupo de Campos Protheus 

 ' + CRLF)
fWrite(nHdl, EncodeUTF8('	 ') + CRLF)
fWrite(nHdl, '	

 ' + CRLF)
fWrite(nHdl, '	  

 ' + CRLF)
fWrite(nHdl, '		
 ' + CRLF)
fWrite(nHdl, '			

 ' + CRLF)
fWrite(nHdl, '				
 ' + CRLF)
fWrite(nHdl, '					


 ' + CRLF)
fWrite(nHdl, '				

 ' + CRLF)
fWrite(nHdl, '			

 ' + CRLF)
fWrite(nHdl, '			
 ' + CRLF)

DbSelectArea('SXG')
SXG->(DbGoTop())
While !SXG->(EoF())

    fWrite(nHdl, '				
 ' + CRLF)
    fWrite(nHdl, '					


 ' + CRLF)
    fWrite(nHdl, '				

 ' + CRLF)
    SXG->(DbSkip())

EndDo

fWrite(nHdl, '        

' + CRLF)
fWrite(nHdl, '        Grupo de Campos
'+EncodeUTF8(alltrim(Upper(SXG->XG_GRUPO)+' - '+capital(SXG->XG_DESCRI)))+'

' + CRLF)
fWrite(nHdl, '   

' + CRLF)
fWrite(nHdl, '

' + CRLF)
fWrite(nHdl, '' + CRLF)

fWrite(nHdl, FSFooter() + CRLF) //rodapé para usar wordpress

fClose(nHdl)
conout("Finalizado exportação da pagina de grupo campos: "+cArquivo)

Return .t.




//gera arquivo com todas os gatilhos
User Function SPEXP4()
Local cDiretori as character
Local cArquivo  as character
Local nHdl      as numeric

cDiretori  := CAMINHO
If !ExistDir( cDiretori )  //Checar se diretorio existe
    Conout('O Diretório: '+cDiretori+' Não existe, crie antes de continuar')
    Return .t.
else
    Conout('O arquivo será gerado no caminho: '+cDiretori+'.')
Endif

//conout(IsBlind())
If !IsBlind() //nao for executado do menu
    RpcSetType(3)
    RpcSetEnv('99', '01')
Endif

cArquivo := 'Gatilhos_Protheus.php' //arquivo pai que chamas todos as demais tabelas
conout("Iniciando: "+cArquivo)

nHdl := fCreate(cDiretori+cArquivo)
//Se houve falhas, encerra a rotina
If nHdl == -1
    MsgAlert("O arquivo '"+cDiretori+cArquivo+"' não pode ser criado!", "Atenção")
    return
Endif

fWrite(nHdl, FSHeader() + CRLF) //header para WordPress, se não usar remover

fWrite(nHdl, ' ' + CRLF)
fWrite(nHdl, ' 




' + CRLF)
fWrite(nHdl, '	
Gatilhos Protheus 

 ' + CRLF)
fWrite(nHdl, EncodeUTF8('	 ') + CRLF)
fWrite(nHdl, '	

 ' + CRLF)
fWrite(nHdl, '	  

 ' + CRLF)
fWrite(nHdl, '		
 ' + CRLF)
fWrite(nHdl, '			

 ' + CRLF)
fWrite(nHdl, '				
 ' + CRLF)
fWrite(nHdl, '					


 ' + CRLF)
fWrite(nHdl, '				

 ' + CRLF)
fWrite(nHdl, '			

 ' + CRLF)
fWrite(nHdl, '			
 ' + CRLF)

DbSelectArea('SX7')
dbsetorder(1)
SX7->(DbGoTop())
cCampo := ' '
While !SX7->(EoF())
    If cCampo <> SX7->X7_CAMPO
        cCampo := SX7->X7_CAMPO
        fWrite(nHdl, '				
 ' + CRLF)
        fWrite(nHdl, '					


 ' + CRLF)
        fWrite(nHdl, '				

 ' + CRLF)
    Endif
    SX7->(DbSkip())
EndDo

fWrite(nHdl, '        

' + CRLF)
fWrite(nHdl, '        Gatilhos
'+EncodeUTF8(alltrim(Upper(SX7->X7_CAMPO)))+'

' + CRLF)
fWrite(nHdl, '   

' + CRLF)
fWrite(nHdl, '

' + CRLF)
fWrite(nHdl, '' + CRLF)

fWrite(nHdl, FSFooter() + CRLF) //rodapé para usar wordpress

fClose(nHdl)
conout("Finalizado exportação da pagina de gatilhos: "+cArquivo)

Return .t.

Tabela
'+EncodeUTF8(alltrim(Upper(SX2->X2_CHAVE)+' - '+(FwSX2Util():GetX2Name( SX2->X2_CHAVE ))))+'

Consulta Padrão
'+EncodeUTF8(alltrim(Upper(QRYTMP->XB_ALIAS)+' - '+Capital(QRYTMP->XB_DESCRI)))+'

Grupo de Campos
'+EncodeUTF8(alltrim(Upper(SXG->XG_GRUPO)+' - '+capital(SXG->XG_DESCRI)))+'

Gatilhos
'+EncodeUTF8(alltrim(Upper(SX7->X7_CAMPO)))+'

Dicas e sugestões entre em contato

Obrigado

O post Exportar dicionário de dados do protheus apareceu primeiro em Sem Preju.

*Tabela(SX2)*
X2_NOME	X2_UNICO	X2_SYSOBJ
'+alltrim(SX2->X2_NOME)+'	'+alltrim(SX2->X2_UNICO)+'	'+alltrim(SX2->X2_SYSOBJ)+'

*Abas(SXA)*
XA_ALIAS	XA_ORDEM	XA_DESCRIC	XA_AGRUP	XA_TIPO
'+Alltrim(SXA->XA_ALIAS)+'	'+Alltrim(SXA->XA_ORDEM)+'	'+Alltrim(SXA->XA_DESCRIC)+'	'+Alltrim(SXA->XA_AGRUP)+'	'+Alltrim(SXA->XA_TIPO)+'

*Relacionamentos(SX9)*
X9_CDOM - Tabela Destino	X9_EXPDOM - Expressão Origem	X9_EXPCDOM - Expressão Destino
'+SX9->X9_CDOM+'	'+Alltrim(SX9->X9_EXPDOM)+'	'+Alltrim(SX9->X9_EXPCDOM)+'

*Consulta Padrão(SXB): '+alltrim(QRYTMP->XB_ALIAS) + ' - '+ alltrim(QRYTMP->XB_DESCRI)+'*
XB_ALIAS	XB_TIPO	XB_SEQ	XB_COLUNA	XB_DESCRI	XB_CONTEM
'+alltrim(QRYTMP->XB_ALIAS)+'	'+alltrim(QRYTMP->XB_TIPO)+'	'+alltrim(QRYTMP->XB_SEQ)+'	'+alltrim(QRYTMP->XB_COLUNA)+'	'+alltrim(QRYTMP->XB_DESCRI)+'	'+alltrim(QRYTMP->XB_CONTEM)+'

*Gatilhos(SX7) no Campo: '+alltrim(QRYTMP->X7_CAMPO)+'*
X7_CAMPO	X7_SEQUENC	X7_REGRA	X7_CDOMIN	X7_TIPO	X7_SEEK	X7_ALIAS	X7_ORDEM	X7_CHAVE	X7_CONDIC
'+alltrim(QRYTMP->X7_CAMPO)+'	'+alltrim(QRYTMP->X7_SEQUENC)+'	'+alltrim(QRYTMP->X7_REGRA)+'	'+alltrim(QRYTMP->X7_CDOMIN)+'	'+alltrim(QRYTMP->X7_TIPO)+'	'+alltrim(QRYTMP->X7_SEEK)+'	'+alltrim(QRYTMP->X7_ALIAS)+'	'+alltrim(cvaltochar(QRYTMP->X7_ORDEM))+'	'+alltrim(QRYTMP->X7_CHAVE)+'	'+alltrim(QRYTMP->X7_CONDIC)+'

*Indices(SIX)*
Ordem	Chave	Descrição	NickName
'+SIX->ORDEM+'	'+Alltrim(SIX->CHAVE)+'	'+EncodeUTF8(Alltrim(SIX->DESCRICAO))+'	'+Alltrim(SIX->NICKNAME)+'

*Grupo de Campo(SXG): '+alltrim(SXG->XG_GRUPO)+'*
XG_GRUPO	XG_DESCRI	XG_SIZEMAX	XG_SIZEMIN	XG_SIZE	XG_PICTURE
'+ Alltrim(SXG->XG_GRUPO)+'	'+ Alltrim(SXG->XG_DESCRI)+'	'+ Alltrim(cvaltochar(SXG->XG_SIZEMAX))+'	'+ Alltrim(cvaltochar(SXG->XG_SIZEMIN))+'	'+ Alltrim(cvaltochar(SXG->XG_SIZE))+'	'+Alltrim( SXG->XG_PICTURE)+'