Eu estou mandando as informações para o componente ACBrBlocoX e esta me retornando o erro (O elemento 'Produto' apresenta elemento filho 'Codigo' inválido. Lista de possíveis elementos esperados: 'CodigoGTIN') a parte onde passo as informações é
while not q.eof do
begin
with Produtos.Add do
begin
Codigo.CodigoNCMSH := q.fieldbyname('cd_cf').AsString;
Aliquota := q.fieldbyname('aliquota').AsFloat;
Data.cCodigo := q.fieldbyname('cd_peca').AsString;
Data.cDescricao := q.fieldbyname('ds_peca').AsString;
Data.cQuantidade := q.fieldbyname('qt_estoque').AsString;
Codigo.CodigoCEST := q.fieldbyname('cd_cest').AsString;
Codigo.Tipo := TACBrBlocoX_TipoCodigo(q.fieldbyname('tipo').AsInteger);
Codigo.CodigoGTIN := q.fieldbyname('cd_barra').AsString;
Codigo.CodigoProprio := q.fieldbyname('cd_peca').AsString;
Descricao := q.fieldbyname('ds_peca').AsString;
ValorUnitario := q.fieldbyname('vl_preco').AsFloat;
Ippt := TACBrBlocoX_Ippt(q.fieldbyname('ippt').AsInteger);
SituacaoTributaria := TACBrBlocoX_SitTributaria(q.fieldbyname('tributacao').AsInteger);
Unidade := q.fieldbyname('cd_uni').AsString;
Quantidade := q.fieldbyname('qt_estoque').AsFloat;
IndicadorArredondamento := False;
AddVSTStructure(VTA, nil, Data);
end;
q.next;
end;