SE_PROD;Cadastro de Produtos;sys_tbbrow; 8; 0;18;79;se_prod;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)

VARIAVEL z_xBlk = "Z_Sele:=Select(),z_recn:=recn(),"
VARIAVEL z_xBlk = z_xBlk+ 'Abra("0",R_SIGA,"SE_GREAT","SE_GREAT","SE_GREAT","Str(pcod,6)+Ptam+Pcor"),'
*- VARIAVEL z_xBlk = z_xBlk+ "if(empty(se_prod->pgrade),Mensagem('O produto nao esta sendo controlado com estoque por subitens...',1),Brow_Db('SE_GREAT',.t.)),"
VARIAVEL z_xBlk = z_xBlk+ "if(se_prod->peatual<=0,Mensagem('O estoque total do produto esta zerado...',1),Brow_Db('SE_GREAT',.t.)),"
VARIAVEL z_xBlk = z_xBlk+ 'Se_GREAT->(DbCloseArea()),'
VARIAVEL z_xBlk = z_xBlk+ "DbSelectArea(z_sele),dbgoto(z_recn)"
VARIAVEL z_BlkItens = _CreateBlock( z_xBlk )
VARIAVEL z_xBlk = "Z_Sele:=Select(),"
VARIAVEL z_xBlk = z_xBlk+ 'Abra("0",R_SIGA,"SE_GREDI","SE_GREDI","SE_GREDI","Str(pcod,6)+str(pedicao,5)+mfges"),'
VARIAVEL z_xBlk = z_xBlk+ "if(type('se_prod->pconsig')<>'U'.and.upper(se_prod->pconsig)<>'S',Mensagem('O produto nao tem controle de estoque com compra consignada...',1),Brow_Db('SE_GREDI',.t.)),"
VARIAVEL z_xBlk = z_xBlk+ 'Se_GREDI->(DbCloseArea()),'
VARIAVEL z_xBlk = z_xBlk+ "DbSelectArea(z_sele)"
VARIAVEL z_BlkEdi = _CreateBlock( z_xBlk )
VARIAVEL z_xBlk = ""
:TBMT
 13;se_doget(D_ob);Enter-Edita Campo;
  7;tb_del(d_ob);Del-Apaga Registro;
 32;Cibrow("SE_PRDLJ",,"SE_PRDL0");Barra-Lojas ;
 65;tb_update(D_OB);A-Altera Registro;
 22;upd_prod(1,"T1");Ins-Inclui Registro;
 80;tb_pesq(D_OB);P-Pesquisa Chave;
 67;tb_locate(D_OB);C-Continua Pesquisa;
 84;tb_locate(D_OB);T-Localiza Trecho;
 76;tb_locate(D_OB);L-Localiza Iniciais;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 93;disp_sdse(pcod);]-Demanda;
 91;disp_sdse(se_prod->pref,"R");[-Dem_Ref ;
 69;ext_screen(pcod,pdatabal);E-Extrato ;
 47;Eval(z_BlkItens);/-Subitens ;
:TBFI
Ref.Fabr;Preffab;C;@S8;8;S;;
Descricao;PDESC;C;@s22;22;S;
Marca/Fabric;Pref;C;@S10;10;S;
Modelo;pmarcamode;C;@s10;11;S;
EAtual;PEATUAL;N;99999;5;N;
Cod;PCOD;N;99999;5;N;
Prom;PfgProm;C;x;4;S;
PrVenda;PVLUVENDA;N;9999.99;7;S;
Prc Cust;PVLUVEN3;N;99999.99;  8;;
%Compr;Pdescprom;N;999.99;6;;
Prazo;Pprazo;N;999;5;S;
%IPI;Pipient;N;999.99;6;S;
Tipo;Ptipo;C;@S5;5;S;
Div;PDIVISAO;C;xxxx;  4;;
*;IIF(PCPRODFORN>0,"","*");C;X;  1;;
G;Pgpreco;C;X;  1;;
CF;pcategoria;C;!!!;2;S;
E Contr;PEATx;N;9999999;  7;;
E Min;PEMIN;N;999999;  6;;
Un;PUNIDADE;C;xxxxx;  5;;
Fracao;PITENS;N;9999;  4;;
Fabr;PPRINCFORN;N;999;  3;;
E Max;PEMAX;N;999999;  6;;
CO;PCODORI;N;9;  1;;
L Prc;PFGLPRE;C;x;  1;;
Em Prom;PFGPROM;C;x;  1;;
Controlado;PFGCONTROL;C;x;  1;;
