Hetosoft Sistemas

Resolvir, mudando este codigo na unit ACBrBoleto;

Juliomar Marchetti essa resposta res: abra o arquivo ACBrCaixaEconomica.pas, coloque um breakpoint na linha 511 e verifique o que ele faz ao gerar o boleto! é da pergunta ---------------- Sobre este tópico ainda não foi resolvido.

abra o arquivo ACBrCaixaEconomica.pas, coloque um breakpoint na linha 511 e verifique o que ele faz ao gerar o boleto! Resolvido

Não , o erro está desde o boleto porque na emissao do boleto ja sai errado.

Erro 999 e ai vezes em branco

Alguém pode min ajuda, por favor ?

Enviei este comando Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); e reu erro de retorno da sefaz, ai tentei enviar de novo Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True); deu esta massagem (imagem ) como faço para pegar este chave e este protocolo. ? obrigado pela atenção.

ACBrBoletoFCQuick1 Mais ate em segunda via do boleto no site da caixa o boleto também ta errado a informação, na ultima linha

Alguém pode min ajuda ? por favor.

Alguém pode min ajuda ?

Coloco a data Multa_Juros um dia depois da data de vencimento mias mostra no boleto MULTA : 0,20 REAIS A PARTIR DE 30/12/1899 e eu preencho correto. Uso esta função procedure TForm_Boleto.Button4Click(Sender: TObject); var Titulo : TACBrTitulo; begin Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := StrToDate(edtVencimento.Text); DataDocumento := StrToDate(edtDataDoc.Text); NumeroDocumento := edtNumeroDoc.Text; EspecieDoc := edtEspecieDoc.Text; if cbxAceite.ItemIndex = 0 then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; //NossoNumero := edtNossoNro.Text; //Carteira := edtCarteira.Text; if ACBrBoleto1.Banco.TipoCobranca=cobBancoDoBrasil then begin Carteira := edtCarteira.Text; NossoNumero := edtNossoNro.Text; end else begin NossoNumero := edtNossoNro.Text; Carteira := edtCarteira.Text; end; ValorDocumento := StrToCurr(edtValorDoc.Text); Sacado.NomeSacado := edtNome.Text; Sacado.CNPJCPF := OnlyNumber(edtCPFCNPJ.Text); Sacado.Logradouro := edtEndereco.Text; Sacado.Numero := edtNumero.Text; Sacado.Bairro := edtBairro.Text; Sacado.Cidade := edtCidade.Text; Sacado.UF := edtUF.Text; Sacado.CEP := OnlyNumber(edtCEP.Text); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0); LocalPagamento := edtLocalPag.Text; ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text,0); ValorDesconto := StrToCurrDef(edtValorDesconto.Text,0); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0); DataMoraJuros := StrToDateDef(edtDataMora.Text, 0); 06/07/2014 DataDesconto := StrToDateDef(edtDataDesconto.Text, 0); DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0); DataProtesto := StrToDateDef(edtDataProtesto.Text, 0); PercentualMulta := StrToCurrDef(edtMulta.Text,0); Mensagem.Text := memMensagem.Text; //OcorrenciaOriginal.Tipo := toRemessaBaixar; OcorrenciaOriginal.Tipo := toRemessaRegistrar; Instrucao1 := padL(trim(edtInstrucoes1.Text),2,'0'); Instrucao2 := padL(trim(edtInstrucoes2.Text),2,'0'); if Length( SoNumeros(edtCPFCNPJ.Text) )=11 then Sacado.Pessoa := pFisica else if Length( SoNumeros(edtCPFCNPJ.Text) )=14 then Sacado.Pessoa := pJuridica else Sacado.Pessoa := pOutras; ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end; end;

