SE_REMAN;("Remanejamento de "+str(se_prod->pcod,6)+" "+alltrim(se_prod->pdesc));sys_tbbrow;16;0;23;79;padraoxx;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
:TBMT
 13;Rem00_OrdemReman(D_oB);Enter-Ordem_Remanejamento ;
 43;tb_pesq(D_oB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
Lj;Floja;N;999;3;S;
Estoq;Peatual;N;999999;6;N;
Sugestao;if(Mquant=0,"                ",if(mquant<0,if(floja>=50,"Abastecer","Retirar  ")+Str(abs(mquant),7),"Enviar    "+Str(abs(mquant),6)));C;@s16;16;N;
Acao Pendente;if(Mqatend=0,"                ",if(mqatend<0,if(floja>=50,"Abastecer","Retirar  ")+Str(abs(mqatend),7),"Enviar    "+Str(abs(mqatend),6)));C;@s16;16;N;
ss6m;sslj;N;999999;6;N;
Obs;Pobs;C;@s20;20;N;
