SP_MOVF;Produtos a Receber;sys_tbbrow; 8; 0;21;79;sp_movfn;;
:SKEL
//Pedida;unid_Fech;N;9999;  4;N;
//Frc;pitens;N;999;  3;N;
//Pr Total;MvALor;N;99999.99;8;N;
:TBMT
 13;if(alltrim(sys_usuario)="ADMIN",pf_DoGet(D_oB,"R"),Mensagem("Funcao de Acesso Restrito...Apenas para o Administrador!",1));Enter-Altera ;
 22;if(alltrim(sys_usuario)="ADMIN",ins_prd(D_oB,"R",.f.,.t.),Mensagem("Funcao de Acesso Restrito...Apenas para o Administrador!",1));Ins-Inclui ;
  7;if(alltrim(sys_usuario)="ADMIN",tb_del(D_oB),Mensagem("Funcao de Acesso Restrito...Apenas para o Administrador!",1));Del-Cancela ;
 73;Lst_alias(D_OB);I-Imprime ;
 86;pfvalor(D_oB);V-Valor_Pedido ;
:TBFI
Cod;PCOD;N;99999;  5;N;
Desc;PDESC;C;@S30; 30;N;
Receb;mqatend;N;9999;  4;S;
Pedi;unid_fech;N;9999; 4;N;
PrPromo;PvluTab;N;9999.99;7;S;
PrUnFab;pvluven3;N;9999.99;7;S;
%D;Pdesconto;N;999;3;S;
%D2;P2desconto;N;999;3;S;
PrUnVen;pvluvenda;N;9999.99;7;S;
Val_NF;MVALnf;N;99999.99;8;S;
PrTotFab;MVALor3;N;99999.99;8;S;
PrTotVen;MVALor;N;99999.99;8;S;
Pend;unid_fech-mqatend;N;9999; 4;N;
Grade;Grade;C;@S!6;6;S;
UndGrade;Pitensg;N;9999;8;N;
%Repas;Prepasse;N;999.99;6;S;
%IPIen;Pipient;N;999.99;6;S;
UndVnd;unid_fech*pitens;N;999999;6;N;
Dicionario;pdic;N;99999999;8;N;
Pedida PrDistrib;Str(unid_Fech,4)+"x"+Str(pitens,3)+" "+Str(unid_Fech*pitens*pvluven3,8,2);C;@S18;18;N;
