Leandro Miler Santana

Ítalo, não existe esta opção no meu componente !!!

Neste caso ele não gera arquivo de envio nem de retorno, não consigo achá-los.

Olá pessoal, o que seria o erro abaixo está acontecendo com certa frequencia. Erro ao salvar .CAnnot create file "Z:\CTE\SP\211307\CTe\imento(s) não confirmados(s): 2304->Rejeicao-ped-sit.xml". A sintaxe do nome do arquivo, pasta ou nome do volume está incorreta.

Bom dia pessoal. Estou usando o ACBrCTE e graças a Deus está funcionando bem, o único detalhe é que na maioria das vezes que retorna o erro, não vem identificado, não sei se estou fazendo algo errado A maioria dos erros retorna que acontece, o sistema sempre retorna a mesma mensagem, e a mensagem diz que ele não está encontrado o caminho do XML ou então não está conseguindo gravar o XML. Na maioria das vezes é problema com inscrição Estadual errada, mas eu acho que a mensagem deveria ser especifica o que não está acontecendo, o que será que posso estar fazendo de errado? Vou postar uma parte do meu codigo aqui e se alguem puder me ajudar, vou ficar agradecido. sERRO:=' '; IF NOT CTE.Enviar(0,false) then // esta funcao assina e valida begin sERRO:='X'; sTxtErro:=CTE.WebServices.Retorno.RetornoWS; ShowMessage(CTE.WebServices.Retorno.xMotivo); ShowMessage(CTE.WebServices.Retorno.xMsg); end else begin // buscando protocolo gerado ---------------------------------------------------- sProtocolo:=CTE.WebServices.Retorno.Protocolo; sRecibo:=CTE.WebServices.Retorno.Recibo; sNomeArquivo:=CTE.Conhecimentos.Items[0].NomeArq; sChaveCTE:=CTE.WebServices.Retorno.ChaveCte; // Atualiza dados no CTRC - DBF ------------------------------------------------ dm1.Nota.Edit; dm1.NotaRECIBO.Value:=sRecibo; dm1.NotaPROTOC.Value:=sProtocolo; dm1.NotaCHAVECTE.Value:=sChaveCTE; dm1.NotaARQUIVO.Value:=sNomeArquivo; dm1.NotaRANDOM.AsInteger:=iNum; dm1.NotaEMAILENV.AsString:=Para; if (sERRO='X') then Begin dm1.NotaTXTERRO.Value:=sTxtErro; dm1.NotaERROCTE.Value:=sERRO; End; dm1.Nota.Post; CTE.DACTe.NumCopias:=dm1.CadFilVIAS.AsInteger; if (dm1.CadFilDAC_APOS.AsString='S') then CTE.Conhecimentos.Imprimir; CTE.Conhecimentos.ImprimirPDF; MemoResp.Lines.Text := UTF8Encode(CTE.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(CTE.WebServices.Retorno.RetWS); LoadXML(MemoResp, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio CTe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(CTE.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ CTE.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(CTE.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(CTE.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ CTE.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(CTE.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ CTE.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ CTE.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ CTE.WebServices.Retorno.Protocolo); sSMTPHost:=dm1.CadFilSMTPHOST.AsString; sSMTPUser:=DM1.CadFilSMTPUSER.AsString; sSMTPPass:=DM1.CadFilSMTPPASS.AsString; sSMTPPort:=DM1.CadFilSMTPPORT.AsString; CC:=TstringList.Create; // cc.Add('[email protected]'); Mensagem:=TstringList.Create; Mensagem.Add('Email enviado automaticamente '); Mensagem.Clear; Mensagem.Add('Comunicamos por este e-mail que o Conhecimento Eletrônico (Chave='+ Copy(CTe.Conhecimentos.Items[0].CTe.inFCTe.ID,4,44)+ ') obteve autorização de uso sob o protocolo: '+CTe.Conhecimentos.Items[0].CTe.procCTe.nProt); Mensagem.Add(' '); Mensagem.Add('Enviamos em anexo o arquivo XML e o DACTE do respectivo CT-e.'); Mensagem.Add(' '); Mensagem.Add('Atenciosamente,'); Mensagem.Add(' '); Mensagem.Add(dm1.CadFilNOME2.AsString); Mensagem.Add(' '); Mensagem.Add(' '); Mensagem.Add(' '); Mensagem.Add(' >>> Desenvolvido por Infotrans <<<'); if (dm1.CadFilSSL.AsString='S') then bSSL := true else bSSL := false; CTE.Conhecimentos.Items[0].EnviarEmail(sSMTPHost ,sSMTPPort ,sSMTPUser ,sSMTPPass ,sSMTPUser , Para , sTituloMensagem , mensagem , bSSL // conexao segura False , True // enviar pdf , nil // lista de emails , nil , False ); end; finally // CC.Free; sCONHEC:=dm1.NotaCONHEC.AsString; sERRO_VALIDACAO:=CTE.WebServices.Retorno.Msg; sERRO:=COPY(sERRO_VALIDACAO,0,10); if (sERRO='Conhecimen') then begin // consulta o SEFAZ e busca o recibo nPosicaoChaveOriginal:=Pos('chCTe:', sERRO_VALIDACAO)+7; sChaveOriginal:=copy(sERRO_VALIDACAO,nPosicaoChaveOriginal,44); CTe.WebServices.Consulta.CTeChave := sChaveOriginal; CTe.WebServices.Consulta.Executar; MemoResp.Lines.Text := UTF8Encode(CTe.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(CTe.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); iProtINI:=Pos('<nProt>', MemoResp.Lines.Text)+7; iProtFim:=Pos('</nProt>', MemoResp.Lines.Text); iProtSIZE:=iProtFIM-iProtINI; sProtocolo:=Copy(MemoResp.Lines.Text,iProtINI,iProtSIZE); sNumeroCTE:=Copy(sChaveOriginal,28,07); dm1.Nota.Edit; dm1.NotaTXTERRO.AsString:=sERRO_VALIDACAO; dm1.NotaERROCTE.AsString:='S'; dm1.NotaPROTOC.AsString:=sProtocolo; dm1.NotaCHAVECTE.AsString:=sChaveOriginal; dm1.Nota.Post; end else begin CTE.Conhecimentos.Items[0].SaveToFile; // se nao deu erro salva arquivo assinado { sArquivoOrigem:=trim(dm1.NotaARQUIVO.AsString); sCaminhoDestino:='E:\PEDIDOPELACONECTA '; sArquivoDestino:=trim(sCaminhoDestino)+'\'+sChaveCTE+'-cte.XML'; try // CopyFile(PChar(), PChar(NovaPasta), true); CopyFile(PChar(sArquivoOrigem), PChar(sArquivoDestino), true); except ShowMessage('Ocorreu um erro durante a cópia. Por favor, verifique o caminho'); end} end; if DM1.Nota.Eof then begin Acabou_CTRC:=false; end; end;

