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: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

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, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, 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