Ir para conteúdo
  • Cadastre-se

Fausto

Membros
  • Total de ítens

    146
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Fausto postou

  1. Ontem, quando escrevi essa resposta estava de cabeça cheia, por isso não ficou explicito. É bem simples, é só fazer um loop e dentro um try except tanto na solicitação, quanto na autorização da transação, pois dessa forma capturamos o erro e tentamos novamente ,ou não, o reenvio das informações. No meu caso algumas vendas vão na primeira, sem levantar exceção. Olhando melhor agora dá para melhorar o código ao invés da estrutura while =true, o reapeat until ficaria mais "didático".
  2. while true do begin try inc(k); LblTent.Caption := IntToStr(k); PanelServer.Visible := True; LblFase.Caption := '1ª FASE - Solicitação de Pré-Autorização'; Application.ProcessMessages; AutorizaFP := WSDataSus.executarSolicitacao(SolicitaFP, UsuarioFP); PanelServer.Visible := False; Break; except on E: Exception do begin PanelServer.Visible := False; if not Confirma('Tentativa número [' + inttostr(k) + '] Não foi possível uma conexão com o servidor.' + #13 + #13 + 'Mensagem retornada do servidor:' + #13 + #13 + E.Message + #13 + #13 + 'Tentar novamente?') then begin Result := False; Exit; end; end; end; end; Amigo, eu tenho o código acima, onde tenho um TPanel->PanelServidor e passo pela exception onde o usuário tenta reenviar a solicitação, depois do novo dns esta dando esse erro ai que você mencionou acima, mas quando clico em reenviar(Nova tentativa) passa.
  3. Começou aqui também! Segundo relato de alguns clientes mais cedo conseguiram normalmente.. e agora parou, troquei para o endereço de dns novo e continua.
  4. Bom dia pessoal! Estou com esse erro ao enviar uma NFe em ambiente de homologação, já verifiquei o certificado e esta tudo ok. Descobri onde é levantada a exception mas não consigo descobrir o que há de errado. if not (FWinHTTPReqResp.HTTPResultCode in [200, 201, 202]) then raise EACBrDFeException.Create(''); except On E: Exception do begin raise EACBrDFeException.CreateDef( Format( cACBrDFeSSLEnviarException, [InternalErrorCode, HTTPResultCode, AURL] ) + sLineBreak + E.Message ) ; end; Caso alguém tenha passado por isso, por favor me dê uma luz. Grato Fausto Alves
  5. Boa tarde Pessoal.. Estou com um problema em um SAT Bematech.. ao realizar a venda esta me retornando esse erro: 785870|06099|1999|Erro desconhecido|| Extrai o log e ai a coisa complica mais ainda... pois lá esta assim: 24/09/2018|16:41:28|AC-SAT|info|Iniciando execução do comando EnviarDadosVenda 24/09/2018|16:41:28|AC-SAT|erro|Caractere inválido na mensagem: -> 226 (�) 24/09/2018|16:41:28|AC-SAT|erro|Erro ao realizar a validação dos parâmetros 24/09/2018|16:41:28|SAT-AC|info|989500|06099|1999|Erro desconhecido|| E no emulador vai de boa No log gravado pelo ACBr esta assim: 24/09/18 15:34:50:134 - Gravando XML Venda enviado: C:\Fisco\ArquivosSAT\LogEnviados\201809\AD20180924153450-388779-env.xml 24/09/18 15:34:50:353 - NumeroSessao: 388779 - Resposta:388779|06010|1230|null|| 24/09/18 15:34:55:540 - ACBrSAT.DesInicializado Em anexo esta o xml. Se alguém puder ajudar, desde já agradeço AD20180924164105-124502-env.xml
  6. Bom dia pessoal. No layout do Bradesco existe um campo denominado Nº do Controle do Participante, para uso da empresa, esse mesmo número é retornado no arquivo de remessa. Em qual propriedade do ACBRBoleto eu informo esse dado? Grato Fausto Alves
  7. Veja o que diz o manual de orientação ao contribuinte neste caso.. Fausto Alves Franca-SP
  8. Era picada de fumo do técnico.. Fausto Alves
  9. Bom dia pessoal.. Um cliente necessitou trocar a mother board e desde então o ECF não reconhece nenhuma porta Serial. A porta Serial esta em uma placa padrão PCI, Eu rodo o exemplo do ECF e peço "gentilmente", para que ele procure as portas, selecionando o Ecf Bematech e no combo porta eu deixo a opção 'procurar', Ele vai em todas as portas e no final recebo a msg.. ECF Bematech necessita das portas Com1.. ComN. Estou enviando em anexo um picture do gerenciador de dispositivos onde estão as portas.. Detalhe a porta COM1 e LPT1 não existem. Alguém já passou por isso? Grato Fausto Alves
  10. Boa tarde pessoal.. No layout do Itau cnab400, no registro Detalhe da Remessa, há a menção desse campo aqui: Onde eu passo esse valor no ACBRBoleto? Fausto Alves Franca-SP
  11. Poxa, mas o que será que esta havendo.. o meu foi de primeira.. Você esta enviando no padrão CNAB400?
  12. Bom dia pessoal.. Eu homologuei o boleto no Itaú na semana passada, não tive nenhum desses problemas que vocês citaram, como podem ver na imagem em anexo. Fausto Alves Franca-SP
  13. André, matou a pau.. era o navegador.. Tem que ser Firefox ou Internet explorer.. Obrigado pessoal
  14. Bom dia a todos. Pessoal, desde segunda-feira 24/10, estou tentando acessar o SGRSAT na opção software house, quando clico no ícone do certificado digital obtenho esse erro: 403 - Forbidden: Access is denied. You do not have permission to view this directory or page using the credentials that you supplied. Estou precisando acessar para fazer uma vinculação e desvincular uma empresa.. Alguém mais esta tendo esse erro ai? Grato Fausto Alves
  15. Você tem que verificar se os diretórios onde serão gerados os arquivos de remessa estão criados, senão estiverem criá-los. Eu uso essa estrutura: Cobrança BancodoBrasil Remessa Retorno Bradesco Remessa Retorno Ou seja, de acordo com o banco eu crio dentro da Pasta Cobrança uma pasta para o Banco e dentro da mesma as pastas para Remessa e Retorno. Tudo isso tem que ser informado nas propriedades "DirArqRemessa" e "DirArqRetorno" no componente ACBRBoleto.
  16. Você vai ter que ter um cadastro de contas e em cada uma delas especificar de qual banco ela pertence, depois disso é associar suas duplicatas a conta que cada uma pertence. Ex: Conta do Banco do Brasil, com suas configurações de cobrança Conta do Bradesco também com suas configurações Depois é só associar as duplicatas em suas devidas contas correntes.
  17. O ACBrBoleto já gera os os boletos registrados, o que você tem que fazer é uma adequação no seu sistema, onde na conta deve informar o tipo de carteira. Para isso veja no layout dos bancos que você trabalha. No caso do bradesco.. esta assim no Layout: Essa informação também pode ser adquirida junto ao banco. Fausto Alves Franca-SP
  18. Eu tenho usado o ACBRBoleto com o Bradesco e esta normal.. não tive esses problemas.. A única coisa que tive que mexer nos fontes do ACBrBoleto, no caso a unit ACBrBancoBradesco foi incluir o Sacador/Avalista. No mais não foi preciso mexer em uma linha sequer do fonte desta unit. Fausto Alves Franca-SP
  19. AcbrBoleto.GerarRemessa(o_numero_sequencial_vai_aqui). Só lembrando que você tem que ir incrementando esse número a cada arquivo de remessa gerado.. Fausto Alves Franca(SP)
  20. Você pode imprimir utilizando ESCPos...
  21. Esta tudo certo.. quando o responsável pelo boleto é o cliente, tbCliEmite... quando é o banco é que esta gerando um digito para o campo nosso número,
  22. Boa noite pessoal Estou as voltas com um problema no Bradesco.. Quando a emissão e entrega dos boletos é de responsabilidade do banco (tbBancoEmite),o campo nosso numero tem que ser preenchido com 0(zeros). Se preencho ele com zeros é calculado o digito verificador no NossoNumero, no caso sempre '3', se não preencho (NossoNumero := ''), também é calculado o digito verificador pois ele é preenchido com zeros exatamente no método SetNossoNumero do TACBrTitulo.. fNossoNumero := PadLeft(wNossoNumero,wTamNossoNumero,'0'); Se deixo de preencher a Propriedade NossoNumero, não é calculado o digito verificador, porem não é gerada uma linha com 400 posições.. pois é executado o trecho abaixo procedure TACBrBancoBradesco.GerarRegistroTransacao400 {Pegando Tipo de Boleto} case ACBrBoleto.Cedente.ResponEmissao of tbCliEmite : TipoBoleto := '2'; else TipoBoleto := '1'; if NossoNumero = EmptyStr then DigitoNossoNumero := '0'; end; Grato Fausto Alves
  23. Sim, é esse mesmo, mas você tem que fazer os ajustes de acordo com o tamanho de sua etiqueta.
  24. Amigo Juliomar.. Me parece que isso já foi feito mas não subiu..
  25. Boa Tarde DecoSiqueira.. Você implementou a remessa do bradesco com sacador/avalista? Esta funcionando normalmente? Grato Fausto Alves
×
×
  • 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.