Das deutschsprachige Forum für Entwickler in der Xbase-Welt, ein Angebot des Deutschsprachige Xbase-Entwickler e. V.
https://www.xbaseforum.de/
ich würde mal sagen das es eine "eigene" Function istWerner_Bayern hat geschrieben:dumme Frage...
Sehe gerade, dass ich in meinen Clipper-Sources eine Funktion blank verwende, um leere Datentype zu erzeugen (Datensatz-Felder leeren). Wo ist diese Funktion definiert, kann sie nirgends finden...
Code: Alles auswählen
#include "Dbstruct.ch"
PROCEDURE Main
USE Kunden
// use Recno()
BLANK( Recno() )
CLOSE Kunden
RETURN
FUNCTION BLANK(nRec)
LOCAL aStructure := DbStruct() // Datei-Struktur einlesen
LOCAL i,imax
LOCAL xValue
LOCAL lRet := .F.
GOTO(nRec)
IF DbRLock(nRec)
imax := LEN(aStructure)
FOR i := 1 TO imax
DO CASE
CASE aStructure[i][DBS_TYPE] = "C" ; xValue := ""
CASE aStructure[i][DBS_TYPE] = "M" ; xValue := ""
CASE aStructure[i][DBS_TYPE] = "N" ; xValue := 0
CASE aStructure[i][DBS_TYPE] = "L" ; xValue := .F.
CASE aStructure[i][DBS_TYPE] = "D" ; xValue := CTOD("")
ENDCASE
FieldPut(i,xValue)
NEXT
DbRUnlock(nRec)
lRet := .T.
ENDIF
RETURN lRetCode: Alles auswählen
static function blank(xVal)
local xRueck := "", cType := valtype(xVal)
do case
case cType == "C"
xRueck := ""
case cType == "N"
xRueck := 0
case cType == "D"
xRueck := ctod(" . . ")
case cType == "L"
xRueck := .f.
endcase
return xRueck