Pagamento Crediário

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/

            IDetalhesCrediario detalhes = new DetalhesCrediario
            {
                QuantidadeParcelas = 3
            };

            int resultado = cappta.PagamentoCrediario(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 : IDetalhesCrediario;

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

  detalhes := CoDetalhesCrediario.Create;
  detalhes.Set_QuantidadeParcelas(3);

  resultado := cappta.PagamentoCrediario(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()
        'Não esqueça de realizar a autenticação aqui \o/

        Dim cappta As ClienteCappta = New ClienteCappta()

        Dim detailsCrediario = New DetalhesCrediario
        detailsCrediario.QuantidadeParcelas = 3

        Dim resultado = cappta.PagamentoCredito(10, detailsCrediario)
        If resultado <> 0 Then
            Console.WriteLine("Não foi possível iniciar a operação. Código de erro:", resultado)
            Return
        End If
        'Agora basta continuar o fluxo de iteração do pagamento
    End Sub
End Module