Archive for category API
Lendo arquivos XML no NetExpress 3.1 com MSXML
Olá companheiros !
Depois de um longo tempo sem atualizações, trouxe mais uma dica bacana para os amigos que como eu, estão sofrendo com a NF-e no NetExpress.
Utilizo o Uninfe para realizar o envio e retorno das notas e sempre tratei os arquivos de retorno no NetExpress com o INSPECT. Hoje porém, me deparei com um problema mais sério, ler um XML de uma NF-e inteira e importar as informações para o meu sistema. Mais de 300 TAGS’s com INSPECT complicaria um pouco, certo ?
Já encontrei muitos exemplos de leitura de XML com as novas versões do NetExpress, a partir da versão 4 esse controle é nativo da ferramenta, mas e como fica o meu Net 3.1 ? Encontrei nesse site um demo de leitura do XML e para a minha surpresa, rodou certinho no Net 3.1, dei uma boa olhada para pegar o conceito e resolvi criar um demo um pouco mais “didático”, para que outros também possam utilizar essa ferramenta.
Imagine poder chamar um método, passando para ele somente o nome do arquivo XML e retornando um objeto NFE com todos os dados da nota carregados ?
invoke wsrXml "CarregaNfe" using wsChave returning umaNFe
Esse é o meu objetivo, e com essa rotina ele ficou mais próximo de ser alcançado. =)
Agora chega falatório, vamos a classe.
Para testar, declare a classe wsrXml no seu programa e simplesmente faça a chamada assim:
invoke wsrXml "LeXml"No método “LeXml” eu deixei o caminho absoluto do arquivo XML que será aberto, não esqueça de alterar isso também antes de testar.
Daí pra frente é só animar e ler os comentários no código fonte. Ele vai imprimir na tela todas as TAG’s e Valores do arquivo XML. Só gostaria de lembrar que esse exemplo foi feito exclusivamente para um XML que tenha uma TAG principal e as suas “filhas”. O correto seria utilizar recursividade para poder ler infinitos níveis e valores no XML. Assim que eu tiver novos métodos, prometo atualizar o exemplo.
Fazer download do projeto - Ou você pode acessar a área de downloads.
O projeto foi útil pra você ? Deixe seu comentário para que eu saiba disso.
Abraço.
Criando uma caixa de mensagem com a API do Windows em NetExpress 3.1
Posted by LeX in API, Dicas, Net Express 3.1, Uncategorized on June 5th, 2009
Quem usa DialogSystem já se acostumou a criar as caixas de mensagens e chamar direto pelo próprio Dialog. Já tinha visto alguns exemplos de criação das MessageBoxes dinamicamente, mas sempre achei trabalhoso demais.
Não faz muito tempo, comecei um projeto novo, que iria utilizar muitas dessas caixas, tanto de questionamento quanto de avisos para o usuário, resolvi então pesquisar um pouco mais sobre o assunto e colocá-lo em prática.
A idéia era simples: Criar uma classe para tratar essas mensagens, que deixasse a chamada do método mais simples possível.
E não é que deu certo ?
Agora para chamar uma MessageBox só preciso disso:
invoke wsrMsg "Question" using z"Confirma exclusão ?" returning wsResult
e para avisos, ainda mais simples:
invoke wsrMsg "Warning" using z"Data inválida"
Então vamos lá, o que é preciso para que você possa cria a sua classe também.
- No inicio do programa, declare o windows.cpy.
- Em special-names: call-convention 66 is WAPI.
E enfim, o método:
*>================================================================ *> Mensagem Sim / Não *>================================================================ method-id. "Question". local-storage section. 77 lsHwnd pic 9(09) comp-5. 77 lsMsg pic x(255). 77 lsCaption pic x(255). 77 lsuType UINT. 77 lsResult LRESULT. linkage section. 77 lnkMsg pic x(255). 77 lnkResult pic 9(09) comp-5. procedure division using lnkMsg returning lnkResult. // Pega o handle da janela que estiver ativa call WAPI "GetActiveWindow" returning lsHwnd // Move o texto e o título da janela move lnkMsg to lsMSG move z"Atenção !" to lsCaption // Seleciona o tipo de icone que irá aparecer move MB-ICONQUESTION to lsuType // Seleciona quais botões deverão aparecer add MB-YESNO to lsuType // Chamando a API call wapi MessageBoxA using by value lsHwnd by reference lsMSG by reference lsCaption by value lsuType returning lsResult move lsResult to lnkResult exit method end method "Question".
Já tem aí uma receita de bolo bacana pra quem quer começar. Agradecimentos especiais ao Grande Mestre Jedi Alexandre Cortez.
Enjoy..