sábado, 15 de janeiro de 2022

codigo elgin pay - windev Mobile

----- Codigo Windev Mobile

====================

// botao btn efetua transacao
EDT_RESPOSTA  = ""
SetFocus(BTN_Efetua_Transação)
gsRetTef = ""


SWITCH COMBO_OPERAÇÃO
CASE 1     // Administrativo
Elgin_OperacoesAdministrativas()
CASE 2 // Débito
Elgin_PagamentoDebito(CurrencytoStrinSV(EDT_Valor))
CASE 3 // Crédito
Elgin_PagamentoCredito(CurrencytoStrinSV(EDT_Valor),COMBO_Financiam,Val(EDT_Parcelas))
// Elgin_PagamentoCredito(EDT_Valor,COMBO_Financiam)
CASE 4 // Cancelamento
Elgin_Cancelamento(CurrencytoStrinSV(EDT_Valor))
END

LOOP
IF gsRetTef <> "" THEN BREAK
Multitask(10)
END

EDT_RESPOSTA.Value  = gsRetTef
respJson is JSON = gsRetTef
sRet is ANSI string = ""


sRet +="aidCartao: " +                          respJson.aidCartao + CRLF
IF  respJson.comprovanteGraficoDisponivel = True THEN sRet +="comprovanteGraficoDisponivel: Sim" + CRLF ELSE sRet +="comprovanteGraficoDisponivel: Não" + CRLF
sRet +="modalidadeTransacao: " +            respJson.modalidadeTransacao + CRLF
sRet +="CodigoAutorizacao: " +              respJson.CodigoAutorizacao + CRLF
sRet +="CodigoAutorizacaoOriginal: " +      respJson.CodigoAutorizacaoOriginal + CRLF
sRet +="IdentificadorTransacaoAutomacao: "+ respJson.IdentificadorTransacaoAutomacao + CRLF
sRet +="NsuLocal: " +                       respJson.NsuLocal + CRLF
sRet +="ModoEntradaCartao: " +              respJson.ModoEntradaCartao + CRLF
sRet +="PanMascarado: " +                   respJson.PanMascarado + CRLF
sRet +="DataHoraTransacao: " +              respJson.DataHoraTransacao + CRLF
sRet +="ComprovanteCompleto: " +            respJson.ComprovanteCompleto + CRLF
sRet +="DataHoraTransacaoOriginal: " +      respJson.DataHoraTransacaoOriginal + CRLF
sRet +="NomeCartao: " +                     respJson.NomeCartao + CRLF
//sRet +="ComprovanteReduzidoPortador: " +    respJson.ComprovanteReduzidoPortador + CRLF
sRet +="DocumentoFiscal: " +                respJson.DocumentoFiscal + CRLF
sRet +="ValorTroco: " +                     respJson.ValorTroco + CRLF
sRet +="ValorDesconto: " +                  respJson.ValorDesconto + CRLF
sRet +="IdentificadorEstabelecimento: " +   respJson.IdentificadorEstabelecimento + CRLF
sRet +="NomeProvedor: " +                   respJson.NomeProvedor + CRLF
sRet +="Operacao: " +                       respJson.Operacao + CRLF
sRet +="TipoCartao: " +                     respJson.TipoCartao + CRLF
sRet +="TipoFinanciamento: " +              respJson.TipoFinanciamento + CRLF
sRet +="NumeroParcelas" +                   NoSpace(NumToString(respJson.NumeroParcelas)) + CRLF
sRet +="DataPredatado: " +                  respJson.DataPredatado + CRLF
//info("ComprovanteDiferenciadoLoja: ", "respJson.ComprovanteDiferenciadoLoja")
//Info("ComprovanteDiferenciadoPortador: ", "respJson.ComprovanteDiferenciadoLoja")
// sRet +="ComprovanteDiferenciadoPortador: "+ respJson.ComprovanteDiferenciadoPortador + CRLF
sRet +="MensagemResultado: " +              respJson.MensagemResultado + CRLF
sRet +="CodigoMoeda: " +                    respJson.CodigoMoeda + CRLF
sRet +="ValorTotal: " +                     respJson.ValorTotal + CRLF
sRet +="ValorOriginal: " +                  respJson.ValorOriginal + CRLF
sRet +="NsuHost: " +                        respJson.NsuHost + CRLF
sRet +="IdentificadorPontoCaptura: " +      respJson.IdentificadorPontoCaptura + CRLF
IF respJson.InformacaoConfirmacao = True THEN sRet +="InformacaoConfirmacao: Sim" + CRLF  ELSE sRet +="InformacaoConfirmacao: Não" + CR
sRet +="ViasImprimir: " +                   respJson.ViasImprimir + CRLF
sRet +="ResultadoTransacao: " +             NoSpace(NumToString(respJson.ResultadoTransacao)) + CRLF
sRet +="ModoVerificacaoSenha: " +           respJson.ModoVerificacaoSenha + CRLF
sRet +="NsuLocalOriginal: " +               respJson.NsuLocalOriginal + CRLF
sRet +="CodigoRespostaProvedor: " +         respJson.CodigoRespostaProvedor + CRLF
sRet +="IdentificadorConfirmacaoTran: "+    respJson.IdentificadorConfirmacaoTransacao + CRLF
IF respJson.existeTransacaoPendente = True THEN sRet +="existeTransacaoPendente: Sim" + CR  ELSE sRet +="existeTransacaoPendente: Não" + CR
sRet +="SaldoVoucher: " +                   respJson.SaldoVoucher + CRLF
sRet +="ValorDevido: " +                    respJson.ValorDevido + CRLF
sRet +="NomeEstabelecimento: " +            respJson.NomeEstabelecimento + CRLF
sRet +="PanMascaradoPadrao: " +             respJson.PanMascaradoPadrao + CRLF
sRet +="NomeCartaoPadrao: " +               respJson.NomeCartaoPadrao + CRLF
sRet +="NomePortadorCartao: " +             respJson.NomePortadorCartao + CRLF
sRet +="ModalidadePagamento: " +            respJson.ModalidadePagamento + CRLF
sRet +="IdentificacaoPortadorCarteira: " +  respJson.IdentificacaoPortadorCarteira + CRLF
sRet +="nsuTransacao: " +  respJson.nsuTransacao + CRLF

