Ir para conteúdo
  • Cadastre-se

Fausto

Membros
  • Total de ítens

    146
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Fausto

  1. 18 horas atrás, Fausto disse:
    
        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.

     

    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".

     

    • Curtir 1
  2. 31 minutos atrás, Luciano Schiavi disse:

    Boa Tarde, alguem com esse erro?

    Caso tenha a solucao, ajude por favor. Obrigado

    2018-12-05_09h06_27.png.721b24892d06741c1844017aa2d0e504.png

        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.

     

    • Curtir 1
  3. 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

    ErroNFe.png

  4. 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

  5. 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.

    PortasSeriais.png.38c3b62ccafd82ed45497c226d5cdad2.png
    Alguém já passou por isso?

    Grato

    Fausto Alves
     

  6. 59 minutos atrás, eduardo.mrj disse:

    Colegas,

    Ainda continua a mesma "novela", abaixo a ultima mensagem do banco:

    E o mais interessante é que os boletos SEM REGISTRO continuam funcionando.

    Poxa, mas o que será que esta havendo.. o meu foi de primeira..

    6 minutos atrás, Fausto disse:

    Poxa, mas o que será que esta havendo.. o meu foi de primeira..

    Você esta enviando no padrão CNAB400?

  7. 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

  8. 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.

  9. 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.
    Contas.pngDuplicatas.png

    • Curtir 2
  10. 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:
     

    Citar

    021 a 037 - Identificações da Empresa Beneficiária no Banco
    Deverá ser preenchido (esquerda para direita), da seguinte maneira:
    21 a 21 - Zero
    22 a 24 - códigos da carteira   <-----Aqui vai o código da carteira.
    25 a 29 - códigos da Agência Beneficiários, sem o dígito.
    30 a 36 - Contas Corrente
    37 a 37 - dígitos da Conta

     

    Essa informação também pode ser adquirida junto ao banco.


    Fausto Alves
    Franca-SP
     

     

  11. 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

  12. 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
     

     

     

     

  13. Em 15/10/2015 at 22:02, decosiqueira disse:

    OK, Juliana, mas a princípio está tudo certo pois estou usando a rotina e o banco aprovou os meus arquivos.

    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.