<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{308,132,1022,598}</property>
    <property name="Name">[sccpconc_sxconc.scr]</property>
    <property name="Caption">[Titulos a Pagar]</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,64,64)

IF LEFT(wccrnome,6)="BrdChq"
   oLabel5:TITLE := "Valor do Bordero de Cheques"   
   hwg_TbMt(oToolbar,'13;gera_rldep(d_ob,"marca_desmarca");Enter-Seleciona ;Enter-Seleciona titulo para quitacao via lancamento bancario;enter.ico;;;Lucida Bright;-11;&Seleciona;;;')
ELSE
   hwg_TbMt(oToolbar,'13;zoOfx:DoEvent("marca_desmarca",d_ob);Enter-Seleciona ;Enter-Seleciona titulo para quitacao via lancamento bancario;enter.ico;;;Lucida Bright;-11;&Seleciona;;;')
ENDIF

hwg_TbMt(oToolbar,'22;zoOfx:DoEvent("novaselecao",d_ob);Ins-Mais;Ins-Seleciona outros titulos para conciliacao;cadastrar.ico;;;;;&Mais;;;')
hwg_TbMt(oToolbar,'65;if(cp_status<>"S",Mensagem("Titulo ainda nao conferido!",1),tb_update(D_OB));A-Altera ;A-Altera;alterar.ico;;;;;&A-Altera;;;')
hwg_TbMt(oToolbar,'7;if(cp_status<>"S",Mensagem("Titulo ainda nao conferido!",1),tb_del(d_ob));Del-Apaga ;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;;;')
d_ob:lEditable = .t.
hwg_TbMt(oToolbar,' 79;tb_index(D_ob);O-Ordena ;O-Ordena a coluna do cursor;ordenar.ico;;;;;&O-Ordena;;;')
hwg_Btn(oToolbar,10,544,70,24)
hwg_TbMt(oToolbar,' 61;doget(D_ob,,.t.);=-Repete_Edicao ;= - Repete_Edicao;sembitmap;;;Lucida Bright;-11;&=-Repete_Edicao;;6;')
hwg_TbMt(oToolbar,' 76;tb_locate(D_OB);L-Busca_Iniciais ;L-Busca pelas Iniciais na coluna do cursor;sembitmap;;;Lucida Bright;-11;&L-Iniciais;;6;')
hwg_TbMt(oToolbar,' 67;tb_locate(D_OB);C-Continua_Busca ;C-Repete Busca na coluna do cursor;sembitmap;;;Lucida Bright;-11;&C-Continua;;6;')
hwg_TbMt(oToolbar,' 84;tb_locate(D_OB);T-Busca_Trecho ;T-Pesquisa Trecho na coluna do cursor;sembitmap;;;Lucida Bright;-11;&T-Trecho;;6;')
hwg_TbMt(oToolbar,' 32;cp_confere(d_ob);Barra-Confere/DesMarca ;Barra - Confere/DesMarca;sembitmap;;;Lucida Bright;-11;Confere/DesMarca;;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()
if type("oDlgStatusBar")="B"
   oDlgStatusBar:Anchor:=14
ENDIF
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,568,1022,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{10,77,1000,414}</property>
      <property name="Name">[D_oB]</property>
      <property name="Anchor">15</property>
      <property name="font">
        <font name="Lucida Sans Unicode" width="0" height="-16" 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, '*;fg_Sit;C;x;1;S;')
