Xbrowse com problema

[Theotokos]

Boa Noite,

Tenho um problema no xbrowse, quando a coluna de Qtde Estoque, esta com valor negativo alto o sistema para de funcionar.

Valor do tipo -1400

Quando o usuário vai percorrer o browse e atinge esta linha com este valor negativo na coluna Qtde Estoque trava o sistema

e fecha o programa...

Alguem sabe ai o porque disto? já aumentei no arquivo DBF o tamanho do campo mais não adiantou...

    oBrwMerca := TxBrowse():New( oDlg )   
    oBrwMerca:CreateFromResource( 4002 )   
    oBrwMerca:cAlias := 'BanMerca'   
    *
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_GENERICO TITLE ""                       SIZE 032 ALIGN LEFT
    *
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_FAMILIA  TITLE "Família"                SIZE 150            
    ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_CODBAR   TITLE "Codigo de Barras"     SIZE 150                     
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_VENDA    TITLE "Pr.Venda"               SIZE 100 COLORS CLR_HRED ALIGN RIGHT PICTURE "@E R$99,999.99"
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_QUANTIDA TITLE "Qtde"                   SIZE 080 COLORS CLR_HRED ALIGN RIGHT PICTURE "@E 9,999.99"
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_DESCRICA TITLE "Descrição"              SIZE 450 COLORS CLR_HRED
    *
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_CODIGO   TITLE "Código"                 SIZE 080                 
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_REFERENC TITLE "Cod.Peça"                SIZE 100
    *
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_DENTRADA TITLE "Dt.Ult.Entrada"       SIZE 100 
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_QENTRADA TITLE "Qt.Ult.Entrada"       SIZE 100 
    *
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_DSAIDA   TITLE "Dt.Ult.Saída"         SIZE 100 
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_QSAIDA   TITLE "Qt.Ult.Saída"         SIZE 100 
    *
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_DATACADA TITLE "Dt.Cadastro"        SIZE 100 
   ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_DALTERA  TITLE "Dt.Ult.Alteração"   SIZE 100 
    *
    ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_CUSTO    TITLE "Pr.Custo"              SIZE 150 COLORS CLR_HRED ALIGN RIGHT PICTURE "@E R$99,999.99"
    *
    ADD COLUMN oCol TO XBROWSE oBrwMerca DATA BanMerca->M_PERMITIR TITLE "Estoque" SIZE 50
 

    oBrwMerca:nRowHeight             := 35
    oBrwMerca:lColDividerComplete := .f.
    oBrwMerca:nDataLines          := 1    // Number of lines of the data rows
   oBrwMerca:nHeaderLines        := 1    // Number of lines of the header    
    oBrwMerca:nFooterLines        := 1    // Number of lines of the footer    
    oBrwMerca:nDataType           := 0    // Data type to be used: 0->rdd, 1->array, ... (more to come) If navigation codeblocks are not specified then get automatically initialized when adjusting the browse depending on this DATA value
    oBrwMerca:nHeaderHeight             := 25
    oBrwMerca:nColDividerStyle    := 2    // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray    
    oBrwMerca:nRowDividerStyle    := 2    // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray    
    oBrwMerca:nMarqueeStyle       := 4    // Marquee style (row selected) 0 No Marquee 1 Dotted cell 2 Solid cell 3 Highlight cell 4 Highlight row & Raise Cell 5 Highlight row 6 Highlight row & multiselect 
    oBrwMerca:bSeek               := {|c| cProcura := Pad(C,30), oGet:Refresh(), DbSeek(Upper( c )) }
    oBrwMerca:bClrSelFocus            := {|| {cCorFrente, cCorfundo} }
    oBrwMerca:bClrSel                   := {|| {cCorFrente, cCorfundo} }
    oBrwMerca:bClrStd                 := {|| {cCorFrente, IIF( BANMERCA->( OrdKeyNo() )%2 == 0, CLR_WHITE, nRGB(232,232,232) ) }}
    oBrwMerca:SetRDD(.F.)
    *
    oBrwMerca:lAllowRowSizing         := .F.
    oBrwMerca:lAllowColSwapping   := .F.
    oBrwMerca:lAllowColHiding     := .F.
 

[aferra]

aumente isso "@E 99,999.99" que vai dar certo

[Theotokos]

aumente isso "@E 99,999.99" que vai dar certo

Bom Dia!!!

Já tinha feito isto, mas não resolveu... só funcionou colocando assim:

ADD COLUMN oCol TO XBROWSE oBrwMerca DATA Transform(BanMerca->M_QUANTIDA,"@E 9,999.99") TITLE "Qtde" SIZE 080 COLORS CLR_HRED ALIGN RIGHT

[aferra]

bem, resolvido é o melhor né mesmo?! rsrsrs

[SAOliveira]

pra não perder a piada.

Que trocadalho do carilho que dá o nome deste Alias