Manifesto De Destinatario Erro Data

[Hetosoft Sistemas]

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));
 

[Italo Giurizzato Junior]

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.

[Hetosoft Sistemas]

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

Editado 22 Fevereiro, 2014 por hetoandrade

[Italo Giurizzato Junior]

Boa noite HetoAndrade,

 

Segunda-Feira, vou realizar alguns testes.

[Hetosoft Sistemas]

oi Italo tudo bem,

e ai conseguio alguma coisa, tentei também varias coisa aqui e nada.

[Italo Giurizzato Junior]

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

[Hetosoft Sistemas]

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.

[Italo Giurizzato Junior]

Boa noite HetoAndrade,

 

Tente com esses em anexo.

NFe200.rar

 

[Hetosoft Sistemas]

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;

Editado 27 Fevereiro, 2014 por hetoandrade

[Italo Giurizzato Junior]

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.

[Hetosoft Sistemas]

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 )

Editado 28 Fevereiro, 2014 por hetoandrade

[Hetosoft Sistemas]

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 )

[Italo Giurizzato Junior]

Boa tarde HetoAndrade,

 

Infelizmente não tenho como enviar o EXE para você, pois o teste que realizei, foi utilizando um modulo do meu ERP.

[André Ferreira de Moraes]

Verifique se sua máquina está com o fuso horário correto.

Caso o problema ainda persista anexe o XML.

[Hetosoft Sistemas]

Ja mudei para brasilia , manaus agora para cuiaba que é minha cidade, mais nada,

cara to meio doido ja , heheh

 

o erro continua.

 

Schemas.rar

Editado 10 Março, 2014 por hetoandrade

[Italo Giurizzato Junior]

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.

[Hetosoft Sistemas]

<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 ?

 

 

 

 

[Italo Giurizzato Junior]

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.

[Hetosoft Sistemas]

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.

Editado 10 Março, 2014 por hetoandrade

[Italo Giurizzato Junior]

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.

[Hetosoft Sistemas]

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));

Editado 10 Março, 2014 por hetoandrade

[Hetosoft Sistemas]

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));
 

[Hetosoft Sistemas]

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
 

Editado 10 Março, 2014 por hetoandrade

[André Ferreira de Moraes]

Anexe o arquivo XML da tentativa de manifestação.

[Hetosoft Sistemas]

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));

EnvioDeResposta.rar

Editado 10 Março, 2014 por hetoandrade