Ok. Obrigado pelas informações Ítalo. Vou testar no meu sistema. Abraços.

Olá Ìtalo, legal o seu exemplo. Só que quando vamos recuperar o XML temos que colocar o mesmo numero de chave, isso não é problema pois temos o numero da chave na base de dados. Como podemos fazer isso, sendo que o componente gera automaticamente o número da chave ? Onde eu atribuo o numero da chave que eu quero no componente ? Desculpem minha ignorância. Meu conhecimento é pouco em Delphi.

Ítalo, será que os que ja foram feitos mais de 4 mil CTes somando os 4 clientes, poderão sofrer algum tipo de autuação ?

Olá amigos. Estou gerando o CTe em produção desde junho em 4 empresas. Está funcionando muito bem, graças a Deus. Mas tem um detalhe, estou lançando somente os dados obrigatórios das notas, Numero, Emissao, Valor, Serie, CFOP. Não estou lançando o numero da chave da danfe no meu sistema. E está validando tudo normalmente. De acordo com o manual, temos varias opções. Ou lançamos as notas detalhadas, ou lançamentos a chave da danfe, ou algum outro documento tipo um contrato, como até me foi respondido neste forum. A dúvida é, será que estou fazendo certo ? posso continuar fazendo desta forma ? lancando os conhecimentos sem a chave das danfes ? Abraço a todos.

