SE_MOV;Movimentos do Produto;sys_tbbrow; 7;0;22;79;se_movxp;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
variavel #TEXTO_FONTE
   //ONINIT
   hwg_TbFi(@D_oB,'Data;MDATA;D;;10;S;')
   hwg_TbFi(@D_oB,'L;MFGES;C;!;1;S;')
   hwg_TbFi(@D_oB,'Quant;mQuant;N;999999.999;10;N;')
      // if sys_segmento='perfis' 
   se sFgContaPecas entao hwg_TbFi(@D_oB,'Pecas;if(pPecas>0,pPecas,"");N;999999;6;N;')
   hwg_TbFi(@D_oB,'Valor;mValor;N;999999.99;9;N;')
   hwg_TbFi(@D_oB,'Desc;mdesc;C;@S30;26;N;')
   se sys_segmento='farma' entao hwg_TbFi(@D_oB,'Lote;pLote;C;@S10;10;N;')
   hwg_TbFi(@D_oB,'Doc;TipoDoc;C;@S10;10;N;')
   hwg_TbFi(@D_oB,'C_F;mcodforc;N;999999;6;N;')
   hwg_TbFi(@D_oB,'%;mdesconto;N;9999.99;7;N;')
   hwg_TbFi(@D_oB,'T;mtipoven;C;!;1;N;')
   hwg_TbFi(@D_oB,'NF;MFNUM;N;9999999999;10;S;')
   hwg_TbFi(@D_oB,'Prod;PCOD;N;999999;6;N;')
   hwg_TbFi(@D_oB,'Ped;fNumPed;N;999999999;9;S;')
   hwg_TbFi(@D_oB,'PrUnit;mValor/if(mQuant>0,mQuant,1);N;999999.999;10;N;')
   hwg_TbFi(@D_oB,'Cd;mcd;N;99;2;N;')
   //ENDONINIT   
#FIM_TEXTO_FONTE
:TBMT
 13;doget(D_ob);Enter-Edita ;
 79;tb_index(D_ob);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;