Из Бэста 4+ экспортирую данные в DBF файл,который имеет строго заданный формат.
Причем поле даты по техусловиям в нем имеет длину 8 .
У меня в файле упорно получается 10 , т.е. dd/mm/gggg
Вот фрагмент кода :
Private puth_,aDbf,aSet,aSetKey
altd()
aSet:=SaveSet()
aSetKey:=SaveSetKey()
aDbf:={}
AADD(aDbf, { "Vid", "C", 1, 0 })
AADD(aDbf, { "Type", "C", 1, 0 })
AADD(aDbf, { "NUMDOC", "C", 6, 0 })
AADD(aDbf, { "DATE", "D", 8, 0 })
// и т.д.
dbpush()
puth_:=GlobalTmpPath+'alko1.dbf'
DBCREATE(puth_, aDbf)
NETUSE('ALKO1',puth_)
alko1->(addrec())
alko1->Vid :=" "
alko1->Type :=" "
alko1->NUMDOC :=" "
alko1->DATE :=ctod("01/01/08")
alko1->(F_DBUNLOCK())
ALKO1->(dbCloseArea())
RestSetKey(aSetKey)
RestSet(aSet)
dbpop()
Заранее спасибо.
Габов Алексей.
Причем поле даты по техусловиям в нем имеет длину 8 .
У меня в файле упорно получается 10 , т.е. dd/mm/gggg
Вот фрагмент кода :
Private puth_,aDbf,aSet,aSetKey
altd()
aSet:=SaveSet()
aSetKey:=SaveSetKey()
aDbf:={}
AADD(aDbf, { "Vid", "C", 1, 0 })
AADD(aDbf, { "Type", "C", 1, 0 })
AADD(aDbf, { "NUMDOC", "C", 6, 0 })
AADD(aDbf, { "DATE", "D", 8, 0 })
// и т.д.
dbpush()
puth_:=GlobalTmpPath+'alko1.dbf'
DBCREATE(puth_, aDbf)
NETUSE('ALKO1',puth_)
alko1->(addrec())
alko1->Vid :=" "
alko1->Type :=" "
alko1->NUMDOC :=" "
alko1->DATE :=ctod("01/01/08")
alko1->(F_DBUNLOCK())
ALKO1->(dbCloseArea())
RestSetKey(aSetKey)
RestSet(aSet)
dbpop()
Заранее спасибо.
Габов Алексей.