Pesquisar na Comunidade

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;