Clipper On Line • Ver Tópico - HARUPDF numerar páginas no final

HARUPDF numerar páginas no final

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

HARUPDF numerar páginas no final

Mensagempor Softwhouse » 07 Dez 2018 14:12

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 ?
Fernando
Softwhouse
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 300
Data de registro: 07 Dez 2011 17:44
Cidade/Estado: Porto Alegre/RS
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

HARUPDF numerar páginas no final

Mensagempor JoséQuintas » 07 Dez 2018 14:38

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.

FOR EACH oPage IN aPageList
   ? oPage:__EnumIndex, oPage:__EnumLast
NEXT
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

HARUPDF numerar páginas no final

Mensagempor JoséQuintas » 07 Dez 2018 14:39

Acho que o XHarbour tem de outra forma.
Agora resta saber se a sua Minigui é com Harbour ou XHarbour.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

HARUPDF numerar páginas no final

Mensagempor alxsts » 07 Dez 2018 15:29

Olá!

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

Exemplo extraído do xHarbour Language Reference Guide:
// 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
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

HARUPDF numerar páginas no final

Mensagempor JoséQuintas » 07 Dez 2018 15:42

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


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

FOR EACH SalaDeAula IN Escola
   FOR EACH Aluno IN SalaDeAula
      ? "aluno ", Aluno:__EnumIndex, "sala", SalaDeAula:__EnumIndex
   NEXT
NEXT
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

HARUPDF numerar páginas no final

Mensagempor Softwhouse » 07 Dez 2018 15:52

Olá José, a Minigui que uso é com o Harbour, uso sempre a última versão.
Fernando
Softwhouse
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 300
Data de registro: 07 Dez 2011 17:44
Cidade/Estado: Porto Alegre/RS
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

HARUPDF numerar páginas no final

Mensagempor JoséQuintas » 07 Dez 2018 15:56

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.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

HARUPDF numerar páginas no final

Mensagempor alxsts » 07 Dez 2018 16:13

Olá!
JoséQuintas escreveu:Então isto seria impossível no Xharbour...

LOCAL nEnum

FOR EACH SalaDeAula IN Escola
   nEnum := hb_EnumIndex()
   FOR EACH Aluno IN SalaDeAula
      ? "aluno ", hb_EnumIndex(), "sala", nEnum
   NEXT
NEXT
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro