Jump to content

dev botao

Manifesto De Destinatario Erro Data


Go to solution Solved by Hetosoft Sistemas,
  • Este tópico foi criado há 3868 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Estou tentando usar o evento Confirma manifesto

pelo que eu vi é de data mais tentei corrigir mais ainda nao conseguri.

obrigado pela atencao.

 

 

function TForm_Manifesto.Manifestar(tipo: Integer): Boolean;
var
 Chave, idLote, CNPJ, vXMotivo: string;
 lMsg: string;
begin

 try

    Chave:=DM11.Client_ManifestoCHAVE_NFE.Text;

    CNPJ:=Form_NFe.edtEmitCNPJ.Text;


    //Chave:='';
    //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;

    Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear;
    with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do
     begin
       infEvento.chNFe := Chave;
       infEvento.CNPJ   := CNPJ;
       //infEvento.dhEvento := now;
       infEvento.dhEvento := StrToDateTime( FormatDateTime( 'dd/mm/yyyy hh:mm:ss', now) );

       if tipo=1 then
          infEvento.tpEvento := teManifDestConfirmacao else
       if tipo=2 then
          infEvento.tpEvento := teManifDestDesconhecimento else
       if tipo=3 then
          infEvento.tpEvento := teManifDestOperNaoRealizada else
       if tipo=4 then
          infEvento.tpEvento := teManifDestCiencia;

     end;
    Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));
 

post-4970-0-09008200-1393018119_thumb.jp

Link to comment
Share on other sites

  • Consultores

Boa noite HetoAndrade,

 

A rotina que gera o Evento de manifestação é a mesma para o cancelamento e Carta de Correção.

 

Favor checar se os demais eventos estão funcionando e se os schemas estão atualizados para a versão de NF-e que você esta usando.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Membros Pro

Estou usando

 

D:\All_Delphi\ACBr - All\Exemplos\ACBrNFe2\Delphi\Schemas\V200\PL_006s

 

<?xml version="1.0"?>
-<NFe xmlns="http://www.portalfiscal.inf.br/nfe">-<infNFe Id="NFe51131003953552000102550010000000401000000402" versao="2.00">-<ide><cUF>51</cUF><cNF>00000040</cNF><natOp>VENDA DO PRODUTO NO ESTADO</natOp><indPag>2</indPag><mod>55</mod><serie>1</serie><nNF>40</nNF><dEmi>2013-10-23</dEmi><dSaiEnt>2013-10-23</dSaiEnt><hSaiEnt>10:22:13</hSaiEnt><tpNF>1</tpNF><cMunFG>5108402</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>2</cDV><tpAmb>2</tpAmb><finNFe>1</finNFe><procEmi>0</procEmi><verProc>1.0.0.0</verProc>

 

 

Tentei com os quatro opcoes e nada.

 

qual a próxima opção, se pude tem como min manda o schemas que vc ta usando .

ja nao sei mais o que fazer.

 

obrigado pela atencao.

 

 

--------------------

Montei uma maquina virtual baixei a ultama atualizacao do acbr, instalei

usei o exemplo  D:\All_Delphi\ACBr_7\Exemplos\ACBrNFe2\Delphi

 

Confirmacao da Operacao

 

adicional ao evento

 

  ACBrNFe1.EventoNFe.Evento.Clear;
  with ACBrNFe1.EventoNFe.Evento.Add do
   begin
     infEvento.chNFe := Chave;
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := now;
     infEvento.tpEvento := teManifDestConfirmacao;

     infEvento.cOrgao := 51;
     infEvento.nSeqEvento := 1;
     infEvento.versaoEvento := '1.00';
     //infEvento.DescEvento :=   'Confirmacao da Operacao';
     //infEvento.xDescEvento :=  'Confirmacao da Operacao';
   end;

 

 

pois se eu abilitar comando abaixo da erros.

     //infEvento.DescEvento :=   'Confirmacao da Operacao';
     //infEvento.xDescEvento :=  'Confirmacao da Operacao';

 

 

 

e ainda continuar com erros

post-4970-0-11122200-1393076311_thumb.jp

Edited by hetoandrade
Link to comment
Share on other sites

  • Consultores

Boa noite HetoAndradre,

 

Alem dos schemas do pacote PL_006s você baixou os schemas para a Manifestação do Destinatário?

 

Se não me falhe a memória é o pacote PL_v1.01

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Membros Pro

desinstalei todo o acbr baixei atualizacao via  totorise,

instalei tudo de novo om intalador do acbr,

fis uma nf-e de homogacao

 

<?xml version="1.0" encoding="UTF-8"?>
-<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">-<NFe xmlns="http://www.portalfiscal.inf.br/nfe">-<infNFe versao="2.00" Id="NFe51140203953552000102550010000000511000000518">-<ide>

 

