Arnaldo Cruz
-
Total de ítens
554 -
Registro em
-
Última visita
-
Days Won
2
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Arnaldo Cruz
-
-
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 MODULECom 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
-
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
Mensagem ao tentar instalar o Ponto de captura
Qualquer dica eu agradeço
-
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
-
Estou emitindo NFC-es com Ide.tpEmis := teOffLine;
porem quando olho o xml a tag está igual a 1 <tpEmis>1</tpEmis>;
está saindo igual se estivesse emitindo normal
-
eu tambem estou com o mesmo problema desde ontem após atualizar o ACBr até quarta feira estava tudo OK
-
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 ?.
-
Provavelmente não, pois estou emitindo NFC-e,MDF-e,NF-e,gero boletos para banco do Brasil API no mesmo sistema e na mesma maquina,
-
Juliomar quais as dll do ACBrBoleto são usadas ?
-
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.
-
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 enviar3 - 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
-
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)
-
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 environmentAgradeço qualquer orientação
Obrigado
-
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.
-
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; -
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
-
colegas alguém sabe mim dizer se quando envio um boleto hibrido para o banco e o cliente paga com pix se é cobrado duas taxas 1 ref. o boleto e outra ref o PIX ?
-
estranho eu emito em homologação sem problemas
-
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
beginQtdeGas := (13 * FrmCaixaNovo.CDSNFeDetalheQTDE.AsFloat);
vIcmsGas := RoundABNT(QtdeGas * 1.2571,2);
qBCMonoRet := QtdeGas;
adRemICMSRet := 1.2571;
vICMSMonoRet := vIcmsGas;
TotIcmsGas := TotIcmsGas + vIcmsGas;end;
- 1
-
a sim agora entendi, obrigado
-
não entendi sua resposta
-
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
-
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.
-
Tenho 2 clientes deposito de gás que realizam venda somente para consumidor final, gostaria de saber como preencher as tag no XML, procurei no exemplo da NF-e do acbr e não comtempla
nenhuma tag descrito na NT.
Qualquer dica eu agradeço
Obrigado
-
Colegas estou tentando arredondar o valor 0,0046 que deveria no caso ficar 0,01
usando o RoundABNT fica 0,00
Evento de Insucesso na Entrega do NF-e ( Emissão do comprovante )
em ACBrNFe
Postado
Qual a finalidade deste evento insucesso na entrega ?
Vou ter que emitir nota de entrada após executar este evento ?