A primeira tela com locadores, pessoas que alugam casas, mostrando totais mes a mes.
A função de usuário no codeblock é NavegaLocatario()
STATIC FUNCTION NavegaLocador()
LOCAL dData, nCont
LOCAL oTBrowse := { ;
{ "NOME", { || templocador->Nome } }, ;
{ "LOCADOR", { || templocador->Locador } } }
dData := UltDia( Ctod( "01/01/" + StrZero( Year( Date() ) - 1, 4 ) ) )
FOR nCont = 1 TO 36
AAdd( oTBrowse, { Substr( Dtoc( dData ), 4 ), LocadorColMesBlock( dData, 1 ) } )
dData := UltDia( dData + 1 )
NEXT
Cls()
SELECT templocador
GOTO TOP
DO WHILE .T.
Mensagem( "ENTER Locatários do locador, ESC Sai" )
DBView( 2, 0, MaxRow() - 4, MaxCol(), oTBrowse, { | oBrowse, nKey | NavegaLocatario( oBrowse, nKey, templocador->Locador ) }, 1 )
IF LastKey() == K_ESC
EXIT
ENDIF
ENDDO
RETURN NIL