Leandro Miler Santana

verdade não está. desculpe o erro grotesco. Vou tentar novamente

Veja Italo a mensagem que dá ao consultar.

Italo, quando eu fizer a consulta, automaticamente o componente sobrescreve o xml consultado ? independente da pasta onde está ?

ok. vou tentar fazer isso

Então Italo, veja bem. Entrei no site do Sefaz, e baixe o xml que está la no Sefaz. Baseado nisso peguei o codigo fonte de encerramento do exemplo, e apliquei no meu sistema. Executei a rotina pegando o XML que peguei no Sefaz (pois o cliente pegou virus e perdeu o xml). O sistema da a seguinte mensagem "Rejeição: Cabealho - Versao do arquivo XML não suportada.' Não sei o que fazer. Os caras estão com caminhões parados por conta disso 35181221987703000125580010000047661628073477-mdfe.xml Segue XML baixado pelo site.

Pessoal boa tarde. Tenho um cliente que perdeu os dados, e preciso encerrar os MDFes somente com a Chave e o Recibo. Alguém teria algum exemplo de como fazer isso ? Desde já agradeço. Obrigado

Já corrigi o problema. Atualizei o ACBr, que estava desde 16/10 sem atualizar. Dei Rebuild e funcionou tudo. Graças a Deus Grande abraço a todos

Boa tarde a todos. Hoje começaram problemas estranhos na validação dos XMLs. Ele autoriza mas não consegue gravar o protocolo no arquivo XML. Está acontecendo em vários clientes. Será que é alguma problema no Sefaz ou alguma mudança ? Uso ACBRCTE Alguém também esta´com problemas?

Bom dia caros amigos. Desde ontem estou com problemas na geração do MDFe de alguns clientes. Rejeição ANTT informado inexistente. Mas aí consultamos no site, e o ANTT existe e está correto. Como devemos proceder nesta situação ? Será que tem algo que posso mudar no sistema que não fiz ? e pode estar afetando isso ? Quem puder, me ajude. Obrigado.

Pessoal CAPICOM não roda mais. Somente OpenSSL ou Wincrypt

Pessoal, boa noite. Estou passando pelo mesmo problema, e tentando fazer as alterações. Pelo que pesquisei com amigos vão algumas dicas aí. até agora é o seguinte. CAPICOM - Não funciona mais. Tem que configurar a leitura do certificado para o modo OpenSSL ou Wincrypt. OpenSSL - Só roda com certificado A1. WinCrypt - Roda certificado A1 ou A3 , mas acima do Windows 7 (sp1) em diante. (Tem que atualizar o Windows 7, senão não vai rodar) Abaixo desta versão em nenhum Windows roda, somente OpenSSL.. Nestas e opões, a geração fica independente da configuração do Internet Explorer Tem que atualizar o ACBr ultima versão, Se usa o Fortes Report, lembre de atualizar o Fortes report antes do Acbr Abra o Exemplo (demo) de emissao do CTE, e teste as opções de leitura do certificado eletronico. Agora com estas novas formas de ler o certificado, basta colocar o nome do certificado e a senha. Postei um arquivo que meu amigo Jeter me enviou. Estou quebrando a cabeça também. Ainda não conclui. Qualquer descoberta ou detalhe importante, continuem este post. Boa sorte amigos. NFe40 - Certificados e TLS12.pdf

Na minha opinião eu acho que não tenha esta possibilidade, pois o CTe é um documento fiscal do qual o maior objetivo é a geração de impostos para os estados brasileiros, cujo a amarração principal é a Inscrição Estadual. Talvez o que você terá que fazer é pegar um Certificado Eletrônico de algum cliente para trabalhar no ambiente de homologação.

Na realidade, o objetivo de não existir mais os dados do motorista no CTe é realmente para forçar a emissão do MDFe. Ouvi falar que transportes feitos dentro do mesmo estado não sei se é somente estado de São Paulo, não existe fiscalização, mas se for atravessar entre estados será necessário apresentar o MDFe.

Ricardodaitx Colocou Dacte.MostrarPreview := false; ? Dacte.MostrarStatus := false; ?

Eu tenho um cliente que usa a seguradora Porto Seguro, e uma das soluções de integração foi, criar um e-mail conjugado entre a transportadora e a Porto seguro, pode ser no Gmail. Este e-mail tanto a transportadora e a Porto terão acesso a senha. E todo CTe emitido, é enviado um xml para este e-mail. Assim resolvemos facilmente a integração. Verifique com o pessoal se podem fazer desta forma.

