<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{401,184,600,490}</property>
    <property name="Name">[ARR_PED.scr]</property>
    <property name="Caption">[Produtos para etiquetas]</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\arr_not.jpg]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.T.</property>
    <property name="Minimizebox">.T.</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,40,25,54,54)
hwg_TbMt(oToolbar,'22;novo_ped(D_OB,"SP_MOVFT","E");Ins-Cria Selecao;INS-Inclui;xml\icon\ADD.jpg;28;28;;;')
hwg_TbMt(oToolbar,'7;dlped(nrow,D_oB,.t.);Del-Cancela ;DEL-Deleta;xml\icon\DELETA.jpg;28;28;;;')

//hwg_Btn(oToolbar,40,375,54,54)
hwg_Btn(oToolbar,10,375+22,90,24)

hwg_TbMt(oToolbar,'69;pf_etiq(nrow,"P");E-Imprime ;E - Imprime;sembitmap;;;Lucida Bright;-11;Matricial;;6;')
hwg_TbMt(oToolbar,'90;pf_etiq(nrow,"P","S","S","S");Z-ZPL_Zebra;Z-Impr_Barra_ImpZebra;sembitmap;;;Lucida Bright;-11;ZPL Zebra;;6;')
hwg_TbMt(oToolbar,'83;pf_etiq(nrow,"P","S","S","S","S");S-ZPL_Stripe ;S-Impr_Barra_ImpStripe ;sembitmap;;;Lucida Bright;-11;ZPL Stripe;;6;')
hwg_TbMt(oToolbar,'86;pf_etiq(nrow,"P","S","S","S","V");V-ZPL_StripeVert;V-Impr_StripVertical;sembitmap;;;Lucida Bright;-11;ZPL StripeVert;;6;')
hwg_TbMt(oToolbar,'77;pf_etiq(nrow,"P","S","S");M-Impr_Barra_Argox ;M-Impr_Barra_Argox;sembitmap;;;Lucida Bright;-11;ZPL Argox;;6;')
hwg_Btn(oToolbar,10,375+40+10,90,24)
hwg_TbMt(oToolbar,'78;pf_etiq(nrow,"P","S","N");N-Impr_Barra_JatoTinta ;N-Impr_Barra_JatoTinta ;sembitmap;;;Lucida Bright;-11;Jato_de_Tinta;;6;')
hwg_TbMt(oToolbar,'84;pf_contagem(nrow,D_OB);T-Captura_Contagem ;T-Captura_Contagem ;sembitmap;;;Lucida Bright;-11;Captura_Cont;;6;')
hwg_TbMt(oToolbar,'47;anexa_ped(nrow,D_oB);/-Anexa_Pedido ;/-Anexa_Pedido ;sembitmap;;;Lucida Bright;-11;Anexa_Ped;;6;')
hwg_TbMt(oToolbar,'68;copia_ped(nrow,D_oB);D-Duplica_Selecao ;D-Duplica_Selecao ;sembitmap;;;Lucida Bright;-11;Duplica_Arq;;6;')

hwg_Btn(oToolbar,500,375,54,54)
hwg_TbMt(oToolbar,'27;hwg_oDlgKey(oDlg, 27, nBrwAtivo);Saida;Saida;xml\icon\saida.ico;47;47;;;')

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,460,600,30}</property>
      <property name="Name">[oDlgStatusBar]</property>
      <property name="aParts">{408,102,0}</property>
    </style>
  </part>
  <part class="browse">
    <style>
      <property name="Geometry">{10,112,580,250}</property>
      <property name="Name">[D_oB]</property>
      <property name="BrwType">[array]</property>
      <property name="TabIndex">4</property>
    </style>
    <method name="onGetFocus">
      <![CDATA[nBrwAtivo:=1]]>
    </method>
    <method name="onInit">
      <![CDATA[D_oB:bColorSel:= RGB(3,23,133)
D_oB:tColorSel:= RGB(255,255,255)
D_oB:bKeyDown := {|self, wParam| hwg_oDlgKey(self, wparam,1) , .T. }
AEval( v_ped[1], {|eLemento,nRow| aadd(hwgArray, {v_ped[1,nRow],v_ped[2,nRow],v_ped[3,nRow]}) } )
D_oB:DelColumn(1)

hwg_TbFi(D_oB, 'Fornecedor;hwgArray[nRow,1];C;@s20; 20;;')
hwg_TbFi(D_oB, 'Ped;substr(hwgArray[nRow,2],if(s_e_4forn="S",6,5),if(s_e_4forn="S",3,4));C;@s4;  4;;')
hwg_TbFi(D_oB, 'Data       Hora;hwgArray[nRow,3];C;@s17; 17;;')
D_oB:Alias := ""

D_oB:bOther:={|o,m,wp,lp| MessagesBrowse(o,m,wp,lp)}
D_oB:cargo:={.T.,.T.,"ARR_PED",.F.,.T.,{||.T.} }
d_ob:bEdit := {|D_oB| nKey:=13,slped(nrow,"SP_MOVF")}
// d_ob:bEdit := {|D_oB| .t.}
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{192,33,379,34}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">[Listas para Impressao de Etiquetas]</property>
      <property name="font">
        <font name="" width="0" height="-24" weight="400" italic="1"/>
      </property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">5</property>
    </style>
  </part>
</part>
