prismars

Cleber, Era exatamente este o erro. Agradeço a resposta. Forte abraço,

PessoALL, Percebi que na impressão do Cancelamento do CTe não são impressos os dados referentes ao CTe de origem. Isto esta correto ? Não seria preciso imprimir número e série do CTe no corpo do documento ? Anexo PDF da carta de cancelamento (v2.0) gerada por mim. Abraços, Moacir Cancelamento000000001.pdf

Italojjr, Obrigado pela resposta, farei desta forma. Abraços e um bom feriado, Moacir

Prezados, Estou migrando minha aplicação para a versão 2.0 e estou com o problema citado acima, no SEFAZ de SP. Posso fazer o CTe com qualquer tipo de documento (NF, NFe, Outros) e o erro sempre é o mesmo. Estou testando com Notas e NFe´s reais já utilizadas para a emissão de CTe´s. Alguem poderia me dar uma luz a respeito ? ** Corrigindo: Com tipo de documento = 'Outros' autoriza normalmente ** Agradeço desde já, Moacir

Senhores, Hoje atualizei o ACBr via ACBRInstall e a instalação correu sem erros. Fui fazer alguns testes no meu sistema e percebi que a impressão da DACTE não ocorre, e nenhuma mensagem de erro é emitida. Tentei utilizando a versão do QR e do FR e em nenhum dos casos funciona. A impressão de outros tipos de relatórios do sistema estão ok, inclusive MDFE. D XE2 W8.1 Toda a ajuda é bem vinda. Abraços, Moacir

Italo, Mais uma vez meu muito obrigado. Então vou me concentrar no Manifesto Eletrônico. Um forte abraço e uma excelente semana ao amigo ! Moacir

Bom Dia Italo, Na verdade estou tentando enviar os dois tipos: Carta de correção e o Cancelamento e o erro ocorre nos dois casos. Aproveito para perguntar: posso gerar o XML do evento e grava-lo antes de enviar ? Forte abraço, Moacir

Pessoal, Não obtendo um erro ao testar a geração de ventos em ambiente de HOMOLOGAÇÃO (não tentei em produção). Erro obtido: 'Modal não encontrado no XML.'. Abaixo como estou gerando o evento: ACBrCTe.Conhecimentos.Clear; ACBrCTe.Conhecimentos.LoadFromFile(sPathTEMP+schNfe+'.XML'); ACBrCTe.EventoCTe.Evento.Clear; ACBrCTe.EventoCTe.idLote := 1; with ACBrCTe.EventoCTe.Evento.Add do begin infEvento.cOrgao := StrToIntDef(Copy(g_EmitCodCidade, 1, 2), 0); if lHomologacao then InfEvento.tpAmb := taHomologacao else InfEvento.tpAmb := taProducao; infEvento.CNPJ := g_EmitCNPJ; infEvento.chCTe := schNfe; infEvento.dhEvento := Now; infEvento.tpEvento := StrToTpEvento(ok, sTipo); infEvento.nSeqEvento := iSeqEvento; infEvento.detEvento.nProt := sProtocolo; infEvento.detEvento.xJust := Carta.Text; infEvento.detEvento.modal := mdRodoviario; infEvento.detEvento.vICMS := qryDados_CTe.FieldByName('A06VIC').AsCurrency; infEvento.detEvento.vTPrest := qryDados_CTe.FieldByName('A06VLF').AsCurrency; infEvento.detEvento.vCarga := qryDados_CTe.FieldByName('A06VLM').AsCurrency; If qryDados_CTe.FieldByName('A06CLI').AsString=qryDados_CTe.FieldByName('A06CGR').AsString then infEvento.detEvento.Toma:=tmRemetente else If qryDados_CTe.FieldByName('A06CLI').AsString=qryDados_CTe.FieldByName('A06CGD').AsString then infEvento.detEvento.Toma:=tmDestinatario else infEvento.detEvento.Toma:=tmOutros; // // Dados do Tomador // qryClientes.Close; qryClientes.ParamByName('A01CGC').AsString := qryDados_CTe.FieldByName('A06CLI').AsString; qryClientes.Open; infEvento.detEvento.CNPJCPF := qryDados_CTe.FieldByName('A06CLI').AsString; infEvento.detEvento.IE := IfThen(qryClientes.FieldByName('A01INS').AsString='','ISENTO',qryClientes.FieldByName('A01INS').AsString); infEvento.detEvento.UF := qryClientes.FieldByName('UF_ORIGEM').AsString; qryClientes.Close; infEvento.detEvento.UFIni := g_EmitUF; infEvento.detEvento.UFFim := qryDados_CTe.FieldByName('A06DUF').AsString; end; qryDados_CTe.Close; if ACBrCTe.EnviarEventoCTe(ACBrCTe.EventoCTe.idLote) then // <<-- AQUI ocorre o ERRO Alguma dica ?? Abraços, Moacir

Caro Italo, Meu muito obrigado, seguindo suas indicações consegui instalar o componente. Grato ! Moacir

