Janio Aguiar

Moderators
  • Content count

    220
  • Joined

  • Last visited

  • Days Won

    43

Janio Aguiar last won the day on March 8

Janio Aguiar had the most liked content!

Community Reputation

133 Excellent

About Janio Aguiar

  • Rank
    Primeiro Sargento
  1. Provisoriamente estou fazendo como abaixo, mas acho que deve haver uma maneira mais fácil, para os padrões windeveiros; sMembroVar is string = "NAOENCERRADOS" + MyStrZero(nContaElem,3) FOR EACH MemberVariant OF jRetorno.NAOENCERRADOS IF MemberVariant..Name = sMembroVar THEN sChvMdf is string = MemberVariant.ChMDFe nContaElem++ sMembroVar = "NAOENCERRADOS" + MyStrZero(nContaElem,3) END END
  2. Boa tarde, Alguem tem ideia de como ler o Json abaixo? Lembrando que "NAOENCERRADOS002... 003... 004..." etc eu nao sei se tera ou nao. Pode ter centenas, ou nenhum. Obg PS: Versao 23 Json : { "NAOENCERRADOS" : { "CStat" : 111, "CUF" : 23, "NAOENCERRADOS002" : { "CNPJCPF" : "07439697000140", "ChMDFe" : "23210507439697000140580010000000131000000180", "Msg" : "", "NProt" : "923210000001056" }, "NAOENCERRADOS003" : { "CNPJCPF" : "07439697000155", "ChMDFe" : "23210507439697000140580010000000131000001254", "Msg" : "", "NProt" : "923210000001056" }, "Msg" : "", "TpAmb" : "2", "VerAplic" : "RS20210422122621", "Versao" : "RS20210422122621", "XMotivo" : "Consulta não encerrados localizou MDF-e nessa situação" } }
  3. Tenho uma outra rotina de importação de xml do Cupom Eletronico (SAT), que segue o mesmo padrao e tbm 100% Sugestões: - Jogue o TableAddLine num variável - coloque essa variável junto a table e nao a coluna, tipo Table_XXXXX[nLinhaAdicionada].COL_XXXX e nao Table_XXXXX.COL_XXXX[nLinhaAdicionada] - Faça teste puxando o xml de um arquivo e não de uma string como vc ta fazendo
  4. Bom dia, faço semelhante a vc, e tem sido 100% ate o momento TableDeleteAll(TABLE_Produtos) FOR EACH Produto OF xml.nfeProc.NFe.infNFe ON det nX is int = TableAddLine(TABLE_Produtos) TABLE_Produtos[nX].COL_CodNcm = Produto.prod.NCM TABLE_Produtos[nX].COL_VlrOut = Produto.prod.vOutro TABLE_Produtos[nX].COL_VlrFrt = Produto.prod.vFrete
  5. Dica sensacional, Vilani
  6. Rinaldo, Table por programação ate que funciona. Mas table linkada a uma query isso não funciona
  7. Bom dia! Num controle Table linkada a uma query, como faço pra apagar todas as linhas da table sem re-executar a query? TableDeleteAll não funciona nesse caso
  8. Qual Android desses aparelho que não da certo? Android com versão >= 10 (se nao me engano), vc tem que ir em CONFIGURAÇÕES DO APP, e permitir gravar
  9. Pra meu desespero, acabo de acessar o cliente e... advinha
  10. Complicado. Eh um monitor, sem interface com usuario. O sistema tem q fechar e abrir sem interação com ninguém. Acho q vou permitir abrir mais de uma instancia pq ao meu ver nao tem jeito mesmo. O interessante eh que esse app está rodando em VARIOS computadores, mas APENAS em 1 ocorre isso.
  11. Ja tentou o TableSelectPlus()?? Ao marcar/desmarcar o chekbox, vc pega a linha da table e manda um TableSelectPlus passando a linha. É puro chute
  12. Nao é dessa forma que vc JA está fazendo? estou vendo varias linhas selecionadas rsrs
  13. UMA linha ou VARIAS linhas?
  14. IF isso ExeTerminate("MeuPrograma.Exe") // se fechar aqui RestartProgram() // essa linha nao é executada END