rrodrigoffernandes
Membros-
Total de ítens
194 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que rrodrigoffernandes postou
-
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.
-
Compartilhar Certificado A3 Em Rede
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrNFe
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?
-
Compartilhar Certificado A3 Em Rede
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrNFe
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??
-
Problemas Ao Efetuar O Encerramento Do Mdfe
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
Olá Paulo Hostert, vc deve carregar o xml com o LoadFrom antes de efetuar o encerramento. ACBrMDFe.Manifestos.Clear; ACBrMDFe.Manifestos.LoadFromFile(vArquivo,True); -
Protocolo De Encerramento Do Mdfe
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
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. -
Protocolo De Encerramento Do Mdfe
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
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... -
Problemas Ao Efetuar O Encerramento Do Mdfe
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
Resolvi o problema, antes de enviar o evento de encerramento é necessário carregar o arquivo xml. -
Protocolo De Encerramento Do Mdfe
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
Olá, alguém sabe se é possível obter o protocolo de encerramento da MDFe? -
Problemas Na Impressão Da Mdfe, Número 000000 E Chave Vazia
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
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? -
Problemas Na Impressão Da Mdfe, Número 000000 E Chave Vazia
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
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? -
Problemas Na Impressão Da Mdfe, Número 000000 E Chave Vazia
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
Obrigado ncc.star, meu problema foi solucionado.!!! -
Problemas Na Impressão Da Mdfe, Número 000000 E Chave Vazia
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
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. -
Problemas Na Impressão Da Mdfe, Número 000000 E Chave Vazia
rrodrigoffernandes replied to rrodrigoffernandes's tópico in ACBrMDFe
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?
-
Problemas Na Impressão Da Mdfe, Número 000000 E Chave Vazia
um tópico no fórum postou rrodrigoffernandes ACBrMDFe
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
-
Ó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;