Infolight

Olá, Alguém já conseguiu uma forma de retornar se a nota já foi manifestada ou não com a DistribuicaoDFe? Em alguns casos de manifestação é retornada a mensagem: "136-Evento foi registrado, mas não vinculado a NF-e", quando fazemos nova tentativa é exibida a seguinte rejeição: "573-Duplicidade de evento", porém quando vamos consultar no portal da NF-e a nota segue sem a manifestação conforme figura abaixo.

Bom dia, Gostaria de saber se o ACBr está atualizado pra versão 2.0 da GNRe, pois atualizei a pasta e mesmo assim continua apresentando apenas a versão "ve100", já procurei na pasta de exemplos bem como do código fonte e continua aparecendo apenas a versão "ve100", as novas tags também não estão disponíveis... alguém já atualizou e poderia dá uma força aí indicando o caminho das pedras? Agradeço qualquer ajuda!

Boa tarde, Gostaria de saber se o componente já está atualizado para a nova versão (2.0) da GNR-e que irá entrar em vigor no dia 01/04/2019. E como fazer via código, pois procurei a propriedade ACBrGNRe1.Configuracoes.VersaoDG e só está disponível a [ve100]

Alguém poderia pelo menos postar um XML completo de uma GNR-e pra eu me basear, pois repito, o manual está desatualizado.

Estou utilizando via Monitor e por mais que li o código exemplo no acbr não encontrei as tags da chave de acesso da NF-e que tem que constar na GNR-e por exemplo.

Isso Mesmo. Diretamente de minha aplicação que é Delphi. Acredito que esse erro " ERRO: ID Inválido. Impossível Salvar XML" se deve a montagem do arquivo INI que não está completa.

Pessoal, alguém poderia fornecer um código completo pra gerar a GNRE com sucesso? pois pelo que vi o código disponibilizado no manual não está completo e não sei onde buscar essa informação. Obrigado!

