Implantar CTE

[mastersoftware]

Boa noite pessoal.

Venho recorrer aos amigos do fórum para resolver mais um entrave.

Sou programador clipper e delphi, atualmente meus sistemas estão 95% em delphi.

Mas justamente um que está em clipper estes dias me deixou preocupado.

É um sistema de transportadora que já converti metade para delphi, mas esta semana o cliente foi intimado a trabalhar com o CTE.

Após várias pesquinas pela net eu vi que o buraco é mais embaixo ( ou parece ser ).

Lí uma série de matérias que acabaram até confundindo mais a questão.

Schemas,Certificados, geração do xml, etc.

E o problema é que o cliente precisa colocar isto pra funcionar até o final do mes e eu não sei o que fazer.

Gostaria de verificar com o pessoal do fórum se a coisa é realmente este bixo de 7 cabeças, ou se alguém já tem isto funcionando que possa me ajudar, mesmo que eu pague os custos, pois eu preciso resolver isto, para não perder o cliente e para também não deixa-lo na mão.

Eu vi sobre o componente acbr, mas não sei nem por onde começar.

Gostaria de saber se posso exportar um texto atráves do meu programa em clipper, e carregar no componente, claro que para isto eu vou precisar desenvolver em delphi, ou se existe uma outra solução que seja rápida de instalar.

Estou com um belo problema

Aguardo encarecidamente ajuda do pessoal.

[Italo Giurizzato Junior]

Bom dia,

Tenho uma aplicação gerando o CT-e (Conhecimento de Transporte Eletrônico) a mais de 2 meses em ambiente de produção, ou seja com validade juridica.

Esta disponivel para o Delphi dois componentes: ACBrCTe e ACBrCTeDACTeQR.

Sendo o primeiro o responsável por tudo, gerar o XML, assinar, validar, enviar para o SEFAZ, protocolar o XML (caso seja autorizado o uso do mesmo), imprimir o DACTe e enviar por e-mail uma cópia do XML.

O segundo nada mais é do que o DACTe feito em Quick Report, utilizado pelo componente ACBrCTe para emissão do DACTe (Documento Auxiliar do Conhecimento de Transporte Eletrônico).

Ao baixar os fontes dos componentes ACBr, temos na pasta ...\Exemplos\ACBrCTe 4 arquivos TXT que contem fragmentos de código da minha aplicação.

Não é nenhum bicho de 7 cabeças, mas o tem prazo esta curto demais, você vai ter que se dedicar muitas horas, mas vai conseguir.

[]s

[mastersoftware]

Bom dia Italo.

Obrigado pela resposta.

Gostaria de saber também sobre os schemas, este certificado digital, é pago?

O cliente precisa comprar?

Eu vi os fragmentos que voce falou, mas qual seria a ordem ?

Gera, valida,envia e aguarda retorno?

São dúvidas básicas mas que se transformam um pouco pois não conheço nada do assunto ainda.

Tenho dúvidas sobre o processo operacional da coisa.

Se tiver algo aí agradeço.

[Italo Giurizzato Junior]

Bom dia,

Vamos as respostas:

Os schemas referente ao CT-e encontram-se na pasta: ...\Exemplos\ACBrCTe\Delphi

O certificado, o seu cliente deve adquirir um certificado e-CNPJ, portanto ele é pago.

Os certificados mais comuns são: Tipo A1 (arquivo instalado no computador usado para enviar o XML para a SEFAZ) e o Tipo A3 (cartão com chip mais a leitora instalada via USB no computador usado para enviar o XML)

Todos os fragmentos fazem parte de um unico Form que contem os dois componentes: ACBrCTe e ACBrCTeDACTeQR.

Ao abrir o Form faço com que seja executado a configuração dos componentes (exemplo no arquivo Configuracao.TXT).

Depois devemos passar os dados pertinentes ao transporte da carga para o componente (exemplo AlimentarComponente.TXT).

Lembre-se que é possivel carregar o componente com dados de mais de 1 conhecimento, vamos chamar isso de LOTE.

Com o componente carregado com os dados de 1 ou mais conhecimentos, devemos gerar o XML, assinar, validar, enviar, etc...

Para essa tarefa temos um exemplo no arquivo EnviarLote.TXT

Caso no cadastro do tomador do serviço (quem paga o frete) tenha o e-mail, após a impressão do DACTe, podemos, aliais devemos enviar por e-mail uma cópia do XML assinado e protocolado (ou seja autorizado o uso) para o Tomador do Serviço (exemplo EnviarEmail.TXT).

De imediato você devera ter 2 forms:

