PCREQ-5814_Exportação_Personalizada_fase _02

Características do Requisito

Descrição

• O objetivo é permitir que os usuários incluam fórmulas, como opções de campos na rotina Exportação Personalizada;
• Desenvolver funções() que recebam os parâmetros previamente cadastrados, no Cadastro de Fórmulas (Configuração / Exportação personalizada JURA023).
• Apresentar as funções na lista de campos da Exportação Personalizada. E quando selecionadas, o retorno das funções é apresentado no arquivo gerado pela Exportação Personalizada.

Como a fórmula deve ser cadastrada?

Como uma Function ou User Function dentro do RPO do Protheus. Lembrando que seu nome não pode exceder 09 caracteres.

No Cadastro de fórmulas em Configuração / Exportação Personalizada JURA023, para poder executar a fórmula.

Exemplo:

Descrição: Nome do campo visível na planilha e na lista de campos da Exportação Personalizada.

Fórmula: Nome da Function ou User Function;

Parâmetros: Lista de parâmetros separados por vírgula.

Para campos, informe o nome, sem aspas e para texto, inclua aspas simples nas informações.

Como a Function deve ser escrita?

Como uma  function para receber os parâmetros conforme o cadastro de fórmulas.

Exemplo:

USER FUNCTION FEXP_ENVC (cCajuri, cTipo)

Local cRet := ‘’

Local aArea := GetArea()

Local cLista := GetNextAlias()

Local cSQL

cSQL := “SELECT NT9.NT9_NOME FROM “ + RetSQLName(“NT9”) + “ NT9 ”

cSQL += “ WHERE NT9.NT9_CAJURI = ‘” + cCajuri + “’”

cSQL += “ AND NT9.NT9_FILIAL = ‘” + xFilial(‘NT9’) + “’”

cSQL += “ AND NT9.D_E_L_E_T_ = ‘ ‘”

cSQL := ChangeQuery(cSQL)

dbUseArea(.T., 'TOPCONN', TcGenQry( ,, cSQL ) , cLista, .T., .F.)

dbSelectArea(cLista)

(cLista)->(dbGoTop())

While (cLista)->(!Eof())

                cRet += (cLista)->NT9_NOME

                if ((cLista)->(!Eof())

                               cRet += “/”

                Endif

(cLista)->(dbSkip())

End

(cLista)->( dbcloseArea() )

RestArea( aArea )

Return cRet

Procedimento para Utilização

1. No módulo Gestão Jurídica (SIGAJURI), acesse Atualizações / Configuração / Exportação Personalizada (JURA108);
2. Selecione a tabela e clique em Alterar;
3. Clique na tabela desejada  e no grid inferior (Fórmulas), cadastre a fórmula preenchendo a descrição, nome da função criada e os Parâmetros necessários para a função;

Exemplo:
                 Descrição: Envolvidos Concatenados
                 Função: FEXP_ENVC
                 Parâmetros: NUQ_CAJURI,1
4. Após cadastrar as fórmulas desejadas, clique em Confirmar;

5. Acesse Atualizações / Assuntos Jurídicos / Pesquisa, selecione a Pesquisa, preencha os filtros, e para continuar clique em Pesquisar;

6. Clique com o botão direito do mouse no processo desejado, visualize a mensagem e depois clique em Inserir o processo na fila de impressão;

7. Clique com o botão direito nesta mensagem e a seguir em Exportação personalizada;

8. Visualize a janela com a pergunta: Já foi executada a rotina de correção de valores?, se já tiver sido executada, clique em Sim;

9. Selecione a(s) tabelas em que foram cadastradas as fórmulas;

10.Adicione os campos e/ou fórmulas e clique em Exportar;

11. Selecione a pasta onde o arquivo foi gerado, e defina o nome do arquivo e clique em Salvar;

12. Veja a janela informando onde o arquivo foi gerado, e a pergunta: Deseja abrir o arquivo?;

13. Si quiser visualiza-lo, clique em Sim;

14. O arquivo em formato Excel é aberto;