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)

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