//----------------------------------------------//

FUNCTION MAMATER()

SELECT 20
Mater03i->(DBSETORDER(2));Mater03i->(DBGOTOP())
Mater03i->(DBCLEARFIL(NIL))
clInd := "Nome"; nlInd := nlIndi := 2

DEFINE FONT fNormal NAME "MS Sans Serif"
DEFINE FONT fBold NAME "MS Sans Serif" BOLD
DEFINE FONT Arial12 NAME "ARIAL" SIZE 0,-12 BOLD
DEFINE FONT oFntBut NAME "Arial" SIZE 0, -9
DEFINE FONT oFnt NAME "Arial" SIZE 0, -12
DEFINE CURSOR oCur RESOURCE "Finger"
DEFINE ICON oIcon NAME "CLIP"

DEFINE DIALOG oDlg RESOURCE "CADPRO" ICON oIcon
oDlg:lHelpIcon := .F.

REDEFINE LISTBOX oLbx ;
FIELDS Mater03i->CodMat03,;
Mater03i->DesMat03,;
Mater03i->UniEnt03,;
TRANS(ProcEst(Mater03i-CodMat03),cPic2),;
Mater03i->CusMat03,;
Mater03i->VenMat03,;
Mater03i->MarMat03,;
Mater03i->CodFab03,;
Mater03i->SitMat03,;
ProcGru(Mater03i->GruMat03),;
ProcFor(Mater03i->ForMat03) ;
ID 103 OF oDlg ;
ALIAS "Mater03i" ;
HEADERS OemToAnsi("C¢digo"),;
"Nome",;
"Uni",;
"Estoque",;
"Pr. Custo",;
"Pr. Venda",;
"Marca",;
OemToAnsi("Referˆncia"),;
"CST",;
"Grupo",;
"Fornecedor" ;
FIELDSIZES 95,350,25,70,70,70,80,70,40,160,250 ;
FONT oFnt ;
ON DBLCLICK ( AltePro(oDlg,oLbx) )

oLbx:lAdjLastCol := .F.
oLbx:lAdjBrowse := .F.
oLbx:nHeaderStyle := 3 // 6
oLbx:nHeaderHeight := 25
oLbx:aActions:={ {||MudaInd2("1",oLbx,@nlInd,@clInd,oInd)},{||MudaInd2("2",oLbx,@nlInd,@clInd,oInd)},,,,,{||MudaInd2("7",oLbx,@nlInd,@clInd,oInd)},{||MudaInd2("8",oLbx,@nlInd,@clInd,oInd)},,{||MudaInd2("10",oLbx,@nlInd,@clInd,oInd)},{||MudaInd2("11",oLbx,@nlInd,@clInd,oInd)} }
oLbx:bBkColor :={|nRow,nCol,nStyleLine| IF( nStyleLine == 1, IF( nCol == 2, CLR_CREME , ), ) }
oLbx:bTextColor :={|nRow,nCol,nStyleLine| IF( nStyleLine == 1, IF( nCol == 2, CLR_BLACK, ), ) }
oLbx:bFont :={|nRow,nCol,nStyleLine| pFonteBrowse( oDlg, oLbx, nRow, nCol, nStyleLine,fNormal,Arial12,fBold,IIF(oLbx:lFocused,fBold,fNormal) ) }
oLbx:nLineStyle := 6 // 11
oLbx:nLineHeight := 19
oLbx:bSeek := {|| oLbx:DbfSeek(.T.) }
oLbx:nClrBackHead := CLR_LBLUE // Cor do Fundo do Cabe‡alho
oLbx:nClrForeHead := CLR_WHITE // Cor nos Headers - Cabe‡alhos
oLbx:nClrPane := {|| IIF((oLbx:cAlias)->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}
oLbx:aJustify := {0,0,0,1,1,1,0,0,2,0,0} // Justifica os Cabe‡alhos Esq. .T. =Centro
oLbx:lMChange := .F. // Desabilta Mousemove
oLbx:bKeyChar = { | nKey, nFlags | ;
IF( nKey # 13, ;
( oLbx:Refresh(), ;
oLbx:SetFocus(),;
oLbx:DrawSelect() ),;
AltePro(oDlg,oLbx) ) }