- Code: Select all Expand view
Local cNombreFi:="prueba.txt"
Local aDbf:={}
//
AADD(aDbf,{"TIPO","C",1,0})
AADD(aDbf,{"DNI","C",10,0})
AADD(aDbf,{"NOMBRE","C",10,0})
AADD(aDbf,{"APE1","C",10,0})
AADD(aDbf,{"APE2","C",10,0})
AADD(aDbf,{"DOMICILIO","C",41,0})
AADD(aDbf,{"CPOSTAL","C",5,0})
AADD(aDbf,{"NPROVIN","C",2,0})
AADD(aDbf,{"NLOCA","C",3,0})
AADD(aDbf,{"TELEFONO","C",9,0})
//
DBCREATE("PRUEBA",aDbf)
//
DbUseArea(.T.,,"PRUEBA")
//
APPEND FROM (cNombreFi) DELIMITED WITH ("*")
//