Procedure SQLtoHFSQL(cServer, cUser, cPass, cBase, cTableName)


ConnectionNum is int
ConnectionNum = SQLConnect(cServer, cUser, cPass, cBase,"OLEDB",hOledbSQLServer)

IF ConnectionNum <> 0 THEN

cQuery is string = "select * from " + cTableName


IF SQLExec(cQuery, "oQry") THEN


aColumnas is array of strings
aCol is array of strings
nCol is int = 1



// Creamos la descripcion del .Fic
oFile is File Description

oFile..Name = "oData"
oFile..Type = hFileNormal


// Describimos todos los items que contendrá el .Fic
oItem is Item Description
nTipo is int

StringToArray(SQLColumn("oQry", True),aColumnas,CR)

nColumnas is int = SQL.NbCol

WHILE nCol <= nColumnas

StringToArray(aColumnas[nCol],aCol,TAB)


IF aCol[2] = "T" THEN
nTipo = hItemText
ELSE
IF aCol[3] = "1" THEN
nTipo = hItemBoolean
ELSE
nTipo = hItemNumeric
END
END

oItem..Name = aCol[1]
oItem..Type = nTipo
oItem..Size = aCol[4]
HDescribeItem(oFile,oItem)

nCol++
END

HDescribeFile(oFile)


// Creamos el archivo fisico que contendrá los datos
oData is Data Source
HChangeName(oData,Replace(cTableName,".","_"))
HCreation(oData)

StringToArray(SQLColumn("oQry"),aColumnas,CR)

WHILE SQLFetch("oQry") = 0

nCol = 1

WHILE nCol <= nColumnas

HToItem(oData, nCol, SQLGetCol("oQry", nCol))

nCol++
END

HAdd(oData)
END

ELSE
SQLInfo("oQry")
Info("SQL error: " + SQL.MesError)
END

SQLDisconnect()
END