Leandro Miler Santana

Verifique se está sendo enviado um XML de pedido de cancelamento no padrão 2.0. Revise seu código e confirma que o XML de pedido de cancelamento está na versão 3.0. Um detalhe importante, é que não importa se o CTE foi gerado no 2.0. Agora pra cancelar tem que usar o padrão 3.0. Toda troca de informação com o Sefaz se tratando de CTe tem que ser no padrão 3.0 Talvez seja isso.

Faz o seguinte. Aproveita que o Fortes Report é gratuito, e instale-o. Depois instale o Acbr com a opção do Fortes Report também eE faça os testes nele. Atualizei meu Acbr ontem, eu uso o Fortes, está funcionando perfeitamente. Pra isso você não vai precisar escrever nenhuma linha de programação.

Ninguém sabe tanto que não possa aprender e nem tao pouco que não posso ensinar. Disponha. Temos que compartilhar nossas experiencias.

Pelo que sei, os dados do tomador do serviço pode ser qualquer CNPJ mesmo que este não seja personagem do transporte em sí. Você pode colocar qualquer tomador de CNPJ. Não necessariamente precisa ser o Remetente. Mas neste caso, o ideal seria você consultar um contador para sanar esta dúvida.

var sFiltro :string; fVBCUFFIM,fPFCPUFFIM,fPICUFFIM,fPICINTER,fPICPART: double; fICMSFundoCombateaPobreza,fICMS_Destino,fICMS_Origem:double; fBaseICMS, fValorDIFAL, fPercPobrezaDestino : double; fValorPobrezaDestino:double; fAliquotaInternaDestino,fAliquotaDIFAL,fAliquotaInterestadual:double; fPercentualPartilhaOrigem,fPercentualPartilhaDestino,fValorICMS_Origem, fValorICMS_Destino :double; begin inherited; // calcula base de cálculo - pega do total do CTE fBaseICMS := dm1.NotaCTOTAL.AsFloat; // Encontra percentual do FCP do uf destino if dm1.FCP.Locate('UF',dm1.NotaCOL_UF.AsString,[loPartialKey]) then Begin fPercPobrezaDestino := dm1.FCPFCP.AsFloat; // percentual de pobreza uf destino fAliquotaInternaDestino := dm1.FCPPERC_ICMS.AsFloat; // percentual icms da uf destino End; // Encontra PERCENTUAL PROVISORIO DE PARTILHA ENTRE OS ESTADOS sFiltro := 'ORI_COL= '+QuotedStr(dm1.NotaCOL_UF.AsString)+' AND ORI_ENT ='+QuotedStr(dm1.NotaENT_UF.AsString)+''; ShowMessage(sfiltro); dm1.ICMS2.Close; dm1.ICMS2.Filter := sFiltro; dm1.ICMS2.Open; if not dm1.ICMS2.Eof then fAliquotaInterestadual := dm1.ICMS2ALIQ.AsFloat; // percentual da aliquota interestadual fValorPobrezaDestino := (fBaseICMS * fPercPobrezaDestino )/ 100; fAliquotaDIFAL := fAliquotaInternaDestino - fAliquotaInterEstadual; fValorDIFAL := (fBaseICMS * fAliquotaDIFAL)/100; fPercentualPartilhaDestino := 0.6; // percentual partilha da uf destino 2017 fPercentualPartilhaOrigem := 0.4; // apos o falculo da difal - faz a partilha 2017 - 40% origem fValorICMS_Origem := fValorDIFAL * fPercentualPartilhaOrigem; // 40%origem fValorICMS_Destino := fValorDIFAL * fPercentualPartilhaDestino; // atualiza campos dbVBCUFFIM.Text := FloatToStr(fBaseICMS); dbPFCPUFFIM.Text := FloatTostr(fPercPobrezaDestino); dbPICUFFIM.Text := FloatToStr(fAliquotaInternaDestino); dbPICPART.Text := FloatToStr(fPercentualPartilhaDestino*100); dbPICINTER.Text := FloatToStr(fAliquotaInterestadual); dbVFCPUFFIM.Text := FloatToStr(fValorPobrezaDestino); dbVICUFINI.Text := FloatToStr(fValorICMS_Origem); dbVICUFFIM.Text := FloatToStr(fValorICMS_Destino);

Olá David Bandeira, No meu sistema acabei criando os 8 campos exigidos no grupo de partilha e implementei o cálculo das alíquotas automaticamente para ajudar os clientes. Fazendo isso, resolvi o problema. Vou postar aqui os cálculos que fiz dos campos criados

