<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{308,132,502,598}</property>
    <property name="Name">[arr_dups.scr]</property>
    <property name="Caption">[Duplicatas do Pedido]</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">[..\xml\icon\tela2.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,10,544,70,24)
hwg_TbMt(oToolbar,'22;PedLoadDups("InsertParcela");Ins-Insert ;Insert - Inclui Novo Titulo;sembitmap;;;Lucida Bright;-11;&Inclui;;6;')
hwg_TbMt(oToolbar,'13;PedLoadDups("EditParcela");Enter-Edita ;Enter - Edita;sembitmap;;;Lucida Bright;-11;&Edita;;6;')
hwg_TbMt(oToolbar,'7;PedLoadDups("Delete");DEL-Cancela;DEL-Cancela parcela;sembitmap;;;Lucida Bright;-11;&Cancela;;6;')
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,502,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{608,152,0}</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{10,69,480,458}</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="BrwType">[array]</property>
      <property name="GridLinesSepColor">0</property>
      <property name="TabIndex">4</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[nBrwAtivo:=1]]>
    </method>
    <method name="onInit">
      <![CDATA[D_oB:bColorSel:= RGB(3,23,233)
D_oB:tColorSel:= RGB(255,255,255)

// ALERT('0 len d_ob:aColumns '+STR( LEN(d_ob:aColumns) ) +  ' d_ob:TYPE '+str(d_ob:TYPE) +'   len d_ob:aArray '+STR( LEN(d_ob:aArray) ))   
D_oB:DelColumn(1)
D_oB:ALIAS := NIL
// ALERT('1 len d_ob:aColumns '+STR( LEN(d_ob:aColumns) ) +  ' d_ob:TYPE '+str(d_ob:TYPE) +'   len d_ob:aArray '+STR( LEN(d_ob:aArray) ))   

hwg_TbFi(D_oB, 'Vencimento;wPfDups[nRow,2];P;99.99.9999;10;;')
hwg_TbFi(D_oB, 'Valor;wPfDups[nRow,3];P;@E 999999,999.99;13;;')
hwg_TbFi(D_oB, 'Prazo;wPfDups[nRow,2]-m_pfDataEmi;P;99999;5;;')
hwg_TbFi(D_oB, 'Duplicata;wPfDups[nRow,1];P;@s20;20;;')

// ALERT('3 len d_ob:aColumns '+STR( LEN(d_ob:aColumns) ) +  ' d_ob:TYPE '+str(d_ob:TYPE) +'   len d_ob:aArray '+STR( LEN(d_ob:aArray) ))   
d_ob:aArray := wpfdups
D_oB:Alias := ""
// D_oB:Refresh()
// ALERT('4 len d_ob:aColumns '+STR( LEN(d_ob:aColumns) ) +  ' d_ob:TYPE '+str(d_ob:TYPE) +'   len d_ob:aArray '+STR( LEN(d_ob:aArray) ))   


D_oB:bKeyDown := {|self, wParam| hwg_oDlgKey(self, wparam,1) , .T. }
D_oB:bOther:={|o,m,wp,lp| MessagesBrowse(o,m,wp,lp)}
D_oB:cargo:={.T.,.T.,"ARR_VND",.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">{18,9,466,55}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">
[Tecle ESC para Continuar, ou tecle sobre uma parcela para alterar seus dados]      </property>
      <property name="Justify">[Center]</property>
      <property name="TextColor">16711680</property>
      <property name="font">
        <font name="" width="0" height="-16" weight="700"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
</part>
