<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{215,26,1019,693}</property>
    <property name="Name">[SCCRDPC1.scr]</property>
    <property name="Caption">[Compras do Cliente]</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">[tela.jpg]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.T.</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="onDlgInit">
    <![CDATA[parameters oDlg
//skel VARIAVEL w_colsep = " "+chr(179)
//skel VARIAVEL zReg:=0
//skel VARIAVEL zFgCalJurEmi = (xGetEnv('CALCULA_JUROS_PARTINDO_DA_EMISSAO')=='S')
//skel VARIAVEL zBlkDiasAt = {||if(zFgCalJurEmi, if(s_datual>cr_dt_emis,s_datual-cr_dt_emis,0), if(s_datual>cr_dt_venc,s_datual-cr_dt_venc,0) ) }
//skel VARIAVEL zbRecalc= {||zReg:=Recno(),m_fValQuitado:=0,DBGOTOP(),DBEVAL({||m_fValQuitado+=cr_aRec}),DBGOTO(zReg),m_fValEs:=if(wOpcao="QC_SELECAO",m_fValQuitado,m_fValEs),m_fTroco:=m_fValEs-m_fValQuitado, RefreshGetList()}

oContextMenu:=Hwg_ContextMenu()
hwg_Btn(oToolbar,10,605-24,110,48)
IF wlLanctoTesouraria
   hwg_TbMt(oToolbar,'13;(tb_update(D_oB,"SCCRDPC1_SX"),eVal(zbRecalc),DobRefresh());Enter-Seleciona Titulo;Enter-Seleciona titulo para quitacao;sembitmap;;;Lucida Bright;-11;Enter-&Quitacao Adiantamento;;6;')
ELSE
   hwg_TbMt(oToolbar,'13;(tb_update(D_oB,"SCCRDPC1_CX"),eVal(zbRecalc),DobRefresh());Enter-Seleciona Titulo;Enter-Seleciona titulo para quitacao;sembitmap;;;Lucida Bright;-11;Enter-&Quitacao Adiantamento;;6;')
endif
hwg_TbMt(oToolbar,'22;(AgrupaDeb(D_oB),eVal(zbRecalc),DobRefresh());Ins-Quitacao Multipla;Ins-Efetua quitacao multipla de titulos;sembitmap;;;Lucida Bright;-11;Ins-Quitacao &Multipla;;6;')

hwg_Btn(oToolbar,10+5,605+24+5,70,24)
hwg_TbMt(oToolbar,'80;tb_pesq(D_OB);P-Pesquisa ;P-Pesquisa;sembitmap;;;Lucida Bright;-11;&Pesquisa;;6;')
hwg_TbMt(oToolbar,'84;tb_locate(D_oB);T-Trecho;T-Trecho;sembitmap;;;Lucida Bright;-11;&Trecho;;6;')
hwg_TbMt(oToolbar,'79;tb_index(D_OB);O-Ordena;O-Ordena;sembitmap;;;Lucida Bright;-11;&Ordena;;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,663,1019,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="container">
    <style>
      <property name="Geometry">{9,48,789,81}</property>
      <property name="Name">[oContainer1]</property>
      <property name="Anchor">3</property>
      <property name="TabIndex">0</property>
    </style>
    <part class="label">
      <style>
        <property name="Geometry">{12,54,206,27}</property>
        <property name="Name">[oLabel3]</property>
        <property name="Caption">[Valor em Aberto]</property>
        <property name="Justify">[Right]</property>
        <property name="Anchor">3</property>
        <property name="font">
          <font name="Segoe UI Emoji" width="0" height="-16" weight="400"/>
        </property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">7</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{218,54,185,27}</property>
        <property name="Name">[oLabel4]</property>
        <property name="Caption">[Adiantamentos]</property>
        <property name="Justify">[Right]</property>
        <property name="Anchor">3</property>
        <property name="TextColor">32768</property>
        <property name="font">
          <font name="Segoe UI Emoji" width="0" height="-16" weight="400"/>
        </property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">7</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{404,54,180,27}</property>
        <property name="Name">[oLabel5]</property>
        <property name="Caption">[Correcao]</property>
        <property name="Justify">[Right]</property>
        <property name="Anchor">3</property>
        <property name="TextColor">128</property>
        <property name="font">
          <font name="Segoe UI Emoji" width="0" height="-16" weight="400"/>
        </property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">7</property>
      </style>
    </part>
    <part class="label">
      <style>
        <property name="Geometry">{597,54,194,27}</property>
        <property name="Name">[oLabel6]</property>
        <property name="Caption">[Saldo a Receber]</property>
        <property name="Justify">[Right]</property>
        <property name="Anchor">3</property>
        <property name="font">
          <font name="Segoe UI Emoji" width="0" height="-16" weight="400"/>
        </property>
        <property name="Transparent">.T.</property>
        <property name="TabIndex">7</property>
      </style>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{12,82,206,41}</property>
        <property name="Name">[oEdit1]</property>
        <property name="varName">[wPrincipal]</property>
        <property name="Anchor">3</property>
        <property name="font">
          <font name="Segoe UI Emoji" width="0" height="-29" weight="700"/>
        </property>
        <property name="cPicture">[@e 999,999.99]</property>
        <property name="nMaxLength">10</property>
        <property name="Border">.F.</property>
        <property name="TabIndex">8</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[.f.]]>
      </method>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{218,82,185,41}</property>
        <property name="Name">[oEdit2]</property>
        <property name="varName">[wAdiantamentos]</property>
        <property name="Anchor">3</property>
        <property name="TextColor">32768</property>
        <property name="font">
          <font name="Segoe UI Emoji" width="0" height="-29" weight="700"/>
        </property>
        <property name="cPicture">[@e 999,999.99]</property>
        <property name="nMaxLength">10</property>
        <property name="Border">.F.</property>
        <property name="TabIndex">8</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[.f.]]>
      </method>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{404,82,180,41}</property>
        <property name="Name">[oEdit3]</property>
        <property name="varName">[wJuros]</property>
        <property name="Anchor">3</property>
        <property name="TextColor">128</property>
        <property name="font">
          <font name="Segoe UI Emoji" width="0" height="-29" weight="700"/>
        </property>
        <property name="cPicture">[@e 999,999.99]</property>
        <property name="nMaxLength">10</property>
        <property name="Border">.F.</property>
        <property name="TabIndex">8</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[.f.]]>
      </method>
    </part>
    <part class="editbox">
      <style>
        <property name="Geometry">{585,82,206,41}</property>
        <property name="Name">[oEdit4]</property>
        <property name="varName">[wSaldo]</property>
        <property name="Anchor">3</property>
        <property name="font">
          <font name="Segoe UI Emoji" width="0" height="-29" weight="700"/>
        </property>
        <property name="cPicture">[@e 999,999.99]</property>
        <property name="nMaxLength">10</property>
        <property name="Border">.F.</property>
        <property name="TabIndex">8</property>
      </style>
      <method name="onGetFocus">
        <![CDATA[.f.]]>
      </method>
    </part>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{9,133,1002,417}</property>
      <property name="Name">[D_oB]</property>
      <property name="Anchor">3</property>
      <property name="font">
        <font name="Segoe UI Emoji" width="0" height="-15" weight="400"/>
      </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, 'Sel;if(Cr_aRec>0,"*"," ");C;XXX;3;N;')
