Problema Consulta Chave

[Leandro Miler Santana]

     Olá pessoal.

 

     Estou com um problema assim, o CT-e é gerado corretamente, validado, impresso e depois enviado por email.  Nesta opção eu gravo dentro do banco de dados a chave do CTE, o EMAIL ENVIADO, Procotolo, Recibo.

 

     Se eu for consultar esta chave, usando a rotina do programa exemplo, o sistema diz que "Rejeição - CTE não consta na base de dados do SEFAZ' e neste caso se eu for consultar esta mesma chave no site da fazenda de SP, o conhecimento está lá validado.

 

     O estranho também é que neste caso eu clico no botão de gerar o CT-e e o sistema vai me dar um erro o segunte erro

 

     "Erro ao salvar. Cannot create file "Z:\sansoft\imento(s) não confirmado(s): 13->Rejeição: -ped-sit.xml". A sintexa do nome do arquivo, pasta ou nome do volue está incorreta."

 

    Após eu tentar gerar novamente e após dar o erro acima, eu consulto novamente a chave por dentro do meu programa, e chave é a mesma que da primeira vez, só que desta vez ele consulta corretamente e diz que o CT-e foi aprovado o uso."

 

    Aconteceu isso com alguem, ou será que estou fazendo algo de errado ?

 

   Abaixo segue o código do meu botão consultar chave

 

 " vChave:=DM1.NotaCHAVECTE.AsString;
  if not(InputQuery('WebServices Consultar', 'Chave do CT-e:', vChave)) then
    exit;

    if (CTE.Configuracoes.Certificados.NumeroSerie='') then
    begin
       sCertificado:=CTE.Configuracoes.Certificados.SelecionarCertificado;
       CTE.Configuracoes.Certificados.NumeroSerie:=sCertificado;
    end;
   Screen.Cursor:= HourGlassCursor;
  CTe.WebServices.Consulta.CTeChave := vChave;
  CTe.WebServices.Consulta.Executar;

  MemoResp.Lines.Text :=  UTF8Encode(CTe.WebServices.Consulta.RetWS);
  memoRespWS.Lines.Text :=  UTF8Encode(CTe.WebServices.Consulta.RetornoWS);
  LoadXML(MemoResp, WBResposta); "

 

 

 

 

   

 

[Italo Giurizzato Junior]

Boa tarte Leandro,

 

Inclua as linhas em negrito na sua rotina da seguinte forma:

 

Screen.Cursor:= HourGlassCursor;
CTe.Conhecimentos.Clear;
CTe.Conhecimentos.LoadFromFile(NomeArq);
CTe.WebServices.Consulta.CTeChave := vChave;
CTe.WebServices.Consulta.Executar;

Onde NomeArq é uma variável string que contem o path + nome do arquivo XML.

[Leandro Miler Santana]

     Então quer dizer que eu fazendo isso, a opção Consulta.Executar irá gravar os dados do protocolo no xml ?

[Italo Giurizzato Junior]

Bom dia Leandro,

 

Sim, vai atualizar o XML.

[Leandro Miler Santana]

   Ok muito obrigado !!! deu certo !!!