Servidor BETHA CondicaoPagamento

[amnchaves]

Caros colegas.

Não estou conseguindo definir a CONDIÇÃO DE PAGAMENTO do servidor BETHA.

Por exemplo:

CondicaoPagamento.Condicao := cpAPrazo;;

 

 

No XML é gerado sempre A_VISTA.

Alguém ja passou por isso e pode me dar uma ajuda?

[Italo Giurizzato Junior]

Bom dia Chaves,

Você informou a quantidade de marcelas?

Informou as parcelas?

Segue exemplo:

      // Condição de Pagamento usado pelo provedor Betha versão 1 do Layout da ABRASF
      CondicaoPagamento.QtdParcela := 2;
      CondicaoPagamento.Condicao   := cpAPrazo;

      for i := 1 to CondicaoPagamento.QtdParcela do
      begin
        with CondicaoPagamento.Parcelas.New do
        begin
          Parcela := i;
          DataVencimento := Date + (30 * i);
          Valor := (Servico.Valores.ValorLiquidoNfse / CondicaoPagamento.QtdParcela);
        end;
      end;