VFP DBF Field Type ?

[AUGE_OHR]

hi,

i got this VFP DBF but how to show it in BROWSE

VFP_IT.JPG (83.55 KiB) Viewed 2257 times

it have "more" Field Type than Cl*pper ... how to handle it

hbwfnt_2020_09_16_001.zip

(1.47 KiB) Downloaded 156 times

[AUGE_OHR]

hi,

i try to work with TIMESTAMP Field but how to "convert"

it is not a Number or String

Error BASE/1099 Argument error STR Parameter : [ 1] = T t"2019-01-15 22:44:28.999"
Error BASE/1100 Argument error TRIM Parameter : [ 1] = T t"2019-01-15 22:44:28.999"

[salamandra]

Hi Jimmy,

hi,

i got this VFP DBF but how to show it in BROWSE
VFP_IT.JPG

it have "more" Field Type than Cl*pper ... how to handle it
hbwfnt_2020_09_16_001.zip

This is the DBF stru ...

03.JPG (62.66 KiB) Viewed 2245 times

VFP field types

01.JPG (91.5 KiB) Viewed 2245 times

I think there it is not problem to browse...
I use VFP to create and modify DBF files and have not any problem to browse or other operations


Best regards,


Salamandra, Brazil

[AUGE_OHR]

hi,

I think there it is not problem to browse...
I use VFP to create and modify DBF files and have not any problem to browse or other operations

where are those Snapshot come from

---

found

Code: Select all

hb_TSToStr()
hb_StrToTS()

and also

Code: Select all

hb_TSToUTC()

---

to show TimeStamp (?) in BROWSE i have remove DUPE Lines 608-650 in c:\hmg.3.4.4\SOURCE\H_BROWSE.PRG
as my Snapshot of BROWSE show 'Nil' i add missing Type instead

Code: Select all

   elseIf cTempType == 'N' .OR. cTempType == 'I' // add "I"nteger
     ...
   elseIf cTempType == 'T'
     aadd ( aTemp , hb_TSToStr ( &cTemp, .T. ) )
   elseIf cTempType == '@'
     aadd ( aTemp , TransForm ( RTrim( hb_ValToStr ( &cTemp ) ) , dim [j] ) )
   Else
     aadd ( aTemp , 'Nil' )
   EndIf     

now BROWSE does show Date + Time
i´m not sure about Type "T" or "@" ...

---

while i want to edit Type TimeStamp i have to change my Code
but while i use a TEXTBOX i have to enhance c:\hmg.3.4.4\SOURCE\h_controlmisc.prg

Code: Select all

523    case T == "TEXT" .or. T == "EDIT" .or. T == "CHARMASKTEXT"  .or. T == "RICHEDIT"

        if t == "CHARMASKTEXT"
           ...
        Else
if valtype ( value ) == 'T' .or. valtype ( value ) == '@'
            SetWindowText ( c , hb_TSToStr (value) )
ELSE
            SetWindowText ( c , RTRIM(value) )
ENDIF
        endif 

this seems to work now in HBFM but it will only work if HMG LIB also recognize Type "T" or "@"

perhaps i use wrong Control for TimeStamp. please help if i´m on wrong Way

[salamandra]

Hi Jimmy,

where are those Snapshot come from

Visual FoxPro 9, modify stru screen.



Regards,


Salamandra, Brazil

[AUGE_OHR]

hi,

Visual FoxPro 9, modify stru screen.

Ok, but what about HMG
i understand that Cl*pper only have Type "CMNDL" but harbour does support "more" Type-

a i saw MiniGUI Extended Version seems to support "more" Types.
i have try to modify H_BROWSE.PRG and h_controlmisc.prg and it work

---

when go to https://github.com/HMG-Official/HMG it seems i can upload new Files

HMG_Github.JPG (24.91 KiB) Viewed 2157 times

but i don´t want to upload new files before asking what is the rule

[salamandra]

Hi Jimmy,

hi,

Visual FoxPro 9, modify stru screen.

Ok, but what about HMG
i understand that Cl*pper only have Type "CMNDL" but harbour does support "more" Type-

a i saw MiniGUI Extended Version seems to support "more" Types.
i have try to modify H_BROWSE.PRG and h_controlmisc.prg and it work

---

when go to https://github.com/HMG-Official/HMG it seems i can upload new Files
HMG_Github.JPG
but i don´t want to upload new files before asking what is the rule

About all the Field Types supported by Harbour (old and new ones), please take a look at this post: https://groups.google.com/g/harbour-users/c/e9OSB9RU4dU at harbour-users.
And about to upload your job to GitHub, I think it,s a nice ideia.

Best regards,

Salamandra, Brazil

[AUGE_OHR]

hi,

thx for Link
i have read that Thread using Field_Type() instead of DbStruct()

---

i wonder that i have write Access on https://github.com/HMG-Official/HMG
i´m willing to integrate new Code into Source but who to ask if i´m allowed