Italo, Boa Tarde ! Meu caro, não estou conseguindo instalar o ACBrMDFeDAMDFEQRpkg. Meu cenário: Delphi XE2, QR 5.05.1. Alterei no pacote ACBrMDFeDAMDFEQRpkg a versão do QR de QR5RunD7 para a minha versão QR5RunDXE2 e ao tentar compilar da o seguinte erro: "[DCC Error] E2466 Never-build package '.ACBrMDFeDAMDFEQRpkg' requires always-build package 'QR5RunDXE2'" Alguma dica ?? Forte abraço, Moacir

Um cliente solicitou que eu coloque o nome da empresa (transportadora) no canhoto da DACTe. A alegação dele é que os entregadores não sabem de quem é o CTe depois de destacar o canhoto (no caso ele tem um serviço contratado para tal e o mesmo trabalha para mais de uma transportadora). Pelo que pude notar não tem como sem alterar o layout do mesmo, ou estou enganado ? Abraços, Moacir

Italo, Mais uma vez o meu muito obrigado. Caso possa ser útil em algo basta pedir. Forte abraço, Moacir

Nem todos os estados tem a consulta de contribuintes disponível para o CTe, embora tenham para NFe. Alguns estados que não tem esta consulta no CTe: MG, ES, PR ente outros... Link´s para WS NFe (que funcionam perfeitamente com o CTe): Homologação: http://hom.nfe.fazenda.gov.br/portal/we ... k0FwB7dKs= Produção: http://www.nfe.fazenda.gov.br/portal/we ... k0FwB7dKs= Aonde proceder os ajustes: AcbrCTeUtil.pas Moacir

Fiz alguns testes aqui e observei que basta colocar os link´s dos WS da NFe para que esta opção passe a funcionar corretamente. Alguém sabe se isto pode trazer algum aborrecimento no futuro ? Abraços, Moacir

Observei que os dados da seguradora não estão presentes neste modelo A5. É correto o uso da DACTe sem os dados do seguro ?? Moacir

Italo, Cenário: D7 QR 3.0.9 Tive a necessidade de impressão em lote da DACTe e como meu QR não tem suporte a impressão em PDF utilizei o PDFCreator para tanto, mas enfrentei um problema: a formatação aplicada ao numero do CTe no DocumentTitle do QR. Fiz uma pequena alteração e pergunto se a mesma poderia ser incorporada como definitiva ? Acredito que outros mais devem ter este mesmo problema. Alterações realizadas: unit ACBrCTeDACTeQRRetrato, linha 930 de: QRCTe.ReportTitle:='CT-e: ' + FormatFloat( '000,000,000', FCTe.Ide.nCT ); para: QRCTe.ReportTitle:='CT-e: ' + FormatFloat( '000000000', FCTe.Ide.nCT ); unit ACBrCTeDACTeQRRetratoA5, linha 806 de: QRCTe.ReportTitle:='CT-e: ' + FormatFloat( '000,000,000', FCTe.Ide.nCT ); para: QRCTe.ReportTitle:='CT-e: ' + FormatFloat( '000000000', FCTe.Ide.nCT ); Forte abraço, Moacir

Bom Dia, Estou tendo os mesmos problemas que o Adriano Lucas ao tentar utilizar o DACTe A5. Houve alguma evolução quanto a resolução dos problemas relatados por ele ? Abraços, Moacir Fortes

Italo, Problema resolvido. Gratidão! Moacir

Bom Dia, Estou atualizando uma aplicação para emissão do CTE. Atualizei o ACBr e para minha surpresa passou a ocorrer o seguinte erro quando tento imprimir: "Property TransparentBand does not exist" Meu cenário: D7 + QR Versão 3.0.9 (original D7) + Firebird 2.0 Desde já obrigado por qualquer dica. Moacir

Italo, Testei com a nova versão e ficou 100%, show. Forte abraço, Moacir

Italo, Eu acabei 'fuçando um pouco e consegui fazer funcionar, mas usando de gambiarras. 1) No caso do RS e outros Estados esta desativada a opção na função GET_URL. Eu copiei a mesma linha da NFe e fiz pequenas alterações. Veja abaixo: ACBrCTeUtil: Linha Original (351): // LayCTeCadastro: Result := CTeUtil.SeSenao(AAmbiente = 1, 'https://sef.sefaz.rs.gov.br/ws/CadConsultaCadastro/CadConsultaCadastro.asmx','>https://sef.sefaz.rs.gov.br/ws/CadConsultaCadastro/CadConsultaCadastro.asmx', 'https://sef.sefaz.rs.gov.br/ws/CadConsultaCadastro/CadConsultaCadastro.asmx'); Linha Alterada: LayCTeCadastro : Result := CTeUtil.SeSenao(AAmbiente=1, 'https://sef.sefaz.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx','>https://sef.sefaz.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx', 'https://sef.sefaz.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx'); (Em diversos outros estados esta linha esta comentada exatamente como esta no RS....) 2) Depois disto passou a dar erro de Schema do XML gerado. Descobri que ele manda como versão 1.01, quando deveria ser 2.00. Fiz uma gambi com um stringreplace e estou conseguindo fazer a consulta. Faltou conhecimento e experiência no ACBR para implementar corretamente. ACBrCTeWebServices Abaixo da linha 619 eu coloquei esta gambiarra: FDadosMsg := StringReplace( FDadosMsg, ' Espero ter ajudado. Abraços, Moacir

Não estou conseguindo fazer a consulta de cadastro no CTe. Esta funcionalidade esta ativa ? Obrigado deste já.