<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{157,44,1028,556}</property>
    <property name="Name">[_acomp.scr]</property>
    <property name="Caption">[Acompanhamentos do Produto]</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
oContextMenu:=Hwg_ContextMenu()
hwg_Btn(oToolbar,5,5,54,54)
//hwg_TbMt(oToolbar,'22;tb_insert(D_OB);Ins-Inclui ;Ins-Inclui;cadastrar.ico;;;;;Inclui;;;')
//hwg_TbMt(oToolbar,'65;tb_update(D_OB);A-Altera ;A-Altera;alterar.ico;;;;;&A-Altera;;;')
//hwg_TbMt(oToolbar,'7;tb_del(D_ob);DEL-DELeta ;DEL-Deleta;deletar.ico;;;;;Deleta;;;')
hwg_TbMt(oToolbar,'80;tb_pesq(D_OB);P-Pesquisa ;P-Pesquisa na coluna do cursor;pesquisa.ico;;;;;&P-Pesquisa;;;')
hwg_TbMt(oToolbar,'79;tb_index(D_OB);O-Ordena ;O-Ordena a coluna do cursor;ordenar.ico;;;;;&O-Ordena;;;')
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()

d_ob:lEditable = .t.

SET(5,1960)
CiSetKey( "K_F2","BrwAcompanhamentos('additem',Pcod)",,,"F2:Adicionar Item")
CiSetKey( "K_F3","BrwAcompanhamentos('delitem',Pcod)",,,"F3:Retirar Item")
CiSetKey( "K_F4","BrwAcompanhamentos('ativar',Pcod)",,,"F4:Ativar")
CiSetKey( "K_F5","BrwAcompanhamentos('copiardeoutro',Pcod)",,,"F5:Copiar Acompanhamentos de Outro Item")

// oDlg:Maximize()
]]>
  </method>
  <method name="onPaint">
    <![CDATA[Parameters oCtrl,hDC
oCtrl:bpaint:=NIL
D_oB:setFocus()]]>
  </method>
  <part class="status">
    <style>
      <property name="Geometry">{0,526,1028,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{455,6,410,52}</property>
      <property name="Name">[opDesc]</property>
      <property name="varName">[m_pDesc]</property>
      <property name="font">
        <font name="Arial" width="0" height="-24" weight="700"/>
      </property>
      <property name="Multiline">.T.</property>
      <property name="cPicture">[@s50]</property>
      <property name="nMaxLength">50</property>
      <property name="3DLook">.T.</property>
      <property name="TabIndex">4</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[.f.]]>
    </method>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{927,460,80,52}</property>
      <property name="Name">[opQtdAcomp]</property>
      <property name="varName">[m_pQtdAcomp]</property>
      <property name="Anchor">6</property>
      <property name="font">
        <font name="Arial" width="0" height="-24" weight="700"/>
      </property>
      <property name="Multiline">.T.</property>
      <property name="cPicture">[999]</property>
      <property name="nMaxLength">50</property>
      <property name="3DLook">.T.</property>
      <property name="TabIndex">4</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[.f.]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{280,6,172,52}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">[Acompanhamentos do Produto]</property>
      <property name="Justify">[Right]</property>
      <property name="BackColor">16777215</property>
      <property name="font">
        <font name="Arial" width="0" height="-19" weight="400"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{614,460,303,52}</property>
      <property name="Name">[oLabel2]</property>
      <property name="Caption">
[Quantidade de Acompanhamentos permitida durante a Venda:]      </property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">6</property>
      <property name="BackColor">16777215</property>
      <property name="font">
        <font name="Arial" width="0" height="-19" weight="400"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{13,77,994,375}</property>
      <property name="Name">[D_oB]</property>
      <property name="Anchor">15</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="400"/>
      </property>
      <property name="Border">.F.</property>
      <property name="TabIndex">6</property>
    </style>
    <method name="onInit">
      <![CDATA[hwg_TbFi(@D_oB, 'Insumo;PcodInsumo;N;999999;6;;')
hwg_TbFi(@D_oB, 'Descricao a ser impressa;pdescInsum;C;@S30;30;;')
hwg_TbFi(@D_oB, 'QtdDeduzir;mQuant;N;@e 99999.999;10;;')
hwg_TbFi(@D_oB, 'UnCpr;pUnidade;C;@S5;5;;')
hwg_TbFi(@D_oB, 'PrVenda;pVluVenda;N;999999.99;9;;')
hwg_TbFi(@D_oB, '+Outros?;Fg_Lib;C;X;8;;')
hwg_TbFi(@D_oB, 'Obs;pObs;C;@S20;18;;')
hwg_TbFi(@D_oB, 'Prod.Principal;pdesc;C;@S30;30;;')
hwg_TbFi(@D_oB, 'Prod;Pcod;N;999999;6;;')
D_oB:bColorSel:= RGB(3,23,233)
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.,"SE_ACOMP",.F.,.T.,{||.T.} }
sHwgKeyEdit:= 61
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})
]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{14,460,114,47}</property>
      <property name="Name">[oButtonex1]</property>
      <property name="Caption">[F2 Adicionar Item]</property>
      <property name="Anchor">6</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="400"/>
      </property>
      <property name="WordWrap">.T.</property>
      <property name="TabIndex">7</property>
    </style>
    <method name="onClick">
      <![CDATA[IF BrwAcompanhamentos("additem",m_Pcod)
   DBGOTOP()
   DobRefresh()
ENDIF
]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{132,460,112,47}</property>
      <property name="Name">[oButtonex2]</property>
      <property name="Caption">[F3 Retirar Item]</property>
      <property name="Anchor">6</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="400"/>
      </property>
      <property name="WordWrap">.T.</property>
      <property name="TabIndex">7</property>
    </style>
    <method name="onClick">
      <![CDATA[BrwAcompanhamentos("delitem",Pcod)]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{262,460,106,47}</property>
      <property name="Name">[oButtonex3]</property>
      <property name="Caption">[F5 Copiar de Outro]</property>
      <property name="Anchor">6</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="400"/>
      </property>
      <property name="WordWrap">.T.</property>
      <property name="Transparent">.T.</property>
      <property name="ToolTip">
[Tecle aqui para Ativar ou Desativar a Baixa nos Componentes ao Vender ou ao Montar]      </property>
      <property name="TabIndex">8</property>
    </style>
    <method name="onClick">
      <![CDATA[_acomp->(BrwAcompanhamentos("copiardeoutro",m_Pcod))]]>
    </method>
  </part>
</part>
