Ir para conteúdo
  • Cadastre-se

Arnaldo Cruz

Membros Pro
  • Total de ítens

    554
  • Registro em

  • Última visita

  • Days Won

    2

Posts postados por Arnaldo Cruz

  1. Não tem nada no discord sobre o assunto.

    Já tentei de tudo sem resultado.

    Quando executo o comando abaixo

    FDataModule.ACBrTEFAPI1.Inicializar;

    recebo a mensagem >>>ERRO AO CARREGAR A FUNÇÃO: PW_IINIT DE: C:\PROGRAM FILES (X86)\PAYGO\PGWEBLIB.DLL

    já tentei de todas as formas como segue com a plicação em modo Debug e com aplicação em modo Release
    TEFPayGoAPI.PathLib := 'C:\Program Files (x86)\PayGo\PGWebLib';                    >>>ERRO AO CARREGAR A FUNÇÃO: PW_IINIT DE: C:\PROGRAM FILES (X86)\PAYGO\PGWEBLIB.DLL
    TEFPayGoAPI.PathLib := 'C:\Program Files (x86)\PayGo\PGWebLib\x64';             >>> ACCESS VIOLATION AT ADDRESS 0170417F IN MODULE
    TEFPayGoAPI.PathLib := 'C:\Program Files (x86)\PayGo\PGWebLib\DEBUG\x64';>>> ACCESS VIOLATION AT ADDRESS 0170417F IN MODULE

     

    Com a configuração abaixo passa pelo FDataModule.ACBrTEFAPI1.Inicializar 

    TEFPayGoAPI.PathLib := 'C:\Program Files (x86)\PayGo\PGWebLib\DEBUG';

    executo a configuração

    executo a instalação e ocorre a mensagem >>> NÃO FOI POSSIVEL CONECTAR

  2. Até a configuração vai de boa, imprime o resultado

    configuração

    if (ACBrTEFAPI1.TEF is TACBrTEFAPIClassPayGoWeb) then
        begin
            with TACBrTEFAPIClassPayGoWeb(ACBrTEFAPI1.TEF) do
            begin
              //TEFPayGoAPI.PathLib := 'C:\temp\64bits\PGWebLib.dll';   // Permite forçar o uso de uma DLL específica, diferente do definido em "PathPGWebLib"
              {$IFDEF DEBUG}
               TEFPayGoAPI.IsDebug := True;   
              {$EndIf}
            end;
        end;
        ACBrTEFAPI1.Modelo := tefApiPayGoWeb;
        ACBrTEFAPI1.ArqLOG := ExtractFilePath(Application.ExeName) +  'LogTEF\ArqLog.txt';
        ACBrTEFAPI1.TratamentoTransacaoPendente := TACBrTEFTratamentoTransacaoPendente(2);
        ACBrTEFAPI1.TratamentoTransacaoInicializacao := TACBrTEFTratamentoTransacaoInicializacao(1);
        ACBrTEFAPI1.DadosAutomacao.AutoAtendimento := False;
        ACBrTEFAPI1.DadosAutomacao.ImprimeViaClienteReduzida := False;
        ACBrTEFAPI1.ConfirmarTransacaoAutomaticamente := False;

        ACBrTEFAPI1.DadosAutomacao.SuportaDesconto := False ;
        ACBrTEFAPI1.DadosAutomacao.SuportaSaque := False;
        ACBrTEFAPI1.DadosAutomacao.NomeSoftwareHouse := 'Uirauna Software';
        ACBrTEFAPI1.DadosAutomacao.CNPJSoftwareHouse := 'meucnpj';
        ACBrTEFAPI1.DadosAutomacao.NomeAplicacao := 'CAIXANFCE';
        ACBrTEFAPI1.DadosAutomacao.VersaoAplicacao := VersaoFiscal;

        ACBrTEFAPI1.DadosEstabelecimento.RazaoSocial := NomeEmpresa;
        ACBrTEFAPI1.DadosEstabelecimento.CNPJ := CnpjEmpresa;

        if PortaPinPad <> '' then
        begin
             ACBrTEFAPI1.DadosTerminal.PortaPinPad :=  PortaPinPad;
        end;
        case QRCODETEF of
          0: ACBrTEFAPI1.ExibicaoQRCode    := qrapiAuto;
          1: ACBrTEFAPI1.ExibicaoQRCode    := qrapiExibirAplicacao;
          2: ACBrTEFAPI1.ExibicaoQRCode    := qrapiExibirPinPad;
          3: ACBrTEFAPI1.ExibicaoQRCode    := qrapiNaoSuportado;
        else
           ACBrTEFAPI1.ExibicaoQRCode      := qrapiAuto;
        end;

     

    Arquivo de Log

    ArqLog.txt

    Mensagem ao tentar instalar o Ponto de captura

     

    image.png.c74a84cc74f5cc04ece804c648674f95.png

     

    Qualquer dica eu agradeço

  3. estou tentando fazer uma venda com PIX Sicredi e estou recebendo este erro do titulo.

     

    Acabei de receber as credenciais

     

    pesquisei aqui no forum sobre o mesmo erro e encontrei algumas respostas.

    1 Resposta encontrada

    o usuário WLE respondeu : Deu certo o PIX no SICREDI. A chave privada estava criptografada.

    Pergunto 

    Eu tenho que descriptografar a chave privada ?

     

    2 Resposta

    Não lembro o usuario - Dizia que após a sicredi liberar as credenciais o usuário terá que esperar dois dias uteis.

     

    Qualquer dica eu agradeço

     

     

     

     

  4. Consegui resolver , o erro foi que o cliente quando copiou o codigo de acesso gerado pela conta dele copiou incompleto, como eu não tenho acesso a conta do cliente não tinha como saber se estava certo ou errado, pedi ao suporte da sicredi para verificar as credenciais e eles detectaram o erro.

    Aproveitando geramos um boleto de boa, efetuamos a baixa, porem quanto eu executo a consulta mim retorna o json abaixo

    ArqBoletoWS.log

    11/03/24 23:04:01:212 - Autenticando Token... 
    11/03/24 23:04:02:649 - Comando Enviar: 
    11/03/24 23:04:03:930 - Retorno Envio: {"items":[],"hasNext":false}

    No banco do brasil retorna baixa e liquidação pelo Operacao := tpConsulta , vi que na Sicredi eles diferenciam Baixa de Liquidação, mas no componente ´so tem a opção baixa será que tem alguma coisa haver ?.

     

     

  5. Eu estou supondo que o componente ACBrBoleto tenha esta tratativa do Token, corrija-me se estiver errado.

     

    Existe todo um processo para adquirir as credenciais,

    ClientID - ClientSecret, e KeyUser

     

    Passado estes dados é devolvido um token que suponho seja administrado pelo componente. inclusive no exemplo do ACBr desconheço

    algo a nivel de usuario que receba o token e armazene e verifica sua validade.

     

     

     

  6. Agora passou do erro 403 para 401.

    um outro usuário reportou no Grupo do DTComponent que também não consegue emitir boleto do Sicredi usando o ACBr,

    eu já emito sem erro para,BB,CX,Bradesco, agora para o Sicredi não funciona nem a pau

     

    1 - Criado a Aplicação no Portal do desenvolvedor (Api Cobranca 221677178 Producao)
        Selecionado
        a - OPEN API - OAUTH - PARCEIROS
        b - OPEN API - COBRANCA - PARCEIROS 1.0.0
        c - Clicamos em Registrar
    2 - Após Aprovação
        a - clicado em detalhes para obter o codigo.
        b - Escolha o Tipo de solicitação abaixo = API Cobrança Boletos
        c - Escolha o motivo do contato          = Solicitar Acess Token
        d - Assunto                              = Emissao de Boleto
        e - Ambiente                             = Produção
        f - Client ID                            = Client ID /Cliente Secret Obtidos no Passo 1
        g - Clicamos em enviar

    3 - O Cliente acessou o portal da Conta
        a - Menu Cobrança
        b - Gerar
        c - foi digitado o codigo informado no APP do Celular
        d - Foi gerado o codigo de Acesso.

    Passando as configurações para o Componente ACBrBoleto.

    Client ID     = 221677178
    Client Secret = Codigo de acesso Obtido no Portal da Conta
    KeyUser       = Codigo obtido no Passo 2 opção Detalhe;

    Quando tento enviar o boleto recebo a mensagem "ERRO: FALHA NA AUTENTICAÇÃO: HTTP_CODE=401 ERRO=INVALID USER CREDENTIALS";

    Qualquer dica eu agradeço

    Desde já agradeço

  7. Eu fiz seguindo o manual.

    Primeiro Passo

    Acessei o Portal do desenvolvedor criei a aplicação,selecionado opção Produção, após aprovado foi gerado o client ID

    Segundo Passo

    foi acessado o portal do cliente e foi gerado a chave de acesso usando o ClienteID do portal do desenvolvedor.

     

    no meu sistema.

    Cliente ID = Agencia + CodBeneficiario (Ambos sem DV) totalizando 9 digitos).

    Cliente Secret = Codigo de Acesso gerado no portal do Cliente

    KeyUser = Client ID (Gerado no Portal do desenvolvedor)

     

     

  8. Cadastrei a aplicação do Portal developer da Sicredi(esperei o 3 dias) aplicação aprovado
    Peguei o client ID do Portal developer e gerei o codigo de Acesso no portal da Conta.
    baixei o arquivo CRT e instalei na maquina.

    agencia = XXXX sem DV
    conta = XXXXXX = X
    codigo Beneficiario = XXXXX
    Cliente ID = XXXXXXXXXXX
    Client Secret = XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ( Portal da Conta)
    KeyUSer = XXXXXXXXXXXXXXXXXXXXXXXX (Portal developer)

    Quando tento enviar o boleto recebo a mensagem
    ERRO: falha na autenticação: http_code=403 erro=access denied for this environment

     

    Agradeço qualquer orientação

     

    Obrigado

     

     

     

     

     

  9. Estou fazendo a devolução de recebimento por PIX do Banco do Brasil. 
    Até umas duas horas Após solicitar a devolução o Status da consulta
    só volta que está em processamento.
    após umas duas horas que volta o status de devolvido.

    Gostaria de confirmar se existe um intervalo de horas e qual intervalo e se isso é pra todos os bancos 
    ou essa particularidade é somente para o Banco do Brasil.
     

     

  10. Pessoal estou efetuando pagamento com pix pelo sistema em produção.

    1 - Gero o QrCode

    2 - O cliente ler este QrCode, efetua o pagamento

    3 - o Pagamento cai na Conta tudo certinho e finalizo a venda

    O Problema é quando gero o QrCode e o cliente desiste da compra ou por qualquer motivo a venda não vai ser mais concluida

    O Problema está no segundo IF que sempre volta Zero

    faço os procedimentos abaixo quando pra cancelar o procedimento de pagamento com PIX, antes que ele seja efetuado pelo cliente.

    if FDatamodule.ACBrPixCD1.PSP.epCob.ConsultarCobrancaImediata(FFluxoDados.txid) then
    begin
        if (FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.pix.Count > 0) then  /////////////   o Problema é que Aqui sempre volta Zero   /////////////////////////////////////
        begin
            E2E := FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.pix[0].endToEndId;
            StatusCobranca := FDatamodule.ACBrPixCD1.PSP.epCob.CobCompleta.status;
            if StatusCobranca = stcATIVA then
            begin
                FDatamodule.ACBrPixCD1.PSP.epCob.CobRevisada.status := stcREMOVIDA_PELO_USUARIO_RECEBEDOR;
                if FDatamodule.ACBrPixCD1.PSP.epCob.RevisarCobrancaImediata(FFluxoDados.TxID) then
                begin
                    Panel1.Caption :='Cobrança PIX cancelada com sucesso';
                    Faço o cancelamento no sistema
                end;
            end else begin
                Aqui eu faço o tratamento para os demais retorno
            end;
        end;
    end if; 

     

  11. Banco do Brasil - Boleto API

    Colegas quando faço a consulta dos titulos baixados não retorna os valores de Juros,Multa,Despesas.

     

    Retorno := Boleto.ListaConsultaRetornoWeb;
    valorPago   := Retorno[I].DadosRet.TituloRet.ValorPago;  OK
    valorDesc   := Retorno[I].DadosRet.TituloRet.ValorDesconto;   Retorna 0
    valorJuros  := Retorno[I].DadosRet.TituloRet.ValorMoraJuros; Retorna 0
    valorMulta  := Retorno[I].DadosRet.TituloRet.ValorMulta; Retorna 0
    valorDesp   := Retorno[I].DadosRet.TituloRet.ValorDespesaCobranca;Retorna 0  (CUSTO DA COBRANÇA de 2,83   não sei se vem mesmo)

     

    RetornoDetalhe := Boleto.ListaRetornoWeb[i];
    valorPago   := RetornoDetalhe.DadosRet.TituloRet.ValorPago; OK
    valorDesc   := RetornoDetalhe.DadosRet.TituloRet.ValorDesconto; Retorna 0
    valorJuros  := RetornoDetalhe.DadosRet.TituloRet.ValorMoraJuros; Retorna 0
    valorMulta  := RetornoDetalhe.DadosRet.TituloRet.ValorMulta; Retorna 0
    valorDesp   := RetornoDetalhe.DadosRet.TituloRet.ValorDespesaCobranca; Retorna 0  (CUSTO DA COBRANÇA de 2,83   não sei se vem mesmo)

     

    E No caso o boleto Valor Pago = 15,36 teve Juros de 0,06, teve multa de 0,30  (e teve CUSTO DA COBRANÇA de 2,83   não sei se vem mesmo)

    Se alguem puder mim dá uma dica eu agradeço

  12. with Prod.comb do
                                       begin
                                            cProdANP:= StrToInt(FrmCaixaNovo.CDSNFeDetalheCODANP.AsString) ;
                                            descANP := FDataModule.RetornaDescANP(FrmCaixaNovo.CDSNFeDetalheDESCRICAO.AsString);
                                            pGLP    := 100 ;
                                            pGNn      := 0 ;
                                            pGNi      := 0 ;
                                            vPart   := FrmCaixaNovo.CDSNFeDetalheVALOR.AsFloat;
                                            UFcons  := UFEmpresa;
                                       end;

    with Imposto do
                                   begin

    QtdeGas      := (13 * FrmCaixaNovo.CDSNFeDetalheQTDE.AsFloat);
                                                   vIcmsGas     := RoundABNT(QtdeGas * 1.2571,2);
                                                   qBCMonoRet   := QtdeGas;
                                                   adRemICMSRet := 1.2571;
                                                   vICMSMonoRet := vIcmsGas;
                                                   TotIcmsGas   := TotIcmsGas +  vIcmsGas;

    end;

    • Curtir 1
  13. Utilizo TEF ACBr com payGoWeb , está aparecendo muita venda por link de pagamento, atualmente o cliente faz a venda a vista e nas informações complementares está colocando os dados do pagamento, gostaria de saber se no ACBr tem como automatizar esta forma de pagamento, ou se o ACBr tem componenete especifico pra isso e qual o procedimento junto ao PSP,banco.

     

    Obrigado

  14. BigWings estou preenchendo esta parte que vc postou igualzinho, estou falando das novas tag como abaixo.

    if FrmNotaMod55.CDSNFeDetalheCODANP.AsString <> '' then
    begin
        with Prod.comb do
        begin
             cProdANP := strtoint(FrmNotaMod55.CDSNFeDetalheCODANP.AsString);
             UFcons   := FrmNotaMod55.EdtUFCliente.Text;
             descANP :=  FrmNotaMod55.CDSNFeDetalheDESCANP.AsString;
             pGLP     := 100;
             pGNn     := 0;
             pGNi     := 0;
             vPart    :=  FrmNotaMod55.CDSNFeDetalheVALOR.AsFloat;
         end;
    end;

    with Imposto do
    begin
        if FrmNotaMod55.CDSNFeDetalheCODANP.AsString <> '' then
        begin
            vIcmsGas :=  RoundABNT(FrmNotaMod55.CDSNFeDetalheVALOR.AsFloat * 1.2571,2);
            qBCMonoRet   := FrmNotaMod55.CDSNFeDetalheVALOR.AsFloat;
            adRemICMSRet  :=1.2571;
            vICMSMonoRet := vIcmsGas;
            TotIcmsGas   := TotIcmsGas +  vIcmsGas;
        end;
    end;

    se for informado CST cst61 sai o grupo no xml  com Novas tag do combustivel

    <ICMS>
    <ICMS61>
    <orig>0</orig>
    <CST>61</CST>
    <qBCMonoRet>75.0000</qBCMonoRet>
    <adRemICMSRet>1.2571</adRemICMSRet>
    <vICMSMonoRet>94.28</vICMSMonoRet>
    </ICMS61>
    </ICMS>
     
    se não for informado CST 61 e somente CSOSN   não sai as tag novas do combustivel
    <ICMS>
    <ICMSSN500>
    <orig>0</orig>
    <CSOSN>500</CSOSN>
    </ICMSSN500>
    </ICMS>
     
    a duvida por ser empresa simples nacional deve se informa CST 61 ai no Danfe o a coluna CSOSN sai '0'
    se informar somnete a CSOSN no danfe sai preenchido a coluna CSOSN.
     
     

     

    Porem o Danfe o CSOSN está saindo com "0"

    em Homologação a Nota é transmitida estou com medo de quando for em produção ocorrer rejeição.

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

The popup will be closed in 10 segundos...