e esta na versao 2.0

 

excluir tudo na pasta C:\Controles_SQL\NFe\Schemas

onde fica meu shcemas

coloque a ultima versao do schemas da versao 2.0 que é a

 

site

http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=/fwLvLUSmU8=

 

PL_006s

Esquemas XML NF-e - Pacote de Liberação No. 8b (11/12/2013) (ZIP)

 

depois testei colocando essa schelma na pasta C:\Controles_SQL\NFe\Schemas  tambem

Esquemas XML NF-e - Manifestacão Destinatário v1.01 (21/03/2012) (ZIP)

depois adicionando tamem a versao mais nova do schelmas do manivesto

Esquemas XML NF-e - Manifestacão Destinatário v1.02 (06/09/2012) (ZIP)

 

continuar o mesmo erro de data

 

ai coloquei tambem a ultima versao do schelam 3.10 que é a

Esquemas XML NF-e - Pacote de Liberação No. 8b (11/12/2013) (ZIP)

 

mais nao adianta o cliente ja ta min deixando loco eheheh,

 

teria como min min manda sua pasta chelmas.

e porque ta fazendo a nf-e na versao 2.0 nao seria a 3.10?

 

muito obrigado pela atencao.

Link to comment
Share on other sites

  • Membros Pro

Italo coloquei esse shelmas na minha pasta C:\Controles_SQL\NFe\Schemas

mais continuar com erro de data

 

Usando o ACBr Demo atualizado. tambem da este erro.,

 

Uso este codigos

 

 

 

function TForm_Manifesto.Manifestar(tipo: Integer): Boolean;
var
 Chave, idLote, CNPJ, vXMotivo: string;
 lMsg: string;
begin

 try

    Chave:=DM11.Client_ManifestoCHAVE_NFE.Text;

    CNPJ:=Form_NFe.edtEmitCNPJ.Text;


    Chave := Trim(OnlyNumber(Chave));
    idLote := '1';


    Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear;
    with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do
     begin
       infEvento.chNFe := Chave;
       infEvento.CNPJ   := CNPJ;
       infEvento.dhEvento := now;

       if tipo=1 then
          infEvento.tpEvento := teManifDestConfirmacao else
       if tipo=2 then
          infEvento.tpEvento := teManifDestDesconhecimento else
       if tipo=3 then
          infEvento.tpEvento := teManifDestOperNaoRealizada else
       if tipo=4 then
          infEvento.tpEvento := teManifDestCiencia;


       //novo 2014
       infEvento.cOrgao:=0;
       infEvento.nSeqEvento:=1;
       infEvento.versaoEvento:='1.00';
       //infEvento.DescEvento:='Confirmacao da Operacao';
       //infEvento.xJust:='';//Operacao nao Realizada


     end;
    Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));



        with Form_NFe.AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do
        begin
          vXMotivo:=xMotivo;
          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;


        if Pos('registrado e vinculado', vXMotivo )>0 then
        begin


          DM11.Client_Manifesto.Edit;
          DM11.Client_ManifestoSEL.Text:='False';
          DM11.Client_ManifestoDATAMANIFESTO.AsDateTime:=Now;
          DM11.Client_ManifestoTIPOMANIFESTO.Text:=IntToStr(tipo);
          DM11.Client_Manifesto.ApplyUpdates(-1);

        end else
        begin
           if tipo=1 then
              NFEM_CancelarProcesso:=1;

           ShowMessage(lMsg);
        end;




    Form_NFe.MemoResp.Lines.Text := UTF8Encode(Form_NFe.ACBrNFe1.WebServices.EnvEvento.RetWS);
    Form_NFe.memoRespWS.Lines.Text := UTF8Encode(Form_NFe.ACBrNFe1.WebServices.EnvEvento.RetornoWS);
  //  ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX
    Form_NFe.LoadXML(Form_NFe.MemoResp, Form_NFe.WBResposta);







 except
    if tipo=1 then
       NFEM_CancelarProcesso:=1;

    MessagemH(2,'Erro ao enviar evendo de manifesto !');
 end;






end;

post-4970-0-58390600-1393506910_thumb.jp

post-4970-0-20330700-1393510882_thumb.jp

Edited by hetoandrade
Link to comment
Share on other sites

  • Consultores

Boa noite HetoAndrade,

 

Isso é muito estanho pois ontem realizei um teste e não ocorreu erro de validação.

 

No teste que fiz foi utilizado os schemas que eu postei.

 

Verifique se o componente esta configurado corretamente, no que diz respeito a propriedade PathSchemas.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Membros Pro

Opa vamos la, eu usei o schemas que vc postou,

e a PathSchemas ta correto, pos se eu renomea pasta Schemas- da erro de schemas

estao o caminho da correto,

