Numero do elemento no For Each

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

Numero do elemento no For Each

Mensagem por rubens »

Boa tarde..

Como eu pego o numero do elemento do for each. No codigo abaixo dei um jeitinho, mas deve ter como fazer isso pegando a informação no for each.

Código: Selecionar todos

	   		nNumero := 0
	   		cTexto := 'Numero Vencimento  Valor'
	   	
				For EACH oDuplicata IN ( oNfe:Duplicata )
					
					nNumero ++
					cTexto += StrZero(nNumero,3) +' '+Dtoc(oDuplicata:Vencimento)+' '+Tran(oDuplicata:Valor,pi12)+hb_eol()
				
   			Next
Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20453
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

Numero do elemento no For Each

Mensagem por JoséQuintas »

Em Harbour, é usando o próprio nome da variável do FOR/EACH.

Código: Selecionar todos

FOR EACH oDuplicata IN ....
   ? oDuplicata:__EnumIndex
NEXT
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"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 do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

Numero do elemento no For Each

Mensagem por rubens »

Bom dia...

Obrigado José Quintas..

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Responder