um para lançar os dados pertinentes ao transporte e salva-los no banco de dados e

outro que contem os 4 fragmentos disponibilizados por mim.

Dica: no cadastro de Empresas (Remetente, Destinatário) incluir os códigos de Pais, Municipio, Estado segundo o IBGE.

Espero ter ajudado.

[mastersoftware]

Ajudou e muito.

Agora eu tenho a indicação do caminho que devo seguir.

Obrigado por enquanto, e parabéns pela inciativa de compartilhar seu conhecimento com a comunidade, creio que ajuda e muito muita gente.

Att. Cleber Mano.

[LCPADILHA]

Entrando no assunto Recomendo vc Baixar o Programa Emissor do sefaz de seu estado ou no Portal nacional - www.cte.fazenda.gov.br -

Mas.. se nao quizer mesmo ter dor de Cabeça trocamos sua aplicação pela nossa por uma locação mensal a seu cliente e vc ainda leva uma grana .. temos mais de 20.000mil CTE emitidos... em que cidade vc esta.. ? www.dbfrete.com.br

[mastersoftware]

Bom dia,

Estou em Ribeirão Preto - SP.

Interessa sim, vou acessar seu site, dar uma olhada e lhe retorno.

Obrigado por enquanto.

[mastersoftware]

Boa tarde italojjr e amigos do fórum.

Bom, já coloquei a mão na massa mas ainda me restam algumas dúvidas que gostaria de esclarecer, se puderem ajudar agradeço.

---* Na seção abaixo :

1 - ) Quem é o tomador de serviços ?

Meu cliente transporta para uma empresa que vende material de construção, pelo que percebi o tomador é

o contratante do serviço ou seja a empresa de materiais de construção certo ?

0: Ide.Toma03.Toma:=tmRemetente;

1: Ide.Toma03.Toma:=tmExpedidor;

2: Ide.Toma03.Toma:=tmRecebedor;

3: Ide.Toma03.Toma:=tmDestinatario;

4: Ide.Toma03.Toma:=tmRemetente;

// Totamdor do Serviço no CTe 4 = Outros

* Porque o campo abaixo está como tmoutros ??

Ide.Toma4.Toma:=tmOutros;

---* O que são estas informações abaixo ?

{ compl.xCaracAd := Trim(DM_CNT.Conhec2CaracAdTrans.AsString);

compl.xCaracSer := Trim(DM_CNT.Conhec2CaracAdServ.AsString);

compl.xEmi := Trim(DM_CNT.Conhec2FuncioEmissorCTe.AsString);

compl.fluxo.xOrig := Trim(DM_CNT.Conhec2FluxoOrigem.AsString)

if Trim(DM_CNT.Conhec2FluxoPassagem.AsString)<>''

then begin

with compl.fluxo.pass.Add do

begin

xPass := Trim(DM_CNT.Conhec2FluxoPassagem.AsString);

end;

end;

compl.fluxo.xDest := Trim(DM_CNT.Conhec2FluxoDestino.AsString);

compl.fluxo.xRota := Trim(DM_CNT.Conhec2FluxoRota.AsString);

compl.Entrega.TipoData:=DM_CNT.Conhec2EntregaTipoData.AsInteger;

case DM_CNT.Conhec2EntregaTipoData.AsInteger of

0: compl.Entrega.semData.tpPer:=0;

1,2,3: begin

compl.Entrega.comData.tpPer:=DM_CNT.Conhec2EntregaTipoData.AsInteger;

compl.Entrega.comData.dProg:=DM_CNT.Conhec2EntregaDataI.AsDateTime;

end;

4: begin

compl.Entrega.noPeriodo.tpPer:=4;

compl.Entrega.noPeriodo.dIni:=DM_CNT.Conhec2EntregaDataI.AsDateTime;

compl.Entrega.noPeriodo.dFim:=DM_CNT.Conhec2EntregaDataF.AsDateTime;

end;

end;

compl.Entrega.TipoHora:=DM_CNT.Conhec2EntregaTipoHora.AsInteger;

case DM_CNT.Conhec2EntregaTipoHora.AsInteger of

0: compl.Entrega.semHora.tpHor:=0;

1,2,3: begin

compl.Entrega.comHora.tpHor:=DM_CNT.Conhec2EntregaTipoHora.AsInteger;

compl.Entrega.comHora.hProg:=StrToTime(DM_CNT.Conhec2EntregaHoraI.AsString);

end;

4: begin

compl.Entrega.noInter.tpHor:=4;

compl.Entrega.noInter.hIni:=StrToTime(DM_CNT.Conhec2EntregaHoraI.AsString);

compl.Entrega.noInter.hFim:=StrToTime(DM_CNT.Conhec2EntregaHoraF.AsString);

end;

end;

compl.origCalc := Quremetente

compl.destCalc := DM_CNT.Conhec2NomeCidadeEntrega.AsString;

compl.xObs := DM_CNT.Conhec2Mensagem.AsString;}

--* Desculpe as perguntas, é que meu cliente não uma transportadora, transportadora mesmo.

É um trasnportador exclusivo para um cliente, onde é bem mais específico.

Se puderem ajudar agradeço.

Feliz natal à todos e um ótimo ano novo !!!!

[Italo Giurizzato Junior]

Bom dia,

Vamos as respostas:

O Tomador do Serviço é quem paga o frete.

O mais comum é ser o Remetente (a loja de material de construção) ou o destinatário (o cliente da loja).

Quando o tomador do serviço for Outros devemos informar desta forma: Ide.Toma4.Toma:=tmOutros;

O techo de código que você postou, se refere aos dados complementares ao transporte da carga, muitos deles opcionais.

Uma dica é ter sempre por perto o manual de integração, os nomes das variáveis do componente para passar os dados são exatamente iguais ao do manual, isso facilita muito.

Um detalhe, a empresa que realiza o transporte da carga só deve emitir o conhecimento de transporte de carta eletrônico ou comum (papel), quando a cidade do remetente for diferente a do destinatário.

Se for a mesma, a empresa transportadora deverá emitir uma nota fiscal de serviço de transporte de carga.

Dentro do municipio emite-se a NF de serviço, para fora do municipio emite-se o Conhecimento.

Espero ter ajudado, mais um pouco.

Um bom principio de ano novo a você e seus familiares e amigos.

[mastersoftware]

Olá boa tarde,

Depois de muita correria e trabalho consegui desenvolver o CTE para a minha aplicação.

Agora quando vou testar, mesmo colocando em simulação, aparece a mensagem

---------------------------

Debugger Exception Notification

---------------------------

Project CTE.exe raised exception class Exception with message 'Número de Série do Certificado Digital não especificado !'. Process stopped. Use Step or Run to continue.

---------------------------

OK Help

---------------------------

Quer dizer que mesmo para o teste eu preciso do certificado ok?

Em qual site eu poderia comprar este certificado, e quanto custa mais ou menos ?

Andei dando uma olhada e encontei isto aqui

http://www.iti.gov.br/twiki/bin/view/Ce ... truturaIcp

Procede?

Obrigado.

[Italo Giurizzato Junior]

Bom dia Master Software

Sim você precisa de um certificado.

Existe um gratuito fornecido pela SEFAZ do RS.

Link:

http://www.sefaz.rs.gov.br/Site/MontaMe ... nfe_assDig

Mas, este certificado só serve para assinar o XML, logo você não vai consegui realizar os demais testes tais como enviar, cancelar, etc...

Portanto você deve adquirir um certificado, ou conseguir um com algum cliente seu.

O link postado por você procede.

O certificado pode ser do tipo A1 ou A3.

Veja este link para obter mais informações sobre os certificados:

http://loja.certificadodigital.com.br/s ... rAplicacao

[mastersoftware]

Boa tarde italojjr,

Estive olhando o certificado A3 token, tipo USB e me intressei por ele.

O link é este

http://loja.certificadodigital.com.br/s ... o/0/367,,/

Funciona com os componentes CTE acbr normalmente?

Caso sim vou compra-lo para meu cliente.

Só estou perguntando porque este ambiente é novo pra mim.

Obrigado por enquanto.

[Italo Giurizzato Junior]

Boa tarde Master Software,

O meu cliente utiliza o certificado A1, e com este certificado o componente ACBrCTe funciona sem problemas.

Quanto ao A3, existem outros colegas do fórum que utilizam e segundo os relatos, também funciona.

O certificado A1 pelo que pude ver é muito mais tranquilo, basta instalar e configurar o componente com o numero de série do certificado.

[mastersoftware]

Bom dia...

Legal já até encaminhei para meu cliente comprar o certificado A1.

Só me tire mais uma dúvida por favor, o certificado somente funciona em uma maquina?

Precisarei testar minha aplicação na máquina do usuário eu vou instalar a dll ?

Obrigado pela ajuda.

[Italo Giurizzato Junior]

Bom dia

O Certificado A1, pode ser instaldo em quantas maquinas forem necessárias.

Algumas DLLs são necessárias, mas elas estão disponiveis dentro da pasta DLLs.

Espero ter ajudado.

[mastersoftware]

Blz. Muito obrigado pela ajuda, sem estas informações eu teria sofrido um bocado para instalar e provavelmente atrasado meu projeto.

Se tiver mais alguma dúvida eu posto.

Desde já agradeço.

[Softcia sma]

Boa Tarde, Alguem possui um exemplo do acbrcte funcional? Preciso urgente..

 

[email protected]

Santa Maria, RS

Mario Moreira

[Italo Giurizzato Junior]

Boa tarde Mario,

 

O que vem a ser "um exemplo do acbrcte" ?

[Softcia sma]

Boa Noite, o exemplo que falo é como a NFE, se compilar o exemplo ele gera um XML sem erro, e nao estou conseguindo com o 

CTe.

 

Voce tem algum exemplo de preencher os dados que funcione?

 

 

O codigo esta todo documentado e nao como  a NFe que é funcional.

 

Att.

 

 

Mario Moreira
MSN : [email protected] 
Cidade : Santa Maria - RS

[Italo Giurizzato Junior]

Bom dia Mario,

 

Na pasta ...\Exemplos\ACBrCTe existe varios arquivos TXT todos são fragmentos da minha aplicação que esta rodando a mais de 2 anos.

 

Um deles se chama: AlimentarComponente.

 

Como são fragmentos da minha aplicação, logo você vai encontrar chamadas a tabelas do meu banco de dados, fora isso é tranquilo.

 

Estude esse fonte, você vai conseguir montar a sua rotina.

 

Não tive tempo ainda de alterar o programa exemplo de tal forma que ele gere um XML valido, mesmo com dados ficticios.

[Softcia sma]

Bom Dia. Pode me ajudar. Este itens abaixo nao esta aparecendo no XML.

 

            Rodo.RNTRC := '00654817'; //DM_CNT.ParametrosRNTRC.AsString;

            Rodo.dPrev := NOW + 2; //   (DM_CNT.Conhec2Data.AsDateTime + 1);

 

            with rodo.veic.Add do

            begin

                RENAVAM := Xrenavam.Text;

                placa := xPlaca.Text;

                TARA := 100;

                capKG := 10;

                capM3 := 10;

                tpProp := tpProprio;

                tpVeic := tvTracao;

                tpCar := tcFechada;

                tpRod := trTruck;

                UF := 'RS';

 

            end;

 

Att.

 

Mario

[Italo Giurizzato Junior]

Bom dia Mario,

 

Os itens que você se refere é referente ao veículo?

 

Se sim, por favor leia o manual página 128.

 

Grupo:

veic -> Dados dos Veículos -> Um CT-e poderá ter vários veículos associados, ex.: cavalo + reboque. Só preenchido em CT-e rodoviário de lotação.

 

No XML gerado qual é o valor da tag <lota>: 0 (zero) ou 1 ?

Se for zero não vai gerar mesmo.

[Adilson Moreira]

Italo boa tarde !

 

Referente ao txt alimentar componente nessa parte with DMCTE.CTe.Conhecimentos.Add.CTe do     ao que se refere ´alguma tabela ou query dentro de uma data module ou é outro componente ? mais uma vez desculpe minha pergunta talvez seja meio tola mas realmente não nãi entendi se puder me dar uma luz fica aqui meu agradecimento abraço a todos do fórum.  

[Juliomar Marchetti]

Italo boa tarde !

 

Referente ao txt alimentar componente nessa parte with DMCTE.CTe.Conhecimentos.Add.CTe do     ao que se refere ´alguma tabela ou query dentro de uma data module ou é outro componente ? mais uma vez desculpe minha pergunta talvez seja meio tola mas realmente não nãi entendi se puder me dar uma luz fica aqui meu agradecimento abraço a todos do fórum.  

Adilson Moreira

Como você é novo no fórum gostaria de convidar a ler as

pois aqui havia duas perguntas iguais com diferença de minutos entre elas e também criou esse com a mesma questão onde no caso já foi respondido

pedimos atenção para que post em um único local e aguarde alguém responder

[Adilson Moreira]

Juliomar, bom dia!

 

Rapaz realmente devo pedir mil desculpas, me atrapalhei ontem na hora em que criei o tópico e posteriormente quando fui em outro tópico para fazer a pergunta minha internet estava muito lenta pensei que tinha travado e dei 2 click, fica aqui minhas desculpas a vc e aos compnheiros do fórum Krepe e Italo, que com tanto zelo já me responderam minhas duvidas  

 

Abraço a todos