Ir para conteúdo
  • Cadastre-se

Luiz Henrique Luvizutto

Membros
  • Total de ítens

    10
  • Registro em

  • Última visita

Tudo que Luiz Henrique Luvizutto postou

  1. Daniel, bom dia! Aproveitei sua dica e acabei contornando da seguinte forma, acho que ficou melhor. Não salvo o arquivo no processo de emissão do cupom, porém salvo posteriormente tratando o que preciso conforme código abaixo. FACBrSat.ConfigArquivos.SalvarCFe := false; FACBrSat.ConfigArquivos.SalvarCFeCanc := false; ... FACBrSat.EnviarDadosVenda; if FACBrSat.Resposta.codigoDeRetorno = 6000 then begin try NomeCFe := FACBrSat.CalcCFeNomeArq( FACBrSat.ConfigArquivos.PastaCFeVenda ); FACBrSat.CFe.SaveToFile(NomeCFe); Except on E: Exception do begin ... end; end; end;
  2. Daniel, bom dia! Primeiramente queria lhe agradecer pelo retorno. Então, o problema de dar o exception me preocupa no simples fato do cupom estar emitido. O Algoritimo que fiz acima simplesmente esta ignorando o salvamento. (relamente não acho que seja a melhor solução), mas poderiamos bolar algo que tenhamos a informação do erro do salvamento do arquivo sem a ocorrência da excessão, pois sem a excessão o sistema dá fluxo no fechamento (já que o cupom está emitido). Eu contornei conforme abaixo e, como salvo também em banco consigo reconstruir o arquivo para salvar na pasta. ... try FACBrSat.EnviarDadosVenda; except on E: Exception do begin FErros.Add(E.Message); end; end; ...
  3. Quando habilito as variáveis: ConfigArquivos.SalvarCFe e/ou ConfigArquivos.SalvarCFeCanc ocorre o salvamento do respectivo arquivo previamente configurado, correto? Bom, meu problema foi que quando existe um path mal configurado ou algum problema de permissão de gravação de arquivo é gerada uma exceção, e essa exceção me fez com que eu não continuasse com meu processo de venda, porém o cupom havia sido emitido pelo SAT normalmente. No meu caso eu acabei contornando fazendo um tratamento mais abaixo na chamada da função principal: EnviarDadosVenda e/ou CancelarUltimaVenda, porém, achei importante sugerir a ACBr o tratamento dentro das próprias funções DecodificaRetorno6000 e DecodificaRetorno7000 no caso de erro no salvamento do arquivo continuar com a execução normalmente. procedure TACBrSAT.DecodificaRetorno6000; // ... if fsConfigArquivos.SalvarCFe then begin NomeCFe := CalcCFeNomeArq(fsConfigArquivos.PastaCFeVenda); try CFe.SaveToFile(NomeCFe); DoLog(' Gravando XML Venda recebido: '+NomeCFe); except on E: Exception do begin DoLog(' Erro Gravando XML Venda recebido: '+NomeCFe + ' -> ' + E.Message ); end; end; end; procedure TACBrSAT.DecodificaRetorno7000; // ... if fsConfigArquivos.SalvarCFeCanc then begin NomeCFe := CalcCFeCancNomeArq(fsConfigArquivos.PastaCFeCancelamento); try CFeCanc.SaveToFile(NomeCFe); DoLog(' Gravando XML Cancelamento recebido: '+NomeCFe); except on E: Exception do begin DoLog(' Erro gravando XML Cancelamento recebido: '+NomeCFe + ' -> ' + E.Message); end; end; end; Sem mais, deixo registrado um problema que tive e minha sugestão... Muito Obrigado, Luiz Henrique
  4. Consegui resolver trocando aqui: ACBrSATWS1.Configuracoes.Geral.SSLLib := libOpenSSL;
  5. Boa tarde! Também estou com o mesmo problema. Praticamente em todos meus clientes começaram a dar este problema: Erro Interno: 12170 Erro HTTP: 0 URL: https://wssatsp.fazenda.sp.gov.br/CfeConsultarLotes/CfeCon ACBrSATWS1.Configuracoes.Geral.SSLLib := libCapicom; ACBrSATWS1.Configuracoes.WebServices.UF := 'SP'; ACBrSATWS1.WebServices.ConsultarSATWS.versaoDados := '0.07'; ACBrSATWS1.WebServices.ConsultarSATWS.nserieSAT := StrToIntDef(serieSAT,0); ACBrSATWS1.WebServices.ConsultarSATWS.dhInicial := dataAux; ACBrSATWS1.WebServices.ConsultarSATWS.dhFinal := Now; ACBrSATWS1.WebServices.ConsultarSATWS.chaveSeguranca := chaveDeSeguranca; ACBrSATWS1.Configuracoes.WebServices.Salvar := False; ACBrSATWS1.Configuracoes.Geral.Salvar := False; If ACBrSATWS1.WebServices.ConsultarSATWS.Executar Then Begin ......
  6. Oi Juliana, bom dia! Desculpe a demora pra responder... Fiz o teste, porém não deu certo. No impresso sai corretamente (sem problemas), o problema estava sendo no arquivo de remessa para envio ao banco que, segundo o Itaú, devo preencher com 34 ou 35 para ativar o recurso no banco. Eu consegui resolver esta situação preenchendo a informação na propriedade instrução, conforme abaixo: // 34=Dias corridos // 35=Dias úteis. Titulo.Instrucao1 := '34'; Obrigado, Luiz Henrique
  7. Atualizei os fontes, porém sem sucesso. As remessas geradas antes e pós atualização dos fontes ACBr são idênticos.
  8. Vou atualizar a ACBr e fazer mais teste e retorno o resultado. Obrigado !!
  9. Boa tarde! Estou gerando o arquivo de remessa CNAB 400 do Banco Itaú com protesto em dias corridos, porém não vejo a informação preenchida no arquivo de remessa que, segundo o banco, deveria estar na posição 157-158 o código "34" // Protesto Titulo.TipoDiasProtesto := diCorridos; Titulo.DiasDeProtesto := 10; Desde já agradeço a colaboração! Obrigado, Luiz
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.