<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{308,132,1022,598}</property>
    <property name="Name">[ct_brdt.scr]</property>
    <property name="Caption">[Borderos/Remessas Bancarias]</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

//skel variavel zbDesc := {|nPortador|si_banco->(DbGoTo(nPortador),banco)}
//skel VARIAVEL zbCli={|nCodCli|sccrcli->(DbGoto(nCodCli),cr_nome)}
//skel VARIAVEL z_recno:=1
//skel VARIAVEL znil:=(DbGoBottom(),DbSkip(-4),z_recno:=Recno())
//skel VARIAVEL zbOpenAll:=#TEXTO_FONTE
//skel    DbCloseAll()
//skel    Abra('0NOIDX',r_siga,'SI_BANCO','SI_BANCO')
//skel    Abra('0NOIDX',r_siga,'sccrcli','sccrcli')
//skel    ABRA('0NOIDX',r_siga,'Ct_Brd','Ct_Brd','Ct_Brd','BORDERO')
//skel    Abra('0NOIDX', r_siga, 'Ct_BrdT','Ct_BrdT', 'Ct_BrdT', 'BORDERO')
//skel    DbGoTo( z_recno )
//skel #FIM_TEXTO_FONTE
//skel VARIAVEL znil=eVal(zbOpenAll)
//skel VARIAVEL zbPrtBordero:= {||oDlg:hide(), z_recno:=Recno(), Relat('si_rlcrn('+lTrim(Str(Bordero,10))+','+lTrim(Str(portador,10))+')','nobox',,'X'), eVal(zbOpenAll), oDlg:show(), DobRefresh() }

oContextMenu:=Hwg_ContextMenu()
hwg_Btn(oToolbar,5,5,64,64)
//hwg_TbMt(oToolbar,' 22;tb_insert(D_OB);Ins-Inclui ;Ins-Inclui;cadastrar.ico;;;;;Inclui;;;')
//hwg_TbMt(oToolbar,' 65;tb_update(D_OB);A-Altera ;A-Altera;alterar.ico;;;;;&A-Altera;;;')
hwg_TbMt(oToolbar,'7;DeleteBordero(Bordero,D_oB);DEL-DELeta ;DEL-Deleta;deletar.ico;;;;;Deleta;;;')
d_ob:lEditable := .t.
hwg_TbMt(oToolbar,' 80;tb_pesq(D_OB);P-Pesquisa ;P-Pesquisa na coluna do cursor;pesquisa.ico;;;;;&P-Pesquisa;;;')
hwg_TbMt(oToolbar,'79;tb_index(D_OB);O-Ordena ;O-Ordena a coluna do cursor;ordenar.ico;;;;;&O-Ordena;;;')
hwg_TbMt(oToolbar,'73;eVal(zbPrtBordero);I-Imprime ;I-Imprime;impressora.ico;;;;;&I-Imprime;;;')
hwg_Btn(oToolbar,10,544,70,24)
//hwg_TbMt(oToolbar,'32;tb_cons();Barra-Exibe ;Barra-Exibe;sembitmap;;;Lucida Bright;-11;Exibe;;6;')
hwg_TbMt(oToolbar,'13;doget(D_ob);Enter-Edita ;Enter - Edita;sembitmap;;;Lucida Bright;-11;Edita;;6;')
hwg_TbMt(oToolbar,'61;doget(D_ob,,.t.);=-Repete_Edicao ;= - Repete_Edicao;sembitmap;;;Lucida Bright;-11;&=-Repete_Edicao;;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,'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-Repete_Busca ;C-Repete Busca na coluna do cursor;sembitmap;;;Lucida Bright;-11;&C-Continua;;6;')
//hwg_TbMt(oToolbar,'69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;E-Filtra Expressao;sembitmap;;;Lucida Bright;-11;&E-Filtra;;6;')
hwg_TbMt(oToolbar,'70;tb_filter(d_ob);F-Filtra ;F-Filtra Cursor;sembitmap;;;Lucida Bright;-11;&F-Filtra;;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

]]>
  </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,264}</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="onPosChange">
      <![CDATA[oBrwBrd:Refresh() ]]>
    </method>
    <method name="onInit">
      <![CDATA[hwg_TbFi(D_oB, 'Bordero;BORDERO;N;999999;  7;;')
hwg_TbFi(D_oB, 'Data;DATA;D;;  8;;')
hwg_TbFi(D_oB, 'Portador;eVal(zbDesc,PORTADOR);P;@S15;15;;')
hwg_TbFi(D_oB, 'Total;FVAL;N;999999999.99; 14;;')
hwg_TbFi(D_oB, 'QtdTit;QUANT;N;999999;  6;;')
hwg_TbFi(D_oB, 'Transmitido?;if(TRANS="S","Transmitido","Nao Transmitido");P;@S15;15;;')
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.,"ct_brdt",.F.,.T.,{||.T.} }
sHwgKeyEdit:= 61
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})
]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{410,0,483,47}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">[Borderos/Remessas Bancarias]</property>
      <property name="Justify">[Right]</property>
      <property name="font">
        <font name="Arial" width="0" height="-37" weight="700"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{10,345,1003,193}</property>
      <property name="Name">[oBrwBrd]</property>
      <property name="Anchor">14</property>
      <property name="font">
        <font name="Arial" width="0" height="-13" weight="400"/>
      </property>
      <property name="TabIndex">6</property>
    </style>
    <method name="onInit">
      <![CDATA[oBrwBrd:Alias := 'CT_BRD'
oBrwBrd:bColorSel:= RGB(3,23,133)
oBrwBrd:tColorSel:= RGB(255,255,255)
DbSelectArea( 'CT_BRD' )
hwg_TbFi(@oBrwBrd, 'Bordero;BORDERO;N;999999;  6;;')
hwg_TbFi(@oBrwBrd, 'CodCli;CR_COD_CLI;N;999999;6;;')
hwg_TbFi(@oBrwBrd, 'Razao Social;eVal(zbCli,CR_COD_CLI);P;@S25;25;N;;')
hwg_TbFi(@oBrwBrd, 'Duplicata;CR_NUM_PED;C;@S10; 10;;')
hwg_TbFi(@oBrwBrd, 'Valor;CR_VALOR;N;999999.99;9;;')
hwg_TbFi(@oBrwBrd, 'DtVenc;CR_DT_VENC;D;;  8;;')
hwg_TbFi(@oBrwBrd, 'Bco_NossoNum;BNOSSONUM;N;9999999999999; 14;;')
hwg_TbFi(@oBrwBrd, 'Multa;BMULTAAUTO;N;99.99;  7;;')
hwg_TbFi(@oBrwBrd, 'Juros;BJUROSMES;N;99.99;  7;;')
hwg_TbFi(@oBrwBrd, 'Instrucao;MemoLine(BINSTRUCOE,20,1);P;@S20;20;')
hwg_TbFi(@oBrwBrd, 'db;BDIASBAIXA;N;99;  2;;')
hwg_TbFi(@oBrwBrd, 'dp;BDIASPROT;N;99;  2;;')

oBrwBrd:lFilter := .T.
oBrwBrd:bFirst := {|| CT_BRD->( DBSEEK( ct_brdt->BORDERO, .F. ) ) } 
oBrwBrd:bLast  := {|| CT_BRD->( DBSEEK( ct_brdt->BORDERO, .F., .T. ) ) }
oBrwBrd:bWhile := {|| CT_BRD->BORDERO = ct_brdt->BORDERO}

oBrwBrd:Refresh()   
DBSELECTAREA( 'ct_brdt' )
]]>
    </method>
  </part>
</part>