Rafael, escolha a melhor resposta e marque este Post como "Resolvido", fica mais fácil de entender e procurar.

Ok muito obrigado !!! deu certo !!!

Então quer dizer que eu fazendo isso, a opção Consulta.Executar irá gravar os dados do protocolo no xml ?

Haaa legal Italo, muito obrigado pelas informações.

Olá pessoal, boa noite. È possivel eu enviar o xml de cancelamento via email para o cliente que "iria" pagar o frete ? Isso existe no ACBr ?

Olá pessoal. Estou com um problema assim, o CT-e é gerado corretamente, validado, impresso e depois enviado por email. Nesta opção eu gravo dentro do banco de dados a chave do CTE, o EMAIL ENVIADO, Procotolo, Recibo. Se eu for consultar esta chave, usando a rotina do programa exemplo, o sistema diz que "Rejeição - CTE não consta na base de dados do SEFAZ' e neste caso se eu for consultar esta mesma chave no site da fazenda de SP, o conhecimento está lá validado. O estranho também é que neste caso eu clico no botão de gerar o CT-e e o sistema vai me dar um erro o segunte erro "Erro ao salvar. Cannot create file "Z:\sansoft\imento(s) não confirmado(s): 13->Rejeição: -ped-sit.xml". A sintexa do nome do arquivo, pasta ou nome do volue está incorreta." Após eu tentar gerar novamente e após dar o erro acima, eu consulto novamente a chave por dentro do meu programa, e chave é a mesma que da primeira vez, só que desta vez ele consulta corretamente e diz que o CT-e foi aprovado o uso." Aconteceu isso com alguem, ou será que estou fazendo algo de errado ? Abaixo segue o código do meu botão consultar chave " vChave:=DM1.NotaCHAVECTE.AsString; if not(InputQuery('WebServices Consultar', 'Chave do CT-e:', vChave)) then exit; if (CTE.Configuracoes.Certificados.NumeroSerie='') then begin sCertificado:=CTE.Configuracoes.Certificados.SelecionarCertificado; CTE.Configuracoes.Certificados.NumeroSerie:=sCertificado; end; Screen.Cursor:= HourGlassCursor; CTe.WebServices.Consulta.CTeChave := vChave; CTe.WebServices.Consulta.Executar; MemoResp.Lines.Text := UTF8Encode(CTe.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(CTe.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); "

Hoje outro cliente meu me pediu que no canhoto tivesse alguns dados do CT-e, pois desta forma, o mesmo poderia imprimir somente 1 VIA do Dacte. Acho interessante, se não tiver problema, é informação a mais que não atrapalharia ninguem que já esteja usando. Acho bem viável esta alteração. Como estou engatinhando tanto em Delphi quanto no ACBr, não tenho condições de fazer, senão eu faria e manda-va para o Italo avaliar. Então dependemos de quem sabe !!! Valew pessoal.

Volmir, bom dia , eu fiz isso na unha sem usar o ACBR, mas eu vou te dizer os blocos necessarios Sao: 0000 - dados da empresa 0001 - informacao 0 0005 - nome das filiais da empresa pelo menos uma tem q por 0100 - dados do escritorio contabil 0150 - dados dos remetentes e destinatarios/ despachos / consignatarios que serao usados nos registros seguintes - Os registros abaixos tem q ser gerados pra cada conhecimento de frete D100 D130 D160 D162 D190 |D990||E001|E100|E110|E116|E990|G001|G990|H001|H990|1001|1010|1700| |1990|9001 |9900| totalizar todos os registros listandos anteriormentes |9990| totalizar |9999| totalizar Gero assim e funciona, tive vários problemas até chegar nestes registros. Apesar que depois que estiver gerando o conhecimento eletronico, basta enviar os XMLs pro contador que o contador gera o SPED por lá. abcs.

Obrigado, pessoal, está cada vez melhor este forum. Parabens a todos os programadores que fazem deste projeto um sucesso !!!

