Leandro Miler Santana

Leia estes links, para base de conhecimento. https://blog.signainfo.com.br/detalhes/quando-posso-emitir-o-cte-de-anulacao-e-o-cte-de-substituicao https://www.ophos.com.br/ct-e-de-anulacao-e-substituicao/ https://blog.oobj.com.br/prestacao-de-servico-em-desacordo/ Segue código que tenho no meu sistema // verifica se o CTE é de Anulação if copy(dm1.Nota.FieldByName('NFEANULA').AsString,1,1)<>'' then // cte tem nota de anulação begin // TpcteTipoCTe = (tcNormal, tcComplemento, tcAnulacao, tcSubstituto); Ide.tpCTe := tcSubstituto; infCTeNorm.infCteSub.chCte:=dm1.Nota.FieldByName('CTEORIG').AsString; // cte a ser subsituido infCTeNorm.infCteSub.tomaICMS.refNFe:=dm1.Nota.FieldByName('NFEANULA').AsString; // chave da nfe de anulaçao emitida pelo tomador // todo colocar rotina para mudança no frete if dm1.Nota.FieldByName('ALT_TOMA').AsString='S' then infCTeNorm.infCteSub.indAlteraToma:=tiSim else infCTeNorm.infCteSub.indAlteraToma:=tiNao; end; Importante observar que além do tomador do serviço que consta no CTE ter que emitir uma NFE de anulação de valores referenciando o CTE a ser anulado, também terá que emitir obrigatoriamente um evento em desacordo referenciando o mesmo CTE. Infelizmente a burocracia nesta situação é enorme, e na maioria das as vezes o próprio contribuinte que foi "mencionado erroneamente" no CTE, não tem sistema ou pessoal qualificado ou mesmo condições de emitir este evento ou NFE. O que muita das vezes, a anulação não é feita, e o transportador emissor do CTE emitido de forma errada acaba tendo que "arcar" com os custos de impostos. Ficou muito ruim estas exigências do SEFAZ. Espero que estes links possam ajudar em alguma coisa ou mesmo dar uma luz. Creio que é isso, caso eu estiver errado os amigos me perdoem e me corrijam por favor. Abraços

https://www.google.com/search?q=como+consumir+apis+em+delphi&oq=como+consumir+apis+em+delphi&aqs=chrome..69i57j33i22i29i30l2.5045j0j7&sourceid=chrome&ie=UTF-8 Clique neste Link e veja a imensidão de material disponível ensinando como fazer isto no Delphi. Tenho certeza que vai achar o que precisa. Grande abraço !!

Bom dia pessoal Aqui também está com problemas. Pra eu usar a teSVCRS, depois que voltar ao normal vou precisar refazer algum processo ? ou basta modificar para "teNormal" ?

Tai Pessoal, uma oportunidade de desenvolver um pequeno aplicativo somente pra isso. Talvez oferece-lo de forma gratuita fazendo com que este aplicativo seja veículo de marketing. Pensem nisso.

Caro amigo mlsvicente, Como fui ajudado aqui por diversas vezes com exemplos de código, segue uma pequena contribuição; Esta rotina que desenvolvi e está funcionando perfeitamente. Se os moderadores acharem conveniente, podem anexar este código a um novo botão no fonte do exemplo do acbrNFe, criando uma nova funcionalidade. Espero que ajude. Abraços a todos // busca os 50 próximos xmls do Ambiente Nacional s grava em uma pasta derminada // Para rodar este exemplo, deverão serem prenchidas as seguintes propriedades do ACBrNFE propriedades { // padrao do certificado A1 ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; ACBrNFe1.SSL.SSLType := LT_TLSv1_2; // configurando certificado ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := Empresa.FieldbyName('CER_PATH').AsString; ACBrNFe1.Configuracoes.Certificados.Senha := Empresa.FieldbyName('CER_PASS').AsString; // Define local para salvar os arquivos ACBrNFe1.Configuracoes.Arquivos.PathNFe := Empresa.FieldbyName('XML_PATH').AsString; ACBrNFe1.Configuracoes.Arquivos.PathSchemas := Empresa.FieldbyName('SCHEMAS').AsString; } procedure TfrmPrincipal.btIniciandoBuscaClick(Sender: TObject); // var sChave, cUFAutor, CNPJ, ultNSU, ANSU: string; iQtdBuscou, i : Integer; LDocZip: TdocZipCollectionItem; begin cUFAutor := ''; ACBrNFe1.DistribuicaoDFe(Empresa.FieldByName('UF').AsInteger, Empresa.FieldByName('CNPJ').AsString, Empresa.FieldByName('ULT_NSU').AsString, ''); Memo1.Lines.Text := ACBrNFe1.WebServices.DistribuicaoDFe.RetWS; memo2.Lines.Text := ACBrNFe1.WebServices.DistribuicaoDFe.RetornoWS; LoadXML(ACBrNFe1.WebServices.DistribuicaoDFe.RetWS, WBResposta); iQtdBuscou := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count; for i := 0 to Pred(iQtdBuscou) do begin LDocZip := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i]; ultNSU := LDocZip.NSU; if (LDocZip.schema = schprocNFe) then // separa somente xml de nfe begin ACBrNFe1.NotasFiscais.Clear; acbrNFE1.NotasFiscais.LoadFromString(LDocZip.XML, true ); sChave := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe; ACBrNFe1.NotasFiscais.GravarXML(sChave+'.XML'); end; end; if Empresa.RLock(empresa.RecNo) then begin Empresa.Edit; Empresa.FieldByName('ULT_NSU').AsString := ultNSU; Empresa.Unlock(Empresa.RecNo); end; End;

