- Code: Select all Expand view RUN
SqlInfo:="SELECT * FROM tabatu WHERE codatu = "+Any2Sql(busca)+" ORDER BY sql_rowid DESC"
Use SQL SqlInfo Alias "TMPINFO" NEW INTO xBanco
TMPINFO->(DBGoTop())
- Code: Select all Expand view RUN
DEFINE DIALOG oDlgInfo ....
@ 002,002 XBROWSE oBrw PIXEL SIZE 487,256 FONT fBold1 OF oDLgInfo ALIAS "TMPINFO"
oBrw:SetColor( PRETO, GetSysColor( 16 ) )
oBrw:l2007 := .T.
oBrw:lAllowRowSizing := .f. // Nao move as Linhas (nao sei)
oBrw:lHScroll := .F. // Barra rolagem Horizontal
oBrw:lVScroll := .T. // Barra rolagem vertical
oBrw:lRecordSelector := .T. // Barra aponta registro lateral esquerda;
oBrw:nRecSelColor := RGB(205,220,255) // cor da barra lateral pontador de linha
oBrw:lAllowColSwapping := .f. // Click no header (.f.)Trava
oBrw:nDataLines := 2
oBrw:lColDividerComplete := .T. // linha divisoria de colunas mesmo com tabela vazia.
oBrw:bClrStd := {|| { AZUL,GetSysColor(15) } } // cor da celula sem focu
oBrw:bClrSel := {|| { AZUL,GetSysColor(15) } } // cor da celula sem focu
oBrw:bClrSelFocus := {|| { PRETO,RGB(205,220,255)} } // cor da celula em focu
oBrw:bClrRowFocus := {|| { PRETO,RGB(205,220,255)} } // cor da celula em focu
oBrw:nColDividerStyle := 4 // cor da divisao de coluna LINESTYLE_LIGHTGRAY
oBrw:nRowDividerStyle := 4 // cor da divisao da linha LINESTYLE_LIGHTGRAY
oBrw:nMarqueeStyle := 5 // tipo de linha selecionada MARQSTYLE_HIGHLROW
oBrw:nRowHeight := 36
oBrw:lHeader := .T. // se vai mostrar header cabeçalho)
oBrw:nHeaderLines := 2.5
oBrw:nHeaderHeight := 40
oBrw:bClrHeader := {|| {cGetW, }} // cor do reader
oBrw:lFooter := .F. // se vai mostrar footer (rodape)
//oBrw:nFreeze := 0 // quantas colunas fixas
oCol:=oBrw:AddCol()
oCol:cHeader :="Data Horário"+CRLF+"Atualizado por:"
oCol:bStrData:= {|| DToC(TMPINFO->datatu)+" "+TMPINFO->hrsatu+CRLF+TMPINFO->usoatu }
oBrw:aCols[1]:nWidth := 160
oCol:=oBrw:AddCol()
oCol:cHeader :="Módulo Origem"+CRLF+"Campo Atualizado"
oCol:bStrData:= {||TMPINFO->modatu+CRLF+TMPINFO->cpoatu}
oBrw:aCols[2]:nWidth := 200
oCol:=oBrw:AddCol()
oCol:cHeader :="Atualizado"+CRLF+"Anterior"
oCol:bStrData:= {||TMPINFO->altatu+CRLF+TMPINFO->antatu}
oBrw:aCols[3]:nWidth := IF(oBrw:lRecordSelector,542,562)
// so mostrar quando selecionada
//oBrw:aCols[3]:bClrStd := {|| { IF(Empty(TMPINFO->usoatu),PRETO,GetSysColor(15)),GetSysColor(15) } }
oCol:= oBrw:AddCol()
oCol:AddResource("REDO16")
oCol:AddResource("RELOAD16")
oCol:bBmpData :={||IF(Empty(TMPINFO->antatu),1,2)}
oCol:cHeader := "Sta"+CRLF+"tus"
oBrw:aCols[4]:nWidth := 25
//oBrw:aCols[4]:bClrStd := {|| { PRETO,RGB(205,220,255) }} // cor da celula sem focu
WITH OBJECT oBrw:aCols[3] // NR DA COLUNA QUE QUERO MODIFICAR
:bPaintText:={ |oCol, hDC, cText, aCoord| DrawText( oCol, hDC, cText, aCoord, fBold1I ) }
END
// oBrw:SetBackGround( oQual )
oBrw:CreateFromCode()
oBrw:SetRDD()
ACTIVATE DIALOG oDlgInfo.....
Ao iniciar el modulo, los registros estao Correctos:
http://www.technet.com.br/~jackson/sbsa ... /xbrw1.JPG
Mas, si yo mover alguna seta direcional del teclado, el browse fica asi:
http://www.technet.com.br/~jackson/sbsa ... /xbrw2.JPG
Si yo no usar la cláusula DESC, el browse funciona perfeitamente.
- Outra Situaçao estranha; estava testando el browse desta forma :
Aqui uso uno Browse() antes del xBrowse, ao fechar el Browse(), es ADD uno registro vazio em my Banco de Dados.
- Code: Select all Expand view RUN
SqlInfo:="SELECT * FROM tabatu WHERE codatu = "+Any2Sql(busca)+" ORDER BY sql_rowid DESC"
Use SQL SqlInfo Alias "TMPINFO" NEW INTO xBanco
TMPINFO->(DBGoTop())
BROWSE()
- Code: Select all Expand view RUN
DEFINE DIALOG oDlgInfo ....
@ 002,002 XBROWSE oBrw PIXEL SIZE 487,256 FONT fBold1 OF oDLgInfo ALIAS "TMPINFO"
.
.
.
oBrw:CreateFromCode()
oBrw:SetRDD()
http://www.technet.com.br/~jackson/sbsa ... /xbrw3.JPG
Será alguno Bug del versao FWh808 ???
Saluds, Ale
