Correios - Calculo De Sedex / Pac

[Edson.pol]

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

SedexDelphi.rar

Editado 2 Setembro, 2014 por Edson.pol

[Daniel Simoes]

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...

[datilas]

eu transformei em componente segue em anexo:

ACBRSedex.zip

fico aguardando os testes

[Juliomar Marchetti]

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?

[datilas]

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

[Juliomar Marchetti]

Ok alterei e estou testando!

assim que tiver algo aviso!

[Juliomar Marchetti]

Bom dia

já encontra se disponível no svn o componente está funcionando também em lazarus!

[datilas]

ok

[Daniel Simoes]

Parabéns Datilas e Edson.pol... uma excelente contribuição...

[Diego Prado]

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 14 Setembro, 2014 por Diego Prado

[Edson.pol]

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 !

[datilas]

Pronto com rastreio,

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

rasterio.zip

[Edson.pol]

Perfeito Datilas !

 

Agora que está pronto, parece tão fácil de fazer...

 

Eu ainda estava na fase da leitura do manual

 

[]´s

Edson.

[Juliomar Marchetti]

Pronto com rastreio,

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

rasterio.zip

Boa tarde

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

obrigado!

[datilas]

uma pequena alteração na linha 453

onde

if Pos(ACBrStr('Não Disponível!'), Self.RespHTTP.Text) > 0 then

foi alterado para 

if Pos(ACBrStr('tente novamente mais tarde'), Self.RespHTTP.Text) > 0 then

pois estava retornando Exception mesmo quando o objeto era valido

ACBrSedex.pas

 

 

[Daniel Simoes]

Obrigado mais uma vez... já está no SVN..

[Diego Prado]

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
 

[Daniel Simoes]

Diego,

 

Você mesmo pode implementar... e anexar no fórum, os fontes modificados para analise...

[Juliomar Marchetti]

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

[marcoandre]

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.

[wilson_jr]

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.

[Juliomar Marchetti]

Boa tarde

anexe o fonte para que a gente faça o merge e validação do mesmo!

[LEANDRO LANA]

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? 

[Juliomar Marchetti]

Não!

[datilas]

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