wagner_fix

Fiz tudo isso e não funcionou, coloquei esse certificado na minha máquina e foi de primeira. Não sei mais o que eu faço com a maquina com problema. Grato, Wagner

Olá pessoal boa tarde tudo bem? Estou desde ontem a tarde tentando resolver um problema na minha cliente. Ela tinha um certificado A3 venceu e ela comprou o A1 da Valid. Eu instalei via site conforme contava no manual, pronto de lá pra cá não consigo mais emitir NF-e, sempre fica dando o mesmo erro: Falha ao obtrer a Chave Privada do Certificado para Assinatura. Pesquisei em vários fóruns, principalmente aqui e não encontrei nada, só um tópico com o mesmo assunto mas eu fiz os procedimentos e não funcionou. Passos que já fiz: Instalei toda a cadeia de certificado, instalei todas as atualizações do windows, java atualizado, tudo atualizado. Alguém tem mais alguma dica? Grato, Wagner

Bom dia @andremelim tenho um exemplo aqui que eu uso no meu sistema... É só adaptar pelo o que você precisa... (Nesse meu caso estou pegando campos de uma NF-e, mas para o CT-e a lógica é a mesma só mudar os nomes dos campos) var vXMLDoc: TXMLDocument; NodePrim, NodePai, NodePriEmi, NodePaiEmi, NodeCabecalho, NodePrim2, NodePai2, NodePai3, Nocab2, NodePrim3, NodePai4, NodePai5, Nocab3, NodePrim4, NodePai6, NodePai7, NodePai8, NodePai9, Nocab4 : IXMLNode; AuxChave, AuxData, AuxPesoB, AuxVNF : String; AuxPeso : Boolean; begin vXMLDoc := TXMLDocument.Create(self); AbrirXML.Title := 'Selecione o XML'; AbrirXML.DefaultExt := '*.xml'; AbrirXML.Filter := 'Arquivos XML (*.xml)|*.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; if AbrirXML.Execute then begin if (Application.MessageBox('Deseja Pegar o Peso Bruto? (Sim = Peso Bruto - Não = Peso Líquido)','Pergunta',MB_YESNO+MB_ICONQUESTION) = IDNO) then AuxPeso := False else AuxPeso := True; vXMLDoc.LoadFromFile(AbrirXML.FileName); //Le Arquivo Recibo XML'); vXMLDoc.Active := True; NodePrim := vXMLDoc.DocumentElement.ChildNodes.FindNode('protNFe'); NodePai := NodePrim.ChildNodes.FindNode('infProt'); NodePriEmi := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); NodePaiEmi := NodePriEmi.ChildNodes.FindNode('infNFe'); NodeCabecalho := NodePaiEmi.ChildNodes['ide']; NodePrim2 := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); NodePai2 := NodePrim2.ChildNodes.FindNode('infNFe'); NodePai3 := NodePai2.ChildNodes.FindNode('transp'); Nocab2 := NodePai3.ChildNodes['vol']; NodePrim3 := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); NodePai4 := NodePrim3.ChildNodes.FindNode('infNFe'); NodePai5 := NodePai4.ChildNodes.FindNode('total'); Nocab3 := NodePai5.ChildNodes['ICMSTot']; NodePrim4 := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); NodePai6 := NodePrim4.ChildNodes.FindNode('infNFe'); NodePai7 := NodePai6.ChildNodes.FindNode('transp'); Nocab4 := NodePai7.ChildNodes.FindNode('vol'); AuxChave := NodePai.ChildNodes['chNFe'].text; AuxChave := FormataChave(AuxChave); txtChave.Text := Trim(AuxChave); txtChaveExit(Self); AuxData := NodeCabecalho.ChildNodes['dhEmi'].text; txtEmissao.Text := Copy(AuxData,9,2)+'/'+Copy(AuxData,6,2)+'/'+Copy(AuxData,1,4); if (AuxPeso = True) then AuxPesoB := NoCab4.ChildNodes['pesoB'].text else AuxPesoB := NoCab4.ChildNodes['pesoL'].text; AuxPesoB := StringReplace(AuxPesoB, '.', ',', [rfReplaceAll]); txtPBruto.Text := FormatFloat('###,##0.000', StringFloat(AuxPesoB)); txtPCalc.Text := Trim(txtPBruto.Text); AuxVNF := Nocab3.ChildNodes['vNF'].text; AuxVNF := StringReplace(AuxVNF, '.', ',', [rfReplaceAll]); txtVlNota.Text := FormatFloat('###,##0.00', StringFloat(AuxVNF)); txtVolume.Text := FormatFloat('###,##0.000', StringFloat(Nocab4.ChildNodes['qVol'].text)); txtDtPrev.SetFocus;

Boa tarde @Juliomar Marchetti obrigado pela resposta... Segue em anexo o XML. Grato, Wagner 35181208220962000168580010000002131568585336-mdfe.pdf