Olá pessoal, estava pesquisando no forum e achei uma resposta sobre isso!!! Quem deu a solução foi o "Neguta" vejam abaixo como resolvi [RESOLVIDO] Estava colocando infseg.add."tag1" := valor, para cada uma das tags Usando conforme abaixo, resolve o problema. with infseg.add do begin "tag1" := valor1 "tag2" := valor2 //assim por diante end;

Acabei de atualizar os componentes data 17/06/2013 e ainda os campos da Seguradora e Numero da Apolice dos quais eu preenchi e constam no XML, continuam não aparecendo no DACTE impresso. Será que estou fazendo alguma coisa de errado ?

Bom dia pessoal Achei interessante. O que acham de deixar o nome da transportadora como padrão nos canhotos !! Acho que os clientes usuários do sistema iriam aprovar, e já que não existe nenhuma contra-indicação é uma melhoria no sistema. Isto é uma opnião minha. Até mais

Legal Adailson, pensei nisso também e já comecei a fazer. Mas na realidade, porque será que acontece este problema heim ?? No seu programa acontece isso com que frequencia ?

Na realidade é o seguinte. As vezes quando valido, da algum erro, tipo de I.E Invalida, ou então um outro erro que ainda nao consegui descobrir, acontece com pouca frequencia mas está acontecendo por exemplo No meu sistema o meu cliente marca do numero tal até o numero tal, dai eu filtro e começo a gerar 1 a 1, nao mando via lote. Eu assino, valido, atualizo o recibo na base de dados, imprimo o Dacte e envio email, depois vou para o proximo Conhecimento e repito este mesmo processo até acabar a seleção que o usuario fez Acontece as vezes que em aproximadamente 2% das vezes, ele manda pra Secretaria da Fazenda, pois se agente consultar vai estar lá como conhecimento valido e autorizado, só que ele não imprime e parece-me que nem gera o XML na pasta interna, é uma coisa muita estranha. Então como não consegui resolver este problema ainda, e nao fica marcado no meu sistema se o Conhecimento autorizou ou nao, o cliente tenta gerar de novo este mesmo numero de Conhecimento e dai ele vai enxendo a pasta de XMLs com XMLS inválidos que na realidade são lixo. Então na realidade eu acho que tenho 2 problemas. Ìtalo, você por acaso poderia me ajudar ? Vou postar meus fontes Desde já agradeço muito sua atenção !! erro geracao CTE.txt

Olá pessoal. Estive percebendo que independente se for dar erro ou não, o componente gera um XML. Existe a possibilidade de somente gerar XML dos CTe-s que validaram com sucesso ? Ou se gerar o XML é inevitável, existe alguma função para apagar o xml gerado errado ? Desculpem a minha ignorância é que sou programador Delphi novato, e as vezes aparecem algumas dúvidas que talvez para a maioria é coisa simples. Mas pra mim é um pouco complicado. Agradeço a atençao de todos.

Olá caros amigos, boa noite. Quero parabenizar à todos os desenvolvedores que mantem este componente e este site. O CT-e padrão A4 estou gerando e emitindo perfeitamente em produção em alguns clientes. Tenho algumas dúvidas à respeito do padrão A5. Primeiro: È possível fazer com que o tpA5 seja impresso em um único formulário A4 ? pois quando escolho tpA5 ele gera 2 folhas A4 e ainda impresso de forma irregular tipo paisagem com bastante espaços sobrando. Outra coisa, Percebi que neste padrão tpA5, a segunda folha sai com os campos de identificação de documentos repetidos. Ou seja a barra de titulo das notas fiscais "TP DOC CNPJ/CPF EMITENTE SÉRIE/NRO. DOCUMENTO' sai este título 2 vezes. Alguem pode me dar alguma solução ? Em anexo coloquei o CTe gerado no padrão tpA5 para vocês visualizarem o erro. Desde já agradeço a atenção. CTE PADRAO A5 - 35130665825721000186570010008021441975745915.pdf

Ok. Muito obrigado pela resposta. Vou mandar bala.