Pesquisar na Comunidade

Foi realizada a seguinte modificação na unit ACBrSATExtratoESCPOS.pas, na procedure TACBrSATExtratoESCPOS.GerarDadosCancelamento: procedure TACBrSATExtratoESCPOS.GerarDadosCancelamento; Var ChaveEmUmaLinha, Suporta128c : Boolean; Chave, TagCode128 : String; QRCode: AnsiString; begin FBuffer.Add('</fn></linha_simples>'); FBuffer.Add(ACBrStr('</ce><n>DADOS DO CUPOM FISCAL ELETRÔNICO DE CANCELAMENTO</n>')); FBuffer.Add('</ce>SAT No. <n>'+IntToStr(CFe.ide.nserieSAT)+'</n>'); FBuffer.Add(FormatDateTimeBr(CFeCanc.ide.dEmi + CFeCanc.ide.hEmi)); Chave := FormatarChaveAcesso(CFeCanc.infCFe.ID); if Length(Chave) > FPosPrinter.ColunasFonteCondensada then Chave := OnlyNumber(Chave); if not FPosPrinter.ConfigBarras.MostrarCodigo then FBuffer.Add('<c>'+Chave+'</fn>'); Suporta128c := (FPosPrinter.TagsNaoSuportadas.IndexOf(cTagBarraCode128c) < 0); TagCode128 := IfThen(Suporta128c,'code128c', 'code128' ); ChaveEmUmaLinha := (ImprimeChaveEmUmaLinha = rSim) or ((ImprimeChaveEmUmaLinha = rAuto) and Suporta128c); if not ChaveEmUmaLinha then begin FBuffer.Add('<' + TagCode128 + '>'+copy(CFeCanc.infCFe.ID,1,22)+'</' + TagCode128 + '>'); FBuffer.Add('<' + TagCode128 + '>'+copy(CFeCanc.infCFe.ID,23,22)+'</' + TagCode128 + '>'); end else FBuffer.Add('<' + TagCode128 + '>'+CFeCanc.infCFe.ID+'</' + TagCode128 + '>'); if ImprimeQRCode then begin QRCode := CalcularConteudoQRCode( CFeCanc.infCFe.ID, CFeCanc.ide.dEmi+CFeCanc.ide.hEmi, CFeCanc.Total.vCFe, Trim(CFeCanc.Dest.CNPJCPF), CFeCanc.ide.assinaturaQRCODE ); FBuffer.Add('<qrcode_tipo>2</qrcode_tipo>'+ '<qrcode_error>0</qrcode_error>'+ '<qrcode>'+QRCode+'</qrcode>'); end; if MsgAppQRCode <> '' then FBuffer.Add('</ce><c>' + QuebraLinhas(MsgAppQRCode, FPosPrinter.ColunasFonteCondensada )); if (SoftwareHouse <> '') or (Site <> '') then FBuffer.Add('</linha_simples>'); // SoftwareHouse if SoftwareHouse <> '' then FBuffer.Add('</ce><c>' + SoftwareHouse); if Site <> '' then FBuffer.Add('</ce><c>' + Site); FBuffer.Add('</zera>'); if FPosPrinter.CortaPapel then FBuffer.Add('</corte_total>') else FBuffer.Add('</pular_linhas>'); end; No rodapé da impressão do SAT, são apresentados os dados da Software House e o Site. Porém, na impressão do cancelamento não é impresso. É necessário que os dados da Software House e do Site sejam apresentados no rodapé da impressão do cancelamento do SAT. Foram realizados diversos testes de impressão e não foi apresentado nenhum problema. Estou utilizando a revisão número 15238 da unit. ACBrSATExtratoESCPOS.pas

Olá, Estou enfrentando um problema no cancelamento do ultimo cupom caso possui cpf do consumidor, ele não cancela e no log grava o seguinte erro Obs. o equipamento sat é um Bematech RB1000 - 10:24:51:211 - -- 10:24:51:211 - numeroSessao: 965429 - Comando: CancelarUltimaVenda( CFe35161110644774000109590001287090093450635341, <CFeCanc><infCFe chCanc="CFe35161110644774000109590001287090093450635341"><ide><CNPJ>19693698000104</CNPJ><signAC>DH6dt79ZeCqkmp9kf+ymIVUH8EAnMePh+cAsIV0gvfPSN7qcud44WcAdBTTeOkrfMRXk89zGX51ijga8cvS7n/hgATOgN3cj/20V0Dq5db7lWsn8MS2ruWKgMvAclQwIZYVpWeBU+itkgt4cFxOfsfvqH+hL+GaCOaxYbpg7cDr6aCwHiy/aihLQpur1USkFIfy/L+AZzn/5YvaoKBEjT5wZv7qdHnETKgAyr/dKGRN/F2DEvb3mxvsLmrC+IZ3JSK7nfJVz0xH776RlGFuFimV9fdF+hfDPRTnl9SbwkaHMFxAsGZAiWOaj57lTfWviriBe6Dw6U+IvI6gXNFE10w==</signAC><numeroCaixa>001</numeroCaixa></ide><emit></emit><dest><CPF>42075339821</CPF></dest><total></total></infCFe></CFeCanc> ) - 10:24:52:443 - NumeroSessao: 965429 - Resposta:965429|07007|1999|Erro não identificado|| quando esta sem cpf é cancelado normalmente alguem ja passou por este problema?

