<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{345,161,1022,598}</property>
    <property name="Name">[vb_kits.scr]</property>
    <property name="Caption">[Kits 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">[3 - Sizable (Default)]</property>
    <property name="nBackColor">14215660</property>
    <property name="Icon">[]</property>
    <property name="Bitmap">[icon\tela.jpg]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.T.</property>
    <property name="Minimizebox">.F.</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 zbPdesc={|nPcod|se_prod->(dbseek(nPcod)),Str(nPcod,6)+" "+se_prod->pdesc }
//skel VARIAVEL zNil = if(Select("SE_PROD")=0,Abra("0NOIDX",r_siga,se_prod,"Se_prod",seip_c,"pcod",seip_n,"pdesc"),"")
//skel VARIAVEL zNil = if(Select("VB_KITP")=0,Abra("0NOIDX",r_siga, "Vb_Kitp", "Vb_Kitp", "Vb_Kitp", "Codigo"),"")
//skel VARIAVEL zNil = DbSelectArea("VB_KITS")
oContextMenu:=Hwg_ContextMenu()
hwg_Btn(oToolbar,5,5,54,54)
hwg_TbMt(oToolbar,' 80;tb_pesq(D_OB);P-Pesquisa ;P-Pesquisa na coluna do cursor;pesquisa.jpg;;;;;&P-Pesquisa;;;')
hwg_TbMt(oToolbar,' 79;tb_index(D_OB);O-Ordena ;O-Ordena a coluna do cursor;ordena.jpg;;;;;&O-Ordena;;;')
hwg_Btn(oToolbar,10,544,70,24)
hwg_TbMt(oToolbar,' 13;PrdKits(Codigo,,.t.);Enter-Vende ;Enter - Vende;sembitmap;;;Lucida Bright;-11;Vende;;6;')
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="status">
    <style>
      <property name="Geometry">{0,568,1022,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{10,69,1000,256}</property>
      <property name="Name">[D_oB]</property>
      <property name="Anchor">15</property>
      <property name="GridLinesSepColor">0</property>
      <property name="TabIndex">4</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[nBrwAtivo:=1]]>
    </method>
    <method name="onPosChange">
      <![CDATA[oBrwItens:Refresh()]]>
    </method>
    <method name="onInit">
      <![CDATA[hwg_TbFi(D_oB, 'Codigo;Codigo;C;@s13; 13;;')
hwg_TbFi(D_oB, 'Vd;Cr_Zona;C;xx;  2;;')
hwg_TbFi(D_oB, 'Descricao;Cr_Nome;C;@S35; 35;;')
hwg_TbFi(D_oB, 'Tecla;ShotKey;C;@S16;16;;')
hwg_TbFi(D_oB, 'Prods;fTotProd;N;9999;  5;;')
D_oB:bColorSel:= RGB(3,23,133)
D_oB:tColorSel:= RGB(255,255,255)
D_oB:Alias := alias()
D_oB:lDisableVScrollPos := .t.
D_oB:bKeyDown := {|self, wParam| (aBrowses[nBrwAtivo,2])->(hwg_oDlgKey(self, wparam,1)) , .T. }
D_oB:bOther:={|o,m,wp,lp| MessagesBrowse(o,m,wp,lp)}
D_oB:cargo:={.T.,.T.,"VB_KITS",.F.,.T.,{||.T.} }
d_ob:bEdit := {|D_oB| .t.}
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})
]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{410,0,483,47}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">[Kits de Venda]</property>
      <property name="Justify">[Right]</property>
      <property name="font">
        <font name="Arial" width="0" height="-37" weight="700"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{336,335,671,192}</property>
      <property name="Name">[oBrwItens]</property>
      <property name="TabIndex">6</property>
    </style>
    <method name="onInit">
      <![CDATA[oBrwItens:Alias := 'vb_kitp'
oBrwItens:bColorSel:= RGB(3,23,133)
oBrwItens:tColorSel:= RGB(255,255,255)
DbSelectArea( 'vb_kitp' )
hwg_TbFi(oBrwItens, 'Produto;eval(zbPdesc,pcod);C;@s35;35;N;')
hwg_TbFi(oBrwItens, 'Quant;Mquant;N;999999;6;S;')
IF sys_segmento='locacao'
   hwg_TbFi(oBrwItens, 'Locacao;PvalLoca;N;9999999.99;10;S;')
   hwg_TbFi(oBrwItens, 'Loc1Dia;PvalLoca1d;N;9999999.99;10;S;')
   hwg_TbFi(oBrwItens, 'PrIndeniz;PvluVenda;N;9999999.99;10;S;')
ELSE
hwg_TbFi(oBrwItens, 'PrVenda;PvluVenda;N;9999999.99;10;S;')
endif
hwg_TbFi(oBrwItens, 'Cod.Kit;Codigo;C;@s13; 13;;')
oBrwItens:lFilter := .T.
oBrwItens:bFirst := {|| vb_kitp->( DBSEEK( vb_kits->Codigo, .F. ) ) } 
oBrwItens:bLast  := {|| vb_kitp->( DBSEEK( vb_kits->Codigo, .F., .T. ) ) }
oBrwItens:bWhile := {|| vb_kitp->Codigo = vb_kits->Codigo }
oBrwItens:Refresh()
DbSelectArea( 'vb_kits' )]]>
    </method>
  </part>
  <part class="button">
    <style>
      <property name="Geometry">{44,343,253,177}</property>
      <property name="Name">[oButton1]</property>
      <property name="Caption">[Tecle Enter Sobre Kit de Venda a ser Vendido]</property>
      <property name="font">
        <font name="" width="0" height="-37" weight="400"/>
      </property>
      <property name="WordWrap">.T.</property>
      <property name="TabIndex">7</property>
    </style>
    <method name="onClick">
      <![CDATA[PrdKits(Codigo,,.t.)]]>
    </method>
  </part>
</part>