Os técnicos da caixa econômica informarão que a quantidade somadas de linhas estão invalidas 10400000 20839810000012000000000000000000000029 10400011R0100030 20083981000001203468330000000000000002 1040001300001P 0102985034683300000000000140000000000065 1040001300002Q 011000001989794106DEODORO COUTO ANDRADE 1040001300003R 010000000000000000000000000000000000000 10400015 0000040000010000000000000100000000000 10499999 000001000006 //no valor abaixo 10400015 000004(4 linhas mais é 5 os negritos)0000010000000000000100000000000 10499999 000001000006(e quant total de linha no arquivo é 7) //modifiquei manualmente e deu certo = REMESSA PROCESSADA RET PRE CRI-PRODUCAO 10400015 0000050000010000000000000100000000000 10499999 000001000007 Aonde posso muda isto no código fonte do acbrboleto, obrigado pela atenção

Caixa econômica , liguei para eles e essa posição 118 é pra ter 1,2,3 e não zero 0 onde posso mudar isso no codigo ?

1040001300001P 0102985034683300000000000140000000000065611122027805 0507201400000000000100000000004N30062014(linha118) 00000000000000000000000000000000000000 A caixa min retorno falando que na posição 118 não ta informando o código de juros Código do Juros de Mora Código adotado pela FEBRABAN para identificação do tipo de pagamento de juros de mora. ‘1’ = Valor por Dia ‘2’ = Taxa Mensal ‘3’ = Isento que esta Zero 0 e era pra ta ‘3’ = Isento o que devo fazer?

Alguém pode min ajuda

ja resolvir

Em que UNIT fica a mensagem Impressora não responde Deseja imprimir novamente ?

Ok, os arquivos fiz um cte de homologação e fiz uma carta cc-e de homologacao tudo ok mais se fazer em produçao da aquele erro 1-eve.xml 1-ped-evento.xml 51140609911489000128570010000004501000004508-cte.xml 5114060991148900012857001000000450100000450811011001-procEventoCTe.xml

O Pessoal da caixa falou que este arquivo, so falta o Valor da Moeda na coluna 173 - 174 ele falou para eu analizar e nao quis mais continuar com a esplicacao, 10400000 2083981000001200000000000000000000002985034683300000000HETOSOFT SISTEMAS 08.398.1CAIXA ECONOMICA FEDERAL 11205201417552200001105000000 REMESSA-PRODUCAO 10400011R0100030 20083981000001203468330000000000000002985034683300000000HETOSOFT SISTEMAS 08.398.1 000000111205201400000000 1040001300001P 0102985034683300000000000140000000000062461122027573 0805201400000000006000000000004N1204201410905201400000000000007500000000000000000000000000000000000000000000000000000027573 1302000090000000000 1040001300002Q 012006329061000183ADRIANO MORATA CARNEIRO-ME AV 15 DE NOVEMBRO Nº10483 CENTRO SUL CENTRO SUL 78020300 0000000000000000 10400015 000004000001000000000000600000000000000000000000000000000000000000000000000 10499999 000001000006 e retorna REMESSA REJEITADA RET PRE CRI-PRODUCAO e to fazendo os boletos registrados 10400000 2083981000001200000000000000000000002985034683300000000HETOSOFT SISTEMAS 08.398.1CAIXA ECONOMICA FEDERAL 51205201419321200001105000000REMESSA REJEITADA RET PRE CRI-PRODUCAO 10400011T0100030 2008398100000120 029850346833 HETOSOFT SISTEMAS 08.398.1 00000011120520140000000000 00 1040001300001W 02000004 153Q47 10400015 00000300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 10499999 000001000005 REMESSA.TXT RETORNO REMESSA.txt

if FConfiguracoes.Geral.Salvar then //FConfiguracoes.Geral.Save(FPathArqResp, FRetWS); FConfiguracoes.Geral.Save(FPathArqResp, FRetornoWS); mais o mesmo erro, e nao sei dizer que a sefaz faz 3 dias com este erro.

Sim, porque envio normal se de erro ex: sem internet eu mudo o xml para off-line para poder imprimir , e depois envio para sefaz. como tenho que fazer ? pra nao da este problema. de enviar para sefaz a sefaz autorizar e nao min retornar nada (cStat=999 Rejeicao: Erro Nao Catalogado), ai tento enviar de novo da duplicacao, sabendo que so em vez em quando , quando a sefaz ta instável. obrigado pela atencao.

então o erro pode ta vindo do retorno da sefaz... 'xml invalido' ? não posso fazer nada?

