rrodrigoffernandes

Olá amigos, estou implementando no meu sistema o ACBrNFeMonitor2 para fazer NFe; estou utilizando a versão 0.7*** e eu estou tendo alguns problemas com cancelamento de NFe, já procurei no site a versão mais atualizada porem quando clico no link para efetuar o download o link esta quebrado. Alguém poderia colocar a última versão para que eu possa fazer o download?

Juliomar, procurei bastante mas até agora não consegui encontrar o tópico que fala sobre a implementação por sokets, teria como vc me passar o link desse tópico que citou?

Juliomar, você teria algum exemplo de como passar os comandos via socket em delphi para o acbrnfemonitor? estou tendo muitas dificuldades, eu consigo conectar, mas não consigo enviar os comandos.

anfm, no caso, desejo fazer da seguinte forma, me corriga se estiver errado. - Desejo instalar o acbrmonitor no servidor junto com o certificado A3, e todos os outros computadores da rede fazer a nfe, validar, assinar, transmitir tudo enviando comandos e acessando o monitor que está lá no servidor junto com o cartão A3, tem como fazer isso?

olá anfm, você teria essas funções acima citadas em pascal? estou desenvolvendo em delphi e estou com dificuldades, poderia me passar?

Olá Paulo, você ou alguém teria algum exemplo de como integrar minha aplicação com o acbrmonitor? já pesquisei no forum e não consegui entender o que o pessoal está dizendo... estou utilizando a função EnviarComando, porém não está dando certo... está retornando erro. function EnviarComando(const ACommand: AnsiString; var Resposta: AnsiString): Boolean; var Resp: Integer; ClientTCP: TTcpClient; begin Result := False; Resposta := EmptyStr; ClientTCP := TTcpClient.create(nil); try ClientTCP.RemoteHost := AnsiString('192.168.0.110'); ClientTCP.RemotePort := AnsiString(IntToStr(3436)); ClientTCP.Open; try Resp := ClientTCP.Sendln(ACommand, sLineBreak); if Resp > 0 then begin ClientTCP.WaitForData(10000); Resposta := ClientTCP.Receiveln(sLineBreak); Result := Pos('OK', Resposta) > 0; end; finally ClientTCP.Close; end; finally ClientTCP.Free; end; end; na linha qual envio o comando estou passando vcomando:= 'NFE.ASSINARNFE("\\192.168.0.110\ACBrNFeMonitor\Arquivos\Tempo\35140603997115000190550010000121641435364663-NFe.xml")' ; vresposta:= EmptyStr; if EnviarComando(vcomando,vresposta) then ShowMessage('sucesso '+vresposta) else ShowMessage('erro '+vresposta); é dessa forma que devo passar o comando ou tem alguma outra forma?

Olá amigos, preciso da ajuda de vocês, estou instalando o sistema em um novo cliente e ele já tinha um recurso no sistema antigo que usava o mesmo certificado 'A3' em todos os computadores para emissão de nota fiscal, o certificado fica no escritório e todos os outros computadores conseguem fazer nota fiscal normalmente acessando o certificado que fica lá no escritório. Alguém sabe me dizer como fazer isso utilizando o ACBr?

Ok, obrigado Wislei de Brito Fernandes, O problema era esse mesmo, deu certinho quando mudei o tpEmit.

