Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

  • Este tópico foi criado há 2840 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa Tarde!

Sou novo aqui no fórum como assinante do SAC, porem, já pude encontrar varias resposta para outras duvidas.

 

Estou iniciando a implementação do projeto NFCe.

 

Estou usando componente e não Monitor. Tentando fazer testes com o Demo da pasta exemplos do ACBR recebo sempre um aviso apos entrar com a senha do nosso certificado A3.

Imagem do erro e XML em anexo. No erro não tem texto nenhum, então fica ruim identificar o que pode estar ocorrendo. Preenchi corretamente os dados do emitente, UF e coloquei como homologação.

 

No meu projeto, também implementei os códigos da NFCe dentro do mesmo processo da NFe mudando apenas as particularidades para identificar o modo de emissão, porem, o mesmo erro ocorre.

post-8340-0-00333100-1407344700_thumb.jp

43140813795352000122650010000000011000000012-nfe.xml

Link to comment
Share on other sites

  • Consultores

Você está rodando o demo igualzinho está no svn?

ou fez alterações no mesmo ?

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

Deixa eu postar aqui como está o form e o codigo.

Uso igual sim ao do SVN. svn://svn.code.sf.net/p/acbr/code/trunk

procedure TForm1.btnManifDestConfirmacaoClick(Sender: TObject);
var
 Chave, idLote, CNPJ: string;
 lMsg: string;
begin
  Chave:='41140781106957000119550010005481801807170610';
  if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Chave da NF-e', Chave)) then
     exit;
  Chave := Trim(OnlyNumber(Chave));
  idLote := '1';
  if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Identificador de controle do Lote de envio do Evento', idLote)) then
     exit;
  CNPJ := '';
  if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then
     exit;

  ACBrNFe1.EventoNFe.Evento.Clear;
  with ACBrNFe1.EventoNFe.Evento.Add do
   begin
     infEvento.chNFe := Chave;
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := now;
     infEvento.tpEvento := teManifDestConfirmacao;
   end;
  ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));

  with AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do
  begin
    lMsg:=
    'Id: '+Id+#13+
    'tpAmb: '+TpAmbToStr(tpAmb)+#13+
    'verAplic: '+verAplic+#13+
    'cOrgao: '+IntToStr(cOrgao)+#13+
    'cStat: '+IntToStr(cStat)+#13+
    'xMotivo: '+xMotivo+#13+
    'chNFe: '+chNFe+#13+
    'tpEvento: '+TpEventoToStr(tpEvento)+#13+
    'xEvento: '+xEvento+#13+
    'nSeqEvento: '+IntToStr(nSeqEvento)+#13+
    'CNPJDest: '+CNPJDest+#13+
    'emailDest: '+emailDest+#13+
    'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+
    'nProt: '+nProt;
  end;
  ShowMessage(lMsg);

  MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS);
  memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS);
//  ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX
  LoadXML(MemoResp, WBResposta);
end;
Link to comment
Share on other sites

Debugando o arquivo ACBrWebServices, cheguei nesse function:
 
function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean;
begin
  // retirado por recomendação do documento disponível em http://www.nfe.fazenda.gov.br/PORTAL
  //docs/Consumo_Indevido_Aplicacao_Cliente_v1.00.pdf
   {if not(Self.StatusServico.Executar) then
    begin
    if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then
    TACBrNFe( FACBrNFe ).OnGerarLog(Self.StatusServico.Msg);
    raise EACBrNFeException.Create(Self.StatusServico.Msg);
    end;}

Ativei o que estava removido da aplicação entre {} e agora é possível gerar um log e recebo a informação abaixo:

 

Ambiente : 2
Versão Aplicativo : RS20140728164927
Status Código : 239
Status Descrição : Rejeicao: Versao do arquivo XML nao suportada
UF : RS
Recebimento : 06/08/2014 17:54:34
Tempo Médio : 1
Retorno : 
Observação : 
 
Rejeicao: Versao do arquivo XML nao suportada.
 