Ola Amanda Antunes, Para o Globalizado, o tem que ser colocado o destinatário os mesmos dados do emissor do CTe, com a única diferença do campo Razão Social tem que estar descrito como "Diversos" . Então verifica se este sistema não assume automaticamente como Globalizado, quando o Destinatário for o mesmo do CNPJ do Emissor do CTE. Neste caso nem seria necessário uma TAG específica pra isso. Talvez ele faça isto. Não custa tentar.

Erick, você por acaso salvou o ACBr antes de fazer a atualização. Se fez, retorne a copia antiga e compile o programa, para verificar se o problema está no Acbr ou no seu sistema. Lembre-se antes de instalar o antigo novamente, execute o ApagaACBr

Consegui resolver o problema. Atualizando corretamente a pasta PATHPDF e PATHCTE o componente é inteligente para salvar na pasta definida o pdf, e depois quando for enviar email do pdf, ele busca exatamente onde foi gerado. Tudo funcionando graças a Deus Obrigado a todos.

Também ainda não consegui

Boa noite. Caros amigos programadores, atualizei meu sistema para o CTE 3.0 e está funcionando tudo perfeitamente, só que notei um problema. O sistema não consegue localizar o arquivo PDF quando envia o email. Percebi que agora os PDF dos CTEs estão sendo salvos na pasta \PDF\ANOMES\nomedoarquivopdf e antes nao era assim. Analisando o componente de envio de email no pdf, percebo que ele busca o PDF de outro caminho (do padrao antigo) e obviamente nao encontra pois o PDF nao é salvo no mesmo lugar como era antigamente Só pra salientar, os pdfs dos CTEs eram gerados na pasta PDF e nao tinha subpastas de Ano/Mes. Ja mudei varias configuraçãos do pathpdf, pathcte, mas não obtive sucesso Alguem pode me ajudar ? Vejam o trecho do componente buscando o path padrão if (EnviaPDF) then begin if Assigned(DACTE) then begin DACTE.ImprimirDACTEPDF(CTe); NomeArq := PathWithDelim(DACTE.PathPDF) + NumID + '-cte.pdf'; AnexosEmail.Add(NomeArq); end; Me desculpem se estou fazendo algo errado. Peço ajuda de vocês Desde já agradeço muito todo este movimento mutuo.

Conseguiu resolver ? também estou com esta dificuldade

A ANTT publicou no Diário Oficial do dia 2 de outubro de 2017 a deliberação nº 325, que trata da averbação do seguro, sendo o preenchimento do campo obrigatório. Caso a seguradora não consiga informar o número da averbação, a Empresa de Transporte Rodoviário de Carga (ETC) poderá colocar o número 99.999, ficando isenta de possíveis penalidades. Veja abaixo o texto na íntegra. Ministério dos Transportes, Portos e Aviação Civil em tem cosntar agora no MDFe

Caro amigo, verifique todos os campos do seguro, isto é obrigatorio: - responsável pelo seguro - CNPJ do responsável - Razão Social da seguradora - CNPJ da seguradora - Número da apólice - Número da averbação (este campo é obrigatório mas não é conferido online, no meu caso quando não tenho, repito o numero da apólice e o SEFAZ Aceita) Outro detalhe obrigatório é informar algum dado da infANTT você tem 3 opções: - infCIOT - valeped - infContratante Se não tiver CIOT, nem vale Pedágio, informe o CNPJ do contratante que pode ser o mesmo do emissor do MDFe. Fazendo isso funcionará. Boa Sorte Grande Abraço

Olá pessoal boa tarde. Estou tentando enviar email via ACBRMail, mas não estou conseguindo. Vou postar meus fontes aqui, alguem por favor pode me dizer o que estou fazendo de errado? ACBrMail1.From := dm1.CadFilEMAILNOME.AsString; ACBrMail1.FromName := dm1.CadFilNOME2.AsString; ACBrMail1.Host := dm1.CadFilSMTPHOST.AsString; ACBrMail1.Username := dm1.CadFilSMTPUSER.AsString; ACBrMail1.Password := dm1.CadFilSMTPPASS.AsString; ACBrMail1.Port := dm1.CadFilSMTPPORT.AsString; if (dm1.CadFilSSL.AsString = 'S') then ACBrMail1.SetSSL := true else ACBrMail1.SetSSL := false; if (dm1.CadFilTLS.AsString = 'S') then ACBrMail1.SetTLS := true else ACBrMail1.SetTLS := false; mmEmailmsg := TStringList.Create; mmEmailmsg.ADD('Ola caro cliente, '); mmEmailmsg.Add(' '); // outras configuracoes ACBrMail1.SMTP.UserName := DM1.CadFilSMTPUSER.AsString; ACBrMail1.SMTP.Password := dm1.CadFilSMTPPASS.AsString; ACBrMail1.SMTP.TargetHost := dm1.CadFilSMTPHOST.AsString; ACBrMail1.SMTP.TargetPort := dm1.CadFilSMTPPORT.AsString; ACBrMail1.From := dm1.CadFilEMAILNOME.AsString; ACBrMail1.AddAddress(edEmailTeste.Text); ACBrMail1.Subject := 'email teste'; ACBrMail1.Body.Text:=mmEmailmsg.Text; ACBrMail1.Send();

