SE_PROD;Cadastro de Produtos;sys_tbbrow; 8; 0;18;79;se_prod;;
//WINDOWS 1;1;498;95;Tecle Esc para Retornar;0;0;0;0;S;
//MarkupGP;(MarkupPrd(PgPreco)-1)*100;N;999.99%;8;N;
:SKEL
VARIAVEL z_BlkEdi = "Z_Sele:=Select(),"
VARIAVEL z_BlkEdi = z_BlkEdi + 'Abra("0",R_SIGA,"SE_GREDI","SE_GREDI","SE_GREDI","Str(pcod,6)+str(pedicao,5)+mfges"),'
VARIAVEL z_BlkEdi = z_BlkEdi + "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_BlkEdi = z_BlkEdi + 'Se_GREDI->(DbCloseArea()),'
VARIAVEL z_BlkEdi = z_BlkEdi + "DbSelectArea(z_sele)"
VARIAVEL z_BlkEdi = _CreateBlock( z_BlkEdi )
VARIAVEL z_Blkfil = {|x|DbClearFilter(),DbGotop()}
COMANDO ANTES DBSETFILTER(_CREATEBLOCK("PESTCSGREC>0"),"PESTCSGREC>0")
:TBMT
 13;se_doget(D_ob);Enter-Edita Campo;
 32;Eval(z_BlkFil);Barra-Exibe_Todos ;
  7;tb_del(d_ob);Del-Apaga Produto;
 65;tb_update(D_OB);A-Altera Produto;
 22;upd_prod(1,"T1");Ins-Novo Produto;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 -5;vb_prdfalta();F6-Lanca_Falta ;
 73;lst_alias(D_OB);I-Imprime ;
 93;disp_sdse(pcod);]-Demanda ;
 69;ext_screen(pcod,pdatabal);E-Extrato ;
 47;Eval(z_BlkEdi);/-Edicoes ;
:TBFI
Cod;PCOD;N;99999;5;N;
Descricao;PDESC;C;@s30;30;S;
EAtual;PEATUAL;N;999999;6;;
EstCons;pestconsig;N;99999;6;S;
ContEdic;pconsig;C;x;8;S;
Edicao;pedicao;N;99999;6;S;
Period;pperiod;C;x;6;S;
Cod Barra;Pdic6;N;9999999999999;13;S;
Prc Venda;PVLUVENDA;N;99999.99;  8;;
Prc Fab;PVLUVEN3;N;99999.99;  8;;
Gp;pgpreco;C;!!;2;S;
*;IIF(PCPRODFORN>0,"","*");C;X;  1;;
CtF;pcategoria;C;!!!;3;S;
E Contr;PEATx;N;9999999;  7;;
Un;PUNIDADE;C;xxxxx;  5;;
Fracao;PITENS;N;9999;  4;;
Fabr;PPRINCFORN;N;999;  3;;
Div;PDIVISAO;C;xxxx;  4;;
Ref;PREF;C;XXXX;  4;;
