Pagamento Crédito

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/

            IDetalhesCredito detalhes = new DetalhesCredito
            {
                TransacaoParcelada = true,
                QuantidadeParcelas = 3,
                TipoParcelamento = 1 //Parcelamento Administradora
            };

            int resultado = cappta.PagamentoCredito(10D, detalhes);
            if (resultado != 0)
            {
                Console.WriteLine("Não foi possível iniciar a operação. Código de erro {0}", resultado);
                return;
            }

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

program cappapiintegration;

uses Cappta_Gp_Api_Com_1_0_TLB, SysUtils;

var
  cappta : IClienteCappta;
  resultado : integer;
  detalhes : IDetalhesCredito;

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

  detalhes := CoDetalhesCredito.Create;  
  detalhes.Set_TransacaoParcelada(true);
  detalhes.Set_QuantidadeParcelas(3);
  detalhes.Set_TipoParcelamento(1); // -- Parcelamento administradora --

  resultado := cappta.PagamentoCredito(10, detalhes);
  if resultado <> 0 then
  begin
       WriteLn(Format('Não foi possível iniciar a operação. Código de erro %d', [resultado]));
       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 ClienteCappta = New ClienteCappta()

        Dim details As IDetalhesCredito = New DetalhesCredito
        details.QuantidadeParcelas = 3
        details.TipoParcelamento = 1
        details.TransacaoParcelada = True

        Dim resultado = cappta.PagamentoCredito(10, details)
        If resultado <> 0 Then

            Console.WriteLine("Não foi possível iniciar a operação")
            Return
        End If

    End Sub
End Module