Maravilha BigWings, Vou fazer os testes aqui !! Obrigado pela resposta. Grande abraço !!!

Bom dia pessoal. Tenho uma dúvida referente ao método DistribuicaoDFePorChaveNFe. Sei que de acordo com a NT 2014.002 V1.02b, uma empresa "Transportadora de Cargas", consegue baixar o XML completo da NFE, mesmo que a mesma não tenha sido manifestada previamente, isto usando o método DistribuicaoDFePorUltNSU . A minha dúvida é: Se eu usar o método DistribuicaoDFePorChaveNFe contendo a chave de uma NFE, em que esta transportadora seja um dos atores da nota, vou ter como resultado o XML da NFE completo, mesmo que a mesma não tenha sido manifestada previamente pelo destinatário da nota ainda. Estou um pouco confuso por não ter usado estes métodos ainda. Mas recorro aos colegas especialistas para sanarem minha dúvida. Desde já agradeço o apoio de todos.

Parabéns pela iniciativa caro amigo Laercio Amici. O prazer e a satisfação em poder contribuir com algo que ajudará pessoas em uma comunidade, é uma recompensa muito maior que receber em dinheiro por um trabalho executado. Estou estudando para melhorar meus conhecimentos em Delphi para poder ajudar em algo também !!! Grande abraço, e sucesso !!!!

Olá caro amigo Wagner_Fix. Não sei se conseguiu resolver, mas tenho algumas observações a fazer, experiência minha a ser compartilhada, talvez possa dar uma luz 1º - Se a empresa for "Não Contribuinte" ela tem que enviar a declaração, caso ela seja "Contribuinte", tem que ser uma NF-e de anulação ou desacordo. 2º - Creio que se der certo o CTE de anulação, não precisará do CTE de substituição. Basta fazer um CTE novo com as informações corretas. 3º - Quando for fazer um CTE de anulação ou o mesmo deverá ter os campos idênticos ao CTE anulado, ou seja, mesmo remetente, destinatário, mesma NFe contida nele, cidade de coleta e entrega, etc. 4º - Mesmo que o MDFe tenha sido emitido, mas não tenha sido "consultado" pelo fisco, ou seja não tenha nenhum evento, você consegue cancelar o MDFe. Com isso conseguirá cancelar o CTe. Com certeza seria o caminho mais fácil. A respeito destes trâmites, as vezes nem mesmo os contadores sabem nos informar!! Temos que ir na tentativa e erro. Isto é ruim, e é um risco, mas faça tudo com o acordo do seu cliente. Boa sorte amigo !!cte de anulação.bmp

Segue exemplo ACBr { Informações OPCIONAIS sobre o produto predominante } prodPred.tpCarga := tcGranelSolido; prodPred.xProd := 'Descricao do Produto'; prodPred.cEAN := '78967142344650'; // nao é obrigatorio prodPred.NCM := '01012100'; // não é obrigatorio // Informações do Local de Carregamento // Informar somente quando MDF-e for de carga lotação prodPred.infLocalCarrega.CEP := 14800000; prodPred.infLocalCarrega.latitude := 0; prodPred.infLocalCarrega.longitude := 0; // Informações do Local de Descarregamento // Informar somente quando MDF-e for de carga lotação prodPred.infLocalDescarrega.CEP := 14800000; prodPred.infLocalDescarrega.latitude := 0; prodPred.infLocalDescarrega.longitude := 0; Poste aqui se o conseguiu !!

