Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I can see the controls, but the form is transparent
Message
 
 
To
28/08/2009 14:40:10
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
01420972
Message ID:
01421563
Views:
22
Debra,

Better to use DTOS function instead of DTOC, e.g. in your case

select DTOS(s_weekend) as WeekEnd

>thanks sergey. i appreciate your help.
>
>i did it this way
>
>***********************************************************************************
>* 08.26.2009 df. Fix the date fields.
>IF USED('tcprsys')
> SELECT tcprsys
> USE
>ENDIF
>SELECT * , ;
> SUBSTR(DTOC(s_weekend),7,4) + SUBSTR(DTOC(s_weekend),1,2) + SUBSTR(DTOC(s_weekend),4,2) as weekend, ;
> SUBSTR(DTOC(s_chk_date),7,4) + SUBSTR(DTOC(s_chk_date),1,2) + SUBSTR(DTOC(s_chk_date),4,2) as chkdate ;
> FROM prsys INTO CURSOR tcprsys readwrite
>
>SELECT tcprsys
>COPY TO (ALLTRIM((pathtxt) + "dnsys" + (gc_accno) + ".DAT")) ;
> FIELDS s_co_code, s_payperio, WEEKEND, ;
> s_city, s_state, s_zip, s_owner, CHKDATE ;
> FOR (gc_accno = s_co_code) ;
> TYPE DELIMITED
>
>***********************************************************************************
>
>
>>Looks like VFP exports dates differently than Fox 2.x. I guess you'll have to postprocess the file. Something like
>>
>>SET DATE YMD
>>SET MARK TO "|"    && A character that is not presented in the data
>>
>>COPY TO (lcFileName) DELIMITED 
>>STRTOFILE(CHRTRAN(FILETOSTR(lcFileName), "|", ""), lcFileName)
>>SET MARK TO
>>* Restore SET DATE
>>...
>>
>>
>>>SELECT prsys
>>>COPY TO (ALLTRIM((pathtxt) + "dnsys" + (gc_accno) + ".DAT"));
>>> FOR (gc_accno = s_co_code);
>>> TYPE DELIMITED
>>>
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform