Incompatible types: 'TpcnindRegra' and 'string'

[atiagocl]

Bom Noite.

Alguém me da uma luz de como fazer:

Armazenei todos os itens dos produtos no banco , então no cadastro do meu produto esta +- assim:
EX de como esta no cadastro do banco de dados:

produto 1
PIS.CST = 'pis49'
COFINS.CST  = 'cof49'
indRegra = 'irArredondamento'

No gerar venda apresenta os seguintes erros:

Incompatible types: 'TpcnindRegra' and 'string':
 Incompatible types: 'TpcnOrigemMercadoria' and 'string'
 Incompatible types: 'TpcnCSTIcms' and 'string'
 Incompatible types: 'TpcnCSOSNIcms' and 'string'
 Incompatible types: 'TpcnCstPis' and 'string'
 Incompatible types: 'TpcnCstCofins' and 'string'

****Código abaixo.  (Queria saber de um jeito de utiizar esses valores que armazenei no banco de dados, ou alguam forma de conversão.) 

       Prod.indRegra := dm_dados.tbl_saida_produtoIAT.AsString;           //   irTruncamento ou irArredondamento;
        Prod.qCom     := dm_dados.tbl_saida_produtoSAIPROD_QUANTIDADE.AsInteger;
        Prod.vUnCom   := dm_dados.tbl_saida_produtoSAIPROD_VALORPRODUTO.AsCurrency;
        Prod.vDesc    := dm_dados.tbl_saida_produtoSAIPROD_DESCONTO.AsCurrency;
        Prod.vOutro   := dm_dados.tbl_saida_produtoSAIPROD_MAODEOBRA.AsCurrency;      

        Imposto.ICMS.orig  := dm_dados.tbl_saida_produtoORIGEMDOPRODUTO.AsString;
        if ACBrSAT1.Config.emit_cRegTrib = RTRegimeNormal then
        begin
          Imposto.ICMS.CST   := dm_dados.tbl_saida_produtoICMS_CST.AsString;
          Imposto.ICMS.pICMS := dm_dados.tbl_saida_produtoICMS_pICMS.AsCurrency;       //Alíquota efetiva do imposto
        end
        else
        begin
          Imposto.ICMS.CSOSN := dm_dados.tbl_saida_produtoICMS_CSOSN.AsString;
        end;

        Imposto.PIS.CST  := dm_dados.tbl_saida_produtoPIS_CST.AsString;
        Imposto.PIS.vBC  := dm_dados.tbl_saida_produtoPIS_vBC.AsCurrency;    //Valor da Base de Cálculo do PIS
        Imposto.PIS.pPIS := dm_dados.tbl_saida_produtoPIS_pPIS.AsCurrency;    //Alíquota do PIS (em percentual)    Ex. Se a alíquota for 0,65% informar 0,0065

        Imposto.COFINS.CST     := dm_dados.tbl_saida_produtoCOFINS_CST.AsString;
        Imposto.COFINS.vBC     := dm_dados.tbl_saida_produtoCOFINS_vBC.AsCurrency;        //Valor da Base de Cálculo da  COFINS
        Imposto.COFINS.pCOFINS := dm_dados.tbl_saida_produtoCOFINS_pCOFINS.AsCurrency; 

 

Obrigado 

[atiagocl]

Resolvi modificando o código e adicionado Case.
Deu mais trabalho mais deu certo.

 

Att.,

[Sérgio Assunção]

A pcnConversao contém vários tipos de conversões.