Caro amigo Luis Claudio, tenta dar uma refatorada no seu código. Antes de popular o MDFe, desligue os controles DBware das tabelas, principalmente da tabela de CT-e principal e suas tabelas filhas ligadas a ela (Master-Detail), segue um exemplo do site da Embarcadero: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin ListBox1.Clear; ListBox1.Items[0]:= 'Destination Airports:'; with Flights do begin DisableControls; try First; i:= 1; ListBox1.Items[0]:= 'Destination Airports:'; while not Eof do begin ListBox1.Items[i]:= Fields[2].Value;; i:= i + 1; Next; end; finally EnableControls; end; end; end; Isso pode ajudar bastante. Até mais !!

Bom dia Ítalo. Vou estudar sobre isso !! para tentar ajudar. Grande abraço !!

Pessoal, testei o arquivo postado no outro link, e funcionou perfeitamente. Gastei 20 minutos para implantar esta funcionalidade em meu sistema. Mais uma vez, fico agradecido a todos deste grupo. Iniciativa maravilhosa. Todos trabalhando e contribuindo para o bem de todos !! Valew pessoal !!!

Haaa me desculpe, não tinha verificado. Muito obrigado. Vou verificar. Att

Boa tarde pessoal !! Quase todas as outras seguradoras usam o AT&M, e já fiz esta integração e está rodando perfeitamente. Agora estou tendo necessidade de adequar meu sistema para averbar eletronicamente o CT-e com o WebService da Porto Seguro. O suporte deles é terrivel!! Alguém aqui tem o caminho das pedras ? Manuais, etc. Para eu ja ir colocando a mão na massa ? Desde já agradeço o apoio. Até mais.

SEFAZ Voltou a funcionar normalmente. Problema resolvido. Como sempre eles não honestos em mostrar a disponibilidade do SITE.

Bom dia pessoal. Estou com um problema em um cliente, todos os ctes que estamos tentando gerar está dando 'USO INDEVIDO'. Já tentei outro CNPJ com outro certificado, pois este cliente tem 2 cnpjs. Digitei um novo cte com numeração nova, nao deu. Digite um novo cte em outra cnpj, tambem não deu. Sempre da o mesmo erro. No Sefaz consta que está tudo ok, apesar que nem sempre o SEFAZ coloca a informação correta na disponibilidade. Alguem sabe me dizer alguma coisa !:

Acabei de fazer a integração com o Web Service via ACBr. Está funcionando perfeitamente. Muito bom !!! Agradeço à todos que colaboraram de alguma forma com este componente. Antes de implementa-lo, eu usava a estratégia de copiar cada CT-e gerado para a pasta do ATM. Agora não precisamos mais disso. Muito me ajudou. Parabéns à todos que trabalharam neste projeto. Muito Obrigado.

Suspensão da obrigatoriedade da geração do código CIOT até o julgamento, em fevereiro, pelo Supremo Tribunal Federal. Leiam arquivo anexo. Suspensão Obrigaação CIOT.pdf

Acabei modificando o CFOP para 6932 e funcionou perfeitamente. Obrigado pelo apoio

Pessoal, boa tarde. Estou tentando emitir um CT-e de Sub-contratação. Segui todos os parâmetros recomendados no manual. 1 - Digitei os dados idêntico ao CTE do Contratante (pagador) inclusive cidade de coleta e cidade de entrega 2 - Coloquei o Emissor do CTE (Contratante) como expedidor e coloquei como ele sendo o tomador do frete. 3 - Modifiquei o tipo de Serviço para Sub-Contratação 4 - Coloquei o CTEORIG - Referenciando o CTE do Contratante Pagador. Detalhe - o Rementente é de Minas Gerais e o Destinatário de São Paulo De acordo com orientações, vemos que o CFOP deveria ser 5360 ou 6360. - Não funciona - dá CFOP Inválido. Pois bem, tentei todos os CFOPs possíveis 5353/5352/6353/6352 e nenhum deles funciona. O Erro de CPF inválido persiste. Alguem teria alguma solução pra me dar ? Desde já agradeço a todos.

Problema foi resolvido. Atualizei o ACBr e recompilei. Obrigado !!!

O nome da impressora padrão coloco na propriedade "Impressora" do Dacte é isso ? Antes eu não colocava e o proprio componente selecionava a padrão. Será que após a minha atualização do ACBr por isso esta acontecendo ? Tem um exemplo pra passar de como buscar o nome da impressora padrão ?

Pessoal boa tarde. Estou com um problema o seguinte. Antes de imprimir cada CTE, o sistema pergunta qual impressora será impresso. Eu já desabilitei PrintDialog = false. E mesmo assim o problema permanece. Estou usando o Fortes Report. Este problema começou a acontecer depois que atualizei o ACBR. em Janeiro. Alguem pode me ajudar ?

Ítalo deu certo !!!!! Muito obrigado pelo apoio !!!! Por isso sou fã dos Componentes ACBr. Grande abraço meu amigo !!!