dbbrw;Colunas a Exibir;sys_tbbrow; 3; 20;23;70;padrao;;
:SKEL
VARIAVEL znRecn0:=0
VARIAVEL znRecn1:=0
VARIAVEL zOrdem0:=0
VARIAVEL zOrdem1:=0
VARIAVEL znAzul0:=16711680
VARIAVEL znAzul1:=10027008
VARIAVEL zAzul2:=16776960
VARIAVEL zW:=16777215
VARIAVEL zBlack:=0
VARIAVEL zRed:=255
VARIAVEL zGreen:=32768
VARIAVEL znCinza:=8421504
VARIAVEL zYellow:=65535
VARIAVEL zFgUsaCores:=(xGetEnv("USA_CORES_NO_BROWSE")="S")
variavel zbCor:={|| if(fg_sit, {znAzul0,zW,zW,znAzul0}, {zGreen,zW,zW,zGreen} ) }
//22;(_field->fg_sit:="S",DobRefresh());Ins-Inclui ;
//7;(_field->fg_sit:="N",DobRefresh());Del-Apaga ;
//Ordem;Ordem;N;999;5;S;
//32;doget(D_ob);Barra-Altera ;
//Exibe?;if(fg_sit," Nao "," Sim ");P;XXXXXX;6;N;zbCor;
:TBMT
13;(wFgAlterouDados:=.t.,_field->fg_sit:=if(fg_sit,.f.,.t.),DobRefresh());Enter-Seleciona ;
60;(wFgAlterouDados:=.t.,znRecn0:=Recno(),zOrdem0:=Ordem,DbSkip(-1),znRecn1:=Recno(),zOrdem1:=Ordem,if(zOrdem0<>zOrdem1,(DbGoTo(znRecn0),_field->Ordem:=zOrdem1,DbGoTo(znRecn1),_field->Ordem:=zOrdem0,dbSeek(zOrdem1),DobRefresh()),));--Sobe ;
62;(wFgAlterouDados:=.t.,znRecn0:=Recno(),zOrdem0:=Ordem,DbSkip(+1),znRecn1:=Recno(),zOrdem1:=Ordem,if(zOrdem0<>zOrdem1,(DbGoTo(znRecn0),_field->Ordem:=zOrdem1,DbGoTo(znRecn1),_field->Ordem:=zOrdem0,dbSeek(zOrdem1),DobRefresh()),));++Desce ;
:TBFI
Exibe?;fg_sit;L;;6;N;zbCor;
Descricao;desc;C;@S40;40;N;zbCor;
Script;line;C;@S40;40;S;;