Esse é o código que estou usando para adicionar as CTes e NFes //..informações do descarregamento DM_Manifesto.CDSMFDE_DESC.First; while not DM_Manifesto.CDSMFDE_DESC.Eof do begin with infDoc.infMunDescarga.Add do begin cMunDescarga := DM_Manifesto.CDSMFDE_DESCMCIDADEIBGE.AsInteger; xMunDescarga := DM_Manifesto.CDSMFDE_DESCMCIDADE.AsString; //..aqui lança CTE DM_Manifesto.CdsMFDE_DESC_CTE.First; while not DM_Manifesto.CdsMFDE_DESC_CTE.Eof do begin vTotCTe:= vTotCTe + 1; with infCTe.Add do begin chCTe := DM_Manifesto.CdsMFDE_DESC_CTEMCHAVE.AsString; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) DM_Manifesto.CdsMFDE_DESC_CTE_LACRE.First; while not DM_Manifesto.CdsMFDE_DESC_CTE_LACRE.Eof do begin with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); if DM_Manifesto.CdsMFDE_DESC_CTE_LACREMTIPOTRANSPORTE.AsString = 'Rodoviário Tração' then tpUnidTransp := utRodoTracao else if DM_Manifesto.CdsMFDE_DESC_CTE_LACREMTIPOTRANSPORTE.AsString = 'Rodoviário Reboque' then tpUnidTransp := utRodoReboque else if DM_Manifesto.CdsMFDE_DESC_CTE_LACREMTIPOTRANSPORTE.AsString = 'Outros' then tpUnidTransp := utOutros else tpUnidTransp := utOutros; idUnidTransp := DM_Manifesto.CDSMDFeMTRACAO_VPLACA.AsString;//'Caminhao'; with lacUnidTransp.Add do begin nLacre := DM_Manifesto.CdsMFDE_DESC_CTE_LACREMLACRE.AsString; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga:= DM_Manifesto.CDSMDFeMTRACAO_VPLACA.AsString; //'Caixas'; with lacUnidCarga.Add do begin nLacre := '0'; end; qtdRat := 0; end; qtdRat := 0; end; DM_Manifesto.CdsMFDE_DESC_CTE_LACRE.Next; end; end; // fim do with DM_Manifesto.CdsMFDE_DESC_CTE.Next; end; //..aqui lança NFE DM_Manifesto.CdsMFDE_DESC_NFE.First; while not DM_Manifesto.CdsMFDE_DESC_NFE.Eof do begin vTotNFe:= vTotNFe + 1; with infNFe.Add do begin chNFe := DM_Manifesto.CdsMFDE_DESC_NFEMCHAVE.AsString; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) DM_Manifesto.CdsMFDE_DESC_NFE_LACRE.First; while not DM_Manifesto.CdsMFDE_DESC_NFE_LACRE.Eof do begin with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); if DM_Manifesto.CdsMFDE_DESC_NFE_LACREMTIPOTRANSPORTE.AsString = 'Rodoviário Tração' then tpUnidTransp := utRodoTracao else if DM_Manifesto.CdsMFDE_DESC_NFE_LACREMTIPOTRANSPORTE.AsString = 'Rodoviário Reboque' then tpUnidTransp := utRodoReboque else if DM_Manifesto.CdsMFDE_DESC_NFE_LACREMTIPOTRANSPORTE.AsString = 'Outros' then tpUnidTransp := utOutros else tpUnidTransp := utOutros; idUnidTransp := DM_Manifesto.CDSMDFeMTRACAO_VPLACA.AsString; //caminhao with lacUnidTransp.Add do begin nLacre := DM_Manifesto.CdsMFDE_DESC_NFE_LACREMLACRE.AsString; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga:= DM_Manifesto.CDSMDFeMTRACAO_VPLACA.AsString; //'Caixas'; with lacUnidCarga.Add do begin nLacre := '0'; end; qtdRat := 0; end; qtdRat := 0; end; DM_Manifesto.CdsMFDE_DESC_NFE_LACRE.Next; end; end; // fim do with DM_Manifesto.CdsMFDE_DESC_NFE.Next; end; end; DM_Manifesto.CDSMFDE_DESC.Next; end;

Olá amigos, estou fazendo um manifesto com NFe CTe, estou adicionando todos os CTes na chave with infCTe.Add do e as NFes na chave with infNFe.Add porém estou com problemas, antes de assinar no XML quando imprimo o MDFe ele mostra todas as chaves dos conhecimentos e das notas fiscais, porém após efetuar a assinatura e visualizar o XML, apenas os CTEs estão lá dentro, mas NFEs sumiram, alguém sabe o que pode estar acontecendo??

Olá Paulo Hostert, vc deve carregar o xml com o LoadFrom antes de efetuar o encerramento. ACBrMDFe.Manifestos.Clear; ACBrMDFe.Manifestos.LoadFromFile(vArquivo,True);

após realizar testes, consegui obter o protocolo de encerramento através da linha de código abaixo: ACBrMDFe.WebServices.Consulta.procEventoMDFe.Items[0].RetEventoMDFe.retEvento.Items[0].RetInfEvento.nProt; façam bom proveito meus amigos.

