Salvar data com hora no DBF
Enviado: 02 Mar 2015 18:06
Não estou conseguindo salvar a hora automaticamente com a função abaixo, fica tudo zerado, falta alguma coisa?
Grato.
Código: Selecionar todos
Function Main()
Request DbfCdx, DbfFpt
RddSetDefault('DBFCDX')
DbSetDriver('DBFCDX')
Set Date British
aStructure:={}
Aadd(aStructure,{'Codigo', '+', 08, 0})
Aadd(aStructure,{'Data' , '@', 08, 0})
DbCreate('Temp.dbf',aStructure, 'DBFCDX')
Use Temp
For i = 1 To 5
DbAppend()
Replace Data With Date()
Next
DbGoTop()
Browse()
Return Nil