<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{334,17,1060,800}</property>
    <property name="Name">[es_sngpc.scr]</property>
    <property name="Caption">[Entradas SNGPC]</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="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,'13;BrwXmlNFE(XmlFile, ChNfe, nNF, recno());Enter-Produtos ;Enter-Exibe Produtos do XML;sembitmap;;;Lucida Bright;-12;<Enter> &Exibir Produtos do XML;')
hwg_TbMt(oToolbar,' 22;xSngpc_Mnt(d_ob,"MOVADD","1");1-Add_Venda ;1-Add_Saida;sembitmap;;;Lucida Bright;-12;&1-Nova Venda;')
hwg_TbMt(oToolbar,' 22;xSngpc_Mnt(d_ob,"MOVADD","2");2-Add_Compra ;2-Add_Entrada;sembitmap;;;Lucida Bright;-12;&2-Nova Compra;')
hwg_TbMt(oToolbar,' 22;xSngpc_Mnt(d_ob,"MOVADD","3");3-Add_Perda ;3-Add_Perda;sembitmap;;;Lucida Bright;-12;&3-Nova Perda;')
hwg_TbMt(oToolbar,' 22;xSngpc_Mnt(d_ob,"MOVADD","4");4-Add_Transf ;4-Add_Transf;sembitmap;;;Lucida Bright;-12;&4-Nova Transferencia;')
hwg_TbMt(oToolbar,' 13;xSngpc_Mnt(d_ob,"MOVUPD");Enter-Altera ;Enter-Altera;;')
hwg_TbMt(oToolbar,'  7;xSngpc_Mnt(d_ob,"MOVDEL");DEL-DELeta ;DEL-Deleta;;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,' 80;tb_pesq(D_OB);P-Pesquisa ;P-Pesquisa;;')
hwg_TbMt(oToolbar,' 84;tb_locate(D_OB);T-Trecho ;T-Acha Trecho;;')
hwg_TbMt(oToolbar,' 79;tb_index(D_OB);O-Ordena ;O-Ordena;;')
hwg_TbMt(oToolbar,' 73;lst_alias(D_OB);I-Imprime ;I-Imprime;;')
hwg_TbMt(oToolbar,'0;;;espaco;espaco;')
hwg_TbMt(oToolbar,' 32;xSngpc_Mnt(d_ob, "MOVCONCILIA");Barra-Concilia ;Barra - Concilia;;')
hwg_TbMt(oToolbar,'27;hwg_oDlgKey(oDlg, 27, nBrwAtivo);Saida;Saida;xml\icon\sair.ico;;;;;')
SetDlgKey(oDlg,8,26,{|| (aBrowses[nBrwAtivo,2])->(moveRec(aBrowses[nBrwAtivo,1],"UP"))})
SetDlgKey(oDlg,8,28,{|| (aBrowses[nBrwAtivo,2])->(moveRec(aBrowses[nBrwAtivo,1],"DOWN"))})
oLabelDe:Show()
oLabelAte:Show()
oDe:Hide()
oAte:Hide()
IF wDataBal>=w30d
   oChkM30:Hide()
   oLabelM30:Hide()
ENDIF
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,770,1060,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="container">
    <style>
      <property name="Geometry">{9,554,320,122}</property>
      <property name="Name">[oContainer1]</property>
      <property name="TabIndex">0</property>
    </style>
    <part class="checkbox">
      <style>
        <property name="Geometry">{16,559,17,20}</property>
        <property name="Name">[oChkDe]</property>
        <property name="varName">[vCheck1]</property>
        <property name="Caption">[]</property>
        <property name="TabIndex">30</property>
      </style>
      <method name="onClick">
        <![CDATA[IF oChkDe:GetValue()
   oLabelDe:Hide()
   oDe:Show()
   oDe:SETFOCUS()
ELSE
   oLabelDe:Show()
   oDe:SETGet(CTOD(''))
   oDe:Hide()
   xSngpcFiltra('RETIRE_DE')
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="checkbox">
      <style>
        <property name="Geometry">{16,586,17,20}</property>
        <property name="Name">[oChkAte]</property>
        <property name="varName">[vCheck2]</property>
        <property name="Caption">[]</property>
        <property name="TabIndex">30</property>
      </style>
      <method name="onClick">
        <![CDATA[IF oChkAte:GetValue()
   oLabelAte:Hide()
   oAte:Show()
   oAte:SETFOCUS()
ELSE
   oAte:SETGet(CTOD(''))
   oAte:Hide()
   oLabelAte:Show()
   xSngpcFiltra('RETIRE_ATE')
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="checkbox">
      <style>
        <property name="Geometry">{16,622,17,20}</property>
        <property name="Name">[oChkM30]</property>
        <property name="varName">[vCheck3]</property>
        <property name="Caption">[]</property>
        <property name="TabIndex">30</property>
      </style>
      <method name="onClick">
        <![CDATA[IF oChkM30:GetValue()
   xSngpcFiltra('EXIB_M30')
ELSE
   xSngpcFiltra('OCULTA_M30')
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="checkbox">
      <style>
        <property name="Geometry">{16,647,17,20}</property>
        <property name="Name">[oChkInvent]</property>
        <property name="varName">[vCheck4]</property>
        <property name="Caption">[]</property>
        <property name="TabIndex">30</property>
      </style>
      <method name="onClick">
        <![CDATA[IF oChkInvent:GetValue()
   xSngpcFiltra('EXIB_ANTES_INVENT')
ELSE
   xSngpcFiltra('OCULTA_ANTES_INVENT')
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{176,562,140,22}</property>
        <property name="Name">[oDe]</property>
        <property name="varName">[d_de]</property>
        <property name="cPicture">[99/99/9999]</property>
        <property name="TabIndex">32</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[xSngpcFiltra('PESQUISAR')
d_ob:SetFocus()
RETURN .t.]]>
      </method>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{176,588,140,22}</property>
        <property name="Name">[oAte]</property>
        <property name="varName">[d_Ate]</property>
        <property name="cPicture">[99/99/9999]</property>
        <property name="TabIndex">32</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[xSngpcFiltra('PESQUISAR')
d_ob:SETFOCUS()
RETURN .t.]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{36,561,127,19}</property>
        <property name="Name">[oLabel3]</property>
        <property name="Caption">[Partindo da data:]</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">35</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{36,588,100,19}</property>
        <property name="Name">[oLabel4]</property>
        <property name="Caption">[Até a data:]</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">35</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{176,562,145,19}</property>
        <property name="Name">[oLabelDe]</property>
        <property name="Caption">[__/__/____]</property>
        <property name="TabIndex">43</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{176,588,145,19}</property>
        <property name="Name">[oLabelAte]</property>
        <property name="Caption">[__/__/____]</property>
        <property name="TabIndex">43</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{36,623,283,19}</property>
        <property name="Name">[oLabelM30]</property>
        <property name="Caption">[Exibir Movimentacoes com mais de 30 dias]</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">47</property>
      </style>
    </part>
  </part>
  <part class="container">
    <style>
      <property name="Geometry">{10,457,495,88}</property>
      <property name="Name">[oContainer2]</property>
      <property name="TabIndex">0</property>
    </style>
    <part class="label">
      <style>
        <property name="Geometry">{18,466,334,19}</property>
        <property name="Name">[oLabel1]</property>
        <property name="Caption">
[Procurar registros com as seguintes ocorrências:]        </property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">31</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{18,490,480,22}</property>
        <property name="Name">[oFiltroStr]</property>
        <property name="varName">[m_FiltroStr]</property>
        <property name="TabIndex">32</property>
      </style>
      <method name="onLostFocus">
        <![CDATA[xSngpcFiltra('PESQUISAR')
d_ob:SetFocus()
RETURN .t.]]>
      </method>
      <method name="onGetFocus">
        <![CDATA[// keyb_event(VK_END,.F.,.T.)
keyb_event(0x23,.F.,.T.)
RETURN .t.]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{18,513,474,19}</property>
        <property name="Name">[oLabel2]</property>
        <property name="Caption">
[Filtros relacionados por: Histórico, No Documento, Medicamento e Lote]        </property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">33</property>
      </style>
    </part>
  </part>
  <part class="container">
    <style>
      <property name="Geometry">{337,554,167,122}</property>
      <property name="Name">[oContainer3]</property>
      <property name="TabIndex">0</property>
    </style>
    <part class="line">
      <style>
        <property name="Geometry">{349,610,140,2}</property>
        <property name="Name">[oLine1]</property>
        <property name="BorderWidth">2</property>
      </style>
      <method name="onInit">
        <![CDATA[IF .NOT. oChkM30:GetValue()
   xSngpcFiltra('EXIB_M30')
ELSE
   xSngpcFiltra('OCULTA_M30')
ENDIF]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{362,561,116,19}</property>
        <property name="Name">[oLabel7]</property>
        <property name="Caption">[Só Psicotrópicos]</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">35</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{362,582,112,19}</property>
        <property name="Name">[oLabel8]</property>
        <property name="Caption">[Só Antibióticos]</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">35</property>
      </style>
    </part>
    <part class="checkbox">
      <style>
        <property name="Geometry">{342,559,17,22}</property>
        <property name="Name">[oChkSoPsico]</property>
        <property name="varName">[vCheck5]</property>
        <property name="Caption">[]</property>
        <property name="TabIndex">48</property>
      </style>
      <method name="onClick">
        <![CDATA[IF oChkSoPsico:GetValue()
   IF oChkSoAntib:GetValue()
      oChkSoAntib:SetValue(.f.)
      oChkSoAntib:Refresh()
      xSngpcFiltra('RETIRE_ANTIB')
   ENDIF
   xSngpcFiltra('SO_PSICO')
ELSE
   xSngpcFiltra('RETIRE_PSICO')
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="checkbox">
      <style>
        <property name="Geometry">{342,581,17,22}</property>
        <property name="Name">[oChkSoAntib]</property>
        <property name="varName">[vCheck6]</property>
        <property name="Caption">[]</property>
        <property name="TabIndex">48</property>
      </style>
      <method name="onClick">
        <![CDATA[IF oChkSoAntib:GetValue()
   IF oChkSoPsico:GetValue()
      oChkSoPsico:SetValue(.f.)
      oChkSoPsico:Refresh()
      xSngpcFiltra('RETIRE_PSICO')
   ENDIF
   xSngpcFiltra('SO_ANTIB')
ELSE
   xSngpcFiltra('RETIRE_ANTIB')
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="checkbox">
      <style>
        <property name="Geometry">{342,622,17,22}</property>
        <property name="Name">[oChkConcil]</property>
        <property name="varName">[vCheck7]</property>
        <property name="Caption">[]</property>
        <property name="TabIndex">48</property>
      </style>
      <method name="onClick">
        <![CDATA[IF oChkConcil:GetValue()
   IF oChkNaoConcil:GetValue()
      oChkNaoConcil:SetValue(.f.)
      oChkNaoConcil:Refresh()
      xSngpcFiltra('RETIRE_NAOCONCIL')
   ENDIF
   xSngpcFiltra('SO_CONCIL')
ELSE
   xSngpcFiltra('RETIRE_CONCIL')
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="checkbox">
      <style>
        <property name="Geometry">{342,645,17,22}</property>
        <property name="Name">[oChkNaoConcil]</property>
        <property name="varName">[vCheck8]</property>
        <property name="Caption">[]</property>
        <property name="TabIndex">48</property>
      </style>
      <method name="onClick">
        <![CDATA[IF oChkNaoConcil:GetValue()
   IF oChkConcil:GetValue()
      oChkConcil:SetValue(.f.)
      oChkConcil:Refresh()
      xSngpcFiltra('RETIRE_CONCIL')
   ENDIF
   xSngpcFiltra('SO_NAOCONCIL')
ELSE
   xSngpcFiltra('RETIRE_NAOCONCIL')
ENDIF
RETURN .t.]]>
      </method>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{362,622,138,19}</property>
        <property name="Name">[oLabel9]</property>
        <property name="Caption">[Só Não Transmitidos]</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">49</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{362,646,138,19}</property>
        <property name="Name">[oLabel10]</property>
        <property name="Caption">[Só Não Conciliados]</property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">50</property>
      </style>
    </part>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{10,69,1041,379}</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="onKeyDown">
      <![CDATA[IF .NOT. oChkInvent:GetValue()
   xSngpcFiltra('EXIB_ANTES_INVENT')
ELSE
   xSngpcFiltra('OCULTA_ANTES_INVENT')
ENDIF]]>
    </method>
    <method name="onGetFocus">
      <![CDATA[nBrwAtivo:=1]]>
    </method>
    <method name="onInit">
      <![CDATA[hwg_TbFi(D_oB, 'St;if(REG_SEL="T","Transmitido",if(REG_SEL="S","Ok p/Enviar","Nao Conciliado"));C;@s13;13;N;')
hwg_TbFi(D_oB, 'TipoLan;if(mfges="1","Saida",if(mfges="2","Entrada",if(mfges="3","Perda","Transferencia")));C;@s8;8;N;')
hwg_TbFi(D_oB, 'Data;mData;D;;8;;')
hwg_TbFi(D_oB, 'Historico;cr_nome;C;@S30;30;;')
hwg_TbFi(D_oB, 'Documento;numerodoc;C;@S13;13;;')
hwg_TbFi(D_oB, 'Medicamento;pdesc;C;@s30;30;N;')
hwg_TbFi(D_oB, 'Lote;PLOTE;C;@S10; 10;;')
hwg_TbFi(D_oB, 'Quant;MQUANT;N;999999;6;;')
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.,"SNGPC_EN",.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">{36,648,301,19}</property>
      <property name="Name">[oLabel6]</property>
      <property name="Caption">[Exibir Anteriores ao Inventario]</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">47</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{619,457,430,19}</property>
      <property name="Name">[oLabel11]</property>
      <property name="Caption">
[(&quot;Último Inventário: &quot;+if(wFgJaInv, Dtoc( wDataBal)+&quot; às &quot;+wHoraBal+&quot; hs&quot;,&quot;** SEM INVENTÁRIO **&quot;))]      </property>
      <property name="Justify">[Right]</property>
      <property name="TextColor">16711808</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">51</property>
    </style>
  </part>
</part>
