DBCreate
Posted: Mon Nov 09, 2020 6:36 am
Hallo
i try to create a DB . On the memofield it stops. What do i wrong? This work on VO
aStruct := { ;
{ "IS_FAKTURA","L",1,0 } ,; // LIEFERSCHEIN IST IN EINER RECHNUNG AUFGEFÜHRT
{ "FARBE","C",20,0 } ,;
{ "Id_Liefer" , "C" , 15 ,0 } ,; // LIEFERSCHEIN ID
{ "GEWICHT","C",20,0 } ,;
{ "ID_ARTIKEL","C",10,0 } ,;
{ "BESTELL_NR","C",20,0 } ,;
{ "ARTIKEL1","C",60,0 } ,;
{ "ARTIKEL2","C",30,0 } ,;
{ "ARTIKEL3","C",30,0 } ,;
{ "PRB","N",15,2 } ,;
{ "EINHEIT","C",20,0 } ,;
{ "MWSTSATZ","N",5,2 } ,;
{ "MENGE","N",9,3 } ,;
{ "RAHMENNR","C",40,0 } ,;
{ "MEINTEXT","M",0,0 } ,;
{ "FFONT","C",3,0 } ,;
{ "BLOCKTOTAL","C",30,0 } ,;
{ "DIMENSION","C",30,0 } ;
}
// DBCREATE(cTempFile,aStruct,"DBFCDX",,,,)
DO WHILE TRUE
IF DbCreate(cTempFile,aStruct,"DBFCDX",,,,)
Beschreibung : Field 'MEINTEXT' is not valid
Subsystem : DBFCDX
Generischer Code : EG_ARG Argumentfehler
Untercode : 1113 Datenbank-Header korrupt
FuncSym : ValidateDbfStructure
Schwere : ES_ERROR
Kann Default : False
Kann erneut versuchen : False
Kann ersetzen : False
Aufrufreihenfolge :
bei XSharp.RDD.DBF._checkFields(RddFieldInfo info)
bei XSharp.RDD.Workarea.AddField(RddFieldInfo info)
bei XSharp.RDD.DBF.AddField(RddFieldInfo info)
bei XSharp.RDD.Workarea.CreateFields(RddFieldInfo[] aFields)
bei XSharp.CoreDb.<>c__DisplayClass35_0.<Create>b__0()
bei XSharp.CoreDb.Do[T](Func`1 action)
bei XSharp.CoreDb.Create(String cName, RddFieldInfo[] aStruct, Type rddType, Boolean lNew, String cAlias, String cDelim, Boolean lKeep, Boolean lJustOpen)
bei XSharp.CoreDb.<>c__DisplayClass33_0.<Create>b__0()
bei XSharp.CoreDb.Do[T](Func`1 action)
bei XSharp.CoreDb.Create(String cName, RddFieldInfo[] aStruct, String cRddName, Boolean lNew, String cAlias, String cDelim, Boolean lKeep, Boolean lJustOpen)
bei XSharp.RT.Functions.DbCreate(__Usual[] Xs$Args)
bei _Swissbase-Functionen.Functions.CreateAufTemp(String cIDC_PathTmp, String gcUserId) in C:XIDEProjectsSwissbaseApplications_Swissbase-FunctionenShared Auftrag.prg:Zeile 135.
Horst
i try to create a DB . On the memofield it stops. What do i wrong? This work on VO
aStruct := { ;
{ "IS_FAKTURA","L",1,0 } ,; // LIEFERSCHEIN IST IN EINER RECHNUNG AUFGEFÜHRT
{ "FARBE","C",20,0 } ,;
{ "Id_Liefer" , "C" , 15 ,0 } ,; // LIEFERSCHEIN ID
{ "GEWICHT","C",20,0 } ,;
{ "ID_ARTIKEL","C",10,0 } ,;
{ "BESTELL_NR","C",20,0 } ,;
{ "ARTIKEL1","C",60,0 } ,;
{ "ARTIKEL2","C",30,0 } ,;
{ "ARTIKEL3","C",30,0 } ,;
{ "PRB","N",15,2 } ,;
{ "EINHEIT","C",20,0 } ,;
{ "MWSTSATZ","N",5,2 } ,;
{ "MENGE","N",9,3 } ,;
{ "RAHMENNR","C",40,0 } ,;
{ "MEINTEXT","M",0,0 } ,;
{ "FFONT","C",3,0 } ,;
{ "BLOCKTOTAL","C",30,0 } ,;
{ "DIMENSION","C",30,0 } ;
}
// DBCREATE(cTempFile,aStruct,"DBFCDX",,,,)
DO WHILE TRUE
IF DbCreate(cTempFile,aStruct,"DBFCDX",,,,)
Beschreibung : Field 'MEINTEXT' is not valid
Subsystem : DBFCDX
Generischer Code : EG_ARG Argumentfehler
Untercode : 1113 Datenbank-Header korrupt
FuncSym : ValidateDbfStructure
Schwere : ES_ERROR
Kann Default : False
Kann erneut versuchen : False
Kann ersetzen : False
Aufrufreihenfolge :
bei XSharp.RDD.DBF._checkFields(RddFieldInfo info)
bei XSharp.RDD.Workarea.AddField(RddFieldInfo info)
bei XSharp.RDD.DBF.AddField(RddFieldInfo info)
bei XSharp.RDD.Workarea.CreateFields(RddFieldInfo[] aFields)
bei XSharp.CoreDb.<>c__DisplayClass35_0.<Create>b__0()
bei XSharp.CoreDb.Do[T](Func`1 action)
bei XSharp.CoreDb.Create(String cName, RddFieldInfo[] aStruct, Type rddType, Boolean lNew, String cAlias, String cDelim, Boolean lKeep, Boolean lJustOpen)
bei XSharp.CoreDb.<>c__DisplayClass33_0.<Create>b__0()
bei XSharp.CoreDb.Do[T](Func`1 action)
bei XSharp.CoreDb.Create(String cName, RddFieldInfo[] aStruct, String cRddName, Boolean lNew, String cAlias, String cDelim, Boolean lKeep, Boolean lJustOpen)
bei XSharp.RT.Functions.DbCreate(__Usual[] Xs$Args)
bei _Swissbase-Functionen.Functions.CreateAufTemp(String cIDC_PathTmp, String gcUserId) in C:XIDEProjectsSwissbaseApplications_Swissbase-FunctionenShared Auftrag.prg:Zeile 135.
Horst