Ir para conteúdo
  • Cadastre-se

Arnaldo Cruz

Membros
  • Total de ítens

    550
  • Registro em

  • Última visita

  • Days Won

    2

Posts postados por Arnaldo Cruz

  1. Olá Aggile obrigado por responder, mim tira uma dúvida coloco isso "cobrancas.boletos-info cobrancas.boletos-requisicao"

    ou para envio é assim "cobrancas.boletos-info"

    para consulta é assim "cobrancas.boletos-requisicao"

     

    perdoe a ignorância mas é a primeira vez que estou mim envolvendo com API

  2. Estou tentando imprimir com o PosPrinter um comprovante de recebimento.


            ACBrPosPrinter1.Desativar;
            ACBrPosPrinter1.Modelo                       := TACBrPosPrinterModelo( MODELOIMP );
            ACBrPosPrinter1.PaginaDeCodigo               := TACBrPosPaginaCodigo( PAGCODIGO );
            ACBrPosPrinter1.Porta                        := PORTA;
            case VELOCIDADE of
               0 : ACBrPosPrinter1.Device.Baud           := 9600;
               1 : ACBrPosPrinter1.Device.Baud           := 115200;
            end;
            ACBrPosPrinter1.ConfigQRCode.Tipo            := 2;
            ACBrPosPrinter1.ConfigQRCode.LarguraModulo   := 4;
            ACBrPosPrinter1.ConfigQRCode.ErrorLevel      := 0;
            ACBrPosPrinter1.ColunasFonteNormal           := COLUNAS;
            ACBrPosPrinter1.LinhasEntreCupons            := 0;
            ACBrPosPrinter1.EspacoEntreLinhas            := 0;
            ACBrPosPrinter1.ControlePorta                := True;
            ACBrPosPrinter1.TipoCorte                    := ctTotal;
            ACBrPosPrinter1.IgnorarTags                  := False;// IGNTAGNFI ;
            ACBrPosPrinter1.Ativar;

     

    SL := TStringList.Create;
    SL.Add('<n><ce>Via Cliente</ce></n>');
    SL.Add('</linha_dupla>');
    for I := 0 to txtMemo1.Lines.Count -1 do
    begin
        Linha := LeftStr(txtMemo1.Lines[I],42);
        SL.Add('<ce>' + Linha + '</ce>');
    end;
    SL.Add('</linha_dupla>');
    SL.Add('</corte_total>');
    FDataModule.ACBrPosPrinter1.Imprimir(SL.Text);

  3. Estou com duvidas sobre o PIX, atualmente tenho o TEFPayGoWeb rodando em alguns clientes.

    Quero ter a opção de PIX no sistema.

    Liguei pra PayGo

    1 - No Primeiro atendimento o atendente mim disse que eu tenho que fazer direto com os bancos.

    2 No segundo Atendimento o atendente disse que o cliente tem que ter um conta na C6Pay pra poder criar uma Chave PIX.

    3 Conversando com um colega desenvolvedor ele disse que usa o ACBrTEFD sem ter nenhum vinculo com a PAYGO e muito menos C6Pay.

    Ai fiquei na duvida de quais os passos tomar para implantar o recebimento por PIX.

    Se algum colega puder mim esclarecer essas duvidas eu agradeço.

  4. Bom nem cogitei o caso do juros, pois no momento da venda não tem definição de juros, simplesmente é feito o parcelamento sem juros.

    A questão é. Nas vendas parceladas estão selecionando parcelado pelo estabelecimento, porem está acontecendo muita rejeição por falta do CNPJ da Credenciadora.

    AI coloquei um memo na tela pra ver o retorno, e observei que algumas vezes o retorno UltResp.NFCeSAT.CNPJCredenciadora volta vazio, somente quando a venda é parcelada,

    se for débito ou credito a vista volta o CNPJ. fiz diversas vendas em cada opção e somente no parcelado que acontece e só vez em quando.

  5. ACBrBoleto1.Cedente.CedenteWS.ClientID:= 'eyJpZCI6IjgwNDNiNTMtZjQ5Mi00YyIsImNvZGlnb1B1YmxpY2Fkb3IiOjEwOSwiY29kaWdvU29mdHdhcmUiOjEsInNlcXVlbmNpYWxJbnN0YWxhY2FvIjoxfQ';
     ACBrBoleto1.Cedente.CedenteWS.ClientSecret:= 'eyJpZCI6IjBjZDFlMGQtN2UyNC00MGQyLWI0YSIsImNvZGlnb1B1YmxpY2Fkb3IiOjEwOSwiY29kaWdvU29mdHdhcmUiOjEsInNlcXVlbmNpYWxJbnN0YWxhY2FvIjoxLCJzZXF1ZW5jaWFsQ3JlZGVuY2lhbCI6MX0';
     ACBrBoleto1.Cedente.CedenteWS.Scope:= 'cobranca.registro-boletos'; 
     ACBrBoleto1.Cedente.CedenteWS.KeyUser:='J1234567';   

     

    Tão simples a resposta, bastava dizer ACBrBoleto1.Cedente.CedenteWS.KeyUser deve ser preenchido com a chave J

     

     

     

     

  6. Componente ACBR tem as Propriedades

    ClientID
    ClientSecret
    KeyUser

    Na pagina de credenciamento do Banco do Brasil tenho

    developer_application_key
    client_id
    client_secret
    Basic

    Gostaria de saber se no componente o KeyUser corresponde ao (developer_application_key ou Basic) dos dados do credenciamento do Banco do Brasil

     

    Obrigado

  7. Colegas gostaria de saber se na lei LGPD diz alguma coisa referente.

    1 - Obrigatoriedade de Usar win 8.1 pra frente

    2 - Obrigatoriedade de Usar Firebird 3.0

    3 - Obrigatoriedade de ter no Sistema um Firewall

    4 - Obrigatoriedade de em toda liberação de sistema gerar um Hash e um recibo.

         No meu caso eu só tenho liberação quando o cliente é bloqueado por falta de pagamento, isso quase nunca ocorre, porem emito nota de serviço todos os meses do valor da mensalidade.

    5 - Obrigatoriedade de na NF-e e NFC-e constar um Hash

     

    Essas Questões mim foram faladas por um desenvolvedor, porem já li e reli a lei LGPD e não consegui achar nada que fale sobre isso.

     

    Obrigado

     

  8. 1 - Faço a consulta das Notas emitidas para o CNPJ do cliente, O Resultado gravo no banco de dados e alimento um clientDataset do grid.

    with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do
    begin
            infEvento.cOrgao   := 91;
            infEvento.chNFe    := cdsManifestoCHAVE.AsString;
            infEvento.CNPJ     := CnpjEmpresa ;
            infEvento.dhEvento := now;
            infEvento.tpEvento := teManifDestConfirmacao;

    end;

    2 - Quando vou Manifestar ta acontecendo muitos casos de da a mensagem  Não existe NF-e com a chave, sendo que a chave acabou de ser consultada,

    3 - Pego o número da chave consulto direto no site da receita e a nota é localizada, 

     

    Algum dos colegas já teve esse problema ? Como resolver ?

     

    Obrigado

  9. Refiz o teste 3.1 usando o exemplo do ACBr e refletiu a mesma situação feita pelo meu sistema.

    Um Detalhe é que no video de explicação, quando existe uma transação pendente, só é pedido para confirmar ou negar no fiim do processo de uma nova transação,

    já usando o exemplo quanto o meu sistema esta solicitação é feita já no inicio de uma nova transação, mais precisamente no ACBrTEFD1.Inicializar(TACBrTEFDTipo(cbxGP.ItemIndex));

    Segue anexo os arquivos de Log Gerado pelo ACBr e o Log gerado na Pasta TEF/PayGoWeb/Log.

    Após o breakpoint não aparece o PWRET_FROMHOSTPENDTRN nem PWINFO_REQNUM.

    se algum dos colegas puder mim dá uma ajuda eu agradeço.

    LogACBR.txt LogPayGocomms_210105.log

    Obs foi deletado o arquivo de log gerado pelo ACBr logo após feita a queda da aplicação.

  10. Fiz os testes mandei para PayGo eles pediram pra refazer os Teste 3.2 - 3.4 - 4.1 e 5.2 por está em desacordo o PWINFO_REQNUM,

    Procedimento

    1 - Realizei o teste 3.1 transação Credito a vista valor 5,00 

    2 - Coloquei o BreakPoint TACBrTEFDPayGoWeb.CNF(Rede, NSU, Finalizacao: String;  DocumentoVinculado: String);

    3 - Derrubei a aplicação

    4 - Exclui o arquivo de Log do ACBr.

    6 - Iniciei uma nova transação

    7 - Foi acusado de uma transação pendente

    8 - Confirme a transação.

    9 - ABrir o arquivo de Log

    10 - Não aparece o PWINFO_REQNUM

    estou anexando o arquivo de log do teste 3.1 transação Credito a vista valor 5,00 

    e o arquivo de Log após confirmar a transação pendente.

     

    Teste31.jpg

    ArqLogWebX.txt ArqLogWeb.txt

  11. Daniel. após executar o teste 3.2 o arquivo de log existtente é deletado para poder cumprir o roteiro,

    ao finalizar uma nova transação é pedido para conformar ou não a transação pendente, após confirmar no arquivo de logo não consta o REQNUM e sim o codigo de autorização que foi confirmada ou cancelada,

    ai o proximo REQNUM que vai aparecer refere-se a uma nova transação.

    Não tenho o arquivo de log exato mas é mais ou menos o que está abaixo.

     

    - 24/12 10:07:40:323 - BloquearMouseTeclado: SIM
    -- 24/12 10:07:40:324 - PayGoWeb DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: TRANSACAO AUTORIZADA
    -- 24/12 10:07:40:326 - PayGoWeb ECFAbreVinculado: COO: 1584 Indice: 01 Valor: 1,00
    -- 24/12 10:07:40:481 - PayGoWeb ECFImprimeVia: trVinculado Via: 1
    -- 24/12 10:07:40:560 - PayGoWeb ComandarECF: Oper: opePulaLinhas
    -- 24/12 10:07:40:562 - PayGoWeb DoExibeMsg: Oper: opmDestaqueVia Mensagem: Destaque a 1ª Via
    -- 24/12 10:07:43:767 - PayGoWeb ECFImprimeVia: trVinculado Via: 2
    -- 24/12 10:07:43:837 - PayGoWeb DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem: 
    -- 24/12 10:07:43:840 - PayGoWeb DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem: 
    -- 24/12 10:07:43:842 - PayGoWeb ComandarECF: Oper: opeFechaVinculado
    -- 24/12 10:07:43:843 - ConfirmarTransacoesPendentes
    -- 24/12 10:07:51:766 - PW_iConfirmation( PWCNF_CNF_AUTO, 689524, 101, 2707, 528, REDE ) 
    -- 24/12 10:07:51:824 -   PWRET_OK

     

  12. Fazendo os testes 3.2 - 3.4 - 4.1 e 5.2

    No roteiro pede que seja informado o conteudo do PWINFO_REQNUM do arquivo de log, porem no arquivo de log desses testes não contêm o PWINFO_REQNUM,

    fiz os testes 3 vezes dois deles acompanhando o video do Daniel, foi ai que percebi que no video também não consta no arquivo de LOG o PWINFO_REQNUM.

     

  13. defini TimeOut como 15.000, ConsultaRet em 30000  Ajust ConsultReto para True

    Então Daniel em algumas maquinas com Win7 Service PAck1 funciona

    Envo,Consulta,Consulta NF-e,Consulta Destinadas,Manifestação Destinadas, Download Destinadas somente com LT_All,

    e em outras maquinas com Win7 só com LT LTTLSV1_2 (Win7).

    Como eu disse eu fico testando o SSLType toda vez que acontece, já com win10 não tenho problema nenhum todos funcionam perfeitamente com  LTTLSV1_2

     

  14. Desde que atualizei o acbr para a versão 20986 não consigo mais enviar NF-e,

    de 10 tentativas consigo emitir uma nota sem que apareça o erro abaixo.

    COmando de envio

    FDataModule.ACBrNFe1.Enviar(1, False);
    aProcolo               := FDataModule.ACBrNFe1.WebServices.Retorno.Protocolo;
    aRecibo                := FDataModule.ACBrNFe1.WebServices.Retorno.Recibo;
    xmotivo                := FDataModule.ACBrNFe1.WebServices.Retorno.xMotivo;
    cStat                  := IntToStr(FDataModule.ACBrNFe1.WebServices.Retorno.cStat);

    Mensagem de erro e configurações nas imagens

    O estranho é que as vezes mudo para LT_all ai consigo emitir uma nota, na proxima nota dá a mensagem

    ai mudo para LTTLSV1_2 ai consigo emitir a nota na proxima dá o erro.

    ai fico fazendo esse jogo de troca o SSLTYpe,  Hoje das 7 da manha até agora 12:00 só consegui emitir 5 notas

    e tenho umas 100 para emitir.

     

    Qualquer dica eu agradeço.

    Obrigado.

     

    Observação estou usando Windows 7 servicepack 1

    Sem título-1.jpg

    Sem título-3.jpg

    Sem título-2.jpg

  15. Quando tento executar o teste 2.2 Venda a credito parcelado emissor em 3 parcelas

    Forma 1

    StatusTransacao := ACBrTEFD.CRT(ValorInformado, '01',lbCupom.Text);

    Aparece o menu para seleção

    Tipo de Cartão >>>Debito Ou Crédito)

    Rede = Rede

    Parcelado pelo emissor

    Quantidade de Parcelas = 3

    quando retiro o cartão da erro is Not Valid Integer;

    Forma 2

    ACBrTEFD.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE]    :='01';

    StatusTransacao := ACBrTEFD.CRT(ValorInformado, '01',lbCupom.Text);

    quando retiro o cartão da erro is Not Valid Integer;

    Da forma 3  abaixo passa sem erro

    ACBrTEFD.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE]    :='01';
    ACBrTEFD.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_PAYMNTTYPE]  :='1'; //01: crédito
    ACBrTEFD.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE]     :='3'; //01: à vista, 2: parcelado
    ACBrTEFD.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_AUTHSYST]    :='REDE';
    ACBrTEFD.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_INSTALLMENTS]:='3';
    StatusTransacao := ACBrTEFD.CRT(ValorInformado, '01',lbCupom.Text);

    Obrigado qualquer dica.

     

     

  16. Os log abaixo é da aplicação de exemplo do ACBr. Na minha aplicação ocorre a mesma coisa, até mesmo porque eu to usando o mesmo código do exemplo.

    Unica coisa que mudei foi o local onde exibe a mensagem do Operador, que passou a ser a minha tela de pagamento.

    Seleciono Rede e OK

    Pede pra inserir o Cartão Insiro

    No Pin-Pad aparece .... Credito Nubank

    a fica e o logo do acbr fica 

    03/12 21:36:06:612 - PW_iPPEventLoop
    -- 03/12 21:36:06:626 -   PWRET_NOTHING
    -- 03/12 21:36:06:930 -   OnAguardaPinPad
    -- 03/12 21:36:06:937 - PW_iPPEventLoop
    -- 03/12 21:36:06:952 -   PWRET_NOTHING
    -- 03/12 21:36:07:256 -   OnAguardaPinPad
    -- 03/12 21:36:07:264 - PW_iPPEventLoop

    Ai no Pin-Pad depois de uns dois minutos aparece "OPERAÇÃO CANCELADA"

    Passado mais uns dois minutos

    -- 03/12 21:36:43:308 -   PWRET_TIMEOUT
    -- 03/12 21:36:43:312 - PW_iGetResult( PWINFO_RESULTMSG )
    -- 03/12 21:36:43:315 -   [CR]    TEMPO LIMITE[CR]      EXCEDIDO
    -- 03/12 21:36:43:318 -   OnExibeMensagem( [CR]    TEMPO LIMITE[CR]      EXCEDIDO, tmOperador, 5000 )
    -- 03/12 21:36:48:340 - PW_iGetResult( PWINFO_CNCPPMSG )
    -- 03/12 21:36:48:342 -       OPERACAO        CANCELADA   
    -- 03/12 21:36:48:344 - xPW_iPPDisplay(     OPERACAO        CANCELADA    )
    -- 03/12 21:36:48:347 -   PWRET_OK
    -- 03/12 21:36:48:349 - TACBrTEFPGWebAPI.AbortarTransacao

    Ai a aplicação é liberada.

     

     

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