ARR_PED;Pedidos a Fornecedores;sys_tbbrow; 5; 7;20;57;arr_ped;;
:TBMT
 13;slped(nrow,"SP_MOVF");Enter-Altera ;
  7;dlped(nrow,D_oB,.t.);Del-Cancela ;
 69;pf_etiq(nrow,"P");E-Etiquetas ;
 22;novo_ped(D_OB);Ins-Cria Pedido;
 80;exped(nrow,D_oB,.F.);P-ExPorta Pedido;
 78;pf_espimport(nrow,D_oB,.t.);I-Importa_PN ;
 65;atped(nrow,D_oB,0);A-Atualiza_Dic;
 84;atua_trn();T-Atualiza_Reservas ;
 32;ConfSug(nrow,d_ob);Barra-Prev_Pagto ;
:TBFI
Fornecedor;v_ped[1,nrow];C;@s20; 20;;
Ped;substr(v_ped[2,nrow],if(s_e_4forn="S",6,5),if(s_e_4forn="S",3,4));C;@s4;  4;;
Data       Hora;v_ped[3,nrow];C;@s17; 17;;