EDT_RESPOSTAdet.Value  = sRet
// Campos a serem enviados NSU AUTOR DATA/HORA BANDEIRA NRO CARTAO NOME AID ---- PARA COMPUTACAO NOPEADOR E TIPO PAGAMENTO
// BANDEIRA = NomeCartao
// AUTOR = CodigoAutorizacao
// DATAHORA = DataHoraTransacao
// NSU = nsuTransacao

// ----------------NOVOS
//NomePortadorCartao = ROSSI/VALDIR CASSIO
// AId - aidCartao
// PDC = IdentificadorPontoCaptura
//-----------------CAIXA
//Forma de pagamento = NomeProvedor +    TipoCartao (C ou D)

===================

Codigo em Java

===================

import androidx.annotation.NonNull;
import androidx.appcompat.app.AppCompatActivity;
import android.app.Activity;

import java.io.File;
import java.io.FileInputStream;
import java.io.FileOutputStream;

import android.content.Context;
import android.os.Handler;
import android.os.Looper;
import android.os.Message;
import android.widget.Toast;
import android.view.View;

import com.elgin.e1.Pagamento.ElginPay;


public static String Elgin_PagamentoDebito(String sValor)
{
final String retorno = ""; 
ElginPay debito = new ElginPay();
Activity obj = getCurrentActivity();
Handler handler = new Handler(Looper.getMainLooper()) {
@Override
public void handleMessage(@NonNull Message msg) 
{
super.handleMessage(msg);
final String saida = (String) msg.obj;
String retorno = callWLProcedure_String("TrataSaidaHandle",saida);
}
};
debito.iniciarPagamentoDebito(sValor, obj, handler);
return retorno;
};

// Summary: <specify the procedure action>
// Syntax:
// Elgin_PagamentoDebito ()
//
// Parameters:
// sValor= valor a ser debitado
// Return value: callback Json
//procedure Elgin_PagamentoDebito(sValor)

==================










Teste

Teste
teste