Bom dia!! Estou tendo problemas com o cancelamento de cupons no Sat, da erro na validação dos dados. Abaixo um trecho do Log SAT: - 09:19:17:090 - -- 09:19:17:090 - numeroSessao: 900029 - Comando: CancelarUltimaVenda( CFe35150782373077000171599000034710000432549670, <CFeCanc><infCFe chCanc="CFe35150782373077000171599000034710000432549670"><ide><CNPJ>16716114000172</CNPJ><signAC>SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT</signAC><numeroCaixa>001</numeroCaixa></ide><emit></emit><dest><CNPJ>54723028000186</CNPJ></dest><total></total></infCFe></CFeCanc> ) - 09:19:18:288 - NumeroSessao: 900029 - Resposta:Erro|Erro na leitura da porta de comunicacao com o S@T|Header - 09:19:34:631 - -- 09:19:34:631 - numeroSessao: 245742 - Comando: CancelarUltimaVenda( CFe35150782373077000171599000034710000432549670, <CFeCanc><infCFe chCanc="CFe35150782373077000171599000034710000432549670"><ide><CNPJ>16716114000172</CNPJ><signAC>SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT</signAC><numeroCaixa>001</numeroCaixa></ide><emit></emit><dest><CNPJ>54723028000186</CNPJ></dest><total></total></infCFe></CFeCanc> ) - 09:19:34:915 - NumeroSessao: 245742 - Resposta:245742|07099|0000|Erro de validação do conteúdo|| - 09:19:46:477 - -- 09:19:46:477 - numeroSessao: 302092 - Comando: ConsultarSAT - 09:19:46:742 - NumeroSessao: 302092 - Resposta:302092|08000|SAT em operação|| - 09:55:07:412 - ACBrSAT.DesInicializado - 09:55:07:412 - ACBrSAT.Inicializado - 09:55:53:548 - -- 09:55:53:548 - numeroSessao: 747348 - Comando: CancelarUltimaVenda( CFe35150782373077000171599000034710000432549670, <CFeCanc><infCFe chCanc="CFe35150782373077000171599000034710000432549670"><ide><CNPJ>16716114000172</CNPJ><signAC>SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT</signAC><numeroCaixa>001</numeroCaixa></ide><emit></emit><dest><CNPJ>54723028000186</CNPJ></dest><total></total></infCFe></CFeCanc> ) - 09:55:53:992 - NumeroSessao: 747348 - Resposta:747348|07099|0000|Erro de validação do conteúdo|| Só funciona o cancelamento se eu emitir a venda e logo em seguida cancelar. Trecho do Código que faz o cancelamento: if dm1.ParametrosSAT.AsString = 'S' then begin dm2.VendasXMLNFCE.SaveToFile(dm1.SAT.ConfigArquivos.PastaCFeCancelamento+'Cancelar_'+rxVenda.text+'.xml'); dm1.SAT.CFe.LoadFromFile(dm1.SAT.ConfigArquivos.PastaCFeCancelamento+'Cancelar_'+rxVenda.text+'.xml'); dm1.SAT.CancelarUltimaVenda; DeleteFile(dm1.SAT.ConfigArquivos.PastaCFeCancelamento+'Cancelar_'+rxVenda.text+'.xml'); if dm1.SAT.Resposta.codigoDeRetorno = 7000 then begin dm1.SAT.ImprimirExtratoCancelamento; xmlcanc := dm1.SAT.CFeCanc.AsXMLString ; // True = Gera apenas as TAGs da aplicação chavecanc := dm1.SAT.CFeCanc.infCFe.chCanc; end else begin MessageDlg(sUsuario+', '+dm1.SAT.Resposta.mensagemRetorno, mtWarning, [mbok],0); exit; end; end; Alguém tem alguma ideia?