Olá pessoal boa tarde tudo bem? Sexta 14/12 meu cliente me questionou sobre o damdfe que não está saindo o número do CIOT e os dados do vale pedágio, mas eu tenho passado os dados para alimentar o componente. Percebi que o campo do CIOT nem sai no layout do Damdfe, o vale pedágio chega a sair, mas não mostra os dados. (imagem em anexo). E o meu cliente está dizendo que os postos fiscais estão começando a exigir esses dados, atualizei o componente e continua da mesma forma, será que tenho feito algo de errado? Como estou alimentando o componente. {======== Dados do CIOT ===========================================} with DM.SqlAux5 do begin LimpaSQL(DM.SqlAux5); SQL.Add('SELECT * FROM CTE68 WHERE (CODC = :xCODC) ORDER BY ID'); Parameters.ParamByName('xCODC').Value := sNrMDFe; Open; First; end; while not DM.SqlAux5.eof do begin with rodo.infANTT.infCIOT.Add do begin CIOT := Trim(DM.SqlAux5.FieldByName('CIOT').AsString); CNPJCPF := RetiraCarac(Trim(DM.SqlAux5.FieldByName('DOC').AsString)); end; DM.SqlAux5.Next; end; {======== Dados dos Vale Pedagios =========================================} with DM.SqlAux5 do begin LimpaSQL(DM.SqlAux5); SQL.Add('SELECT * FROM CTE69 WHERE (CODC = :xCODC) ORDER BY ID'); Parameters.ParamByName('xCODC').Value := StrToInt(sNrMDFe); Open; First; end; while not DM.SqlAux5.eof do begin with rodo.valePed.disp.Add do begin CNPJForn := RetiraCarac(Trim(DM.SqlAux5.FieldByName('CNPJF').AsString)); nCompra := Trim(DM.SqlAux5.FieldByName('NUMC').AsString); vValePed := DM.SqlAux5.FieldByName('VALOR').AsFloat; if (DM.SqlAux5.FieldByName('TIPO').AsInteger = 0) then CNPJPg := RetiraCarac(Trim(DM.SqlAux5.FieldByName('CNPJR').AsString)); if (DM.SqlAux5.FieldByName('TIPO').AsInteger = 1) then CNPJPg := RetiraCarac(Trim(DM.SqlAux5.FieldByName('CNPJR').AsString)); end; DM.SqlAux5.Next end; Delphi XE8 Relatório Fortes Report. Agradeço dese já, Wagner

@Italo Jurisato Junior como sempre muito obrigado pela resposta e me mostrar o meu erro. Realmente estou fazendo da forma que você citou acima... Vou alterar esse cMDF e cCT agora mesmo. Abraço, Wagner

Achei o problema. Essa linha: Ide.cMDF estava comentada. Alterei o meu sistema para ela receber o número do mdfe e deu tudo certo. Obrigado pessoal pela ajuda. Grato, Wagner

@Italo Jurisato Junior obrigado pela resposta. Eu acho que não fui muito claro na minha pergunta. Vou tentar explicar um pouco a mais. Na verdade eu estou me referenciando ao número da chave aquele número de 44 dígitos. CT-e: Hoje no meu ct-e, na hora de tentar emitir. por exemplo coloquei o número do cnpj do destinatário incorreto, ele já gerou um XML para tentar emitir para o sefaz. Quando eu tento emitir novamente ele usa o mesmo número de chave. MDF-e: Vou tentar emitir, ele também gera um XML com a chave só que já erro de percurso por exemplo. Vou lá corrijo o percurso e tento emitir novamente. Quando eu vou tentar emitir novamente o meu programa gera uma nova chave e um novo XML. Gostaria que ele não mudasse o número da chave para cada tentativa de emissão do MDF-e. Será que eu consegui explicar agora? Obrigado, Wagner

Bom dia pessoal tudo bem? Desculpe se esse tópico for repetido mas na pesquisa eu não achei nada. No meu sistema quando tente emitir um MDF-e por exemplo: Quando da algum erro de emissão, e quando eu vou tentar novamente ele gera um novo número de XML, e isso não ocorre com o meu ct-e. É possível evitar isso? Deixar um número sempre fixo que nem o ct-e? Grato, Wagner

Coloquei zeros, para não expor o meu CPF.... Grato, Wagner

Fiz isso 2 vezes, quando abro o form e quando clico no botão para procurar o arquivo .ret. Grato

@Juliana Tamizou obrigado pela resposta... Já tentei colocar como True ou False e continua com o mesmo erro... E como disse acima, os meus boletos são feito no meu nome de pessoa física de cpf não emito pelo o cnpj... Grato, Wagner

