VB_ABAST;Abastecimentos de Motos;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL zNIL = VB_ABAST->( abra("0",r_siga,"VB_MOTOS","VB_MOTOS"), abra("0",r_siga,"VB_ENT","VB_ENT") )
COMANDO SAIDA DbCloseAll()
// 65;tb_update(D_OB);A-Altera ;
// 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
// 73;lst_alias(D_OB);I-Imprime ;
// 32;tb_cons();Barra-Exibe ;
:TBMT
 22;vb_abast_moto(D_OB);Ins-Inclui ;
 13;doget(D_ob);Enter-Edita ;
  7;tb_del(D_ob);DEL-DELeta ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
:TBFI
Data;DATA;D;;  8;;
Moto;MOTO;N;999;  4;;
Placa;vb_motos->( DbGoTo(vb_abast->Moto), AllTrim(Placa)+" "+Desc);P;@s20; 20;N;
Entreg;EntGd;N;999;  6;;
Nome Entregador;vb_ent->( DbGoTo(vb_abast->EntGd), Nome);P;@s25; 25;N;
Km_Abast;KM_ABAST;N;9999999;  8;;
Litros;LITROS;N;99; 4;;
Valor;VALOR;N;9999.99; 12;;
