SF_FATP;Consultas Disponiveis;skip_blk(x); 6;3;18;79;x;;
:SKEL
VARIAVEL zBlNom = {|xVnd| sf_vend->(dbgoto(xVnd)), sf_vend->nome }
// VARIAVEL zBlkAcao = {|| AcaoPrevenda("EXIBIR") }
// 22;AcaoPrevenda("IMPORTAR");Ins-Importar ;
:TBMT
 13;AcaoPrevenda("EXIBIR");Enter-Exibir ; 
 32;AcaoPrevenda("EXIBIR_E_INCLUIR");Barra-Processar ; 
  7;AcaoPrevenda("APAGAR");DEL-Cancelar ;
:TBFI
Fp;FTIPOVEN;C;9;2;N;
c.Vd;FVENDEDOR;N;9999;4;N;
Vendedor;eval(zBlNom,FVENDEDOR);C;@S20;20;N;
Valor;Fval;N;@E 9,999.99; 8;N;
Pedido;fnumped;N;999999;  6;N;
Data;FDATAEMI;D;99.99.99;8;N;
