ACBrOpenDelivery - Argument out of range ao obter dados de um pedido

[alankoba]

Estou com o erro Argument out of range ao obter detalhes de um pedido com complementos.

O arquivo JSON consta como válido no validador da Abrasel.

Em anexo o JSON do pedido.

json-order.txt

[Juliomar Marchetti]

Depura o código e veja o que ele trás ou carrega o mesmo. assim consegue ter um ponto

[alankoba]

O erro estava no exemplo - Segue a correção.

Demo VCL

UntMain.pas
 

procedure TFMain.btnOrderGetDetailsClick(Sender: TObject);
var
  I: Integer;
  ItemOption: TACBrOpenDeliverySchemaOrderItemOption;
// ...


  for I := 0 to Pred(ACBrOpenDelivery1.Order.items[0].options.Count) do
  begin
    ItemOption := ACBrOpenDelivery1.Order.items[0].options[I];
    DM.cdsOptions.Append;

    DM.cdsOptionsID.AsString := ItemOption.id;
    DM.cdsOptionsName.AsString := ItemOption.name;
    DM.cdsOptionsexternalCode.AsString := ItemOption.externalCode;
    DM.cdsOptionsUnit.AsString := ItemOption._unit;
    DM.cdsOptionsQuantity.AsFloat := ItemOption.quantity;
    DM.cdsOptionsunitPriceValue.AsCurrency := ItemOption.unitPrice.value;
    DM.cdsOptionsunitPriceCurrency.AsString := ItemOption.unitPrice.currency;
    DM.cdsOptionstotalPriceValue.AsCurrency := ItemOption.totalPrice.value;
    DM.cdsOptionstotalPriceCurrency.AsString := ItemOption.totalPrice.currency;
    DM.cdsOptionsspecialInstructions.AsString := ItemOption.specialInstructions;

    DM.cdsOptions.Post;
  end;

Explicação:

O exemplo estava tentanto acessar um item inválido (só tem um). O indice do laço só é válido para os options, e não para o item. 

[Juliomar Marchetti]

anexa a unit com a mudança

[alankoba]

UntMain.pas

 

Em anexo a Unit com as correções.

[Juliomar Marchetti]

No SVN