Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

 

 

tp_550_logo.png Homologação ACBr Apresenta:
Nova  Impressora
TP-550

botao_saibamais.png

 

 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

wagner_fix

Membros
  • Content Count

    154
  • Joined

  • Last visited

Community Reputation

19 Good

1 Follower

About wagner_fix

  • Rank
    Membro
  • Birthday 11/07/1983

Contact Methods

  • Skype
    linksite.atendimento

Profile Information

  • Sexo
    Masculino
  • Localização
    Campinas
  • Interesses
    Aprender

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Bom dia a todos... Quando precisei do CIOT o componente do ACBR ainda não estava pronto, e eu tive que desenvolver por conta própria... Lembro que nessa parte do PDF apanhei um pouco também. Acho que isso possa ajudar vocês... Fiz dessa forma. function Converter(P: TByteDynArray): string; var Buffer: AnsiString; begin SetLength(Buffer, Length(P)); System.Move(P[0], Buffer[1], Length(P)); Result := EncodeBase64(Buffer); end; var MStream : TMemoryStream; Decoder : TidDecoderMIME; Base64, AuxDtCIOT: string; Decoder := TidDecoderMIME.Create(nil); MStream := TMemoryStream.Create; Base64 := Converter(Retorno.Pdf); Decoder.DecodeStream(Base64,MStream); MStream.SaveToFile(xCamCIOT+'\'+AuxDtCIOT+'\'+TiraZeros(txtCod.Text)+'.pdf'); FreeAndNil(Decoder); FreeAndNil(MStream); Grato, Wagner
  2. Achei que era Italo, semana passada quando deu o problema a primeira coisa que fiz foi atualizar o schemas não funcionou fui para a outra parte do certificado. Grato, Wagner
  3. Eu não mudei para ssl ainda... Como precisava de muita urgência, foi para a segunda opção de atualizar a cadeia de certificado. Mas deu certo.
  4. André olhou sobre os certificados que mencionei acima? Foi a única coisa que resolveu o meu problema. Grato, Wagner
  5. Boa tarde... Tive o mesmo problema. Em outros tópicos estão dizendo que se for A1 para trabalhar com openssl caso seja A3 Esse link está resolvendo o problema. O meu também resolveu. http://www.sped.fazenda.pr.gov.br/modules/conteudo/conteudo.php?conteudo=55 Abraço, Wagner
  6. @Italo Jurisato Junior obrigado pela resposta. Também pensei nessa possibilidade. E vou adaptar isso no meu sistema. Grato, Wagner
  7. Obrigado @luisclaudio_jr pela resposta. Era isso que eu estava pensando. Grato, Wagner
  8. Bom dia pessoal tudo bem? Pesquisei aqui no fórum e não achei nada a respeito. Semana passada um cliente meu me questionou quando um caminhão quebra no meio do caminho, ele tem que enviar outro caminhão para terminar a entrega. Hoje no meu sistema tem que encerrar o MDF-e atual (com o local de onde parou) e fazer um novo MDF-e com os novos dados do caminhão. E segundo ele, um amigo transportador que não usa o meu sistema, disse que no sistema dele, ele encerra informando o dado do outro caminhão (fiquei bem confuso). Tentei entender e ele disse que é possível colocar outros dados de caminhão mas sem precisar encerrar o mdf-e. Dei uma boa pesquisada no google, acbr e o próprio manual do MDF-e diz que existe apenas esses eventos: Cancelamento / Encerramento / Inclusão de Condutor. Existe alguma outra forma de substituir o caminhão em precisar encerrar? Dessa forma que ele está fazendo (encerrando o mdf-e e fazendo um novo com os dados do caminhão substituto está correto?) Desde já agradeço a atenção de todos. Wagner
  9. Boa tarde, Eu faço assim! PathMensal := ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(StrToDate(txtEmissao.Text)); ACBrCTe1.Configuracoes.Arquivos.PathSalvar := PathMensal; ACBrCTe1.DACTe.PathPDF := PathMensal; ACBrCTe1.Configuracoes.Geral.Salvar := True; Grato, Wagner
  10. @Italo Jurisato Junior gostaria de agradecer pela paciência e as explicações... Conseguiu mais uma vez me ajudar com um problema que carrego a anos, já tentei a solução em outros tópicos e nunca tinha uma resposta clara... E com a dúvida do José conseguiu resolver o meu problema. Abraço, Wagner
  11. Italo bom dia... Explico: As vezes (não é todos meus clientes), ele vai enviar o CT-e para o sefaz ele envia, mas não retorna o XML com o protocolo e da Timeout. O que acontece no meu sistema? Quando ele envia e me da o retorno de sucesso... Eu atualizo o meu banco de dados falando que foi enviado com protocolo, chave e etc... Mas quando da timeout (sem me retornar o xml atualizado do sefaz), o meu banco de dados não atualiza e ele fica pronto para enviar novamente, ai quando o usuário vai tentar enviar novamente (nesse momento ele gera um novo XML) e quando retorna o status de cte duplicado e eu tento corrigir pelo o consultar ele fala que o DigestValue está diferente. Consegui explicar? Grato, Wagner
  12. Italo realmente foi isso que aconteceu... Então no caso se o sistema fizer uma nova tentativa de envio para ele checar o status (ele vai gerar um novo XML). O LoadFromFile e Consultar não vai funcionar né? Grato, Wagner
  13. Bom dia a todos eu estou com o mesmo problema... E alguns minutos atrás recebi mais um e-mail de cliente falando que o contador reclamou de xml sem o número de protocolo... Eu segui a dica do Italo para fazer manualmente, funcionou perfeitamente aqui AbrirCte.Title := 'Selecione o CTe'; AbrirCte.DefaultExt := '*-cte.xml'; AbrirCte.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; AbrirCte.InitialDir := PathMensal; if AbrirCte.Execute then begin ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(AbrirCte.FileName); ACBrCTe1.Consultar; end; Só que se eu quiser que o meu sistema detecta que está com o status 204 duplicidade e peço para o sistema arrumar sozinho ele dá um erro DigestValue do documento número do cte não confere. Alguém pode me dar uma dica como eu arrumo isso? Grato, Wagner
  14. Bom dia Italo, obrigado pela resposta... Pois é, os cliente colocam um padrão na empresa e para não perdemos temos que dar novas opções... Tive que fazer isso via programação fora do componente... Abraço, Wagner
×
×
  • Create New...