ACBRCTE não consigo fazer receber dados...

[igmaster2000]

Pessoal, qdo tento passar valores para os campos da celula não aceita, porque?

sera que so aceita com o Demo_ACBrCTe.cfg, ou poe ser com dados de um banco de dados.

if dm.SQ25TIPO.Value = '0' then

Ide.forPag := fpPago

else

Ide.forPag := fpAPagar;}

Ide.modelo := '57';

Ide.serie := 8;

Ide.nCT := strtoint(conhecimento.Text);

Ide.dhEmi := Now;

Ide.tpImp := tiRetrato;

// TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA);

if dm.SQ28TIPO.Value = '0' then

Ide.tpEmis := teNormal;

if dm.SQ28TIPO.Value = '1' then

Ide.tpEmis := teContingencia;

if dm.SQ28TIPO.Value = '2' then

Ide.tpEmis := teSCAN;

if dm.SQ28TIPO.Value = '3' then

Ide.tpEmis := teDPEC;

if dm.SQ28TIPO.Value = '4' then

Ide.tpEmis := teFSDA;

// TpcnTipoAmbiente = (taProducao, taHomologacao);

if dm.Query1AMBIENTE.Value = 'HOMOLOGACAO' then

Ide.tpAmb := taHomologacao;

if dm.Query1AMBIENTE.Value = 'PRODUCAO' then

Ide.tpAmb := taProducao;

// TpcteTipoCTe = (tcNormal, tcComplemento, tcAnulacao, tcSubstituto);

IF dm.SQ26TIPO.Value = '0' then

Ide.tpCTe := tcNormal;

IF dm.SQ26TIPO.Value = '1' then

Ide.tpCTe := tcComplemento;

IF dm.SQ26TIPO.Value = '2' then

Ide.tpCTe := tcAnulacao;

IF dm.SQ26TIPO.Value = '3' then

Ide.tpCTe := tcSubstituto;

// TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco);

// Ide.procEmi := peAplicativoContribuinte;

[Italo Giurizzato Junior]

Boa noite,

Onde esta o erro no trecho postado acima?

[igmaster2000]

em todas as linhas que tento passar os parametros, sinceramente não consigo entender porque ele não aceita...

[Italo Giurizzato Junior]

Você acrescentou em uses a unit pcnConversao no seu form?