<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{308,132,667,598}</property>
    <property name="Name">[FPAGREC.scr]</property>
    <property name="Caption">[Desmembramento do Recebimento]</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,35,91,120,105)
hwg_TbMt(oToolbar,' 22;GetInfoParcRec(D_OB,"ES");Ins-Especie ;Ins-Recebimento em ESPECIE;vda00pp_dinheiro.jpg;;;Lucida Bright;-14;<Ins> &Especie;')
hwg_TbMt(oToolbar,' 67;GetInfoParcRec(D_OB,"CT");C-Cartao ;C-Recebimento em CARTAO;vda00pp_cartoes.jpg;;;Lucida Bright;-14;&Cartao;')
hwg_TbMt(oToolbar,' 72;GetInfoParcRec(D_OB,"CH");H-Cheque ;H-Recebimento em CHEQUE;vda00pp_cheque.jpg;;;Lucida Bright;-14;C&heque;')
hwg_TbMt(oToolbar,' 86;GetInfoParcRec(D_OB,"CV");V-Convenio ;V-Recebimento em CONVENIO;vda00pp_convenio.jpg;;;Lucida Bright;-14;Con&venio;')
hwg_TbMt(oToolbar,' 65;GetInfoParcRec(D_OB,"CA");A-Carne ;A-Recebimento em CARNE;vda00pp_pmixto.jpg;;;Lucida Bright;-14;C&arne;')
hwg_Btn(oToolbar,10,212,70,24)
hwg_TbMt(oToolbar,'13;EditaParcelaRecebimento(cr_tip_dup);Enter-Altera ;Enter-Altera Lancamento;sembitmap;;;Lucida Bright;-10;&Enter-Altera;')
hwg_TbMt(oToolbar,' 7;EditaParcelaRecebimento(cr_tip_dup,"DEL");Del-Apaga ;Del-Apaga Lancamento;sembitmap;;;Lucida Bright;-10;Del-&Deleta;')
hwg_Btn(oToolbar,580,212,70,24)
hwg_TbMt(oToolbar,'27;hwg_oDlgKey(oDlg, 27, nBrwAtivo);Saida;Saida;sembitmap;;;Lucida Bright;-10;&Esc-Sair;')
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,667,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{10,236,641,259}</property>
      <property name="Name">[D_oB]</property>
      <property name="Anchor">15</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-21" weight="600"/>
      </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, 'Td;CR_TIP_DUP;C;xx;  2;;')
hwg_TbFi(D_oB, 'Valor;CR_VALOR;N;9999999.99; 10;;')
hwg_TbFi(D_oB, 'Complemento;Cr_Obs;C;@S50; 50;;')
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.,"FPAGREC",.F.,.T.,{||.T.} }
// A tecla Enter foi associada ao botao acima... neste caso tem de definir a ::bEdit para nao fazer nada
// Voce indicaria na bedit uma funcao qualquer caso desejasse executar uma funcao para o enter sem usar botao
// d_ob:bEdit := {|D_oB| alert("esta no bloco enter"), nKey:=13, EditaParcelaRecebimento(cr_tip_dup)}
d_ob:bEdit := {|| .t.} 
d_ob:lEditable = .f.
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})
]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{11,504,145,30}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">[Ja Confirmado:]</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-19" weight="400"/>
      </property>
      <property name="TabIndex">6</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{10,12,647,64}</property>
      <property name="Name">[oLabel3]</property>
      <property name="Caption">
[(&quot;Indique as Formas de Pagamento no Caixa do Valor a Receber de R$  &quot;+Ltrim(Str(m_cp_valor,10,2)))]      </property>
      <property name="Justify">[Center]</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-29" weight="400"/>
      </property>
      <property name="TabIndex">6</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{410,504,95,30}</property>
      <property name="Name">[oLabel2]</property>
      <property name="Caption">[Pendente:]</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-19" weight="400"/>
      </property>
      <property name="TabIndex">6</property>
    </style>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{165,504,140,28}</property>
      <property name="Name">[oCp_Val_Lqd]</property>
      <property name="varName">[m_cp_val_lqd]</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-19" weight="400"/>
      </property>
      <property name="cPicture">[9999,999.99]</property>
      <property name="TabIndex">7</property>
    </style>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{512,504,140,28}</property>
      <property name="Name">[oCr_Saldo]</property>
      <property name="varName">[m_cr_saldo]</property>
      <property name="Transparent">.T.</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-19" weight="400"/>
      </property>
      <property name="cPicture">[9999,999.99]</property>
      <property name="TabIndex">7</property>
    </style>
  </part>
</part>
