De excel a texto

nRenglones   is int
nContador   is int = 0
nConsecutivo is int = 0  //número de registro consecutivo
nAnterior   is int

sRenglon01 is string
sRenglon02 is string
sRenglon03 is string
sRenglon04 is string
sArchivo is string
MyExcelDoc   is xlsDocument
MyExcelFile  is string  = EDT_ExcelFile
nRenglonInicial is int   = EDT_RenglonInicial
nRenglonFinal is int   = EDT_RenglonFinal
IF MyExcelFile = "" THEN RETURN
MyExcelDoc = xlsOpen(MyExcelFile,xlsWrite)
IF MyExcelDoc <> -1 THEN
 //nRenglones   = xlsNbRow(MyExcelDoc)
 FOR nContador = nRenglonInicial TO nRenglonFinal
  // Retrieve the value of a cell
  IF nContador = nRenglonInicial  THEN // primer renglon = registro de encabezado
   nConsecutivo += 1
   sRenglon01 = LP_GeneraCabecera(MyExcelDoc, nContador, nConsecutivo) //nContador es el renglon, nconsecutivo es el consecutivo de  registro
   nConsecutivo += 1
   sRenglon02 = LP_GeneraDetalle(MyExcelDoc, nContador, nConsecutivo)
   nAnterior = nConsecutivo  
   nConsecutivo += 1
   sRenglon03 = LP_GeneraDomicilio(MyExcelDoc, nContador, nConsecutivo, nAnterior)   
   sArchivo += sRenglon01 + CR
   sArchivo += sRenglon02 + CR
   sArchivo += sRenglon03 + CR
  ELSE
    nConsecutivo += 1
   sRenglon02 = LP_GeneraDetalle(MyExcelDoc, nContador, nConsecutivo)
   nAnterior = nConsecutivo
   nConsecutivo += 1
   sRenglon03 = LP_GeneraDomicilio(MyExcelDoc,nContador, nConsecutivo, nAnterior)
   sArchivo += sRenglon02 + CR
   sArchivo += sRenglon03 + CR  
  END
 END
 //finalmente agrego ell sumario
 nConsecutivo += 1
 nContador = nRenglonInicial
 sRenglon04 = LP_GeneraSumario(MyExcelDoc,nContador, nConsecutivo) 
 sArchivo += sRenglon04 + CR // el sumario hasta el final

 // Create a directory
 bResCreate is boolean = fMakeDir("C:\Temp")
 IF bResCreate = True
 //Salvo el archivo
 fSaveText ("c:\temp\AAA2019.txt", sArchivo)
 xlsClose(MyExcelDoc)
 Info("Archivo creado","c:\temp\AAA201900.txt")
 END

END

Cadena de conexión

IF InTestMode()=False THEN
 Server = "192.168.0.100"
ELSE
 Server = "192.168.0.101"
END
HDescribeConnection("HFSQL","admin","",Server,"NOM_BASE_DATOS",hAccessHFClientServer)
HOpenConnection("HFSQL")
HChangeConnection("*","HFSQL")

 

 

otro apunte

en mi caso, utilizo HFSQL

conBD is Connection
IF InTestMode() THEN
conBD..Provider = hAccessHFClientServer
conBD..User = "admin"
conBD..Password = "seiya"
conBD..Server = "localhost"
conBD..Database = "RefaccionariaWeb"
conBD..CryptMethod = hCryptNo
ELSE
conBD..Provider = hAccessHFClientServer
conBD..User = "admin"
conBD..Password = "leviatan"
conBD..Server = "18.189.13.14"
conBD..Database = "RefaccionariaWeb"
conBD..CryptMethod = hCryptNo
END
HChangeConnection("*", conBD)
HOpenConnection(conBD)