cLinea := QDatos() // aqui obtienes en una cadena todo lo que el registro contiene
Function QDatos()
local cText, nCol, uField, cField
cText := ""
FOR nCol := 1 TO FCount()
cfield := fieldname(nCol)
uField := &Cfield
cType := ValType( uField )
IF cType == "D"
cText += If( Empty( uField ), "00/00/0000", dtos( uField ) ) + " "
ELSEIF cType == "N"
cText += AllTrim( Str( uField ) ) + " "
ELSEIF cType == "L"
cText += If( uField, "T", "F" ) + " "
ELSEIF cType == "M"
cText += AllTrim( uField ) + " "
ENDIF
NEXT nCol
Return(cText)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 42 guests