//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;7;15;16;70;("SubItem de "+Alltrim(Se_Prod->Pdesc));;;Eval(Z_BlkExist);;
:SKEL
VARIAVEL z_BlkExist = "Z_Found:=DbSeek(Str(m_pcod,6)+m_ptam+m_pcor),if(z_found,Mensagem('Subitem ja esta cadastrado...Informe outro...',1),.t.),if(z_found,MyInkey(0),.t.),!z_found"
VARIAVEL z_BlkExist = _CreateBlock( z_BlkExist )
COMANDO ANTES M_pcod = IF(X_OPERACAO=1,SE_Prod->pcod,pcod)
COMANDO DEPOIS se_great->(RegLock())
COMANDO DEPOIS se_great->(PUT_VAR("PDataBal",Date()))
COMANDO DEPOIS se_great->(DbCommit())
COMANDO DEPOIS Z_SELE=SELECT()
COMANDO DEPOIS Abra("0",R_SIGA,SE_MOVGR,"SE_MOVGR",SE_MOVGR,"Str(pcod,6)+Ptam+Pcor")
COMANDO DEPOIS se_movgr->(APPENDBLANK())
COMANDO DEPOIS se_movgr->(PUT_VAR("PCOD",M_PCOD))
COMANDO DEPOIS se_movgr->(PUT_VAR("PTAM",M_PTAM))
COMANDO DEPOIS se_movgr->(PUT_VAR("PCOR",M_PCOR))
COMANDO DEPOIS se_movgr->(PUT_VAR("MQUANT",M_PEATUAL))
COMANDO DEPOIS se_movgr->(PUT_VAR("MFGES","E"))
COMANDO DEPOIS se_movgr->(PUT_VAR("MDATA",DATE()))
COMANDO DEPOIS se_movgr->(DBCLOSEAREA())
COMANDO DEPOIS DBSELECTAREA(Z_SELE)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 4;Produto..:;N;6;pcod;999999;.f.;;;;;; 0; 0;;;
 1; 4; 4;Tamanho..:;C;4;ptam;@s!4;;PSQ_BROW;SE_GRTAM;SE_GRTAM;N;S;0;0;;;
 1; 5; 4;Cor......:;C;10;pcor;@s!10;;PSQ_BROW;SE_GRCOR;SE_GRCOR;N;S;0;0;;;
 1; 7; 4;Saldo....:;N;6;peatual;999999;;lastkey()=5.or.m_peatual>0;;;N;; 0; 0;;;
