====================
// 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)
==================