BlackTDN

#uTCReport : Siga o link e nunca mais imprima o Espelho de Ponto, ou qualquer outro relatório, ainda em R3, em  letras miudas… Utilize o “poder” da classe tReport em conjunto com a “tecnologia” BlackTDN. []s иαldσ dj

Observe o fragmento de código abaixo e deleite-se com uma das maravilhas da evolução da sintaxe xBase no Harbour: O CodeBlock é, de fato, um CodeBlock. 1: METHOD start( xAction, ... ) CLASS THREAD 2:   3: IF ::active 4: RETURN .F. 5:   6: ELSE 7: ::pThreadID := hb_threadStart( HB_THREAD_INHERIT_PUBLIC, ; 8: {| ... | 9: LOCAL nTime 10:   11: ThreadObject( Self ) 12:   13: ::active := .T. 14: ::startCount++ 15:   16: IF HB_ISNUMERIC( ::startTime ) 17: nTime := ::startTime - Seconds() 18: IF nTime < 0 19: nTime += 86400 20: ENDIF 21: hb_idleSleep( nTime ) 22: ::startTime := NIL 23: ENDIF 24:   25: ::atStart( ... ) 26: IF HB_ISBLOCK( ::_atStart )