<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{5,50,786,512}</property>
    <property name="Name">[PSEPRODV.scr]</property>
    <property name="Caption">[Produtos Disponiveis]</property>
    <property name="AlwaysOnTop">.F.</property>
    <property name="AutoCenter">.T.</property>
    <property name="Font">
      <font name="Verdana" width="0" height="-13" weight="400"/>
    </property>
    <property name="FormType">[dlgModal]</property>
    <property name="Modal">.F.</property>
    <property name="ScopeVarObj">[Private]</property>
    <property name="lClipper">.T.</property>
    <property name="lExitOnEnter">.F.</property>
    <property name="lExitOnESC">.T.</property>
    <property name="FromStyle">[Center]</property>
    <property name="Clipsiblings">.F.</property>
    <property name="Clipchildren">.F.</property>
    <property name="TitleBar">.T.</property>
    <property name="StyleBorder">[0 - No Border]</property>
    <property name="Icon">[]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.T.</property>
    <property name="Minimizebox">.T.</property>
    <property name="Maximizebox">.T.</property>
    <property name="AbsAlignment">.T.</property>
    <property name="WindowState">[1 - Normal (Default)]</property>
    <property name="minHeight">-1</property>
    <property name="maxHeight">-1</property>
    <property name="minWidth">-1</property>
    <property name="maxWidth">-1</property>
    <property name="ScrollBars">[0 - None (Default)]</property>
    <property name="DSControl">.F.</property>
  </style>
  <method name="onDlgInit">
    <![CDATA[parameters oDlg
//skel VARIAVEL w_colsep = chr(179)
//skel VARIAVEL w_headsep = chr(196)
//skel VARIAVEL Z_Xtela = SaveScreen(0,16,4,79)
//skel VARIAVEL z_Blk1 = "Scroll(0,16,4,79,0),DispBox(0,16,4,79),"
//skel VARIAVEL z_Blk1 = z_Blk1 + 'DevPos(0,17),DevOut(Padc("(Cod:"+Str(pcod,5)+") "+alltrim(pdesc)+" (Saldo: "+ltrim(Str(peatual,4))+")",58)),'
//skel VARIAVEL z_Blk1 = z_Blk1 + 'DevPos(1,17),DevOut(Padc("(%DscBloq:"+Alltrim(pbloqvenda)+") (Portaria:"+Alltrim(pfgcontrol)+") (Ref:"+alltrim(pref)+") (Frv:"+Alltrim(str(pitens,4))+")",58)),'
//skel VARIAVEL z_Blk1 = z_Blk1 + 'DevPos(2,17),DevOut(Padc(if(pdesconto>0,"(%Max:"+Alltrim(str(pdesconto,4))+")","")+if(day(pdataprog)>0,"  (PrProm:"+Alltrim(str(pvluven2,10,2))+")",""),58))'
//skel VARIAVEL z_blk1parte1 = _CreateBlock( z_blk1 )
//skel VARIAVEL z_Blk1 = 'Z_COR:=SetColor("B/W"),eval(z_blk1parte1),DevPos(2,17),DevOut(Padc("Gen: "+tem_generico(pprincipio,pdic5),58)),'
//skel VARIAVEL z_Blk1 = z_Blk1 + 'DevPos(3,17),DevOut(Padc(Alltrim(pprincipio),58)),'
//skel VARIAVEL z_Blk1 = z_Blk1 + "SetColor(Z_COR)"
//skel VARIAVEL z_blockppo = _CreateBlock( z_Blk1 )
//skel VARIAVEL z_Blk1 = ""
//skel COMANDO DEPOIS RestScreen(0,16,4,79,Z_Xtela)
oContextMenu:=Hwg_ContextMenu()
hwg_Btn(oToolbar,5,5,28,28)
hwg_TbMt(oToolbar,'47;tb_cons("se_prodc",.f.);/-Ficha ;/ - Exibe;smOpen;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'0;aBrowses[nBrwAtivo,1]:top();Primeira;Primeira;smFirst;')
hwg_TbMt(oToolbar,'0;aBrowses[nBrwAtivo,1]:pageUp();Volta_Pag;Volta_Pag;smPrev;')
hwg_TbMt(oToolbar,'0;aBrowses[nBrwAtivo,1]:pageDown();Avanca_Pag;Avanca_Pag;smNext;')
hwg_TbMt(oToolbar,'0;aBrowses[nBrwAtivo,1]:bottom();Ultima;Ultima;smLast;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'32;ret_pcod();Barra-Confirma ;Barra - Confirma;_Barra;')
hwg_TbMt(oToolbar,'80;psq_prod("P",D_oB);P-Pesquisa ;P - Pesquisa;_P;')
hwg_TbMt(oToolbar,'43;ped_cod(d_ob);+-Cod_Quant ;+ - Cod_Quant;_mais;')
//// hwg_TbMt(oToolbar,'32;ret_pcod();Enter-Quant ;Enter - Quant;_Enter;')
hwg_TbMt(oToolbar,'-5;vb_prdfalta();F6-Lanca_Falta ;F6 - Lanca_Falta;_F6;')
hwg_TbMt(oToolbar,'61;tv_interroga();=-Indicacoes ;= - Indicacoes;_=;')
hwg_TbMt(oToolbar,'93;disp_sdse(pcod);]-Demanda;] - Demanda;_colchetesq;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,'27;hwg_oDlgKey(oDlg, 27, nBrwAtivo);Saida;Saida;smExit3;')
SetDlgKey(oDlg,8,26,{|| (aBrowses[nBrwAtivo,2])->(moveRec(aBrowses[nBrwAtivo,1],"UP"))})
SetDlgKey(oDlg,8,28,{|| (aBrowses[nBrwAtivo,2])->(moveRec(aBrowses[nBrwAtivo,1],"DOWN"))})
Hwg_EndMenu()]]>
  </method>
  <method name="onPaint">
    <![CDATA[Parameters oCtrl,hDC
oCtrl:bpaint:=NIL
D_oB:setFocus()]]>
  </method>
  <part class="panel">
    <style>
      <property name="Geometry">{0,0,800,38}</property>
      <property name="Name">[oToolbar]</property>
      <property name="Anchor">11</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{5,38,790,400}</property>
      <property name="Name">[D_oB]</property>
      <property name="TabIndex">13</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[nBrwAtivo:=1]]>
    </method>
    <method name="onInit">
      <![CDATA[D_oB:Alias := alias()
D_oB:bKeyDown := {|self, wParam| (aBrowses[nBrwAtivo,2])->(hwg_oDlgKey(self, wparam,1)) , .T. }
hwg_TbFi(D_oB, 'Ped;quant_vped(pcod);N;9999;4;N;')
hwg_TbFi(D_oB, 'Apresentacao;Pdesc;C;@s29; 27;;')
hwg_TbFi(D_oB, 'Principio;Pprincipio;C;@s27; 25;;')
hwg_TbFi(D_oB, 'G;Pgenerico;C;!;1;;')
hwg_TbFi(D_oB, 'Cod;Pcod;N;99999;  5;N;')
hwg_TbFi(D_oB, 'Est;Peatual;N;999;3;;')
hwg_TbFi(D_oB, 'Pr Venda;pvluvenda;N;9999.99; 7;;')
hwg_TbFi(D_oB, 'Pr Dinh;if(pdescbon>0,"d"+str(pvluvenda*(1-pdescbon/100),6,2),if(Se_Prod->PvluVen2>0.and.w_fgprom_ativa.and.(s_datual<=se_prod->pdataprog.or.w_promocao="S"),"p"+str(PVLUVEN2,6,2),if(PBLOQVENDA="S","b","")));C;x999.99; 7;;')
hwg_TbFi(D_oB, 'Frac;pgpreco+lower(pabcfisica)+str(Pitens,4);N;xx9999;6;;')
hwg_TbFi(D_oB, 'Ref;pref;C;@s15;15;;')
hwg_TbFi(D_oB, '%Marg;pdescvar;N;99.99%;6;N;')
D_oB:bColorSel:= RGB(3,23,133)
D_oB:tColorSel:= RGB(255,255,255)
D_oB:bOther:={|o,m,wp,lp| messagesBrowse(o,m,wp,lp)}
D_oB:cargo:={.T.,.T.,"PSEPROD",.F.,.T.,{||.T.} }
d_SkipBlock:="sys_tbbrow"
d_oB:bedit := {|| ret_pcod() }
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})]]>
    </method>
    <method name="onSize">
      <![CDATA[Parameters oCtrl,x,y 
oCtrl:move(,,x-25,y-75) ]]>
    </method>
  </part>
  <part class="status">
    <style>
      <property name="Geometry">{0,482,786,30}</property>
      <property name="Name">[oStatus1]</property>
      <property name="aParts">{640,160,0}</property>
    </style>
  </part>
</part>