hwg_TbFi(D_oB, 'SendoPg;cr_aRec;N;@E 999,999.99; 10;S;')
hwg_TbFi(D_oB, 'Cupom;cr_num_ped;C;@S10;10;N;')
hwg_TbFi(D_oB, 'Emissao;cr_dt_emis;D;;  8;N;')
hwg_TbFi(D_oB, 'DtVencto;cr_dt_venc;D;;  8;N;')
hwg_TbFi(D_oB, 'Principal;cr_Valor;N;@E 999,999.99; 10;N;')
hwg_TbFi(D_oB, 'Ja_Adiantado;cr_Val_Lqd;N;@E 999,999.99; 10;N;')
hwg_TbFi(D_oB, 'Juros;cr_Juros;N;@E 999,999.99; 10;N;')
hwg_TbFi(D_oB, 'Saldo;cr_Saldo-cr_aRec;P;@E 999,999.99; 10;N;')
hwg_TbFi(D_oB, 'Atr;Eval(zBlkDiasAt);N;9999; 4;N;')
hwg_TbFi(D_oB, 'Situacao;if(Day(cr_dt_lqd)>0,"SeraQuitado",if(cr_val_lqd+cr_aRec>0,"RecParcial",""));C;@S11; 11;S;')
hwg_TbFi(D_oB, 'Cta;sx_conta;N;9999;4;N;')
hwg_TbFi(D_oB, 'fp;cr_formapg;C;;2;N;')
hwg_TbFi(D_oB, 'DiasEmi;(s_datual-cr_dt_emis);N;9999999; 7;N;')
hwg_TbFi(D_oB, 'DiasVen;(s_datual-cr_dt_venc);N;9999999; 7;N;')
hwg_TbFi(D_oB, 'Vd;cr_zona;C;99;  2;N;')
hwg_TbFi(D_oB, 'Hora;cr_hora;C;99:99;5;N;')
hwg_TbFi(D_oB, 'Obs;cr_obs;C;@s25;25;S;')
hwg_TbFi(D_oB, 'DtAlter;cr_data;D;;8;N;')
hwg_TbFi(D_oB, 'HrAlter;cr_hora;C;xxxxx;5;N;')
hwg_TbFi(D_oB, 'Usuario;cr_usuario;C;@s8;8;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.,"SCCRDPC1",.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">{252,585,756,29}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">
[Tecle ENTER ou INS sobre os Titulos a ser Total ou Parcialmente Quitados.]      </property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">24</property>
      <property name="font">
        <font name="Segoe UI Emoji" width="0" height="-16" weight="400"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{252,611,756,29}</property>
      <property name="Name">[oLabel7]</property>
      <property name="Caption">
[Apos selecao dos Titulos, tecle ESC para informar as Formas de Pagamento no Caixa dos valores recebidos.]      </property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">24</property>
      <property name="font">
        <font name="Segoe UI Emoji" width="0" height="-16" weight="400"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{11,11,911,33}</property>
      <property name="Name">[oLabel2]</property>
      <property name="Caption">
[(&apos;Titulos do Cliente: (&apos;+Str(m_fcli,6)+&apos;)- &apos;+wcCrNome)]      </property>
      <property name="Anchor">3</property>
      <property name="font">
        <font name="Segoe UI Emoji" width="0" height="-21" weight="700"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">6</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{804,54,115,25}</property>
      <property name="Name">[oLabel8]</property>
      <property name="Caption">[Valor a Quitar:]</property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">9</property>
      <property name="font">
        <font name="Futura Light" width="0" height="-15" weight="300"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">7</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{821,80,98,25}</property>
      <property name="Name">[oLabel9]</property>
      <property name="Caption">[Digitado:]</property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">9</property>
      <property name="font">
        <font name="Futura Light" width="0" height="-15" weight="300"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">7</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{809,106,110,25}</property>
      <property name="Name">[oLabel10]</property>
      <property name="Caption">[Pendente:]</property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">9</property>
      <property name="font">
        <font name="Futura Light" width="0" height="-15" weight="300"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">7</property>
    </style>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{920,54,88,25}</property>
      <property name="Name">[oEdit5]</property>
      <property name="varName">[m_fValEs]</property>
      <property name="Anchor">9</property>
      <property name="font">
        <font name="Futura Light" width="0" height="-16" weight="300"/>
      </property>
      <property name="cPicture">[@e 999,999.99]</property>
      <property name="nMaxLength">10</property>
      <property name="Border">.F.</property>
      <property name="TabIndex">9</property>
    </style>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{920,80,88,25}</property>
      <property name="Name">[oEdit6]</property>
      <property name="varName">[m_fValQuitado]</property>
      <property name="Anchor">9</property>
      <property name="font">
        <font name="Futura Light" width="0" height="-16" weight="300"/>
      </property>
      <property name="cPicture">[@e 999,999.99]</property>
      <property name="nMaxLength">10</property>
      <property name="Border">.F.</property>
      <property name="TabIndex">9</property>
    </style>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{920,106,88,25}</property>
      <property name="Name">[oEdit7]</property>
      <property name="varName">[m_fTroco]</property>
      <property name="Anchor">9</property>
      <property name="font">
        <font name="Futura Light" width="0" height="-16" weight="300"/>
      </property>
      <property name="cPicture">[@e 999,999.99]</property>
      <property name="nMaxLength">10</property>
      <property name="Border">.F.</property>
      <property name="TabIndex">9</property>
    </style>
  </part>
</part>
