Gostaria de saber se alguem consegue traduzir esse código em VB para java.
Código VB:
Public Sub AprovaCartao( _
ByVal VlDoc As Long, ByVal NumCartao As String, _
ByVal MesVal As Integer, ByVal AnoVal As Integer, _
ByVal CodSeg As String, _
ByRef Resultado As String, ByRef Transacao As String, _
ByRef Autorizacao As String, ByRef Aprovado As Boolean _
)
Dim CobreBem As New CobreBemX.ContaCorrente
Dim Documento As Object
CobreBem.ArquivoLicencaCartoesCredito = "arquivolicenca.conf"
CobreBem.PadroesAprovacaoCartoes.ModoOperacao = moacProducao 'No java 1
Set Documento = CobreBem.DocumentosCobranca.Add
Documento.ValorDocumento = VlDoc / 100
Documento.CartaoCredito.Numero = NumCartao
Documento.CartaoCredito.MesValidade = MesVal
Documento.CartaoCredito.AnoValidade = AnoVal
Documento.CartaoCredito.CodigoSeguranca = CodSeg
Documento.CartaoCredito.QuantidadeParcelas = 1
Documento.CartaoCredito.EnderecoIPComprador = "RecorrENtE"
Aprovado = CobreBem.SolicitaAprovacaoCartao(0)
If Aprovado Then
Resultado = Documento.CartaoCredito.ResultadoSolicitacaoAprovacao
Transacao = Documento.CartaoCredito.Transacao
Autorizacao = Documento.CartaoCredito.CodigoAutorizacao
teste = CobreBem.ConfirmaAprovacaoCartao(0)
'teste = CobreBem.CancelaAprovacaoCartao(0)
Else
Resultado = Documento.CartaoCredito.ResultadoSolicitacaoAprovacao
End If
Set CobreBem = Nothing
End Sub
Exemplo de como fazer em JAVA[size=24] [/size][size=12] [/size]:
// Este exemplo requer JACOB (JAVA-COM Bridge) cujo download está disponível em http://danadler.com/jacob/index.html
import com.jacob.com.;
import com.jacob.activeX.;
public class DispatchTest
{
public static void main(String[] args)
{
ActiveXComponent cbx = new ActiveXComponent(“CobreBemX.ContaCorrente”);
// Monta arquivo de licença de teste para banco 001 carteira 18
cbx.setProperty(“ArquivoLicenca”, “c:\CobreBemX\Exemplos\Licencas\001-18.conf”);
// Monta dados da conta corrente
cbx.setProperty(“CodigoAgencia”, “1234-5”);
cbx.setProperty(“NumeroContaCorrente”, “00000123-X”);
cbx.setProperty(“CodigoCedente”, “123456”);
cbx.setProperty(“InicioNossoNumero”, “00001”);
cbx.setProperty(“FimNossoNumero”, “99999”);
cbx.setProperty(“ProximoNossoNumero”, “00015”);
Object PadroesBoleto = cbx.getProperty("PadroesBoleto").toDispatch();
Object PadroesBoletoImpresso = Dispatch.get(PadroesBoleto, "PadroesBoletoImpresso").toDispatch();
Dispatch.put(PadroesBoletoImpresso, "ArquivoLogotipo", "c:\CobreBemX\Imagens\BannerCBX.gif");
Dispatch.put(PadroesBoletoImpresso, "CaminhoImagensCodigoBarras", "c:\CobreBemX\Imagens\");
// Cria documento de cobrança
Object DocumentosCobranca = cbx.getProperty(“DocumentosCobranca”).toDispatch();
Object Boleto = Dispatch.get(DocumentosCobranca, “Add”).toDispatch();
// Monta dados do sacado
Dispatch.put(Boleto, “NomeSacado”, “Fulano de Tal”);
// Monta dados do documento de cobrança
Dispatch.put(Boleto, “DataVencimento”, “01/10/2002”);
Dispatch.put(Boleto, “NumeroDocumento”, “12345”);
Dispatch.put(Boleto, “ValorDocumento”, 123.45);
cbx.invoke("ImprimeBoletos");
}
}