Hola
Como tendría que hacer para trabajar con archivos temporales pero que estos no se sumen al diccionario de datos. (ADS ), es decir trabajarlo a estos archivos como tablas libres.
xharbour 0.99.71
ADS 8.1
Hugo
cFileTemp := cNewFileName( ViewUsu():cPathTmp + "\TEMPO", "DBF" )
cFileCdx := cNewFileName( ViewUsu():cPathTmp + "\TEMPO", "CDX" )
dbCreate( cFileTemp, ;
{ { "cod_prod", "c", 15,0},;
{ "des_prod", "C", 40,0},;
{ "Stock", "n", 10,0},;
{ "cant1", "n", 10,0},;
{ "cant2", "n", 10,0},;
{ "cant3", "n", 10,0},;
{ "cant4", "n", 10,0}}, "DBFCDX", .t., "TEMP" )
INDEX ON FIELD->COD_PROD TAG CODIGO TO (cFileCdx)
SET INDEX TO (cFileCdx)
cCrea := cTemp //+ ".ADT"
AADD(aTempora,{"ARTICULO","C",15,0})
AADD(aTempora,{"NOMBRE" ,"C",60,0})
AADD(aTempora,{"CAJAS","N",15,3}) // 999,999.99
AADD(aTempora,{"PIEZAS","N",15,3}) // 999,999.99
AADD(aTempora,{"PRECIO" ,"N",15,4}) // 99,999.99
AADD(aTempora,{"IMPORTE" ,"N",15,2}) // 999,999.99
AADD(aTempora,{"DESCTO" ,"N",06,2}) // 999.99
AADD(aTempora,{"IMPDES" ,"N",09,2}) // 99,999.99
AADD(aTempora,{"GTOTAL" ,"N",10,2}) // 999,999.99
AADD(aTempora,{"SERIES" ,"C",25,0})
AADD(aTempora,{"DESCTOA" ,"N",06,2}) // 999.99
AADD(aTempora,{"RENGLON" ,"N",05,0}) // 99
AADD(aTempora,{"PRECIOA" ,"N",09,2}) // 99,999.99
AADD(aTempora,{"CDESCTO" ,"C",05,0}) // 99,999.99
AADD(aTempora,{"CANTIDAD","N",09,2}) // 99,999.99
AADD(aTempora,{"CODIGO","C",15,0})
AADD(aTempora,{"COSTOC" ,"N",15,4}) // 99,999.99
AADD(aTempora,{"COSTOP" ,"N",15,4}) // 99,999.99
DbCreate(cPathDAT+cCrea,aTempora,DbSetDriver())
DbCreate()
Creates an empty database from a structure definition array.
Syntax
DbCreate( <cDatabase> , ;
<aStructure>, ;
[<cDriver>] , ;
[<lNewArea>] , ;
[<cAlias>] ) --> NIL
procedure RddInit()
REQUEST HB_LANG_ES
REQUEST DBFCDX, DBFFPT
REQUEST ADS
REQUEST OrdKeyCount, OrdKeyNo, OrdKeyGoto, ADSKeyNo, AdsSetRelKeyPos, AdsGetRelKeyPos
return
#Define DRIVELOCAL DiskName() + ":\"+Curdir()
:cPathTmp := DRIVELOCAL + "\TEMPORAL"
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 27 guests