<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{308,174,821,590}</property>
    <property name="Name">[etq_prod.scr]</property>
    <property name="Caption">[Indique Produtos p/ Gerar ETQ]</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">[..\xml\icon\tela2.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),pdesc )}
//skel VARIAVEL zbAddPrd = {||if( tb_insert(d_ob), (se_prod->(OrdSetFocus(1)), MyKeyb(Chr(22))), NIL) }

//skel VARIAVEL wbPrtEtqFr3 := {|| Relat('lst_exec("etq_prod")',"nb",,"X") }

oContextMenu:=Hwg_ContextMenu()
hwg_Btn(oToolbar,5,5,54,54)
hwg_TbMt(oToolbar,' 22;(eVal(zbAddPrd), D_ob:SetFocus(), DbGoTop(), d_ob:Refresh());Ins-Indica_Produto ;Ins-Inclui;add.jpg;;;;;Inclui;;;')
hwg_TbMt(oToolbar,'  7;tb_del(D_ob);DEL-DELeta ;DEL-Deleta;deleta.jpg;;;;;Deleta;;;')
hwg_TbMt(oToolbar,' 13;eVal(wbPrtEtq);I-Imprime ;I - Imprime;impressora.jpg;;;;;Imprime;;;')
// hwg_TbMt(oToolbar,' 79;tb_index(D_OB);O-Ordena ;O-Ordena a coluna do cursor;ordena.jpg;;;;;&O-Ordena;;;')

hwg_Btn(oToolbar,350,505+12,110,24)
hwg_TbMt(oToolbar,' 87;eVal(wbSetTemplateWord,".doc");W-Formato_Word ;W - Selecionar modelo Word;sembitmap;;;Lucida Bright;-11;&W-Select_Word;;6;')
hwg_TbMt(oToolbar,' 90;eVal(wbSetTemplateWord,".fr3");Z-Formato_FR3 ;Z - Formato_FR3;sembitmap;;;Lucida Bright;-11;&Z-Select_FR3;;6;')
hwg_TbMt(oToolbar,' 90;eVal(wbSetTemplateWord,".zpl");Z-Formato_ZPL ;Z - Formato_ZPL;sembitmap;;;Lucida Bright;-11;&Z-Select_ZPL;;6;')

hwg_Btn(oToolbar,350,525+16,110,24)
hwg_TbMt(oToolbar,' 77;eVal(wbEditTemplateWord);M-Editar Modelo da Etiqueta ;M - Editar Modelo da Etiqueta;sembitmap;;;Lucida Bright;-11;&M-Editar_Modelo;;6;')
hwg_TbMt(oToolbar,' 77;eVal(wbEditTemplateWord, RtfTemplate+".lst" );G-Definir campos a imprimir na Etiqueta;G-Editar Gerador de Dados da Etiqueta;sembitmap;;;Lucida Bright;-11;&Gerador_Dados;;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,560,821,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{9,60,805,444}</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="onInit">
      <![CDATA[hwg_TbFi(D_oB, 'Prod;PCOD;N;99999;6;N;')
hwg_TbFi(D_oB, 'Apresentacao;pDesc;C;@s30;30;N;')
hwg_TbFi(D_oB, 'Quant;mquant;N;999999;6;N;')
hwg_TbFi(D_oB, 'Estoq;Se_prod->peatual;N;999999;6;N;')
hwg_TbFi(D_oB, 'PrVenda;Se_prod->pvluvenda;N;9999999.99;10;N;')
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.,"etq_prod",.F.,.T.,{||.T.} }
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})
]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{9,497,330,19}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">[Modelo para geracao das Etiquetas:]</property>
      <property name="TextColor">64</property>
      <property name="font">
        <font name="" width="0" height="-16" weight="400" italic="1"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{9,517,330,22}</property>
      <property name="Name">[oRtfTemplate]</property>
      <property name="varName">[RtfTemplate]</property>
      <property name="TabIndex">6</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[.f.]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{370,8,293,48}</property>
      <property name="Name">[oLabel2]</property>
      <property name="Caption">
[Digite Itens e quantidades das etiquetas. Depois tecle ENTER para imprimi-las.]      </property>
      <property name="TextColor">128</property>
      <property name="font">
        <font name="" width="0" height="-16" weight="400" italic="1"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">7</property>
    </style>
  </part>
</part>