No meu sistema também está acontecendo isso. Meus componentes estão todos atualizados. Conseguiram resolver ? ou descobrir o que era ?

Quanto está pedindo pelo fonte ?

Pelo que ví no AcbrBoleto, estas instruções estão encapsuladas (não sei se é a palavra correta), então você não precisa colocar número e sim as variáveis tipadas que referenciam este encapsulamento. Exemplo de parte do componente do BoletoSantander toRemessaBaixar : Ocorrencia := '02'; {Pedido de Baixa} toRemessaConcederAbatimento : Ocorrencia := '04'; {Concessão de Abatimento} toRemessaCancelarAbatimento : Ocorrencia := '05'; {Cancelamento de Abatimento concedido} toRemessaAlterarVencimento : Ocorrencia := '06'; {Alteração de vencimento} toRemessaAlterarControleParticipante : Ocorrencia := '07'; {Alteração Número Controle Cedente} toRemessaAlterarNumeroControle : Ocorrencia := '08'; {Alteração de seu número} toRemessaProtestar : Ocorrencia := '09'; {Pedido de protesto} toRemessaCancelarInstrucaoProtesto : Ocorrencia := '18'; {Sustar protesto e manter na carteira} toRemessaNaoProtestar : Ocorrencia := '98'; {Sustar protesto antes do início do ciclo de protesto} Basta definir o tipo que terá o mesmo nome independente do banco. Não sei se fui claro e se falei os termos técnicos corretos, mas é isso aí.

Caros amigos, bom dia. Estou com um problema na geração arquivo CNAB 240 da Caixa Meu boleto da caixa está gerando tudo certo, padrão 240, só que tem um numero "numero sequencia do arquivo remessa" que eu preencho no componente e o mesmo não gera. Adiciono este valor em 2 propriedades. Mas mesmo assim o valor no arquivo gerado fica zerado. Alguém sabe como resolver este problema ? ACBrBoleto1.GerarRemessa(spRemessa.Value); ACBrBoleto1.NumeroArquivo := spRemessa.Value;

Que eu saiba Larissa só tem a opção de imprimir o logo do próprio banco. Se mandar com a logo da empresa ao invés da logo do banco eles não homologam. Ha nao ser que tiver opção de imprimir 2 logos. Alguém tem mais alguma observação a fazer ?

Olá pessoal, boa tarde. Estou migrando o meu sistema para o trunk2. Mas estou com um grande problema. Com os componentes ACBr instalados e atualizados, eu compilo normalmente o programa. Quando vou executá-lo aparece a seguinte mensagem: "Não foi possível localizar o ponto de entrada do procedimento gzdirect na biblioteca de vínculo dinâmico zlib1.dll' Fiz este processo tanto no Delphi 2007, quanto no Delphi Berlin. Já apaguei todas as DLLs, copiei as mesmas para System32, Bin (Delphi), Pasta da aplicação, e de nada adiantou. Já desinstalei e instalei várias vezes o Acbr, e tudo é instalado normalmente. Mas o erro persiste. Não sei o que fazer. !!! Alguém já passou por isso e poderia me ajudar ? Agradeço à todos pelo apoio. Pessoal já achei o problema. Pesquisando no fórum descobri que tenho que descomentar no ACBr.inc a seguinte linha: {$DEFINE DFE_SEM_OPENSSL} Me desculpem, as vezes ficamos com a cabeça tão quente procurando um problema que passamos pela solução e não à vemos. Da próxima vez antes de postar, prometo que vou tentar mais vezes e com a cabeça fria, assim ficará mais fácil de encontrar as respostas. Posto aqui os meu parabéns à todos que apoiam este projeto "ACBr" , seja respondendo dúvidas ou implementando códigos ou mesmo pagando as mensalidades do suporte. Não saberia o que fazer se não fosse este fórum ! Realmente é um sucesso !!! Obrigado !!!

erro 12031 - a conexao do servidor foi resetada sabe o que significa ?

Todos meus clientes sao de Sao Paulo, estao todos parados. ainda nao atualizei para o trunk2 será que pode sera isso ? para quem utiliza CT-e atualizar para trunk2 ?

o problema é que parou todos os clientes de uma só vez acho que não eh configuração da Internet

Pessoal boa tarde. Faz mais de uma hora que nenhum de meus clientes conseguem gerar CT-e. Sefaz Inoperante. Alguem esta tendo este problema ?