-Código do List Box
oBotao:=LoadBitmap(GetResources(),"TESTE")
Redefine ListBox oBrwIce;
Fields aTmpIce[oBrwIce:nAt,25],;
Transf(aTmpIce[oBrwIce:nAt,02],"@9"),;
Transf(aTmpIce[oBrwIce:nAt,03],"@!"),;
aTmpIce[oBrwIce:nAt,11],;
Left(aTmpIce[oBrwIce:nAt,04],34),;
Transf(aTmpIce[oBrwIce:nAt,05],"@!"),;
Transf(aTmpIce[oBrwIce:nAt,06],"@!XX"),;
Transf(aTmpIce[oBrwIce:nAt,09],"@e 999999.999"),;
Transf(aTmpIce[oBrwIce:nAt,12],cMasQts),;
Transf(aTmpIce[oBrwIce:nAt,28],cMasQts),;
Transf(aTmpIce[oBrwIce:nAt,13],cMasQts),;
If(Empty(aTmpIce[oBrwIce:nAt,10]),"",aStaCot[RetAchoice(aStaCot,Transf(aTmpIce[oBrwIce:nAt,10],"@!"),3)]),;
Transf(aTmpIce[oBrwIce:nAt,14],cMasCef),;
Transf(aTmpIce[oBrwIce:nAt,15],cMasCef),;
Transf(aTmpIce[oBrwIce:nAt,16],cMasCef),;
Cvod(aTmpIce[oBrwIce:nAt,26]),;
Cvod(aTmpIce[oBrwIce:nAt,27]);
Headers "S",;
"Item",;
"Produto",;
"Cód.Auxiliar",;
oBotao,;//"Descrição",;
"Marca",;
"Un.",;
"Quantidade",;
"Saldo",;
"Desconto",;
"Minimo",;
"Status Item",;
"Mel.Cot.1",;
"Mel.Cot.2",;
"Mel.Cot.3",;
"Última Compra",;
"Última Venda";
FieldSizes 20,30,50,85,220,70,25,67,45,60,45,77,65,65,65,83,80;
ID 202 Of oFldCot:aDialogs[2] UpDate
oBrwIce:SetArray(aTmpIce)
oBrwIce:aJustify :={.F.,.F.,.F.,.F.,.F.,.F.,.F.,.T.,.T.,.T.,.T.,.F.,.F.,.F.,.F.,.F.,.F.}
oBrwIce:nLineStyle:=4
oBrwIce:bLDblClick:={|nRow,nCol| IncCot((oBrwIce:nAt=Len(aTmpIce)),Left(vStaSin,1)="A",aTmpCot[oBrwCot:nAt,23])}
oBrwIce:bKeyChar :={|nKey|If(nKey=13,IncCot((oBrwIce:nAt=Len(aTmpIce)),Left(vStaSin,1)="A",aTmpCot[oBrwCot:nAt,23]),Nil)}
oBrwIce:nClrText :={||If(aTmpIce[oBrwIce:nAt,10]="X",CLR_HBLUE,If(aTmpIce[oBrwIce:nAt,10]="C",CLR_HRED,CLR_BLACK))}
oBrwIce:nClrPane :={||If(oBrwIce:nAt%2==0,CLR_AZUL3,CLR_WHITE)}