Problema Com 'nao Enviado Ao Sefaz'

[Leandro Miler Santana]

    Olá pessoal.

 

    Recentemente tenho tido alguns problemas com varios clientes.

 

    As vezes o sistema acusa que o 'CT-e não enviado ao SEFAZ'.

 

    Pesquisando  os posts neste forum, tenho seguido algumas recomendações, tipo executando o comando consulta, e mesmo assim não tem resolvido.

 

    Se eu consultar no Sefaz, percebo que o CT-e foi enviado. Vejo no meu sistema existe o XML fora da pasta "mes/ano" sem a informação 'Autorizado o uso do CT-e', tentei fazer várias coisas e em alguns casos não tive sucesso. Abaixo vou discriminar o que tenho feito nesta situação.

 

1) Clique em consulta. Nao funciona. Depois clico em "Gerar CT-e" novamente e após consulta. Também não funciona.

 

2) Vou procurar o XML no disco, e percebo que o mesmo se encontra na pasta anterior a pasta "Mes/Ano" copie este arquivo para dentro da pasta "Mes/Ano" e tento gerar de novo ou consultar de novo. E não funciona.

 

3) Baixo o arquivo XML do site da Receita Federal e salvo ele dentro da pasta "Mes/Ano" e referencio este arquivo no registro do conhecimento que quero Autorizar. E tento consultar, mesmo assim não consulta.

 

Obs. E quando o cliente precisa cancelar um Ct-E, dai neste caso o sistema não cancela pois diz que não foi enviado ao Sefaz

 

   Já fiz de tudo mas não sei como solucionar este caso.

 

  Todos as propriedades que tem a opcao  ".salvar" estao setadas para TRUE.

 

  Alguem pode me ajudar nesta terrivel situação ?

Editado 5 Setembro, 2013 por leandromilersantana

[Italo Giurizzato Junior]

Boa tarde Leandro,

 

O problema ocorre com todos os clientes?

É de vez em quando?

Todos os seus clientes são do Estado de São Paulo?

 

Para o componente salvar o XML fora da pasta AnoMes é porque esta sendo configurado de forma errada.

