<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{434,34,1021,650}</property>
    <property name="Name">[etq_prod_precos.tel]</property>
    <property name="Caption">[Produto e Quantidade a Imprimir]</property>
    <property name="AlwaysOnTop">.F.</property>
    <property name="AutoCenter">.T.</property>
    <property name="Font">
      <font name="Courier New" width="0" height="-12" weight="400"/>
    </property>
    <property name="FormType">[dlgModal]</property>
    <property name="Modal">.F.</property>
    <property name="ScopeVarObj">[Local]</property>
    <property name="lClipper">.T.</property>
    <property name="lExitOnEnter">.T.</property>
    <property name="lExitOnESC">.T.</property>
    <property name="Variables">{modus}</property>
    <property name="FromStyle">[Popup]</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">16777215</property>
    <property name="Icon">[]</property>
    <property name="Bitmap">[icon\tela.jpg]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.F.</property>
    <property name="Minimizebox">.F.</property>
    <property name="Maximizebox">.F.</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="onFormInit">
    <![CDATA[parameters o, p1
modus:=p1]]>
  </method>
  <method name="onDlgInit">
    <![CDATA[IF(modus<>NIL,SetWindowText( oDlg:handle, modus ),)

//skel variavel m_peatual0:=m_peatual
//skel variavel bValidNewPrc:={||se_prod->(m_pvluvenda>=pvluven3 .or.(Alert("O preco de venda ("+lTrim(Str(m_pvluvenda,10,2))+") nao deve ser inferior ao de compra ("+lTrim(Str(pvluven3,10,2))+")"),.f.)) }
//skel comando depois #TEXTO_FONTE
//skel    (RegLock(), _FIELD->pepreco:=se_prod->pepreco, _FIELD->peatual:=se_prod->peatual, _FIELD->mQuant:=se_prod->peatual, _FIELD->pvluven3:=se_prod->pvluven3)
//skel    (hReg:=Scatter(), Abra_arq("se_prlog"), hReg["USUARIO"]:=sys_usuario, AppendBlank(), Gather(@hReg), DbCloseArea(), DbSelectArea("etq_prod"))
//skel    se_prod->(RegLock(), _FIELD->pDataAlter:=s_dAtual, _FIELD->pVluVenda:=m_pvluvenda, DbCommit(), DbUnlock())
//skel    debugalert('m_peatual0='+hb_valtoexp(m_peatual0)+' m_peatual='+hb_valtoexp(m_peatual) )
//skel    se m_peatual0<>m_peatual entao se_prod->(saldo_bal(m_peatual))
//skel #FIM_TEXTO_FONTE

SET(5,1960) ]]>
  </method>
  <part class="line">
    <style>
      <property name="Geometry">{13,613,1001,2}</property>
      <property name="Name">[oLine1]</property>
    </style>
  </part>
  <part class="group">
    <style>
      <property name="Geometry">{6,1,1010,610}</property>
      <property name="Name">[oGroup1]</property>
      <property name="TabIndex">1</property>
    </style>
    <part class="editbox">
      <style>
        <property name="Geometry">{242,114,560,78}</property>
        <property name="Name">[oPCOD]</property>
        <property name="varName">[m_PCOD]</property>
        <property name="TextColor">4194304</property>
        <property name="BackColor">12582911</property>
        <property name="font">
          <font name="Arial" width="0" height="-64" weight="700"/>
        </property>
        <property name="nMaxLength">14</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">1</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[SE_PROD->(ORDSETFOCUS(3),IF(DBSEEK(M_PCOD),(M_PCOD:=SE_PROD->PCOD,.T.),IF((ORDSETFOCUS(1),DBSEEK(M_PCOD)),.T.,PSQ_BROW('SE_PROD','PSEPROD','M_PCOD','N','S',4,0,'','','',,oPCOD,))))]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{13,16,625,26}</property>
        <property name="Name">[oSay0001]</property>
        <property name="Caption">
[Pistole o Cod. de Barras ou Cod.Reduzido para alteracao do preco.]        </property>
        <property name="BackColor">16777215</property>
        <property name="font">
          <font name="Arial" width="0" height="-19" weight="700"/>
        </property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">2</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{29,244,971,59}</property>
        <property name="Name">[oPdesc]</property>
        <property name="varName">[m_Pdesc]</property>
        <property name="font">
          <font name="Arial" width="0" height="-48" weight="400"/>
        </property>
        <property name="nMaxLength">35</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">2</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[(m_pdesc:=se_prod->pdesc, RefreshGetList(),.f.)]]>
      </method>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{532,212,95,28}</property>
        <property name="Name">[opDataAlter]</property>
        <property name="varName">[m_pDataAlter]</property>
        <property name="font">
          <font name="Arial" width="0" height="-19" weight="400"/>
        </property>
        <property name="TabIndex">2</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[.f.]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{13,45,634,26}</property>
        <property name="Name">[oSay0002]</property>
        <property name="Caption">
