Get no xBrowse

[SISCO]

Olá pessoal estou com um probleminha no xBrowse e não estou conseguindo resolver.

Estou dando um get no xBrowse, mas ele está retornando em branco, ou seja o que eu coloco no get não está considerando.

Se alguém poder me ajudar ficarei grato, estou mandando o código:

oXb_VMnt := TXBrowse():New( oFld:aDialogs[1] )

oXb_VMnt:CreateFromResource(100)

oXb_VMnt:cAlias := "TMP_MANUEXAMES"

oXb_VMnt:bClrRowFocus := { || { CLR_BLACK, RGB(185,220,255) } }

oXb_VMnt:nMarqueeStyle := MARQSTYLE_HIGHLCELL // MARQSTYLE_HIGHLCELL oXb_VMnt:nColDividerStyle := 4

oXb_VMnt:nRowDividerStyle := 4

oXb_VMnt:lColDividerComplete := .F.

oXb_VMnt:lFooter := .F.

oXb_VMnt:nFreeze := 1

oXb_VMnt:nHeaderLines := 1

oXb_VMnt:nDataLines := 1

oXb_VMnt:lHScroll := .T. // Barra Rolagem Horiz.

oXb_VMnt:lVScroll := .T. // Barra Rolagem vertical

oXb_VMnt:bClrSelFocus := {|| { CLR_BROWSE_TEXTO_BARRA, CLR_BROWSE_BARRA } }

oCol := oXb_VMnt:AddCol()

oCol:bStrData := { || STR(TMP_MANUEXAMES->IDEXAME) }

oCol:cHeader := "Código"

oCol:cFooter := "- "

oCol:nDataStrAlign := AL_RIGHT

oCol:nHeadStrAlign := AL_CENTER

oCol:nWidth := 60

oCol := oXb_VMnt:AddCol()

oCol:bStrData := { || TMP_MANUEXAMES->NOMEEXA }

oCol:cHeader := "Exame"

oCol:cFooter := "- "

oCol:nDataStrAlign := AL_LEFT

oCol:nHeadStrAlign := AL_CENTER

oCol:nWidth := 300

oCol := oXb_VMnt:AddCol()

oCol:bStrData := { || TMP_MANUEXAMES->UNIDADE }

oCol:cHeader := "Unidade"

oCol:cFooter := "- "

oCol:nDataStrAlign := AL_LEFT

oCol:nHeadStrAlign := AL_CENTER

oCol:nWidth := 100

oCol := oXb_VMnt:AddCol()

oCol:cHeader := "Obs"

oCol:bStrData := { || TMP_MANUEXAMES->OBSPADRAO }

oCol:cFooter := "- "

oCol:nHeadStrAlign := AL_CENTER

oCol:nDataStrAlign := AL_LEFT

oCol:nWidth := 30

oCol:bFooter :={|| TMP_MANUEXAMES->(LastRec()) }

oCol:nEditType := EDIT_GET

oCol:cEditPicture :="XXX"

oCol:bonPostEdit := { | oCol, uValue, nLastKey | If( nLastKey = 13, TMP_MANUEXAMES->OBSPADRAO := uValue), NIL ) }

oCol:bEditvalue := { || TMP_MANUEXAMES->OBSPADRAO }

oCol := oXb_VMnt:AddCol()

oCol:bStrData := { || TMP_MANUEXAMES->RESULTADO }

oCol:cHeader := "Resultado"

oCol:cFooter := "- "

oCol:nDataStrAlign := AL_LEFT

oCol:nHeadStrAlign := AL_CENTER

oXb_VMnt:aCols[ 4 ]:bClrSelFocus := {|| { CLR_YELLOW , CLR_BLACK } }

oXb_VMnt:aCols[ 4 ]:bClrStd := {|| {CLR_BLACK , NRGB(255,255,179)} }

[SAOliveira]

oCol_cod:nEditType    :=EDIT_GET
oCol_cod:cEditPicture :="999999"
oCol_cod:oEditFont    :=oPub:fBCour13
oCol_cod:bOnPostEdit  :={|oCol_cod,uValue,nKey|IF(nKey= 13,Valida_Codigo(uValue),NIL)}
oCol_cod:bEditValue   :={||NFEITEM->codent}

**----------------------------------------------------------**
    STATIC FUNCTION Valida_Codigo(Arg1)
**----------------------------------------------------------**
NFEITEM->codent:=Arg1 ; oBrw:nColSel:=4
oBrw:Refresh()
RETURN(.T.)

[SISCO]

Obrigado por responder

Fiz alguns testes, mas mesmo assim não funcionou, dou enter e consigo modificar o campo, mas para sair dele preciso clicar em um outro registro e não grava a informação. Acredito que deve ser porque estou utilizando comandos com sql.

[SAOliveira]

Ops... seu tmp é o resultado de um select, se for sem chance, ou vc usa xBrowse com array, ou alimenta um temporário e update no BD.

Estou presumindo.

[SISCO]

Obrigado vou testar a dica