Pessoal boa noite, já faz uns 8 meses que tenho gerado arquivo remessa C400 do itaú para enviar para os meus clientes e até hoje sem problemas... Mas para facilitar minha vida por falta de tempo queria ler o retorno para dar baixa automática, mas não estou conseguindo alguém poderia me ajudar? Antes de dar o comando eu preencho o componente assim: procedure TForm020BoletoRetorno.ConfiguraBoleto; begin ACBrBoleto.Cedente.Agencia := '2222'; ACBrBoleto.Cedente.AgenciaDigito := '0'; ACBrBoleto.Cedente.CaracTitulo := tcSimples; ACBrBoleto.Cedente.ResponEmissao := tbCliEmite; ACBrBoleto.Cedente.TipoCarteira := tctEletronica; ACBrBoleto.Cedente.TipoInscricao := pFisica; ACBrBoleto.Cedente.CodigoCedente := ''; ACBrBoleto.Cedente.Conta := '19999'; ACBrBoleto.Cedente.ContaDigito := '7'; ACBrBoleto.Cedente.Nome := Trim('MEU NOME COMPLETO'); ACBrBoleto.Cedente.CNPJCPF := '000.000.000-00'; end; E para fazer a leitura tenho feito assim... if AbrirRet.Execute then begin ConfiguraBoleto; ACBrBoleto.NomeArqRetorno := AbrirRet.FileName; ACBrBoleto.LerRetorno; for i := 0 to ACBrBoleto.ListadeBoletos.Count-1 do begin if ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido > 0 then begin if (nRow > 1) then sgBoleto.Rowcount := sgBoleto.Rowcount + 1; sgBoleto.Cells[0,nRow] := Trim('Sim'); sgBoleto.Cells[1,nRow] := DateToStr(ACBrBoleto.ListadeBoletos.Objects[i].DataBaixa); sgBoleto.Cells[2,nRow] := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido); sgBoleto.Cells[3,nRow] := ACBrBoleto.ListadeBoletos.Objects[i].NossoNumero; DM.SqlAux1.Next; sgBoleto.Refresh; end; Close; end; end; Ao ler o retorno, da a seguinte mensagem: CNPJ inválido... Ou seja, já informei para o meu componente que sou Pessoa Física, mas não tem jeito. Alguém tem uma luz? Grato, Wagner

Boa tarde, meu cliente foi multado sexta por esse mesmo motivo. Alterei o meu sistema para ele jogar os dados do seguro na observação. Abraço, Wagner (engraçado: No layout que o sefaz determina não tem os dados do seguro, e o pessoal multa o caminhão por não ter as informações. Típico brasil, ferrar o trabalhador!)

Obrigado @Fábio Eduardo de Souza irei usar essas configurações com o meu cliente... Muito obrigado, Abraco, Wagner

@Fábio Eduardo de Souza boa noite. Estou enfrentando o mesmo problema que você... Nas configurações dos Webservices você pode informar os valores que jogou para cada componente que mencionou acima? acbr.Configuracoes.WebServices.Tentativas? acbr.Configuracoes.WebServices.IntervaloTentativas? acbr.Configuracoes.WebServices.AguardarConsultaRet? acbr.Configuracoes.WebServices.AjustaAguardaConsultaRet? Desde já agradeço, Abraço, Wagner

@Italo Jurisato Junior Consegui resolver o problema, Minha carta de correção sempre funcionou, como disse, semana passada parou de funcionar... Comecei a comparar novamente o código e vi que o meu código não tinha essa linha: infevento.tpEvento := teCCe; Só não entendi como sempre funcionou, Desculpem pessoal falha minha. Grato, Wagner

Bom dia @Italo Jurisato Junior Segue em anexo os XML. 1-ped-eve.xml 1-ped-eve-soap.xml Grato, wagner

Obrigado Julio... Pessoal vocês tem emitido carta de correção normalmente? Emissão SP? Grato, Wagner

@Juliomar Marchetti o seu está funcionando? Grato, Wagner

Bom dia Pessoal... Desculpa pela insistência... Mas será que é só eu que estou passando com esse problema? Minha cliente continua devendo essa carta de correção para o cliente dela. Desde o dia que estamos com esse problema, no site do sefaz a recepção OS está em vermelho. Será que isso tem algo haver? (Conforme está em anexo) Se alguém puder me dar uma luz eu agradeço muito. Grato, Wagner

@Felipe E. Resende Mesquita boa tarde... Já tentei vários timeout altos, e ainda da o mesmo erro... Infelizmente. Tem mais alguma dica? Grato, Wagner

Pessoal boa noite tudo bem? Minha cliente está desde ontem (fui informado por ela agora) tentando emitir carta de correção e não está conseguindo. No meu sistema está tudo normal: Envio de Ct-e, MDF-e, Cancelamento, Encerramento, tudo está funcionando. Mas não está funcionando a carta de correção... Na minha máquina também não está funcionando. Aparece o seguinte erro Erro Interno: 12002 Erro HTTP: 0 Falha no Envio da Requisição. Erro: 12002 - TimeOut de Requisição. Cliente SP, meu teste SP Grato, Wagner

@jcanjo Você pode fazer isso... tiposGeralCTe_v3.00.xsd para tiposGeralCTe_v3.00-old.xsd e tiposGeralCTe_v3.00-OPENSSL.xsd para tiposGeralCTe_v3.00.xsd

Só para complementar a resposta do BigWings, se você emitir MDF-e precisa fazer o mesmo com os Schemas dela... Só estou adiantando porque eu passei por isso ontem... Abraço