HARUPDF numerar páginas no final

[Softwhouse]

Li em outro tópico sobre numerar páginas usando HARUDF no final. Tentei adaptar para minigui e não reconheceu _EnumIndex e _EnumLast. Tem que acrescentar algo ?

[JoséQuintas]

Levei um tempinho pra entender a frase.... rs

Tem que ser Harbour
E isso é aplicado à variável do loop, como propriedade, ou se ficar mais fácil pra entender, como sub-variável.

Código: Selecionar todos

FOR EACH oPage IN aPageList
   ? oPage:__EnumIndex, oPage:__EnumLast
NEXT

[JoséQuintas]

Acho que o XHarbour tem de outra forma.
Agora resta saber se a sua Minigui é com Harbour ou XHarbour.

[alxsts]

Olá!

No xHarbour, tem na forma de função: Hb_EnumIndex().

Exemplo extraído do xHarbour Language Reference Guide:

Código: Selecionar todos

// The example compares a regular FOR..NEXT loop with a
// FOR EACH loop. FOR..NEXT uses a loop counter while FOR EACH
// does not. Instead, the "loop counter" is retrieved with
// function HB_EnumIndex().

   PROCEDURE Main
      LOCAL aArray1 := { "A", "B", "C" }
      LOCAL aArray2 := { "a", "b", "c" }
      LOCAL i, cValue

      CLS

      ? "FOR loop"

      FOR i:=1 TO Len( aArray1 )
         ? i, aArray1[i]

         IF i == 3
            AAdd( aArray1, "D" )
         ENDIF
      NEXT

      ?
      ? "FOR EACH loop"

      FOR EACH cValue IN aArray2
         ? HB_EnumIndex(), cValue

         IF HB_EnumIndex() == 3
            AAdd( aArray2, "d" )
         ENDIF
      NEXT
   RETURN

EnumIndex

[JoséQuintas]

No xHarbour, tem na forma de função: Hb_EnumIndex().

Se for assim é ruim, hein?
Então isto seria impossível no Xharbour...

Código: Selecionar todos

FOR EACH SalaDeAula IN Escola
   FOR EACH Aluno IN SalaDeAula
      ? "aluno ", Aluno:__EnumIndex, "sala", SalaDeAula:__EnumIndex
   NEXT
NEXT

[Softwhouse]

Olá José, a Minigui que uso é com o Harbour, uso sempre a última versão.

[JoséQuintas]

Ok.
Então repare que são dois traços e não apenas um, como colocou no início... e sempre com a variável do loop em questão.

[alxsts]

Olá!

Então isto seria impossível no Xharbour...

Código: Selecionar todos

LOCAL nEnum

FOR EACH SalaDeAula IN Escola
   nEnum := hb_EnumIndex()
   FOR EACH Aluno IN SalaDeAula
      ? "aluno ", hb_EnumIndex(), "sala", nEnum 
   NEXT
NEXT