SE_PROD;Produtos Disponiveis;sys_tbbrow;8;0;23;79;pseprodv;xpsq(d_ob);eval(z_blockppo);
//PSEPROD;Produtos Disponiveis;sys_tbbrow;16;0;21;79;pseprodv;xpsq(d_ob);tel_prod("CADASTRO");
//*;DISP_VAL(M_FVAL,0,0,1);C;!;1;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL Z_Xtela = SaveScreen(0,16,3,79)
VARIAVEL z_Blk1 = 'Z_COR:=SetColor("B/W"),Scroll(0,16,3,79,0),DispBox(0,16,3,79),'
VARIAVEL z_Blk1 = z_Blk1 + 'DevPos(0,17),DevOut(Padc("(Cod:"+Str(pcod,5)+") "+alltrim(pdesc),58)),'
VARIAVEL z_Blk1 = z_Blk1 + 'DevPos(1,17),DevOut(Padc("(%DscBloq:"+Alltrim(pbloqvenda)+") (Frv:"+Alltrim(str(pitens,4))+") (Saldo: "+ltrim(Str(peatual,4))+")",58)),'
VARIAVEL z_Blk1 = z_Blk1 + 'DevPos(2,17),DevOut(Padc("(Marca:"+alltrim(pref)+") (Modelo:"+alltrim(pmarcamode)+") (Tipo:"+alltrim(ptipo)+")",58)),SetColor(Z_COR)'
VARIAVEL z_blockppo = _CreateBlock( z_blk1 )
VARIAVEL z_Blk1 = ""
COMANDO DEPOIS RestScreen(0,16,3,79,Z_Xtela)
:TBMT
 13;ret_pcod();Enter-Quant ;
 32;ret_pcod();Barra-Confirma ;
 80;psq_prod("P",D_oB);P-Pesquisa ;
 47;tb_cons("se_prodc",.f.);/-Ficha ;
 43;ped_cod(d_ob);+-Cod_Quant ;
 -5;vb_prdfalta();F6-Lanca_Falta ;
:TBFI
Ref;preffab;C;@s15;10;;
Apresentacao;Pdesc;C;@s29; 27;;
Cod Barras;pdic6;N;9999999999999; 13;;
Pr Venda;pvluvenda;N;9999.99; 7;;
Cod;Pcod;N;99999;  5;N;
Est;Peatual;N;999.999;7;;
Pr Dinh;if(pdescbon>0,"d"+str(pvluvenda*(1-pdescbon/100),6,2),if(Se_Prod->PvluVen2>0.and.w_fgprom_ativa.and.(s_datual<=se_prod->pdataprog.or.w_promocao="S"),"p"+str(PVLUVEN2,6,2),if(PBLOQVENDA="S","b","")));C;x999.99; 7;;
Gp Itens;pgpreco+lower(pabcfisica)+str(Pitens,4);N;xx9999;6;;
