Amarildo de Matos

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 bom dia ======================= PROCEDURE ACBR_NFE_CARREGARXML(sRecebe_arquivo_ou_xml) // NFE_ CarregarXML( eArquivoOuXML ); gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarXML",StringToUTF8(sRecebe_arquivo_ou_xml)) IF gnretorno_acbr=0 THEN RESULT "Carregou Xml com Sucesso" ELSE RESULT "Erro Retorno :"+gnretorno_acbr END ==================== // btn NFE carregar xml bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML) END ACBR_FINALIZAR() ================================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2385-windev-webdev-mobile-acbr.html

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

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

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

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

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

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

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 ,

Hangout , iniciando Acbrlib integrando com Windev

bom dia.. voce usa componente ou usa acbrmonitorPlus?

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..

bom dia.. verifique se nao teve nenhuma atualizacao no windows

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

boa noite.. fiz uma live ao vivo com rafael explicando como funcionava mdfe com acbr e como pegar encerramento.

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

bom dia.. voce pode usar essa rotina https://acbr.sourceforge.io/ACBrMonitor/MDFeConsultaMDFeNaoEnc.html

bom dia tem uma tag agora vTroco // [PAGXXX] // tpag= // vPag= // indPag= // tpIntegra= // CNPJ= // tBand= // cAut= // vTroco

Bom dia.. veja esse link. https://acbr.sourceforge.io/ACBrMonitor/BOLETOMontarNossoNumero.html

boa tarde .. nesse caso faça sem o seguro.. blz..

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

bom dia tentou aumentar o time-out?

boa tarde.. tem como anexar o xml completo ? para analise?

bom dia.. acho que nessa hora, voce tera de ter dois parceiros para isso. um seria o seu proprio cliente e outro o Contador do seu cliente.. e assim.. eles vao dizer realmente o que vai precisar fazer de impostos e como calcular.. aqui , sempre que temos duvidas de impostos , nos sococrremos aos contadores.. tem muito material na internet sobre isso tambem.. se precisar de algumas dicas, posso dar.. me procure que posso explicar como nos fizemos aqui no nosso sistema.