Boa noite, Pessoal, estou gerando a GNRE em ambiente de homologação via AcbrMonitor e está retornando essa mensagem abaixo: GNRE.GerarGuia([Emitente] tipo=1 id=08.797.179/0001-61 RazaoSocial=DSG Distribuidora de Alimentos Ltda IE= Endereco=Rua Salatiel Marques Fontes, 695 Cidade=Sousa UF=PB Cep=58806470 Telefone=8335212697 [Complemento] detalhamentoReceita=1 produto=1 tipoDocOrigem=10 docOrigem=001001161098 [Referencia] ufFavorecida=RN receita=100099 ValorPrincipal=406,61 dataVencimento=01/03/2018 convenio=PROTOCOLO 50/2015 dataPagamento=01/03/2018 referenciaMes=02 referenciaAno=2018 referenciaParcela=1 [Destinatario] tipo=1 id=04.982.974/0001-79 IE=200911724 RazaoSocial=Gilson Gomes de Medeiros - Me cidade=Jucurutu ) ERRO: ID Inválido. Impossível Salvar XML O meu código está assim: procedure TfrmDIS_AcompCarga.btnGnreClick(Sender: TObject); var {sPathGNRe,} MvNFeAmbiente, MvNfeTpEmis: String; i, nLote: Integer; cmdGNRe: TComandoMonitor; IniGNRE: TMemIniMonitor; QA1s: TDefDataSet; begin MvNFeAmbiente := Copy(sLeParametro('MV_NFeAMBIENTE'), 1, 1); if MvNFeAmbiente = '' then MvNFeAmbiente := '2'; // Homologação //Cria diretorio para armazenar localmente os arquivos INI de eventos sDir := CriaPastaLocalINI('GNRe', ''); //Configura UF, Doc. fiscal, ambiente, versão e forma de emissão pConfiguraMonitor(StrToInt(MvNFeAmbiente), 'NFE', MvNfeTpEmis); if MvNFeAmbiente = '2' then InfoMessageBox('Você está em ambiente de HOMOLOGAÇÃO, sem efeito fiscal.' + #13#10 + 'Quando quiser alterar para o ambiente de PRODUÇÃO, basta informar a opção "1" no parâmetro "MV_NFeAMBIENTE" no módulo "Configurador".', Application.Title, [smbOK], smsInformation); pNewDataSet(QA1s); QA1s.CommandText := 'select A1_CIDADE, A1_IE from TA1 ' + 'where (A1_FILIAL = :TA1_FILIAL) ' + 'and (A1_CODIGO = :cod) and (A1_LOJA = :loj)'; //Cria arquivo INI para carregar dados da GNRE nLote := fnc_CriaLote('LOT', 'GNRE'); IniGNRE := TMemIniMonitor.Create(sDir + '\AddGNRE_' + IntTostr(nLote) + '.ini'); with dbgNotas do for i := FixedRows to (RowCount - 1) do begin QA1s.Close; QA1s.ParamByName('cod').AsString := Cells[nColCli, i]; QA1s.ParamByName('loj').AsString := Cells[nColLoj, i]; QA1s.Open; // emitente if Length(RemoveInvalid('0123456789', Cells[nColDOC, i])) > 11 then IniGNRE.WriteString('Emitente', 'tipo', '1') else IniGNRE.WriteString('Emitente', 'tipo', '2'); IniGNRE.WriteString('Emitente', 'id', xTransform(RemoveInvalid('0123456789', App_Var_CNPJ), '99.999.999/9999-99')); IniGNRE.WriteString('Emitente', 'RazaoSocial', App_Var_NomeCliente); //IniGNRE.WriteString('Emitente', 'IE', RemoveInvalid('0123456789', App_Var_IE)); IniGNRE.WriteString('Emitente', 'IE', ''); IniGNRE.WriteString('Emitente', 'Endereco', App_Var_EndTipoLogra + ' ' + App_Var_EndLogra + ', ' + App_Var_EndNumero); IniGNRE.WriteString('Emitente', 'Cidade', App_Var_EndCidade); IniGNRE.WriteString('Emitente', 'UF', App_Var_EndUF); IniGNRE.WriteString('Emitente', 'Cep', App_Var_EndCEP); IniGNRE.WriteString('Emitente', 'Telefone', App_Var_EndTel1); IniGNRE.WriteString('Complemento', 'detalhamentoReceita', '1'); IniGNRE.WriteString('Complemento', 'produto', '1'); IniGNRE.WriteString('Complemento', 'tipoDocOrigem', '10'); IniGNRE.WriteString('Complemento', 'docOrigem', Cells[nColNfs, i] + Cells[nColNfn, i]); IniGNRE.WriteString('Referencia', 'ufFavorecida', Cells[nColUF, i]); IniGNRE.WriteString('Referencia', 'receita', '100099'); IniGNRE.WriteString('Referencia', 'ValorPrincipal', Cells[nColVlr, i]); //c10_valorTotal := StrToReal(dbgNotas.Cells[nColVlr, ARow]); IniGNRE.WriteString('Referencia', 'dataVencimento', DateToStr(Now + 1)); IniGNRE.WriteString('Referencia', 'convenio', 'PROTOCOLO 50/2015'); IniGNRE.WriteString('Referencia', 'dataPagamento', DateToStr(Now + 1)); IniGNRE.WriteString('Referencia', 'referenciaMes', StrZero(MonthOf(Now), 2)); IniGNRE.WriteString('Referencia', 'referenciaAno', IntToStr(YearOf(Now))); IniGNRE.WriteString('Referencia', 'referenciaParcela', '1'); // destinatário if Length(RemoveInvalid('0123456789', Cells[nColDOC, i])) > 11 then IniGNRE.WriteString('Destinatario', 'tipo', '1') else IniGNRE.WriteString('Destinatario', 'tipo', '2'); IniGNRE.WriteString('Destinatario', 'id', Cells[nColDOC, i]); IniGNRE.WriteString('Destinatario', 'IE', QA1s.FieldByName('A1_IE').AsString); IniGNRE.WriteString('Destinatario', 'RazaoSocial', Cells[nColFan, i]); IniGNRE.WriteString('Destinatario', 'cidade', RemoveAcento(QA1s.FieldByName('A1_CIDADE').AsString)); // Campos Extras //camposExtras.Add; //camposExtras.Items[0].CampoExtra.codigo := 45; // minas gerais, ler manual GNR-e cmdGNRe := Monitor_Exec('GNRE.GerarGuia(' + IniGNRE.TextoIni + ')'); if cmdGNRE.OK then begin cmdGNRE.CriaIniRet; showmessage('recibo:' + cmdGNRE.ReadChaveSolta('recibo') ); end; //limpa ini para adicionar nova GNRE IniGNRe.Clear; end; QA1s.Close; FreeAndNil(QA1s); end;