ja coloquei regional brasilia ja fis de tudo,

 

se tiver como min manda só o .exe do demo do acbrnfe2 que vc testou ai,

vou usar o .exe seu com o shemas que vc postou,

 

pode ser tem como min manda. vou testa na minha maquina.

 

brigadoooooooooooo.

 

 

( ha ja teste no windows 8 e windows 7 e da o memso erro de data )

Edited by hetoandrade
Link to comment
Share on other sites

  • Membros Pro

Opa vamos la, eu usei o schemas que vc postou,

e a PathSchemas ta correto, pos se eu renomea pasta Schemas- da erro de schemas

estao o caminho da correto,

ja coloquei regional brasilia ja fis de tudo,

 

se tiver como min manda só o .exe do demo do acbrnfe2 que vc testou ai,

vou usar o .exe seu com o shemas que vc postou,

 

pode ser tem como min manda. vou testa na minha maquina.

 

brigadoooooooooooo.

 

 

( ha ja teste no windows 8 e windows 7 e da o memso erro de data )

Link to comment
Share on other sites

  • Consultores

Bom dia HetoAndrade,

 

Você já comparou o horário do relógio da maquina com o horário retornado pelo Consulta Status de Serviço?

 

O mais estranho é que o erro ocorre na validação do XML a ser enviado.

 

Por favor, verifique se algum fonte das pastas: ACBrNFe2 e PCN2 contem em seu icone uma bolinha vermelha ou triangulo amarelo se sim qual ou quais são.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Membros Pro
<retConsStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">
  <tpAmb>1</tpAmb>
  <verAplic>2.00</verAplic>
  <cStat>107</cStat>
  <xMotivo>Servico em Operacao</xMotivo>
  <cUF>51</cUF>
  <dhRecbto>2014-03-10T10:27:01</dhRecbto>
  <tMed>1</tMed>
  </retConsStatServ>
 
 
Certinho 10:27
 
 
e as pastas
D:\All_Delphi\ACBr_7\Fontes\ACBrNFe2
D:\All_Delphi\ACBr_7\Fontes\PCN2
 
tudo verdinho (atualizados)
 
 
acbr fórum tem serviço  a parte de consultoria remota,
para acessar meu pc, seria otimo ,meu cliente ta min deixando loco.
 
ha, o cliente precisa fazer alguma coisa da sefaz para confirma a nota ?
 
 
 
 
Link to comment
Share on other sites

  • Consultores

Boa tarde Heto,

 

A maquina que utilizo não tenho como fazer um acesso remoto, me desculpe.

 

Quanto a SEFAZ, não, não requer nenhum cadastro da empresa junto a SEFAZ para realizar a Manifestação do Destinatário.

 

Deve apenas possuir o certificado digital e o programa disponibilizado gratuitamente pela SEFAZ ou de terceiros por exemplo.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Membros Pro

blz, mais o que devo fazer, pós ja fis em outra maquina com o demo do acbrnfe2 e da o mesmo erro,

?

 

 

italojjr tem como vc manda O SEU ACBRNFE2 demo para eu testa aqui com seu schermas e tudo?

 

 

porfavor tem como min manda seu codigo para o envio do evento para confirma a nf-e.

post-4970-0-45613000-1394475422_thumb.jp

Edited by hetoandrade
Link to comment
Share on other sites

  • Consultores

HetoAndrade,

 

Não tenho o programa Demo do ACBrNFe compilado, uma vez que ele utiliza o Rave e não tenho o mesmo instalado no meu Delphi.

 

Quando ocorre um erro de validação do XML, isso significa que o XML gerado pelo componente não esta em conformidade com os schemas.

 

Sendo assim de duas ou uma, ou o componente esta gerando o XML de forma errada ou o schema esta errado.

 

A minha aplicação que utiliza o ACBrNFe gerou e validou com os schemas que lhe passei.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Membros Pro

Tem como min passar as suas unit que compoem  esse comando

 

 

    Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear;
    with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do
     begin
       infEvento.chNFe := Chave;
       infEvento.CNPJ   := CNPJ;
       infEvento.dhEvento := now;


       
       if tipo=1 then
          infEvento.tpEvento := teManifDestConfirmacao else
       if tipo=2 then
          infEvento.tpEvento := teManifDestDesconhecimento else
       if tipo=3 then
          infEvento.tpEvento := teManifDestOperNaoRealizada else
       if tipo=4 then
          infEvento.tpEvento := teManifDestCiencia;


       //novo 2014
       //infEvento.cOrgao:= StrToInt( Form_NFe.edtCodUF.Text );
       //infEvento.nSeqEvento:=1;
       //infEvento.versaoEvento:='1.00';

       //infEvento.DescEvento:='Confirmacao da Operacao';
       //infEvento.xJust:='';//Operacao nao Realizada


     end;
    Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));