Envio a nfc-e Form_NFe.ACBrNFe1.Enviar(vNumLote,False,Sincrono); no retorno vem sem resposta, erro genérico cStat=999 Rejeicao: Erro Nao Catalogado ate ai ok. -------------------------------------- Tento enviar de novo, ai a resposta 539 - Duplicidade de NF-e com diferenca na Chave de Acesso [ 511406039535520001026500200000001390000 ------------------------------------ que dizer que a sefaz autorizou mais nao veio o retorno, --------------------------------- Estavo pensando, quando retorna o erro 539, faço a consulta da CHAVE DE ACESSO 'Consultar pela Chave' var vChave : String; begin if not(InputQuery('WebServices Consultar', 'Chave da NF-e:', vChave)) then exit; ACBrNFe1.WebServices.Consulta.NFeChave := vChave; MudarParaNFeOuNFCe(0); ACBrNFe1.WebServices.Consulta.Executar; MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); LoadConsulta201(ACBrNFe1.WebServices.Consulta.RetWS); --------------------------------------------------------------------------------------- Analiso se a data, valor sao iqual e pego o PROTOCOLO e colo no meu registro tenho que conferi o valor e a data , porque pode ser mesmo um dupricamento de verdade, como eu poderia fazer isto. que min retorna só esta informações -------------------------------------- Identificador : 51140603953552000102650020000000139000000133 Ambiente : 2 Versão Aplicativo : 3.00 Status Código : 100 Status Descrição : Autorizado o uso da NF-e UF : MT Chave Acesso : 51140603953552000102650020000000139000000133 Recebimento : 09/06/2014 09:31:11 Protocolo : 151140000195058 Digest Value : /8fsrmeg0lKXYbpSJI/rVztRiCQ= tentei usar este comando ShowMessage(ACBrNFe1.WebServices.Retorno.Recibo); para pelo menos pega o dia que foi protacolado, mais retorna em branco. ---------------- O que devo fazer, sabendo que isto acontece so quando a sefaz esta instável.