Obrigado José. Onde eu configuro exatamente a pasta?

Obg Juliomar, Eu falo do comando SetAmbiente, que tem nos objetos NFe, MDFe, etc. Pois eu configuro individualmente o ambiente a utilizar baseado num parâmetro interno do meu sistema. E dessa maneira vou ter que entrar manualmente no monitor para fazer isso, mas se só tem essa maneira então blz. Aproveitando a oportunidade, como faço para gerar o XML da GNRE ?

Olá, Como faço para setar o ambiente para a GNRE? Não encontrei o comando no manual online. Obrigado.

Boa noite Daniel, Passamos pelo mesmo problema após atualização, porém conseguimos resolver quando compilamos em 32 bits, ao tentar compilar em 64 bits é apresentada a seguinte mensagem: [dcc64 Fatal Error] ACBrDFe.pas(45): F2048 Bad unit format: 'C:\Projetos\ACBr\Lib\Delphi\LibD24\ACBrIntegrador.dcu' - Expected version: 31.0, Windows Unicode(x64) Found version: 31.0, Windows Unicode(x86)

Boa tarde Fernando, utilize o manual oficial: http://acbr.sourceforge.net/ACBrMonitor/MDFeEncerrarMDFe.html Estou fazendo a chamada utilizando sockets e está dando tudo certo. Os parâmetros são diferentes do que você usou na sua chamada.

Olá, Olá Fernando, consulte o comando MDFe.EncerrarMDFe, pois são necessários menos parâmetros agora. Aproveitando o tópico, estamos precisando obter o formato do retorno do comando MDFe.EncerrarMDFe, Alguém poderia disponibilizar um exemplo do retorno do comando acima, em caso de sucesso. Obrigado.

Fiz o teste na versão 1.1.0.46 e continua acontecendo o mesmo erro.

Como assim Daniel, já que estou adicionando ao lote, a assinatura não vai se feita pelo comando de envio do lote? segue anexo o arquivo de log. LOG.TXT Obrigado pela dica amigo, vou tentar instalar essa versão, agora não bastaria salvar apenas o arquivo ACBrMonitor.ini e copiar por cima após a instalação, ao invés de deixar a pasta completa?