sim, eu perguntei, mas ninguém respondeu, e se não me engado, eu não criei um novo tópico, eu apenas fiz a mesma pergunta de forma mais simples dentro do mesmo tópico, caso alguém leia e responda de forma mais simplificada. pesquisando no fórum encontrei sim sua resposta a outro usuário, porém fiz o que você disse e não obtive exito, por isso fiz a pergunta novamente... ou eu fiz alguma coisa errada ou não entendi o que você explicou...

Resolvi o problema, antes de enviar o evento de encerramento é necessário carregar o arquivo xml.

Olá, alguém sabe se é possível obter o protocolo de encerramento da MDFe?

Executeis o método Consultar e deu certo, sumiu a mensagem de não está autorizado pela sefaz, após efetuar a transmissão, efetuo essa consulta para atualizar o xml. ACBrMDFe.Manifestos.Clear; ACBrMDFe.Manifestos.LoadFromFile(vArquivo,True); ACBrMDFe.Consultar; posso continuar fazendo dessa maneira ou isso vai me acarretar em algum problema?

A primeira vista quando testei, deu certo quando informei TRUE, mas quando mando imprimir pela segunda vez deu problema novamente, mostrou que o MDFe está sem autorização de uso pela sefaz. Coloquei FALSE e o problema voltou a ficar igual da primeira vez, ele nem carrega mais o número da chave... Você tem alguma idéia do que posso mudar para desaparecer a mensagem que a MFDe está sem autorização de uso da sefaz e voltar a aparecer o protocolo de transmissão?

Obrigado ncc.star, meu problema foi solucionado.!!!

o problema do número da MDFe zerad consegui resolver lendo esse topico, , caso alguém saiba me dizer o que devo fazer com o número da chave do xml me avise pf.

Olá _asseinfo, procurei aqui mas não consegui encontrar o método loadFromXml, estou usando o método LoadFromFile, vc sabem me dizer onde encontrar esse método loadFromXml? como foi feito para resolver esse problema?? alguém tem algum palpite para resolver isso?

Estou com um problema, não estou conseguindo pegar o número de protocolo de encerramento, estou passando da seguinte forma, mas o número de protocolo que está pegando é o mesmo número do manifesto transmitido... ACBrMDFe.Manifestos.Clear; ACBrMDFe.Manifestos.LoadFromFile(vArquivo); ACBrMDFe.Consultar; vprotocolo := ACBrMDFe.Manifestos.Items[0].MDFe.procMDFe.nProt; Alguém teria algum exemplo para me passar de como devo pegar o protocolo de transmissão?

Olá amigos, preciso de ajuda para resolver o seguinte problema: Ao efetuar a transmissão da MDFe o sistema abre automaticamente a impressão, porém estou com problemas ao visualizar o número da MDFe, em anexo está uma imagem mostrando o número 000000, mas quando na verdade olhando o xml também em anexo ele contém um número "14". Outro problema é após efetuar a impressão pela primeira vez, quando vou imprimir pela segunda vez ele já não traz mais a chave da MDFe. Estou usando o FastReport para fazer a impressão. 35140717796316000134580010000000141907000428-mdfe.xml

Olá amigos, estou com problemas em alguns manifestos ao efetuar o encerramento do mesmo. Quando clico para efetuar o cancelamento o sistema retorna uma mensagem de erro de ''is not a integer value. ao mostrar essa mensagem de erro, o delphi abre o fonte pmdfeEnvEventoMDFe na linha 144 Gerador.wCampo(tcInt, 'EP05', 'cOrgao', 1, 2, 1, Evento.Items[0].InfEvento.cOrgao); Alguém sabe o que devo fazer para resolver esse problema?, estou com vários manifestos em aberto precisando cancelar e o sistema não deixa, dai fico bloqueado para fazer um novo manifesto com a placa desses caminhões. Em anexo estou enviando o xml que está apresentando o erro. 35140717796316000134580010000000141907000428-mdfe.xml

Ok, entendi Italo, obrigado.

Ótimo Italo, deu certo. só estou com um problema, não estou conseguindo pegar o número de protocolo de encerramento, estou passando da seguinte forma, mas o número de protocolo que está pegando é o mesmo número do manifesto transmitido... ACBrMDFe.Manifestos.Clear; ACBrMDFe.Manifestos.LoadFromFile(vArquivo); ACBrMDFe.Consultar; vprotocolo := ACBrMDFe.Manifestos.Items[0].MDFe.procMDFe.nProt;