[Leandro Miler Santana]

    Olá Ìtalo

 

    Ocorre em todos os clientes com certa frequencia - 5 % dos casos

 

    Sempre ocorre, mas as vezes consigo consertar consultando ou então gerando e consultando novamente

 

    Todos os clientes são do estado de São paulo

 

    90% deles usam o windows 2003 server

    e outros windows 2008 e window 7

 

    Todos estão usando certificado A1

 

 EXEMPLO COMO ESTA MEU FONTE

    FiltraNaEntrada:='NAO';
    dm1.Nota.Open;
  //  sFiltro:='FCODIGO='''+sCodFili+''' and cimp='''+'X''';


    sFiltro:='FCODIGO='''+sCodFili+''' and chavecte='''+'''';
    dm1.Nota.Filter:=sFiltro;
    dm1.Nota.Filtered:=true;
    dm1.Nota.Last;
    dm1.Parametro.Open;
    dm1.Proprietario.Open;
    dm1.Para2.Open;
    dm1.PAIS.Open;
    PageControl1.ActivePage:=Utilitarios;
    maskedit1.SetFocus;
    fmEminota.Caption:=fmTransporte.Label1.Caption;

    lb_CNPJ_Emitente.Caption:='CNPJ Emitente '+dm1.CadFilCGC.AsString;
    if (dm1.CadFilPAPEL.AsString='5') then
    begin
        cte.DACTe.TamanhoPapel:=tpA5;
        lbTipoPapel.Caption:='Papel A5 (2 vias automatica)'
    end
    else
    begin
        cte.DACTe.TamanhoPapel:=tpA4;
        lbTipoPapel.Caption:='Papel A4';
    end;

    lbPath.Caption:=dm1.CadFilPATHCTE.AsString;
    if (dm1.CadFilFORMAEMI.AsString='1') then
        lbFormaDeEmissao.Caption:='Emissão Normal'
    else
        lbFormaDeEmissao.Caption:='Emissão FS-DA';

    if (dm1.CadFilAMBIENTE.AsString='P') then
        lbAMBIENTE.Caption:='Ambiente - Produção'
    else
        lbAMBIENTE.Caption:='Ambiente - Homologação';

    if (dm1.CadFilPASTABKP.AsString<>'') then
        lbPastaBKP.Caption:=dm1.CadFilPASTABKP.AsString
    else
        lbPastaBKP.Caption:='';

    CTE.DACTe.Logo:=DM1.CADFILLOGOMARCA.ASSTRING;

    CTE.Configuracoes.Arquivos.AdicionarLiteral:=true;

    CTE.Configuracoes.Arquivos.PastaMensal := True;
    CTE.Configuracoes.Arquivos.EmissaoPathCTe := True;

    CTE.Configuracoes.Arquivos.PathCan    :=trim(dm1.CadFilPATHCTE.AsString);
    CTE.Configuracoes.Arquivos.PathDPEC   :=trim(dm1.CadFilPATHCTE.AsString);
    CTE.Configuracoes.Arquivos.PathInu    :=trim(dm1.CadFilPATHCTE.AsString);
    CTE.Configuracoes.Arquivos.PathCTe    :=trim(dm1.CadFilPATHCTE.AsString);
    CTE.Configuracoes.Arquivos.PathEvento :=trim(dm1.CadFilPATHCTE.AsString);
    CTE.DACTe.PathPDF                     :=trim(dm1.CadFilPATHPDF.AsString);

    CTE.Configuracoes.Geral.ExibirErroSchema:=TRUE;
    CTE.Configuracoes.Arquivos.Salvar := true;


   CTE.Configuracoes.Geral.PathSalvar := trim(dm1.CadFilPATHCTE.AsString);
   CTE.Configuracoes.Geral.PathSchemas := trim(dm1.CadFilSCHEMAS.AsString);
   CTE.Configuracoes.Geral.Salvar := true;
   CTE.Configuracoes.Geral.AtualizarXMLCancelado:=true;   // atualiza xml cancelado



   // Configurações -> WebServices
   sUF:=dm1.CadFilUF.AsString;
   CTE.Configuracoes.WebServices.AguardarConsultaRet := 0;
   CTE.Configuracoes.WebServices.AjustaAguardaConsultaRet := False;
   CTE.Configuracoes.WebServices.IntervaloTentativas:=0;
   CTE.Configuracoes.WebServices.Tentativas:=5;
   CTE.Configuracoes.WebServices.UF:='SP';



   if (dm1.CadFilAMBIENTE.AsString='H') then       // muda cor da tela na homologacao
          ufmEmiNota.fmEmiNota.Color:=clMoneyGreen;

   CTE.DACTe.Sistema := 'Desenvolvido por Infotrans - (16) 3442-8111 - EMICON CT-e Versao 1.0';
   CTE.DACTe.Site := dm1.CadFilSITE.AsString;
   CTE.DACTe.TipoDACTE := tiRetrato;
   CTE.DACTe.MostrarPreview:=false;
   CTE.DACTe.ExpandirLogoMarca := false;
   CTE.DACTe.ImprimirDescPorc := False;
   CTE.DACTe.ImprimirHoraSaida := True;
   CTE.DACTe.ImprimirHoraSaida_Hora := DateToStr(Date);
 

[Italo Giurizzato Junior]

Bom dia Leandro,

 

Aparentemente a configuração do componente esta certa, acredito eu que o problema esteja relacionado a maquina onde o certificado esta instalado, que me parece ser um servidor.

[Leandro Miler Santana]

   Sim, exatamente, mas estranho dar problema em vários clientes, este problema dá quase em todos os clientes que usam o software.

 

   Pra vc ter idéia é uns 10 - onde 9 usa 2003 server (certificado A1) e um cliente usa 2008 server 32 bits (Certificado a1)

[tradeone]

Senhores,

tive um problema semelhante, mas não acredito que esteja no TS. (Fiz Testes locais e em TS. Ocorre o mesmo problema).

ACBr totalmente atualizado.

 

Na última versão tive um problema com impressão do DACTe (QR - Pagina 01/02 para apenas uma), inclusive postei.

Junto com este problema, quando fazia um segundo CTe em sequência, sem sair do formulário, me dava problemas

com a Sefaz me apontando como se não tinha carregado as configurações básicas, o que não ocorria há algum tempo já utilizando o ACBr.

 

Se sair do formulário e entrar novamente protocola na Sefaz normalmente.

 

Fiz testes na consulta do serviço no sefaz e alternava o erro ( 1=Ok, 2=Erro, 3=Ok, 4=Erro, ...). Resolvi destruir o componente e criar em tempo de execução, com o mesmo

código que alimentava das propriedades, funciona perfeitamente.

 

Ainda não tenho certeza do problema, mas solucionei temporariamente voltando uma versão dos fontes do CTe do inicio de agosto/2013 (era a ultima cópia que eu tinha).

 

Se alguém encontrar a solução ou tenha alguma ideia por gentileza me ajudem.

 

Obrigado.

[Italo Giurizzato Junior]

Bom dia Tradeone,

 

Realizando testes de inutilização de numeração ontem a noite detectei um erro no componente, favor atualizar os fontes e realizar os testes.

 

Pode ser que com essa correção que fiz, resolva o seu problema.