Estou usando os Schemas da V300. Alguém sabe se tem algo para mudar nisso?
Link to comment
Share on other sites

  • Consultores

Você é do projeto piloto da nfc-e? pois que saiba ou é versão 2.00 ou 3.10, a versão 3.00 é somente para as empresas pilotos do nfc-e!

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

Régys, obrigado pela dica.

Dessa fui mais longe, porem, ainda estou com problemas.

 

Alterei a UF do WebService destino para AM conforme pediu, porem,  dai deu erro por causa da minha uf(emitente). Alterei meu codigo IBGE, minha cidade e UF e mesmo assim continua o erro.

 
Ambiente : 2
Versão Aplicativo : AM3.10-NAC
Status Código : 773
Status Descrição : Rejeicao: Operacao Interna e UF de destino diferente da UF do emitente
UF : AM
dhRecbto : 07/08/2014 10:31:32
chNFe : 13140813795352000122650010000000011000000013
 
Rejeicao: Operacao Interna e UF de destino diferente da UF do emitente.
 
Tem uma forma de resolver alterando mais alguma informação? Ou devo solicitar ao meu contador a inclusão no sefaz do meu estado como emitente no projeto piloto?
Link to comment
Share on other sites

  • Moderadores

Aqui eu faço da seguinte forma:

- Na empresa eu coloco UF: AM e Cidade: Manaus com o codigo IBGE de manaus, o resto normal

- Na inscrição estadual da empresa eu coloco: 123456789, o restante dos dados são os meus mesmo, cnpj, etc, etc.

- No destinatário eu deixo em branco ou quando coloco cliente, se for UF diferente da UF da empresa eu seto a propriedade: "Ide.idDest", conforme o tipo: doInterna, doInterestadual, doExterior

 

Funciona perfeitamente.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link to comment
Share on other sites

Bom dia Regis,

 

Eu fiz todos os teste no AM mas fiz da seguinte forma.

- Na empresa deixei como o dados correto (no caso estou utilizando um certificado de AL e os dados da empresa de um cliente também de AL)

- No Web Service coloco AM.

 

Com isso funciona corretamente para os teste no AM.

 

Estou com cliente emitindo com sucesso em produção no MT.

 

Agradeço ao fórum, pela ajuda que obtive.

 

Grato. 

Wandarlei Michelon

Link to comment
Share on other sites

  • Membros Pro

wandarlei...

 

O danfe que você tá emitindo no seu cliente do  MT tá fazendo leitura do qrcode? 

Não tem como você postar um danfe autorizado e a forma que você tá montando ele...?

Você usa o componente ou o monitor?

 

Rubens

Link to comment
Share on other sites

  • Moderadores

Finalmente a NFCe saiu impressa. Obrigado mesmo pelas ótimas dicas Regys.

 

Minha duvida agora é sobre impressão no formato NFCe com qrcode etc. O que saiu impressora foi em formato danfe. Como devo proceder?

 

Se estiver utlizando FastReport, basta usar o mesmo componente do DANFE mas com arquivo .FR3 referente a NFC-e que está no diretório "ACBr\Exemplos\ACBrNFe2\Delphi\Report"

Se utiliza Fortes Report ou outros, existem os componentes específicos para DANFC-e.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link to comment
Share on other sites

  • Moderadores

Bom dia Regis,

 

Eu fiz todos os teste no AM mas fiz da seguinte forma.

- Na empresa deixei como o dados correto (no caso estou utilizando um certificado de AL e os dados da empresa de um cliente também de AL)

- No Web Service coloco AM.

 

Com isso funciona corretamente para os teste no AM.

 

Estou com cliente emitindo com sucesso em produção no MT.

 

Agradeço ao fórum, pela ajuda que obtive.

 

Grato. 

 

O Webservice de homologação do AM para NFC-e foi feito para não validar dados da empresa no AM, então ele aceitará qualquer dado informado, basta ter um certificado válido, a única ressalva é a inscrição estadual que deve ser até 9 dígitos numéricos, por isso utilizar 123456789.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link to comment
Share on other sites

  • Este tópico foi criado há 2840 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.