Pagamento Débito / Voucher

using System;
using Cappta.Gp.Api.Com;

namespace CappAPIIntegration
{
    class Program
    {
        static void Main(string[] args)
        {
            //Não esqueça de realizar a autenticação aqui \o/

            int resultado = cappta.PagamentoDebito(100);
            if (resultado != 0)
            {
                Console.WriteLine("Não foi possível iniciar a operação");
                return;
            }

            //Agora basta continuar o fluxo de iteração do pagamento
        }
    }
}

program cappapiintegration;

uses Cappta_Gp_Api_Com_1_0_TLB;

var
  cappta : IClienteCappta;
  resultado : integer;

begin
  // -- Não esqueça de realizar a autenticação aqui \o/ --

  resultado := cappta.PagamentoDebito(10);
  if resultado <> 0 then
  begin
       WriteLn('Não foi possível iniciar a operação');
       exit;
  end;

  // -- Agora basta continuar o fluxo de iteração do pagamento --
end.

Imports Cappta.Gp.Api.Com
Imports Cappta.Gp.Api.Com.Model

Module Module1
    Sub Main()

        Dim cappta As New ClienteCappta()

        'Não esqueça de realizar a autenticação aqui \o/
					
        Dim resultado = cappta.PagamentoDebito(100)
        If resultado <> 0 Then
            Console.WriteLine("Não foi possível realizar a operação.")                
            Return
        End If

    End Sub
End Module

Private Sub ExecutarDebito_Click()
    
    If DeveIniciarMultiCartoes() Then
        IniciarMultiCartoes
    End If
     
    Dim valor As Double
    valor = CDbl(TxtValorPagamentoDebito.Text)
    
     If DeveIniciarMultiCartoes() Then
        IniciarMultiCartoes
    End If
        
    Dim resultado As Long
    resultado = cappta.PagamentoDebito(valor)
    
    If resultado <> 0 Then
        CriarMensagem (MensagensPainel.mensagem(resultado))
        Exit Sub
    End If
    
    processandoPagamento = True
    Call IterarOperacaoTef(cappta)
    
End Sub

private void PagamentoDebitoActionPerformed(java.awt.event.ActionEvent evt) {//GEN-FIRST:event_jButtonPagamentoDebitoActionPerformed
        if (this.DeveIniciarMultiCartoes()) {
            this.IniciarMulticartoes();
        }

        double valor = Double.parseDouble(jTextFieldValorDebito.getText());
        if(valor <= 0  ){
            CriarMensagemErroJanela("Por favor preencha com o valor");
            return;
        }
        if (this.DeveIniciarMultiCartoes()) {
            this.IniciarMulticartoes();
        }

        cappta.pagamentoDebito(valor);

        processandoPagamento = true;
        IterarOperacaoTef();
    }