Paf_R Sem Usar O With

[Warquia]

Bom dia, Após atualiza os componentes o Acbr me Obrigou a colocar na geração do Movimento Por Ecf(PAF_R) O precedente .new

pois bem segue o exemplo:

 

ACBrPAF.PAF_R.RegistroR01.New.NUM_FAB           := Impressora.Serie;

ACBrPAF.PAF_R.RegistroR01.New.MF_ADICIONAL  :=Impressora.MFD;

 

O problema e que agora as linha ficam Duplicadas por causa de cada Create(new), gerando assim o uso do WITH, 

Teria com deixar de usar o WITH? pois o mesmo não deixa Debugar nos atributos.

 

 

[Cleber Ferreira]

Só se você utilizar o ACBrPAF.PAF_R.RegistroR01.Items[x]

 

aí você teria que saber qual o índice de x. No caso se for apenas um registro R01 creio que o x deva ter valor 0(zero). 

[EMBarbosa]

Acho que você não entendeu o objetivo de ACBrPAF.PAF_R.RegistroR01.New e nem da cláusula WITH.

Seria melhor você aprender um pouco mais sobre os dois e entender o que fazem.

 

De qualquer maneira, tente algo como o seguinte:

var
  tempR01: TRegistroR01;
begin
  tempR01 := ACBrPAF.PAF_R.RegistroR01.New;
  tempR01.NUM_FAB       := Impressora.Serie;
  tempR01.MF_ADICIONAL  := Impressora.MFD;

[Warquia]

Tive que criar um Objeto passando  .new

 

  RegistroR01                   := FDataModule.ACBrPAF.PAF_R.RegistroR01.New;

  RegistroR01.NUM_FAB  := Impressora.Serie;

  RegistroR01.NUM_FAB  := Impressora.MFD;

 

Obrigado. Amigos..

[Warquia]

Ops, EMBarbosa deu a mesma dica,

 

 

Obrigado a todos..

[EMBarbosa]

Essa era a ideia.

Não esqueça que você pode marcar o tópico como resolvido.

[Warquia]

EMBarbosa o Botão de "Resolvido" não está aparecendo.

[EMBarbosa]

Acredito que deva ser algum problema com seu usuário.

Por favor, faça um post naquele tópico dizendo que você não consegue ver o botão resolvido. Isso pode ajudar os Administradores a verificar.