VB_FPAG;Formas de Pagamento Padroes;sys_tbbrow; 5; 0;20;79;psq_brow;;
//*FOBS;FOBS;M;9Memo]; 10;;
//Codigo;Rec_del();C;X99999;  6;N;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
#variavel sys_plpags = if(type("sys_plpags")="U","//",sys_plpags)
#VARIAVEL zFiltro=if(x_ger.or.x_sup, '', 'fsenhager<>"S".and.')+'"/"+alltrim(pdesc)+"/"<>"//".and.(sys_plpags="//".or.ltrim(Str(fplanopag,3))$sys_plpags)'
#VARIAVEL zFiltro=if(x_ger.or.x_sup, '', 'fsenhager<>"S".and.')+'"/"+alltrim(pdesc)+"/"<>"//"
#COMANDO ANTES Z_NIL = dbSetFilter( _CreateBlock(zFiltro), zFiltro )
COMANDO ANTES Z_NIL = dbGOTOP()
:TBMT
 13;psq_enter();Enter-Confirma ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
 67;tb_locate(D_OB);C-Continua_Busca ;
:TBFI
Codigo;fplanopag;N;999;  3;N;
Descricao;PDESC;C;@S35; 30;S;
MaxP;FPARCELAS;N;99;4;;
%ConvVnd;fdscvnd;N;999.99;6;;
%PromVnd;fprmdscvnd;N;999.99;6;;
%ConvGer;fdscger;N;999.99;6;;
%PromGer;fprmdscger;N;999.99;6;;
SoGer;fsenhager;C;!;5;;
DscMin;PDESCONTO;N;999.99; 6;;
DscMax;FDESCONTO;N;999.99; 6;;
Data_Cad;PDATACAD;D;;  8;;
Validade;PDATAPROG;D;;  8;;
Fp;FTIPOVEN;N;9;2;;
Val_Minimo;FVAL;N;9999999.99; 10;;
PrazoMax;FBOMPARA;D;;8;;
So_TipC;CR_TIP_CLI;C;x;7;;
So_Banco;FBANCO;N;999;8;;
So_TV;FTV;C;x;5;;
So_Cli;FCLI;N;999999;6;;
So_Cartao;FCARTAO;N;999;9;;
Prods_Min;FTOTPROD;N;9999;9;;
Unids_Min;FTOTUNID;N;999999;9;;
