Paulo R. Dias

Resolvido ! configurei o SSLLib com libWinCrypt e o SSLType com LT_TLSv1_2.

Retirei todos os certificados, fiz como solicitado, mas não deu certo, o engraçado que no meu note onde desenvolvo foi ok!

Boa tarde! Apos a troca do certidicado A1, esta dando essa mensagem, ja troquei a chave do mesmo e instalando o A1 na minha maquina onde desenvolvo deu certo, o que sera?

Obrigado, estou tentando...

Ola, estou tendo problemas na integração do meu ERP com a solução de pagamentos Pag Hyper. Possuo o Delphi 7 Professional, Alguém poderia me dar um auxílio?

Obrigado pela sua atenção, resolvi.

ACBrBoleto.Banco.TipoCobranca := cobBancoDoBrasil; ACBrBoleto.Banco.Numero := 001; ACBrBoleto.Banco.Digito := 9; ACBrBoleto.Banco.Nome := 'BANCO DO BRASIL'; ACBrBoleto.Banco.TamanhoMaximoNossoNum := 10; ACBrBoleto.Cedente.CodigoCedente := FormatFloat('0000000',1221); ACBrBoleto.Cedente.Agencia := '3179'; ACBrBoleto.Cedente.AgenciaDigito := '4'; ACBrBoleto.Cedente.Conta := '5194'; ACBrBoleto.Cedente.ContaDigito := '2'; ACBrBoleto.Cedente.Nome:='EMPRESA TESTE'; ACBrBoleto.Cedente.CNPJCPF:='99999999999999'; ACBrBoleto.Cedente.Logradouro:='ENDERECO'; ACBrBoleto.Cedente.Convenio := '1821772'; ACBrBoleto.Cedente.TipoDocumento := Tradicional; ACBrBoleto.Cedente.Modalidade := '19'; ACBrBoleto.Cedente.TipoCarteira := tctRegistrada; ACBrBoleto.Cedente.CaracTitulo := tcSimples; ACBrBoleto.Cedente.ResponEmissao := tbCliEmite; ACBrBoleto.Banco.OrientacoesBanco.Clear; ibqcadctr.First; while ibqcadctr.eof=false do begin with Titulo do begin Vencimento := ibqcadctrdvenctr.value; DataDocumento := ibqcadctrdemictr.value; DataProcessamento := date(); Titulo.CarteiraEnvio := tceCedente; EspecieMod := 'R$'; carteira:='17'; Titulo.NossoNumero := '000000001'; ValorDocumento := ibqcadctrvemictr.value; Sacado.NomeSacado := COPY(ibqcadctrrazacli.Value,1,30); Sacado.CNPJCPF := limpa(ibqcadctrcfcjcli.Value); Sacado.Logradouro := ibqcadctrendfcli.value; Sacado.Numero := ibqcadctrnumfcli.value; Sacado.Bairro := ibqcadctrbaifcli.value;; Sacado.Cidade := ibqcadctrmunfcli.value; Sacado.UF := ibqcadctrestfcli.value; Sacado.CEP := limpa(ibqcadctrcepfcli.Value); ValorAbatimento := 0.00; LocalPagamento := 'ATÉ O VENCIMENTO, PREFERENCIALMENTE NO BANCO DO BRASIL, APOS O VENCIMENTO, SOMENTE BANCO DO BRASIL.'; ValorMoraJuros := (ibqcadctrvemictr.value*((8/30)/100)); ValorDesconto := 0.00; ValorAbatimento := 0.00; DataMoraJuros := ibqcadctrdvenctr.value+1; DataDesconto := StrToDateDef(' / / ', 0); DataAbatimento := StrToDateDef(' / / ', 0); DataProtesto := ibqcadctrdvenctr.value+3; DataMulta:=ibqcadctrdvenctr.Value+1; PercentualMulta := 2.00; Mensagem.Text := ''; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := ''; Instrucao2 := '';

ESTOU TENDO PROBLEMAS NA GERACAO DO BOLETO DO BANCO DO BRASIL COM CONVEIO DE 7 NUMEROS, CARTEIRA 17 E VARIACAO 019, ALGUEM PODE ME DAR UMA LUZ? DA ERRO APOS MENCIONAR A CARTEIRA...

Ola, fiz extamentente como o exemplo, mas quando coloco a carteira = '17' da erro, o que sera que esta errado, no itau consegui fazer...