Nessa situação eu faço diferente. Criei uma rotina no sistema que faz o seguinte e pra mim funciona. 1) Abre um FileDialog para o usuário escolher o arquivo XML que ja está gravado (mas nao autorizado) no proprio computador. E carrego o XML do CTE nao autorizado para o componente ; var sSubstitui, sArquivo, sPathdoArquivo, vChave: String; begin if trim(dm1.NotaARQUIVO.AsString) <> '' then begin if not(InputQuery('Caminho já existe ', 'Substitui ? SIM ou NAO ?', sSubstitui)) then exit; end else sSubstitui := 'SIM'; if UpperCase(sSubstitui) = 'SIM' then Begin vChave := dm1.NotaCHAVECTE.AsString; OpenDialog1.Title := 'Selecione o CTe'; OpenDialog1.DefaultExt := '-cte.xml'; sArquivo := vChave + '-cte.xml'; if FileExists(sArquivo) then OpenDialog1.FileName := sArquivo; OpenDialog1.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; // OpenDialog1.InitialDir := CTE.Configuracoes.Geral.PathSalvar; OpenDialog1.InitialDir := dm1.CadFilPATHCTE2.AsString; if OpenDialog1.Execute() then begin sPathdoArquivo := OpenDialog1.FileName; dm1.Nota.Edit; dm1.NotaARQUIVO.AsString := trim(sPathdoArquivo); dm1.Nota.Post; end end 2) Depois disso pego a chave do CTe baseado no nome do XML e Consulto a Chave sArquivo := dm1.NotaARQUIVO.AsString; if sArquivo <> '' then begin s1 := RightStr(sArquivo, 52); sNovaChave := LeftStr(s1, 44); end; if sNovaChave <> dm1.NotaCHAVECTE.AsString then if dm1.NotaCHAVECTE.AsString <> '' then showmessage('A chave não confere com o arquivo XML, favor verificar !!!'); if not(InputQuery('Nova Chave ', 'Digite a Nova Chave ?', sNovaChave)) then exit; if sNovaChave <> '' then begin if Length(sNovaChave) < 44 then begin showmessage('Chave foi digitada errada !!'); end else begin if (CTE.Configuracoes.Certificados.NumeroSerie = '') then // se nao tiver certificado busque begin sCertificado := CTE.SSL.SelecionarCertificado; CTE.Configuracoes.Certificados.NumeroSerie := sCertificado; end; Screen.Cursor := HourGlassCursor; // PathMensal := CTE.Configuracoes.Arquivos.GetPathCTe (dm1.NotaCDATA.AsDateTime); //CTE.Configuracoes.Arquivos.PathSalvar := PathMensal; CTE.WebServices.Consulta.CTeChave := sNovaChave; 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); if dm1.NotaCHAVECTE.AsString = '' then // se a chave tiver em branco begin dm1.Nota.Edit; if sProtocolo <> '' then dm1.NotaPROTOC.AsString := sProtocolo; dm1.NotaCHAVECTE.AsString := sNovaChave; dm1.Nota.Post; end; if dm1.NotaPROTOC.AsString = '' then // se protocolo tiver em branco adiciona begin dm1.Nota.Edit; dm1.NotaPROTOC.AsString := sProtocolo; dm1.NotaCHAVECTE.AsString := sNovaChave; dm1.Nota.Post; end; CTE.Conhecimentos.ImprimirPDF; // atualiza o PDF Screen.Cursor := crDefault; end;

Verifique se a tag no seu componente Visual, não está marcada para versão 2.0. Pode ser que no desenvolvimento do projeto você setou esta opção, e em algum lugar do seu sistema ele ainda esteja puxando o dado configurado em tempo de design.

Coloca como "Não Contribuinte" que vai funcionar. faça o teste.

Bom dia. Ele chega a solicitar o certificado ? Ele consegue passar pelos Schemas ? Da uma debugada no seu sistema e verifica em qual opção está ocorrendo o suposto travamento

Boa tarde, Eu li a respeito deste assunto, que realmente está em discussão se o integrante do Simples Nacional seria obrigado ou não gerar estas informações. Agora por enquanto não temos outra opção. Quando existe esta situação, ou você coloca as informações nestes campos e gera o CTe, ou então não gera o CT-e. Diga a ele que estamos nas mãos do SEFAZ. E não temos o controle sobre esta decisão. Isso pode vir a mudar algum dia, mas ninguém sabe quando.

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);