Ir para conteúdo
  • Cadastre-se

robinhovrb

Membros Pro
  • Total de ítens

    255
  • Registro em

  • Última visita

Posts postados por robinhovrb

  1. Bom dia Ítalo;

    A ideia seria, a serie '002', serviria somente para CTe complementar para a Serie '001(somente cte original)'; 

    No seu exemplo: o CTe original 5263, eu iria fazer um complementar dele começando com uma serie nova(002), com o numero 000001; Ai fica a duvida, a sefaz permitirá esta situação?("Todas esta sistemática é porque um cliente nosso, exige esta situação por incapacidade do sistema deles dar entrada no cte complementar na mesma sequência do original ")

    Obrigado pelo retorno...

     

     

     

     

     

     

  2. Bom dia, problema resolvido;

    Por algum motivo, as DLLs não foram substituída na para SYSWOW64, copiei manualmente todas; Problema resolvido;

    Access Violation... resolvido

    Instalação de componentes... resolvido

    Duvida, tem como definir uma pasta para as DLLs, que não seja a SYSWOW64 ou a do aplicativo(exe)? o usuário que define qual pasta! 

     

    Obrigado

    • Curtir 1
  3. Boa tarde

    Estou com problema quando transmito o CTe(Imagem); A cada CT-e para transmitir vem a mensagem 'Falha ao Localizar o nó de Assinatura';

    Após pressionar o botão OK(um OK para cada CT-e), o CT-e é transmitido normalmente; 

    Esta mensagem só aparece quando a propriedade SSLXmlSignLib = xsLibXml2 ou SSLXmlSignLib = xsXmlSec,

    mas quando a propriedade muda para SSLXmlSignLib =xsMsXml, não tem mensagem;

    Delphi 7

    SSLCryptLib = cryWinCrypt

    SSLHttpLib = httpWinHttp

    SSLib = libCustom

    SSLXmlSignLib = xsLibXml2

     

    Obrigado.

    IMG.png

  4. Bom dia 

    Esta vindo mais um documento; Agora será da ANTT(DT-e);

    CARACTERÍSTICAS DO DT-E:
    Dentre os pressupostos do DT-e, citam-se: o documento estará sob gestão da ANTT (este, inclusive, foi um dos pontos mais ressaltados durante a audiência); todos os transportadores rodoviários, idependentemente de sua categoria, serão obrigados a emitir o documento; será possível o aproveitamento dos arquivos já utilizados para geração dos documentos fiscais; o DT-e possibilitará a identificação, pela fiscalização, das obrigações de transporte; e terá lastro na liquidação financeira.

    Acredito que será necessário mais um componente;

     

    • Curtir 3
  5.       while not DM.Pesq_CTe_Email.Eof do
          begin
            if DM.Pesq_CTe_EmailENVIAR_DACTE.Value = 'S' then
             v_EnviarPDF := True
            else
             v_EnviarPDF := False;
            ACBrCTe.Conhecimentos.Clear;
            ACBrCTe.Conhecimentos.LoadFromString(DM.Pesq_CTe_EmailXML.Value);

            Mensagem:= TStringList.Create;
            Mensagem.Clear;
            if RzEdEmailTeste.Text <> EmptyStr then
             V_Email:= RzEdEmailTeste.Text
            else
             V_Email:= DM.Pesq_CTe_EmailEMAIL.Value;
            //Mensagem CT-e
            V_DataEnvio:= Now;
            Mensagem.Add('CT-e: ' + DM.Pesq_CTe_EmailNCT.AsString + ', Série: ' + DM.Pesq_CTe_EmailSERIE.Value);
            if DM.Pesq_CTe_EmailPRECTE.AsString <> EmptyStr then
            begin
              Mensagem.Add('Pre-CTe: ' + DM.Pesq_CTe_EmailPRECTE.AsString);
              v_Assunto:= 'Pre-CTe: ' + DM.Pesq_CTe_EmailPRECTE.AsString;
            end
            else
             v_Assunto:= 'CT-e: ' + DM.Pesq_CTe_EmailNCT.AsString + ' Série: ' + DM.Pesq_CTe_EmailSERIE.Value;
            //Mensagem.Add('Valor do Frete: ' + FormatFloat('#,##0.00', DM.Pesq_CTe_EmailVALORFRETE.Value));
            Mensagem.Add('Chave do CT-e: ' + Trim(copy(ACBrCTe.Conhecimentos.Items[0].CTe.infCTe.ID,4,44)));
            Mensagem.Add('PortaL para consulta do CT-e:');
            Mensagem.Add('http://www.cte.fazenda.gov.br/consulta.aspx?tipoConsulta=completa&tipoConteudo=mCK/KoCqru0=');
            Mensagem.Add('');
            Mensagem.Add('Arquivo XML em anexo, Data de Envio:' + FormatDateTime('dd/mm/yyyy hh:mm:ss', V_DataEnvio));
            Mensagem.Add('Não Responder a este EMAIL!');
            if V_Email <> EmptyStr then
            begin
              Memo1.Lines.Add('Enviando CT-e: ' + IntToStr(DM.Pesq_CTe_EmailNCT.Value) +
                ' Série: ' + DM.Pesq_CTe_EmailSERIE.Value +
                ' Para email: ' + DM.Pesq_CTe_EmailEMAIL.Value);
              if ACBrCTe.Conhecimentos.Items[0].CTe.procCTe.cStat = 100 then
               ACBrCTe.Conhecimentos.Items[0].EnviarEmail(V_Email
                                                 , 'CT-e: ' + Trim(copy(ACBrCTe.Conhecimentos.Items[0].CTe.infCTe.ID,4,44)) + ' Série: ' + DM.Pesq_CTe_EmailSERIE.Value
                                                 , Mensagem
                                                 , v_EnviarPDF //Enviar PDF junto
                                                 , nil //Lista com emails que serão enviado cópias - TStrings
                                                 , nil); // Lista de anexos - TStrings
             Mensagem.Free;
            end;
            DM.Pesq_CTe_Email.Next;
          end;

  6. Bom dia;

    Estou com um problema de envio de xml: após a confirmação do cte(status= 100), de tempos em tempos(15 em 15 minutos), meu sistema localiza todos os CTe pendentes para envia para o tomado; Com isso acontece de as vezes ter mais de 100 cte para envia; O problema é que: alguns XML(Anexo) esta indo com tomador errado(TAG esta indo errada); em vez de ir TOMA3 = 3 esta indo TOMA3 = 0; Acredito que seja decorrência de um Cte anterior;  

    Carregar o componente para envio de XML:

    ...

            ACBrCTe.Conhecimentos.Clear;
            ACBrCTe.Conhecimentos.LoadFromString(DM.Pesq_CTe_EmailXML.Value);
    ...

    Fico no aguardo... Obrigado

    372209_TOMA=0.xml

    372209_TOMA=3.xml

  7. Bom dia;

    Estou com uma duvida sobre emissão de cte Complementar; Sei que o fórum é especifico sobre COMPONENTE;

    Mas gostaria de contar com a experiência de vcs para me ajudar. Desde já agradeço:

    Foi emitido um Cte normal no dia 22_11_2017(CTe.2.0), onde o destinatário não foi informado a INSC.EST(foi omitido por falta de informação no cadastro), Hoje necessito fazer um CTe complementar deste CTe,

    o problema é: Quando tento transmitir o CTe(CTe 3.0) Complementar, sem INSC EST, retorna a rejeição "IE do destinatário não informada" ;

     Com base no erro modifico o CTe complementar, colocando a INSC. EST, retorna a rejeição: "A IE do destinatário do CT-e complementar deve ser igual ao informado no CT-e complementado";

    Gostaria da ajuda de como fazer o CTe complementar nestas situações, obrigado...

    OBS: Tomado de serviço é o remetente, o problema esta no dados do Destinatário;

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.