*******************************
function pesq_orca
*******************************
SELE ORCAMENTO
TELA_ORC := SAVESCREEN( LIN_MENU + 1, 00, 23, 79 )
DBGOTOP()
COR( "MENU" )
JANELA( 03, 02, 21, 77, "Consulta Or‡amento" )
L_CON := L_SOM; C_CON := C_SOM
COR( "MENU" )
@ 05, 04 CLEAR TO 19, 75
@ 05, 04 SAY SUBS( TB_JANELA, 1, 1 ) +;
REPL( SUBS( TB_JANELA, 2, 1 ), 70 ) + SUBS( TB_JANELA, 3, 1 )
@ 06, 04 SAY SUBS( TB_JANELA, 12, 1 )
@ 06, 75 SAY SUBS( TB_JANELA, 4, 1 )
@ 07, 04 SAY SUBS( TB_JANELA, 11, 1 )
@ 07, 75 SAY SUBS( TB_JANELA, 5, 1 )
FOR CONTAR = 8 TO 18
@ CONTAR, 04 SAY SUBS( TB_JANELA, 10, 1 )
@ CONTAR, 75 SAY SUBS( TB_JANELA, 6, 1 )
NEXT
@ 19, 04 SAY SUBS( TB_JANELA, 9, 1 ) +;
REPL( SUBS( TB_JANELA, 8, 1 ), 70 ) + SUBS( TB_JANELA, 7, 1 )
OBJETO := TBROWSEDB( 06, 05, 19, 74 )
OBJETO:HEADSEP := TB_SEP_CAB
OBJETO:COLSEP := TB_SEP_LIN
OBJETO:FOOTSEP := TB_RODAPE
OBJETO:COLORSPEC := CONTECOR[ 2 ] + "," + CONTECOR[ 3 ] + "," + TB_COR_DEL
OB_COLUN := TBCOLUMNNEW( "Or‡amento", { || ORCAMENTO->NUMNOT } )
OB_COLUN:PICTURE := "999999"
OBJETO:ADDCOLUMN(OB_COLUN)
OB_COLUN := TBCOLUMNNEW( "Data Or‡amento", { || ORCAMENTO->DATVEN } )
OB_COLUN:PICTURE := "99-99-99"
OBJETO:ADDCOLUMN(OB_COLUN)
OB_COLUN := TBCOLUMNNEW( "Nome Cliente", { || ORCAMENTO->NOMCLI } )
OB_COLUN:PICTURE := "@S30"
OBJETO:ADDCOLUMN(OB_COLUN)
COR( "MENU" )
WHILE .T.
WHILE ( !OBJETO:STABILIZE() )
IF ( TECLA := INKEY() ) != 0
EXIT
ENDIF
ENDDO
IF OBJETO:STABLE
SETCOLOR( CONTECOR[ 5 ] )
@ 22, 04 SAY STRZERO( RECN(), 7 ) + " " + IIF( DELETED(), "Del", " " )
TECLA := INKEY( 0 )
ENDIF
IF TECLA == T_CIMA
OBJETO:UP()
ELSEIF TECLA == T_BAIXO
OBJETO:DOWN()
ELSEIF TECLA == T_ESQUERDA
OBJETO:LEFT()
ELSEIF TECLA == T_DIREITA
OBJETO:RIGHT()
ELSEIF TECLA == T_HOME
GO TOP
OBJETO:REFRESHALL()
ELSEIF TECLA == T_END
GO BOTT
OBJETO:REFRESHALL()
ELSEIF TECLA == T_PGUP
OBJETO:PAGEUP()
ELSEIF TECLA == T_PGDN
OBJETO:PAGEDOWN()
ELSEIF TECLA == T_CTRL_PGUP
OBJETO:GOTOP()
ELSEIF TECLA == T_CTRL_PGDN
OBJETO:GOBOTTOM()
ELSEIF TECLA == T_CTRL_HOME
OBJETO:PANHOME()
ELSEIF TECLA == T_CTRL_END
OBJETO:PANEND()
ELSEIF TECLA == T_CTRL_ESQUERDA
OBJETO:PANLEFT()
ELSEIF TECLA == T_CTRL_DIREITA
OBJETO:PANRIGHT()
ELSEIF TECLA == T_ESC
M->NUMORC:=VAL(NUMNOT)
RESTSCREEN( LIN_MENU + 1, 00, 23, 79, TELA_ORC )
COR( "GETS" )
RETURN
ELSEIF TECLA = T_ENTER
M->NUMORC:=VAL(NUMNOT)
RESTSCREEN( LIN_MENU + 1, 00, 23, 79, TELA_ORC )
COR( "GETS" )
RETURN
ENDIF
ENDDO
#define TB_COR_DEL CONTECOR[ 4 ] // Cor dos registros DELETADOS
#define TB_RODAPE "ÄÁÄ" // Caracteres para o rodape do TBROWSE
#define TB_SEP_LIN " ³ " // Separadores de coluna do TBROWSE
#define TB_SEP_LI1 "³" // Separadores de coluna do TBROWSE
#define TB_SEP_CAB "ÄÂÄ" // Separadores do cabecalho do TBROWSE
#define TB_SEP_CA1 "ÂÄ" // Separadores do cabecalho do TBROWSE
#define TB_JANELA "ÚÄ¿³´³ÙÄÀ³Ã³"
Enfim não uso mais, tudo gráfico agora :)) :)) :))
coloca no editor com pagina de código 850