SE_UNDV;Unidades de Venda por Produto;sys_tbbrow; 3; 0;23;79;seundv;;
:SKEL
VARIAVEL zAreaProd0 := Select("Se_Prod")
VARIAVEL zProdOrder0 := ""
VARIAVEL zPcod := if(zAreaProd0=0, 0, Se_Prod->pCod)
VARIAVEL #TEXTO_FONTE
      se_undv->(DbCloseArea(), ABRA("0NOIDX",r_siga,"se_undv","se_undv","se_undv","Str(pCod,6)+pUnidade"), ABRA("0NOIDX",r_siga,"se_und","se_und","se_und","pUnidade") )
      se zAreaProd0=0 entao SE_UNDV->(ABRA("0NOIDX",r_siga,"se_prod","se_prod","seip_c","pcod"))
      zProdOrder0 := se_prod->( OrdSetFocus("seip_c") )
      se zPcod>0 entao se_undv->( OrdScope(0,Str(zpCod,6)), OrdScope(1,Str(zpCod,6)) , DbGoTop() )
      DbSelectArea("se_undv")
      se zPcod>0.and.pCod<>zPcod entao MyKeyb(Chr(22))
#FIM_TEXTO_FONTE

comando saida zNil = se_prod->( if(zAreaProd0>0, OrdSetFocus(zProdOrder0), DbCloseArea() ) )
comando saida se_und->(DbCloseArea())
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 13;if(zPcod>0, (wpItensEmb:=pItens, wpVluEmb:=pVluEmb, wpUnidEmb:=pUnidade, MyKeyb(Chr(27))), doget(D_ob));Enter-Confirma ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
:TBFI
Embalagem;PUNIDADE;C;@S6;9;;
Itens na Emb;PITENS;N;999999.999; 12;;
Preco Embalagem;PVLUEMB;N;999999999.99; 15;;
Preco Item na Emb;if(pItens>0,PVLUEMB/PITENS,0);P;999999999.99; 17;;
Unid Padrao;if(zPcod=0,se_prod->(se_undv->pcod=pcod.or.DbSeek(se_undv->pcod),pUnidade),"");P;@S6;11;;
Preco Unid Padrao;if(zPcod=0,se_prod->(se_undv->pcod=pcod.or.DbSeek(se_undv->pcod),pVluVenda),0);P;999999999.99; 17;;
Descricao;if(zPcod=0,se_prod->(se_undv->pcod=pcod.or.DbSeek(se_undv->pcod),pDesc),"");P;@S35;35;;
Cod;PCOD;N;999999;6;;