Boa tarde, Estamos tentando adicionar o MDFe abaixo utilizando o comando de envio de lote do Monitor. Contudo o mesmo retorna o erro ERRO: Falha na validação dos dados do Manifesto: 121871 - Element '{http://www.portalfiscal.inf.br/mdfe}MDFe': Missing child element(s). Expected is ( {http://www.w3.org/2000/09/xmldsig#}Signature ). Checamos a correspondência das chaves informadas, de acordo com o modelo do manual do comando MDFe, e não conseguimos encontrar chaves ausentes. Inclusive, usando o componente ACBr, com as mesmas chaves, conseguíamos gerar o MDFe normalmente. Alguém poderia nos dar uma pista do que está acontecendo? Obs: Tentamos executar o comando 'MDFe.SetVersaoDF(3.00)' antes da geração, tentando forçar a versão do schema a ser utilizado pelo monitor, mesmo assim não adiantou. Obrigado. Segue o comando enviado: MDFe.AdicionarMDFe([ide] cUF=25 tpAmb=2 tpEmit=2 mod=58 serie=1 nMDF=12 cmdf=1474170 modal=1 dhEmi=07/12/2017 13:39:36 tpEmis=1 procEmi=0 verProc=1.1.0 UFIni=PB UFFim=CE [CARR001] cMunCarrega=2516201 xMunCarrega=Sousa dhIniViagem=07/12/2017 [emit] CNPJ=08797179000161 IE=161518931 xNome=DSG Distribuidora de Alimentos Ltda xFant=Controle xLgr=Salatiel Marques Fontes nro=695 xCpl= xBairro=Andre Gadelha cMun=2516201 xMun=Sousa CEP=58806470 UF=PB fone=8335212697 [Rodo] RNTRC=00000000 CIOT=000000000000 [veicTracao] cInt=000005 placa=NPW7237 tara=3500 capKG=3500 capM3=0 tpRod=02 tpCar=02 UF=PB [moto001] xNome=Augusto Fernandes de Carvalho CPF=03023954402 [DESC001] cMunDescarga=2307304 xMunDescarga=Juazeiro do Norte [DESC002] cMunDescarga=2304202 xMunDescarga=Crato [DESC003] cMunDescarga=2301901 xMunDescarga=Barbalha [DESC004] cMunDescarga=2308401 xMunDescarga=Missao Velha [DESC005] cMunDescarga=2307205 xMunDescarga=Jati [DESC006] cMunDescarga=2308302 xMunDescarga=Milagres [DESC007] cMunDescarga=2311108 xMunDescarga=Porteiras [DESC008] cMunDescarga=2310605 xMunDescarga=Penaforte [DESC009] cMunDescarga=2302503 xMunDescarga=Brejo Santo [tot] qCTe=0 qCT=0 qNFe=24 qNF=0 vCarga=46451.85 cUnid=01 qCarga=4725.62 ,10) ERRO: Falha na validação dos dados do Manifesto: 12 1871 - Element '{http://www.portalfiscal.inf.br/mdfe}MDFe': Missing child element(s). Expected is ( {http://www.w3.org/2000/09/xmldsig#}Signature ).

Olá, Aproveitando o assunto do tópico, alguém poderia disponibilizar um exemplo do texto retornado pelo comando ACBr.EnviarLoteMDFe, em caso de sucesso? Pois estamos convertendo nosso código para o monitorplus e precisamos mapear corretamente os atributos Ex: Recibo, VerAplic, Protocolo e etc. para as chaves e seções corretas retornadas pelo comando acima, após o envio com sucesso do lote. Agradecemos muito pela colaboração.

Obrigado Ítalo, Consegui o primeiro retorno 138 depois de muitas tentativas, acredito que ao retirar os zeros a esquerda do NSU (00000000025) funcionou normal,. Agora, por que você recomenda fazer os testes em produção? temos receio de afetar as consultas de nosso cliente, já que o mesmo continua operando o sistema na versão sem o monitor.

Boa tarde, Estamos tentando efetuar consulta das notas destinadas no ambiente de homologação, mas a mesma sempre retorna a resultado mostrado abaixo. O mesmo ocorre quando usamos o ambiente de produção. Usamos no código da UF o literal do estado, mas também não funcionou. NFe.DistribuicaoDFePorUltNSU(25, 08797179000161, 0) OK: [DISTRIBUICAODFE] versao=1.01 tpAmb=2 verAplic=1.1.9 cStat=137 xMotivo=Nenhum documento localizado dhResp=13/11/2017 16:54:17 indCont=1 ultNSU=000000000000025 NomeArq= Alguém sabe dizer o que pode estar acontecendo? enviamos em anexo o Ini do monitor, caso seja útil. Obrigado. ACBrMonitor.ini

Obrigado José, você fala do manual do contribuinte versão 6.0? Estou tentando buscar essas informações nele mesmo. Agora onde irei obter o XML da nota, já que em [ResNFe] consta apenas o resumo? Alguns comentários que li dizem que devo consultar o próximo resumo após a manifestação. É dessa maneira mesmo? Obrigado.

Já somos assinantes desde 2014

Obrigado José, agora poderemos prosseguir com nosso código. Seria ótimo que o Manual online fosse atualizado, pra futuras consultas. Observando o retorno dá pra perceber(preliminarmente) que as seções [RESNFExxx] e [RESEVExxx] representam os documentos e eventos registrados, na sequencia de NSU. Resta dúvida quanto ao significado das seções [ProEvexxx] e [InfEvexxx], acredito que a primeira seja o evento após processado.

Olá, Estamos precisando apenas saber as chaves e seções retornadas pelo comando NFE.DistribuicaoDFe, para cada tipo de Status retornado, para poder realizar o tratamento do retorno, já que o manual online não mostra o retorno do comando. Fizemos uns testes em homologação para tentar visualizar o retorno, tanto por chave da NFe como por NSU, mas obtemos como resposta: Nenhum documento localizado, ou ERRO: Rejeicao: NF-e inexistente para a chave de acesso informada, mesmo tenho informado uma chave NFe válida e já manifestada (consideramos o serviço de distribuição-DFE da Receita o pior, para obter-se um retorno esperado e efetuar testes em homologação). Ex comando efetuado: NFe.DistribuicaoDFePorChaveNFe(' + IntToStr(Cod_UF_IBGE(UF)) + ', ' + CNPJ + ', 25170502113477000109550020000019661000020797)'; Para fins de adaptar nosso código (já que estamos migrando para o monitor) precisamos apenas saber as seções e chaves retornadas pelo comando. Obrigado.

Alguma novidade?