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.