Edited by hetoandrade
Link to comment
Share on other sites

  • Membros Pro

tem como vc min passar suas unit que refere a este comando

 

 

function TForm_Manifesto.Manifestar(tipo: Integer): Boolean;
var
 Chave, idLote, CNPJ, vXMotivo: string;
 lMsg: string;
begin

 try

    Chave:=DM11.Client_ManifestoCHAVE_NFE.Text;

    CNPJ:=Form_NFe.edtEmitCNPJ.Text;


    Chave := Trim(OnlyNumber(Chave));
    idLote := '1';


    Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear;
    with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do
     begin
       infEvento.chNFe := Chave;
       infEvento.CNPJ   := CNPJ;
       infEvento.dhEvento := now;


       
       if tipo=1 then
          infEvento.tpEvento := teManifDestConfirmacao else
       if tipo=2 then
          infEvento.tpEvento := teManifDestDesconhecimento else
       if tipo=3 then
          infEvento.tpEvento := teManifDestOperNaoRealizada else
       if tipo=4 then
          infEvento.tpEvento := teManifDestCiencia;


       //novo 2014
       //infEvento.cOrgao:= StrToInt( Form_NFe.edtCodUF.Text );
       //infEvento.nSeqEvento:=1;
       //infEvento.versaoEvento:='1.00';

       //infEvento.DescEvento:='Confirmacao da Operacao';
       //infEvento.xJust:='';//Operacao nao Realizada


     end;
    Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));
 

Link to comment
Share on other sites

  • Membros Pro

tem como vc min passar suas unit do acbr que se refere a este comando.

 

function TForm_Manifesto.Manifestar(tipo: Integer): Boolean;
var
 Chave, idLote, CNPJ, vXMotivo: string;
 lMsg: string;
begin

 try

    Chave:=DM11.Client_ManifestoCHAVE_NFE.Text;

    CNPJ:=Form_NFe.edtEmitCNPJ.Text;


    Chave := Trim(OnlyNumber(Chave));
    idLote := '1';


    Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear;
    with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do
     begin
       infEvento.chNFe := Chave;
       infEvento.CNPJ   := CNPJ;
       infEvento.dhEvento := now;


       
       if tipo=1 then
          infEvento.tpEvento := teManifDestConfirmacao else
       if tipo=2 then
          infEvento.tpEvento := teManifDestDesconhecimento else
       if tipo=3 then
          infEvento.tpEvento := teManifDestOperNaoRealizada else
       if tipo=4 then
          infEvento.tpEvento := teManifDestCiencia;


       //novo 2014
       //infEvento.cOrgao:= StrToInt( Form_NFe.edtCodUF.Text );
       //infEvento.nSeqEvento:=1;
       //infEvento.versaoEvento:='1.00';

       //infEvento.DescEvento:='Confirmacao da Operacao';
       //infEvento.xJust:='';//Operacao nao Realizada


     end;
    Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));

 

 

 

 

 

 

DESCULPA DUPLICOU AS MENSAGENS
 

Edited by hetoandrade
Link to comment
Share on other sites

  • Membros Pro

O problema é que nao criar nem uma xml,

 

 

 

Descobrir outra coisa,

se a nota for de MT da erro de data

se a nota for de outro estado da este erro (IMAGEM orgao diverge do orgao autorizado ),

os xml deste erro ta anexado.

sabendo que to em MT.

 

 

COMANDO USADO

 

var
 Chave, idLote, CNPJ, vXMotivo: string;
 lMsg: string;
begin

 try

    Chave:=DM11.Client_ManifestoCHAVE_NFE.Text;

    CNPJ:=Form_NFe.edtEmitCNPJ.Text;


    Chave := Trim(OnlyNumber(Chave));
    idLote := '1';


    Form_NFe.ACBrNFe1.EventoNFe.Evento.Clear;
    with Form_NFe.ACBrNFe1.EventoNFe.Evento.Add do
     begin
       infEvento.chNFe := Chave;
       infEvento.CNPJ   := CNPJ;
       infEvento.dhEvento := now;


     
       if tipo=1 then
          infEvento.tpEvento := teManifDestConfirmacao else
       if tipo=2 then
          infEvento.tpEvento := teManifDestDesconhecimento else
       if tipo=3 then
          infEvento.tpEvento := teManifDestOperNaoRealizada else
       if tipo=4 then
          infEvento.tpEvento := teManifDestCiencia;


     end;
    Form_NFe.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));

post-4970-0-77423600-1394477646_thumb.jp

post-4970-0-63042600-1394478134_thumb.jp

post-4970-0-56698200-1394478420_thumb.jp

EnvioDeResposta.rar

Edited by hetoandrade
Link to comment
Share on other sites

×
×
  • 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.