Ir para conteúdo
  • Cadastre-se

dev botao

Correios - Calculo De Sedex / Pac


Edson.pol
  • Este tópico foi criado há 2795 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa noite.

 

Tive que incluir em meu sistema uma opção para cálculo de SEDEX / PAC, e procurando por uma solução "pra ontem", achei um código na internet, fiz uns ajustes e deixei funcionando (em Delphi 7).

 

Eu nunca precisei desenvolver um componente "do zero", então estou postando o fonte para o caso de alguém com mais prática na criação de componentes integrar ao ACBr. Talvez se encaixe no ACBrTCP.

 

[]´s

Edson

post-1093-0-22983900-1409619511.png

SedexDelphi.rar

Editado por Edson.pol
  • Curtir 2
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Fundadores

Obrigado pela contribuição...

 

Notei algumas dificuldades para que os fontes possam fazer parte do Package do ACBrTCP

 

- Os fontes não estão no formato de componente... (a implementação da comunicação é feita no Projeto)

- Os fontes usam a Indy, e não a Synapse... (isso causaria uma dependência no ACBrTCP)

 

Os fontes podem servir de estudo para o caso de alguém desejar criar um componente para essa finalidade... mas não podem ser incorporados ao Projeto ACBr no momento...

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Bom dia 

fui efetuar testes e está dando erro de 

C:\Componentes\ACBr\trunk\Fontes\ACBrTCP\ACBrTCPReg.pas(46) Fatal: F1026 File not found: 'C:\Componentes\ACBr\trunk\Pacotes\Delphi\ACBrSerial\ACBrNcms.dcu'

 

tem alguma unit diferente que esteja usando?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Bom dia 

fui efetuar testes e está dando erro de 

C:\Componentes\ACBr\trunk\Fontes\ACBrTCP\ACBrTCPReg.pas(46) Fatal: F1026 File not found: 'C:\Componentes\ACBr\trunk\Pacotes\Delphi\ACBrSerial\ACBrNcms.dcu'

 

tem alguma unit diferente que esteja usando?

è que eu tabem fiz esse:

desculpa pela falha

Link para o comentário
Compartilhar em outros sites

Bom Dia Edson excelente componente, estou a algum tempo tentando desenvolver, Geração de etiqueta,Geração PLP,Rastreamento e Cálculo de preço.

Tem intenção de implementar essas outras questões?

Qualquer coisa se quiser trocar experiências.

Editado por Diego Prado
Link para o comentário
Compartilhar em outros sites

Show de bola Datilas ! Nem deu tempo de eu tentar transformar em componente :)

 

Diego: O próximo passo seria o rastreamento, vou baixar o manual do webservice e tentar implementar.

A geração de etiquetas e PLP pelo que vi precisa de contrato, vou ler o manual com calma.

 

PS:

Datilas, fique a vontade em ajudar !

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Moderadores

Pronto com rastreio,

eu estava com muito serviço por isso demorei um pouco

attachicon.gifrasterio.zip

Boa tarde

já está disponível no svn a alteração no componente e no exemplo 

obrigado!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...

Boa Tarde pessoal estou implementando o rastreamento e uma pessoa dos correios, me disse que para corrigir alguns códigos de serviço.

Não sei se ouve mudança, se puderem adicionar.

Apenas fiquei em dúvida no PAC que já existe o código 41106, mais se puderem implementar os faltantes.

 

40436 (Sedex) OK
40215 (Sedex 10 envelope) OK
40886 (Sedex 10 pacote)   falta
40169 (Sedex 12 envelope) falta
40894 (Sedex 12 pacote) falta
41068 (PAC) falta??
81019 (E-Sedex)  OK
 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Boa Tarde pessoal estou implementando o rastreamento e uma pessoa dos correios, me disse que para corrigir alguns códigos de serviço.

Não sei se ouve mudança, se puderem adicionar.

Apenas fiquei em dúvida no PAC que já existe o código 41106, mais se puderem implementar os faltantes.

 

40436 (Sedex) OK

40215 (Sedex 10 envelope) OK

40886 (Sedex 10 pacote)   falta

40169 (Sedex 12 envelope) falta

40894 (Sedex 12 pacote) falta

41068 (PAC) falta??

81019 (E-Sedex)  OK

 

Só uma pergunta: Onde arrumou esses códigos ? tem algum link ou manual para anexar?

estive pesquisando e não achei os demais!

 

desde já agradeço

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...

Olá pessoal,  só uma observação quanto ao exemplo do componente:  ao consultar os valores de frete, o serviço enviado está pegando do componente Combo errado. 

 

Está assim:      ACBrSedex1.Servico :=TACBrTpServico(cbAvisoReceb.ItemIndex); 

 

Deveria estar assim:    ACBrSedex1.Servico :=TACBrTpServico(cbServico.ItemIndex);

 

Quanto aos códigos de serviço, nos meus testes, funcionaram beleza com os que estão no componente. Testando com o que o Diego postou, não funcionou.

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...

Boa noite!

 

Alguém já conseguiu calcular o valor declarado?

 

Tentei informar R$ 1500, mas não trouxe valor, consultei direto do site dos correios com as mesmas informações e o valor me foi retornado.

 

Olhando o componente resolvi mudar a formatação da linha abaixo e funcionou:

'&nVlValorDeclarado=' + FormatFloat('#0.00', fnVlValorDeclarado) +

No componente estava '#0,00'

 

Nas configurações regionais do meu computador os valores estão formatados assim "1.500,00".

 

Atenciosamente,

 

Wilson.

Link para o comentário
Compartilhar em outros sites

  • 9 meses depois ...
Em 12/01/2016 at 10:34, LEANDRO LANA disse:

Bom dia.

Sabem me informar se o componente já possui opção de gerar o código de rastreamento do Correios ou há algum componente para isso aqui no ACBR? 

eu nem sabia que dava para gerar código de rastreamento visto que o código é gerado pelos correios no momento da postagem, o que eu sei que daria para fazer é um componente para acompanhar o objeto pelo código de rastreamento

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2795 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.