Executar consultas SQL no Protheus com AdvPL

#Importante destacar duas coisas:

1. O Ambiente que estou testando utiliza a plataforma de Banco de Dados SQL Server da Microsoft

2. O Ambiente criado junto ao Prothues é a empresa teste 99. Se você pretende utilizar essa solução em sua empresa, atenha-se ao novo das tabelas. Não esqueça de utlizar os comandos %table:SB1% (quando utilizar o Embedded SQL) e o "+RetSQLName("SB1")+" (quando utilizar o TCQuery).

Qualquer dúvida a mais, entre em contato.

Tabela ZZS

Perguntas: MDATAPDR e MSQLSCR1

Consulta padrão "ZZSCOD" na tabela ZZS, retornando ZZS->ZZS_CODE

User Function MSQLM5TR(X,Y)

#Aqui nós iremos escrever a função principal, qual irá:

- Por meio do BeginSql obter a sentença SQL da tabela ZZS

- Carregar as variáveis principais: cQuery, cPsqusa e cOrdrBy

- Chamar a montagem da tela

Static Function MnTTela com MSDIALOG

#Aqui definiremos nossa janela com os seus elementos visuais

Static Function MnTEstrtre

#Aqui serão inseridos os dados retornados pela consulta SQL utilizando a Classe MsNewGetDados

Static Function Preenche

#Aqui iremos executar a consulta SQL (TCQuery) para que os dados populem nossa tela

#Aqui iremos inserir as ações que cada botão (elemento visual) deverá executar ao ser acionado, por meio da opção ACTION do MSDIALOG

Static Function bLimpar()

Static Function bFechar()

#Aqui iremos inserir uma ação no campo "Pesquisar" deverá executar ao ser acionado, por meio da opção VALID do MSDIALOG

Static Function vPesquisa()

Static Function GeraExcel()

#Aqui iremos desenvolver uma função para obter os dados da tela e gerar um arquivo .xml a partir do mesmo. Utilizaremos a classe FWMSEXCEL

User Function MQyCon01()

#Aqui iremos realizar a chamada da função por meio de um bloco de código:

Processa({||U_MSQLM5TR(STR_NAME,cCndcao)},,"Processando consulta ...")

Ideal para testar os fontes antes de liberar para o usuário

→ Nesta aula bônus iremos acrescentar algumas melhorias em nosso código

. Consultar se o diretório já está criado

. Acrescentar mensagem antes do pergunte

​Aula Bônus - Corrigindo a funcionalidade Pergunte

Um detalhe bobo pode comprometer a experiência de nossos usuários.

Vamos corrigir uma pequena falha em nosso fonte de chamada do fonte principal.​

Aula Bônus - Corrigindo a função de pesquisa

- Por uma desatenção minha, deixe a função de pesquisa com uma falha.

Vamos corrigi-la!

Implantação das funções TCSqlExec e TCSqlError

TCSqlExec := https://tdn.totvs.com/display/tec/TCSQLExec

TCSqlError := https://tdn.totvs.com/display/tec/TCSQLError

Perguntas:

1. Como devo preencher a tela de cadastro da Tabela ZZS?

2. Como faço para visualizar as tabelas do meu Banco de Dados no DBeaver?
Extra:

Como corrigir a resolução do SmartClient na minha estação de Trabalho?

Perguntas:

1. O que é preciso para que esse mecanismo funcione em um ambiente que possui mais de uma empresa ou filial?

→ Segue a resposta no vídeo.

Novidades! A nova classe FwMsExcelXlsx irá contribuir com o nosso projeto. Vamos conhecê-la!

Preparando nosso ambiente para utilizar a Classe FwMsExcelXlsx - Parte 01

Vamos verificar quais são os requisitos exigidos para poder utilizar a nova classe em nosso ambiente.

Para mais detalhes, consulte o tutorial anexo a esta aula.

Utilize-se também da documentação oficial no link a seguir: https://tdn.totvs.com/display/framework/FWMsExcelXlsx

Nesta aula, iremos aplicar a nova classe no fonte produzido na aula 25 deste treinamento.