PSEPROD;Produtos Disponiveis;sys_tbbrow; 16; 0;23;79;pseprodp;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zThJpg = ( "/"+upper(alltrim(sys_usuario))+"/" $ "/CHICO/THIAGO/JURANDIR/" )
VARIAVEL zBlJpg = _createblock('if(zThJpg.and.file(r_siga+"jpg\p"+strzero(pcod,6)+".jpg"), "Fot","   ")')
//VARIAVEL w_colsep = " "+chr(179)
// 76;lpreco(se_prod->pcod);L-Lista_precos ;
// 13;gpreco(se_prod->pcod,D_oB);Enter-Altera ;
//Jpg;if(zThJpg.and.file(r_siga+"jpg\p"+strzero(pcod,6)+".jpg"), "Fot","");C;@S3;3;N;
:TBMT
 80;tb_pesq(D_oB);P-Pesquisa ;
 32;LancaAudit(se_prod->pcod,d_ob);Barra-Auditoria ;
 70;ViewJpeg(se_prod->pcod);F-Foto ;
 47;disp_sdse(pcod);/-Demanda ;
 13;Rem00_SugLojas();Enter-Remaneja ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
COD.;PCOD;N;99999;  5;N;
DESCRICAO DO PRODUTO;PDESC;C;@s11; 11;N;
REF.FAB.;PREFFAB;C;@S10; 10;N;
COR;PCOR;C;@S07;07;N;
PrCust;Pvluven3;N;999.99;  6;N;
APRAZO;PVLUVENDA;N;999.99;  6;N;
%Vist;PDESCONTO;N;99.99%;  6;N;
AVISTA;if(pdsc_orig>=20," ** ","    ")+Str(PVLUVENda*(1-pdesconto/100),6,2);C;@s10;10;N;
tipo;Ptipo;C;@S5;5;N;
Jpg;eval(zbljpg);C;@S3;3;N;
Marca;Pref;C;@S15;15;N;
Modelo;Pmarcamode;C;@S15;15;N;
%Mundo;PdescMundo;N;99.99;5;S;
PrMundo;if(pvluvmundo>0,pvluvmundo,PVLUVENDA*(1-pdescmundo/100));N;9999.99;7;N;
%Orig;pdsc_orig;N;99.99;7;N;
CredOrig;PVLU_orig;N;999.99;  6;N;
%IPI;PIPIENT;N;99.99%;  6;N;
%DscCompra;Pdscstring+"="+Str(pdsccompr,5,2)+"%";C;@S18;18;N;
Prc_Tab;PvluTabCmp;N;9999.99;7;N;
