Jump to content

Amarildo de Matos

Moderadores
  • Content Count

    1,637
  • Joined

  • Last visited

  • Days Won

    18

Amarildo de Matos last won the day on December 23 2018

Amarildo de Matos had the most liked content!

Community Reputation

895 Excellent

About Amarildo de Matos

  • Rank
    Membro Intermediário
  • Birthday 08/24/1962

Contact Methods

  • Website URL
    http://www.amarildomatos.com.br
  • Skype
    amarildo.matos.informatica

Profile Information

  • Sexo
    Masculino
  • Localização
    Novo Hamburgo
  • Interesses
    MonitorAcbrPlus,Nfe,nfc-e,cte,cte-os,mdfe,sped,manifestação notas

Recent Profile Visitors

2,320 profile views
  1. Bom dia ======================= PROCEDURE ACBR_CONFIG_GRAVA_VALOR(RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR) //NFE_ ConfigGravarValor(eSessao, eChave, sValor); gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConfigGravarValor",RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR) IF gnretorno_acbr=0 THEN RESULT "ALTERADO COM SUCESSO" ELSE RESULT "ERRO RETORNO DA GRAVACAO:"+gnretorno_acbr END ================================= // btn NFE CONFIG Grava Valor bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_sessao_resposta=ACBR_CONFIG_GRAVA_VALOR(EDT_SESSAO,EDT_CHAVE,EDT_sessao_resposta) END ACBR_FINALIZAR() ========================== https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2381-windev-webdev-mobile-acbr.html
  2. Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 14 10 2019. Dica 2378. Vou Alterar a maneira de fazer a leitura do ini (Graças Cassiano) Em vez de fazer tudo manual, foi feito em cima do proprio arquivo ini. =============== GLOBAL gnretorno_acbr is int gsarquivo_ini is string="C:\My_Projects\_Curso_erpAmarildo_v24\componente_acbr_dll\Exe\acbrlib.ini" // acbrlib.ini gs_nome_sessao is string="" ST_chaves is Structure sChave is string sValue is string END ST_ini is Structure sEssao is string arrChaves is array of ST_chaves END arrIni is array of ST_ini ================= PROCEDURE ATUALIZA_LIST_BOX_SESSAO() LIST_SESSAO.DeleteAll() // ListDeleteAll(LIST_SESSAO) sTexto is ANSI string=fLoadText(EDT_ARQUIVO_ACBR_LIB,foAnsi) EDT_RESPOSTA=sTexto arrSplitgeral is array of strings= StringSplit(sTexto,CR) nPos is int=0 FOR EACH sLinha OF arrSplitgeral IF sLinha[1]="[" THEN sEssao is string=NoCharacter(sLinha,"[]") //listadd(LIST_SESSAO,sEssao) LIST_SESSAO.Add(sEssao) nPos = Add(arrIni) arrIni[nPos].sEssao=sEssao ELSE IF nPos>0 THEN schave is string=ExtractString(sLinha,1,"=") sValue is string=ExtractString(sLinha,2,"=") IF schave<>"" THEN nPoschave is int=Add(arrIni[nPos].arrChaves) arrIni[nPos].arrChaves[nPoschave].sChave=schave arrIni[nPos].arrChaves[nPoschave].sValue=sValue END END END END ======================== PROCEDURE ATUALIZA_LIST_CHAVE() LIST_CHAVE.DeleteAll() //DeleteAll(LIST_CHAVE) FOR EACH stCHAVE OF arrIni[LIST_SESSAO].arrChaves //ListAdd(LIST_CHAVE,stCHAVE.sChave) LIST_CHAVE.Add(stCHAVE.sChave) END ============== https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2378-windev-webdev-mobile-acbr.html fonte_windev_Lista_Chave fonte_windev_Lista_sessao fonte_windev_Global_Acbr fonte_windev_ACBR_CONFIG_LER_VALOR
  3. bom dia PROCEDURE ACBR_NOME_VERSAO_NFE() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Nome",&gsResposta,&gnTamanho) sNOME is string=gsResposta gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Versao",&gsResposta,&gnTamanho) sVERSAO is string=gsResposta RESULT "NOME:"+sNOME+" VERSAO:"+sVERSAO ========================== // btn nome versao bRetorno is boolean=ACBR_INICIALIZAR() IF bRetorno=True THEN EDT_RESPOSTA=ACBR_NOME_VERSAO_NFE() END ACBR_FINALIZAR() bom dia https://acbr.sourceforge.io/ACBrLib/NFE_ConfigLerValor.html PROCEDURE ACBR_CONFIG_LER_VALOR(RECEBE_SESSAO,RECEBE_CHAVE) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConfigLerValor",RECEBE_SESSAO,RECEBE_CHAVE,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN gsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(gsResposta) END ELSE RESULT "Erro Retorno:"+gnretorno_acbr END https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2376-windev-webdev-mobile-acbr.html fonte_windev_Global_Acbr fonte_windev_ACBR_CONFIG_LER_VALOR fonte_windev_Lista_Chave fonte_windev_Lista_sessao
  4. bom dia https://acbr.sourceforge.io/ACBrLib/NFE_Inicializar.html https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html https://acbr.sourceforge.io/ACBrLib/NFE_StatusServico.html https://acbr.sourceforge.io/ACBrLib/NFE_UltimoRetorno.html PROCEDURE ACBR_STATUS_SERVICO() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_StatusServico",&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN gsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(gsResposta) END ELSE RESULT "Erro Retorno:"+gnretorno_acbr END https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2371-windev-webdev-mobile-acbr.html
  5. bom dia ======================= https://acbr.sourceforge.io/ACBrLib/NFE_Inicializar.html https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html https://acbr.sourceforge.io/ACBrLib/NFE_StatusServico.html ======================= GLOBAL gnretorno_acbr is int gsarquivo_ini is string="C:\My_Projects\_Curso_erpAmarildo_v24\componente_acbr_dll\Exe\acbrlib.ini" // acbrlib.ini gsResposta is string on 256 gsResposta_maior_256 is string="" gnTamanho is system int = 256 ======================= // btn Status Servico bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_STATUS_SERVICO() END ACBR_FINALIZAR() ======================== PROCEDURE ACBR_STATUS_SERVICO() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_StatusServico",&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT UTF8ToString(gsResposta) ELSE RESULT "Erro Retorno:"+gnretorno_acbr END // gsResposta_maior_256 => ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2370-windev-webdev-mobile-acbr.html
  6. bom dia.. Finalizar Metodo //PROCEDURE ACBR_FINALIZAR() //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") IF gnretorno_acbr=0 THEN RESULT True ELSE Info("erro retorno"+CR+gnretorno_acbr) END https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2367-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html
  7. Bom dia // GLOBAL gnretorno_acbr is int gsarquivo_ini is string="" // acbrlib.ini // PROCEDURE ACBR_INICIALIZAR() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") IF gnretorno_acbr=0 THEN RESULT True ELSE Info("erro retorno"+CR+gnretorno_acbr) END ,
  8. Hangout , iniciando Acbrlib integrando com Windev
  9. bom dia http://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8= Acesse esse link , e pode consultar com o numero da chave. Quero deixar uma coisa que nos ja desenvolvemos aqui, e voce poderiam fazer ai tambem. Quando fizerem a nota, ja gravar o xml dentro do banco de dados..
  10. bom dia.. verifique se nao teve nenhuma atualizacao no windows
  11. Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.
  12. boa noite.. fiz uma live ao vivo com rafael explicando como funcionava mdfe com acbr e como pegar encerramento.
  13. opa..nao entendi.. sua resposta..?.. vou dizer como eu fiz.. eu tenho um botao, que o cliente, quando quer ver o que nao foi encerrado entao ele clica nesse notao. ent__naoencer.txt
  14. bom dia.. voce pode usar essa rotina https://acbr.sourceforge.io/ACBrMonitor/MDFeConsultaMDFeNaoEnc.html
×
×
  • Create New...