<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{308,132,1022,598}</property>
    <property name="Name">[se_prod.scr]</property>
    <property name="Caption">[Cadastro de Produtos]</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 zNil = Abra ("0NOIDX", r_siga,"ci_ncm","ci_ncm","ci_ncm","ncm")
//skel VARIAVEL zNil = DbSelectArea("SE_PROD")
//skel VARIAVEL zMonoFasico="N"
//skel VARIAVEL zbMonoFasico={|nNcm| ci_ncm->(Efd_GrupoNcm(STR(nNcm,8), @oSayNcm, @zMonoFasico), zMonoFasico) }
//skel comando saida zNil = If(Select("CI_NCM")>0,CI_NCM->(DbCloseArea()),"")

//// ci_ncm->(Efd_GrupoNcm(Str(se_prod->pCodClaFis,8), @oSayNcm))

oContextMenu:=Hwg_ContextMenu()
hwg_Btn(oToolbar,5,5,54,54)
hwg_TbMt(oToolbar,'22;upd_prod(1,"PROD_T1");Ins-Inclui Registro;Ins-Inclui;add.jpg;;;;;Inclui;;;')
hwg_TbMt(oToolbar,'65;tb_update(D_OB);A-Altera Registro;A-Altera;alterar.jpg;;;;;&A-Altera;;;')
d_ob:lEditable = .t.
hwg_TbMt(oToolbar,'80;tb_pesq(D_OB);P-Pesquisa Chave;P-Pesquisa na coluna do cursor;pesquisa.jpg;;;;;&P-Pesquisa;;;')
hwg_TbMt(oToolbar,'79;tb_index(D_OB);O-Ordena ;O-Ordena a coluna do cursor;ordena.jpg;;;;;&O-Ordena;;;')
hwg_TbMt(oToolbar,'73;lst_alias(D_OB);I-Imprime ;I-Imprime;impressora.jpg;;;;;&I-Imprime;;;')
hwg_Btn(oToolbar,10,544,70,24)
hwg_TbMt(oToolbar,'13;se_doget(D_ob);Enter-Edita Campo;Enter - Edita Campo;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,'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,'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,'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;ext_screen(pcod,pdatabal);E-Extrato ;E - Extrato;sembitmap;;;Lucida Bright;-11;&E-Extrato;;6;')
hwg_TbMt(oToolbar,'71;DispEnt(pcod);G-Compras ;G - Compras;sembitmap;;;Lucida Bright;-11;&G-Compras;;6;')
hwg_TbMt(oToolbar,'85;SePnfeUpdate();U-Atualiza CST ICMS PIS COFINS;U-Atualiza CST ICMS PIS COFINS;sembitmap;;;Lucida Bright;-11;&U-Critia_CST;;6;')
hwg_TbMt(oToolbar,'32;Efd_GrupoFiscal(pDivFisc,"SET",d_ob);Barra-Atualiza Divisao;Barra-Atualiza Divisao;sembitmap;;;Lucida Bright;-11;&Barra-Grupo_Fiscal;;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()

ci_ncm->(Efd_GrupoNcm(Str(se_prod->pCodClaFis,8), @oSayNcm))]]>
  </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,69,1000,338}</property>
      <property name="Name">[D_oB]</property>
      <property name="Anchor">15</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, 'Descricao;PDESC;C;@s22;22;S;')
hwg_TbFi(D_oB, 'Cod;PCOD;N;999999;6;N;')
hwg_TbFi(D_oB, 'Un;PUNIDADE;C;xxxxx;  3;;')
hwg_TbFi(D_oB, 'PrVenda;PVLUVENDA;N;9999.99;7;S;')
hwg_TbFi(D_oB, 'NCM;pCodClaFis;N;99999999;8;;')
hwg_TbFi(D_oB, '*;eVal(zbMonoFasico,se_prod->pCodClaFis);P;!;1;N;')
hwg_TbFi(D_oB, 'CF;pcategoria;C;!!!;2;S;')
hwg_TbFi(D_oB, 'Div;pDivisao;C;XXXX;4;S;')
hwg_TbFi(D_oB, 'l;pNegPos;C;!;1;S;')
hwg_TbFi(D_oB, 'Df;pDivFisc;C;9;2;S;')
hwg_TbFi(D_oB, 'Grupo Fiscal;Efd_GrupoFiscal(pDivFisc);P;@S13;13;N;')
hwg_TbFi(D_oB, 'Tp;Ptipoitem;C;99;2;S;')
hwg_TbFi(D_oB, 'Finalidade;Efd_TipoItem();P;@S13;13;N;')
hwg_TbFi(D_oB, 'CSTicm;nf_csticm;C;999;6;S;')
hwg_TbFi(D_oB, 'CSTpis;nf_cstpis;C;99;6;S;')
hwg_TbFi(D_oB, 'CSTcof;nf_cstcof;C;99;6;S;')
hwg_TbFi(D_oB, 'Cod Barras;Pdic6;N;99999999999999;14;N;')
hwg_TbFi(D_oB, 'Cod.ABCF;Pdic5;N;999999;6;S;')
hwg_TbFi(D_oB, 'EntPIS;nf_cstEpis;C;99;6;S;')
hwg_TbFi(D_oB, 'EntCOF;nf_cstEcof;C;99;6;S;')
hwg_TbFi(D_oB, 'SaiIPI;nf_cstipi;C;99;6;S;')
hwg_TbFi(D_oB, 'EntIPI;nf_cstEipi;C;99;6;S;')
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.,"SE_PROD",.F.,.T.,{||.T.} }
d_ob:bEdit := {|D_oB| nKey:=13,se_doget(D_ob)}
AADD(aBrowses,{D_oB,D_oB:Alias,{||.f.},{|| .T.},})
]]>
    </method>
  </part>
  <part class="label">
    <style>
      <property name="Geometry">{362,0,531,47}</property>
      <property name="Name">[oLabel1]</property>
      <property name="Caption">[Produtos x CST x Finalidades]</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="label">
    <style>
      <property name="Geometry">{10,410,1000,125}</property>
      <property name="Name">[oSayNcm]</property>
      <property name="Caption">[Descricao da NCM]</property>
      <property name="Anchor">6</property>
      <property name="TabIndex">6</property>
    </style>
  </part>
</part>