//Essa linha TACBrCTe( FACBrCTe ).SetStatus( stCTeIdle ); aMsg := 'Ambiente : '+TpAmbToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.tpAmb)+LineBreak+ 'Versão Aplicativo : '+EventoRetorno.retEvento.Items[0].RetInfEvento.verAplic+LineBreak+ 'Status Código : '+IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)+LineBreak+ 'Status Descrição : '+EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo+LineBreak; Analizando o conteudo RetInfEvento.verAplic estar vazio RetInfEvento.xMotivo estar vazio function TCTeEnvEvento.Executar: Boolean; var aMsg, NomeArq: string; Texto : String; Acao : TStringList; Stream: TMemoryStream; StrStream: TStringStream; i, j : integer; Leitor : TLeitor; {$IFDEF ACBrCTeOpenSSL} HTTP: THTTPSend; {$ELSE} ReqResp: THTTPReqResp; {$ENDIF} begin FEvento.idLote := idLote; if Assigned(FEventoRetorno) then FEventoRetorno.Free; inherited Executar; Acao := TStringList.Create; Stream := TMemoryStream.Create; FcStat := 0; Texto := '<?xml version="1.0" encoding="utf-8"?>'; Texto := Texto + '<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">'; Texto := Texto + '<soap12:Header>'; Texto := Texto + '<cteCabecMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CteRecepcaoEvento">'; Texto := Texto + '<cUF>'+IntToStr(FConfiguracoes.WebServices.UFCodigo)+'</cUF>'; Texto := Texto + '<versaoDados>'+CTeEventoCTe+'</versaoDados>'; Texto := Texto + '</cteCabecMsg>'; Texto := Texto + '</soap12:Header>'; Texto := Texto + '<soap12:Body>'; Texto := Texto + '<cteDadosMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CteRecepcaoEvento">'; Texto := Texto + FDadosMsg; Texto := Texto + '</cteDadosMsg>'; Texto := Texto + '</soap12:Body>'; Texto := Texto +'</soap12:Envelope>'; Acao.Text := Texto; {$IFDEF ACBrCTeOpenSSL} Acao.SaveToStream(Stream); HTTP := THTTPSend.Create; {$ELSE} ReqResp := THTTPReqResp.Create(nil); ConfiguraReqResp( ReqResp ); ReqResp.URL := FURL; ReqResp.UseUTF8InHeader := True; ReqResp.SoapAction := 'http://www.portalfiscal.inf.br/cte/wsdl/CteRecepcaoEvento/cteRecepcaoEvento'; {$ENDIF} try TACBrCTe( FACBrCTe ).SetStatus( stCTeEvento ); FPathArqEnv := IntToStr(FEvento.idLote)+'-ped-evento.xml'; if FConfiguracoes.Geral.Salvar then FConfiguracoes.Geral.Save(FPathArqEnv, FDadosMsg); if FConfiguracoes.Arquivos.Salvar then begin if (FEvento.Evento.Items[0].InfEvento.tpEvento = teCCe) and not FConfiguracoes.Arquivos.SalvarCCeCanEvento then FConfiguracoes.Geral.Save(FPathArqEnv, FDadosMsg, FConfiguracoes.Arquivos.GetPathCCe) else if (FEvento.Evento.Items[0].InfEvento.tpEvento = teCancelamento) and not FConfiguracoes.Arquivos.SalvarCCeCanEvento then FConfiguracoes.Geral.Save(FPathArqEnv, FDadosMsg, FConfiguracoes.Arquivos.GetPathCan) else FConfiguracoes.Geral.Save(FPathArqEnv, FDadosMsg, FConfiguracoes.Arquivos.GetPathEvento(FEvento.Evento.Items[0].InfEvento.tpEvento)); end; {$IFDEF ACBrCTeOpenSSL} HTTP.Document.LoadFromStream(Stream); ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/cte/wsdl/CteRecepcaoEvento/cteRecepcaoEvento"'); HTTP.HTTPMethod('POST', FURL); StrStream := TStringStream.Create(''); StrStream.CopyFrom(HTTP.Document, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := SeparaDados( FRetornoWS,'cteRecepcaoEventoResult'); StrStream.Free; {$ELSE} ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := SeparaDados( FRetornoWS,'cteRecepcaoEventoResult'); StrStream.Free; {$ENDIF} FPathArqResp := IntToStr(FEvento.idLote) + '-eve.xml'; if FConfiguracoes.Geral.Salvar then FConfiguracoes.Geral.Save(FPathArqResp, FRetWS); FEventoRetorno := TRetEventoCTe.Create; FEventoRetorno.Leitor.Arquivo := FRetWS; FEventoRetorno.LerXml; TACBrCTe( FACBrCTe ).SetStatus( stCTeIdle ); aMsg := 'Ambiente : '+TpAmbToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.tpAmb)+LineBreak+ 'Versão Aplicativo : '+EventoRetorno.retEvento.Items[0].RetInfEvento.verAplic+LineBreak+ 'Status Código : '+IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)+LineBreak+ 'Status Descrição : '+EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo+LineBreak; brigado pela atenção.

Consultar pela Chave min retorna isto ate ai blz Identificador : 51131103953552000102650010000005011000005019 Ambiente : 2 Versão Aplicativo : 3.00 Status Código : 100 Status Descrição : Autorizado o uso da NF-e UF : MT Chave Acesso : 51131103953552000102650010000005011000005019 Recebimento : 21/11/2013 14:36:17 Protocolo : 151130000031303 Digest Value : 87w/44wWjure5InXMafTPHWpFVI= Mais como faço para ter so a data do protocolo , estou tentando com o codigo abaixo mais nao retorna nada procedure TForm_NFe.btnConsultarChaveClick(Sender: TObject); var vChave : String; begin if not(InputQuery('WebServices Consultar', 'Chave da NF-e:', vChave)) then exit; ACBrNFe1.WebServices.Consulta.NFeChave := vChave; MudarParaNFeOuNFCe(0); ACBrNFe1.WebServices.Consulta.Executar; MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); LoadConsulta201(ACBrNFe1.WebServices.Consulta.RetWS); ShowMessage(ACBrNFe1.WebServices.Retorno.Recibo);