Utilizar CASE dentro de um Form Secundário

[Lynkin]

Olá, tenho uma dúvida em uma aplicação... eu tenho uma tela de escrituração de notas, na qual eu importo os XML's que quiser... agora estou fazendo uma auxiliar que permite que o usuário selecione vários XML de uma vez e importe, assim, eu chamo a tela original de escrituração oculta e vou dando insert a cada arquivo lido no loop. O problema é que quando existem items na qual utilizo Case.. não consigo fazer, segue exemplo:

 

case Frm_Escrituracao_Notas.AcBrNFe.NotasFiscais.Items[0].NFe.Ide.indPag of
        TpcnIndicadorPagamento(0) : Frm_Escrituracao_Notas.CDS_CADASTROIDE_INDPAG.AsString := '0'; // VISTA
        TpcnIndicadorPagamento(1) : Frm_Escrituracao_Notas.CDS_CADASTROIDE_INDPAG.AsString := '1'; // PRAZO
        TpcnIndicadorPagamento(2) : Frm_Escrituracao_Notas.CDS_CADASTROIDE_INDPAG.AsString := '2'; // OUTROS
end;

 

Não consigo compilar pq não acha os TpcnIndicadorPagamento dentro do case na tela secundária...

 

Alguém pode me ajudar?

[hleorj]

Segue @Lynkin

  case Frm_Escrituracao_Notas.AcBrNFe.NotasFiscais.Items[0] .FNFe.Ide.indPag of
    ipVista:  Frm_Escrituracao_Notas.CDS_CADASTROIDE_INDPAG.AsString := '0'; // VISTA              

   ipPrazo:   Frm_Escrituracao_Notas.CDS_CADASTROIDE_INDPAG.AsString := '1'; // PRAZO

    ipOutras:  Frm_Escrituracao_Notas.CDS_CADASTROIDE_INDPAG.AsString := '2'; // OUTROS
  end;

 

 

Ou 

Frm_Escrituracao_Notas.CDS_CADASTROIDE_INDPAG.AsString :=  IndpagToStr( Frm_Escrituracao_Notas.AcBrNFe.NotasFiscais.Items[0] .FNFe.Ide.indPag );

[hleorj]

Não esqueça de adicionar o arquivo pncconversao.pas no uses.

[Lynkin]

Opa, muito obrigado!

[hleorj]

7 minutos atrás, Lynkin disse:

Opa, muito obrigado!

Dica ...

Estude ACBrNFeDANFEFRDM.pas em ..\Acbr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast

e

ACBrNFeDANFeRLRetrato.pas em ...Acbr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes

 

E volte a postar daqui a 15 dais .. com o seu resultado.