hwg_TbFi(D_oB, 'c;Cp_Status;C;x;1;S;')
hwg_TbFi(D_oB, 'Dt Venc;CP_DT_VENC;D;99.99.99;8;N;')
hwg_TbFi(D_oB, 'Fantasia;Substr(fantforn(CP_COD_FOR),6);C;@s10; 10;N;')
hwg_TbFi(D_oB, 'Valor;CP_VALOR;N;999999.99;9;S;')
hwg_TbFi(D_oB, 'Saldo;if(day(cp_dt_lqd)=0.and.cp_valor>cp_adiant,cp_valor-cp_Adiant,0);P;99999999.99;11;N;')
hwg_TbFi(D_oB, 'Adiant;cp_adiant;N;99999999.99;11;N;')
hwg_TbFi(D_oB, 'Comentario;CP_DESC;C;@s34;30;S;')
hwg_TbFi(D_oB, 'Dt Emis;CP_DT_EMIS;D;99.99.99;8;N;')
hwg_TbFi(D_oB, 'Duplic;CP_DUPLIC;C;xxxxxxxxx; 10;N;')
hwg_TbFi(D_oB, 'Val_Lqd;cp_val_lqd;N;99999999.99;11;S;')
hwg_TbFi(D_oB, 'Dt_Lqd;cp_dt_lqd;D;99.99.99;11;S;')
hwg_TbFi(D_oB, 'Cod Ped;CP_NUM_PED;C;xxxxxxxx;  8;N;')
hwg_TbFi(D_oB, 'Div;CP_DIVISAO;N;999;3;S;')
hwg_TbFi(D_oB, 'Lj;Floja;N;99;2;S;')
hwg_TbFi(D_oB, 'Forn;Cp_Cod_For;N;9999;4;S;')
hwg_TbFi(D_oB, 'Pt;CP_LOCAL;N;999;3;S;')
hwg_TbFi(D_oB, 'S;CP_SITUACA;N;1;1;S;')
hwg_TbFi(D_oB, '%TxVendor;CP_txVndor;N;99.99;9;S;')
hwg_TbFi(D_oB, 'DscVencto;CP_DscVenc;N;999999.99;9;S;')
hwg_TbFi(D_oB, 'Acesso;rec_del();N;;7;N;')
hwg_TbFi(D_oB, 'Dt Ref;CP_DT_REF;D;99.99.99;8;N;')
hwg_TbFi(D_oB, 'Tl;CP_TIP_LQD;C;x;2;S;')
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.,"SCCPPED",.F.,.T.,{||.T.} }
d_ob:bEdit := {|D_oB| .t.}
sHwgKeyEdit:= 61
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})
]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{696,0,181,75}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">[Tecle ENTER sobre os titulos a ser quitados]</property>
      <property name="Justify">[Right]</property>
      <property name="TextColor">16711680</property>
      <property name="font">
        <font name="Arial" width="0" height="-21" weight="700"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{338,496,269,69}</property>
      <property name="Name">[oLabel2]</property>
      <property name="Caption">
[Tecle ESC para confirmar ou nao a quitacao dos titulos selecionados]      </property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">6</property>
      <property name="TextColor">16711680</property>
      <property name="font">
        <font name="Arial" width="0" height="-19" weight="700"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{584,0,109,34}</property>
      <property name="Name">[oEdit1]</property>
      <property name="varName">[wPrincipal]</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-16" weight="400"/>
      </property>
      <property name="cPicture">[999999.99]</property>
      <property name="TabIndex">9</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[.f.]]>
    </method>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{642,525,109,34}</property>
      <property name="Name">[omQuant]</property>
      <property name="varName">[wQtdAbertas]</property>
      <property name="Anchor">6</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-16" weight="400"/>
      </property>
      <property name="cPicture">[999999.99]</property>
      <property name="TabIndex">9</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[.f.]]>
    </method>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{771,525,109,34}</property>
      <property name="Name">[ofVal]</property>
      <property name="varName">[m_fValQuitado]</property>
      <property name="Anchor">6</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-16" weight="400"/>
      </property>
      <property name="cPicture">[999999.99]</property>
      <property name="TabIndex">9</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[.f.]]>
    </method>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{410,36,283,34}</property>
      <property name="Name">[oEdit2]</property>
      <property name="varName">[wcCrNome]</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-16" weight="400"/>
      </property>
      <property name="Justify">[Right]</property>
      <property name="cPicture">[]</property>
      <property name="TabIndex">9</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[.f.]]>
    </method>
  </part>
  <part class="editbox">
    <style>
      <property name="Geometry">{899,525,109,34}</property>
      <property name="Name">[oPrUnit]</property>
      <property name="varName">[wSaldo]</property>
      <property name="Anchor">6</property>
      <property name="font">
        <font name="Lucida Bright" width="0" height="-16" weight="400"/>
      </property>
      <property name="cPicture">[999999.99]</property>
      <property name="TabIndex">9</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[.f.]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{659,491,92,34}</property>
      <property name="Name">[oLabel3]</property>
      <property name="Caption">[Titulos Selecionados:]</property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">6</property>
      <property name="TextColor">16711680</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">10</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{788,491,92,34}</property>
      <property name="Name">[oLabel4]</property>
      <property name="Caption">[Valor Selecionado:]</property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">6</property>
      <property name="TextColor">16711680</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">10</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{467,0,114,34}</property>
      <property name="Name">[oLabel5]</property>
      <property name="Caption">[Referencia e Valor do Extrato:]</property>
      <property name="Justify">[Right]</property>
      <property name="TextColor">16711680</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">10</property>
    </style>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{916,491,92,34}</property>
      <property name="Name">[oLabel6]</property>
      <property name="Caption">[Valor Pendente:]</property>
      <property name="Justify">[Right]</property>
      <property name="Anchor">6</property>
      <property name="TextColor">16711680</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">10</property>
    </style>
  </part>
</part>