[Tecle ESC para encerrar as alteracoes e imprimir as etiquetas.]        </property>
        <property name="BackColor">16777215</property>
        <property name="font">
          <font name="Arial" width="0" height="-19" weight="700"/>
        </property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">3</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{550,368,452,78}</property>
        <property name="Name">[opVluOrig]</property>
        <property name="varName">[m_pVluOrig]</property>
        <property name="font">
          <font name="Arial" width="0" height="-64" weight="400"/>
        </property>
        <property name="cPicture">[@e 99,999.99]</property>
        <property name="nMaxLength">9</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">3</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[(m_pVluOrig:=se_prod->pVluVenda,m_pDataAlter:=se_prod->pDataAlter,m_peatual0:=se_prod->peatual,m_peatual:=se_prod->peatual,RefreshGetList(),.f.)]]>
      </method>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{29,368,452,78}</property>
        <property name="Name">[opEatual0]</property>
        <property name="varName">[m_pEatual0]</property>
        <property name="font">
          <font name="Arial" width="0" height="-64" weight="400"/>
        </property>
        <property name="cPicture">[@e 99,999.99]</property>
        <property name="nMaxLength">9</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">3</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[(m_peatual0:=se_prod->peatual,m_peatual:=se_prod->peatual,RefreshGetList(),.f.)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{245,86,260,26}</property>
        <property name="Name">[oSayPCOD]</property>
        <property name="Caption">[Codigo Reduzido / Codigo Barras]</property>
        <property name="TextColor">4194304</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">4</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{29,499,452,78}</property>
        <property name="Name">[opeAtual]</property>
        <property name="varName">[m_peAtual]</property>
        <property name="TextColor">4194304</property>
        <property name="BackColor">12582911</property>
        <property name="font">
          <font name="Arial" width="0" height="-64" weight="700"/>
        </property>
        <property name="cPicture">[@e 99,999.99]</property>
        <property name="nMaxLength">9</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">4</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[// 
RETURN (m_peatual0=m_peatual).OR.m_peatual>0.OR.(m_peatual0<0.AND.m_peatual=0).OR.(m_peatual=0.and.(ALERT("Confirma Zerar Saldo em Estoque ?",{"1.Nao","2.Sim"},"B/W")=2.or.(Alert("O estoque nao sera alterado!"),m_peatual:=m_peatual0,RefreshGetlist(),.t.)))]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{29,217,154,26}</property>
        <property name="Name">[oSayPdesc]</property>
        <property name="Caption">[Descricao]</property>
        <property name="TextColor">4194304</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="editbox">
      <style>
        <property name="Geometry">{550,499,452,78}</property>
        <property name="Name">[opVluVenda]</property>
        <property name="varName">[m_pVluVenda]</property>
        <property name="TextColor">4194304</property>
        <property name="BackColor">12582911</property>
        <property name="font">
          <font name="Arial" width="0" height="-64" weight="700"/>
        </property>
        <property name="cPicture">[@e 99,999.99]</property>
        <property name="nMaxLength">9</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">5</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[m_pvluvenda>0.and.eVal(bValidNewPrc)]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{550,341,162,25}</property>
        <property name="Name">[oSaypVluOrig]</property>
        <property name="Caption">[Preco Atual]</property>
        <property name="TextColor">4194304</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">6</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{29,341,272,25}</property>
        <property name="Name">[oLabel1]</property>
        <property name="Caption">[Quantidade em Estoque Atual]</property>
        <property name="TextColor">4194304</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">6</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{377,212,151,28}</property>
        <property name="Name">[oSaypDataAlter]</property>
        <property name="Caption">[Data da Alteracao]</property>
        <property name="TextColor">4194304</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">7</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{550,473,162,25}</property>
        <property name="Name">[oSaypVluVenda]</property>
        <property name="Caption">[Novo  Preco]</property>
        <property name="TextColor">4194304</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">8</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{29,473,227,25}</property>
        <property name="Name">[oLabel2]</property>
        <property name="Caption">[Novo  Saldo do Estoque]</property>
        <property name="TextColor">4194304</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">8</property>
      </style>
    </part>
    <part class="ownerbutton">
      <style>
        <property name="Geometry">{808,170,24,21}</property>
        <property name="Name">[oboPCOD]</property>
        <property name="BtnBitmap">[smPreview]</property>
        <property name="lResource">.T.</property>
        <property name="TabIndex">9</property>
      </style>
      <method name="onClick">
        <![CDATA[PSQ_BROW('SE_PROD','PSEPROD','M_PCOD','N','S',4,0,'','','','EXIBA',oPCOD,)]]>
      </method>
    </part>
  </part>
  <part class="button">
    <style>
      <property name="Geometry">{863,619,70,28}</property>
      <property name="Name">[oOwnerbutton1]</property>
      <property name="Id">[IDOK]</property>
      <property name="Caption">[&amp;OK]</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="700"/>
      </property>
      <property name="TabIndex">1000</property>
    </style>
  </part>
  <part class="button">
    <style>
      <property name="Geometry">{945,619,70,28}</property>
      <property name="Name">[oOwnerbutton2]</property>
      <property name="Id">[IDCANCEL]</property>
      <property name="Caption">[&amp;Cancela]</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="400"/>
      </property>
      <property name="TabIndex">1001</property>
    </style>
  </part>
  <part class="checkbox">
    <style>
      <property name="Geometry">{3,623,293,22}</property>
      <property name="Name">[oCheck1]</property>
      <property name="varName">[vCheck1]</property>
      <property name="Caption">[Alterar os Precos sem Alterar Estoques]</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">1002</property>
    </style>
    <method name="onClick">
      <![CDATA[IF (xGetEnv('ALTERA_PRECOS_E_ESTOQUE_AO_GERAR_ETQPRECO')<>'S'.AND.(ALERT("O sistema NAO esta configurado;para alteracao simultanea de precos e estoques!"),.t.)).OR.(UserIsAdmin().and.IsAcessoGerencial("alterar_estoque"))
   xSetEnv('ALTERA_PRECOS_E_ESTOQUE_AO_GERAR_ETQPRECO','N') 
   ALERT("O sistema foi reconfigurado;para alteracao de precos sem alterar estoques simultaneamente !")   
   MyKeyb(CHR(27)+CHR(27))
ENDIF]]>
    </method>
  </part>
</part>
