ProFox

profox@leafe.com

2704 discussions

VFP9, SqlServer and NULL values
by Rafael Copquin 14 Jun '18

14 Jun '18

I have a SQL Server 2012 Express table with a field called DOB of type DATE The field accepts NULL values and does not have a default value.. To insert the DOB from VFP I transform it to the form 'YYYY-MM-DD' and send it as a character string. However, if the DOB is empty, the only way VFP inserts the record is if the empty value is sent as '' and the DOB field displays '1900-01-01' which is the value inserted. I want to insert NULL in the field, not '1900-01-01' If I use the SQL Server Management Studio, I can insert the NULL value directly with this expression: insert into mydatabase.dbo.employees(name,dob) values( 'John Doe',NULL) However, this command, from VFP, does not insert the record: cCmd = [insert into mydatabase.dbo.employees(name,dob) values( 'John Doe',NULL) ] sqlexec(nHandle,cCmd) How can I get the field to get the NULL value? TIA Rafael Copquin --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

8 12

[NF] Pile it on and hope it doesn't tumble.
by Stephen Russell 12 Jun '18

12 Jun '18

You can get the free version and install it. The pay-for ones give some extras but for this group reading, I do not think it necessary to PAY. https://blogs.msdn.microsoft.com/visualstudio/2018/06/06/whats-next-for-vis… -- Stephen Russell Sr. Analyst Ring Container Technology Oakland TN 901.246-0159 cell --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

3 3

VFP: Task Scheduler
by Desmond Lloyd 12 Jun '18

12 Jun '18

Good afternoon, Going nuts down here, have a simple executable generated from a single program. Runs fine by itself. Grabs s few records then sends out an email via Outlook automation. Which, btw, does Outlook have to be open to run, or not? In any event if I run it in the task schedule it shows that it is running, but it never stops or returns to the ready status???? Regards, Desmond --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

7 8

[NF] you know it comming
by Stephen Russell 07 Jun '18

07 Jun '18

M$ buys GitHub. https://www.youtube.com/watch?v=Vhh_GeBPOhs -- Stephen Russell Sr. Analyst Ring Container Technology Oakland TN 901.246-0159 cell --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

7 15

Southwest Fox 2018: Registration Opens
by Rick Schummer 07 Jun '18

07 Jun '18

Registration for Southwest Fox (http://www.swfox.net/register.aspx) is now available. See http://www.swfox.net/speakers.aspx for a list of speakers and http://www.swfox.net/sessionsswfox.aspx for a list of sessions. Super-Saver Registration, which saves you $125, is available only through June 30th, so don't wait. We also let you pick a free pre-con if you register by June 30th. Putting on a conference is a risky endeavor. Conference centers require a guaranteed minimum income to block the dates of a conference; for a conference like Southwest Fox, that minimum is in the tens of thousands of dollars. We have to commit to the conference center by July 2nd and need your support by July 1st to make that commitment. We will not send out any "We need your help" appeals so please do not wait; register by June 30th! We know most of you like to wait until the last minute to avoid the credit card bill arriving too soon. We will not charge any attendee credit cards or cash any checks until we have committed to going forward (sometime after July 2), so this is not is a reason to wait. Doug, Tamar, and I look forward to seeing you in October! Rick White Light Computing, Inc. www.whitelightcomputing.com

2 1

[NF] JiveSoftware.com
by mbsoftwaresolutions＠mbsoftwaresolutions.com 04 Jun '18

04 Jun '18

I heard an ad for JiveSoftware.com over the weekend. Anyone have experience with that?

2 2

Sad news
by Dave Crozier 04 Jun '18

04 Jun '18

Ladies and Gentlemen, Over the weekend I sadly heard about the sad passing of John Koziol with cancer last Thursday after a four year battle with Cancer. Although I never met him I had lots of dealings with him in the initial VFP7 days whilst he was still at Microsoft working on the soon to be VFP9 as VFP technical lead and he was always most helpful and knowledgeable giving time up to look at some development issues that arose at that time. Since then I had kept in touch albeit informally and my thoughts go out to the family I know I pass on the kind thoughts of all VFPer’s to those he has left behind. A sad loss indeed. RIP John. --------------------------------------------------------------- This communication and the information it contains is intended for the person or organisation to whom it is addressed. Its contents are confidential and may be protected in law. If you have received this e-mail in error you must not copy, distribute or take any action in reliance on it. Unauthorised use, copying or disclosure of any of it may be unlawful. If you have received this message in error, please notify us immediately by telephone or email. Flexipol Packaging Ltd. has taken every reasonable precaution to minimise the risk of virus transmission through email and therefore any files sent via e-mail will have been checked for known viruses. However, you are advised to run your own virus check before opening any attachments received as Flexipol Packaging Ltd will not in any event accept any liability whatsoever once an e-mail and/or any attachment is received. It is the responsibility of the recipient to ensure that they have adequate virus protection. Flexipol Packaging Ltd. Unit 14 Bentwood Road Carrs Industrial Estate Haslingden Rossendale Lancashire BB4 5HH Tel:01706-222792 Fax: 01706-224683 www.Flexipol.co.uk --------------------------------------------------------------- Terms & Conditions: Notwithstanding delivery and the passing of risk in the goods, the property in the goods shall not pass to the buyer until the seller Flexipol Packaging Ltd. ("The Company") has received in cash or cleared funds payment in full of the price of the goods and all other goods agreed to be sold by the seller to the buyer for which payment is then due. Until such time as the property in the goods passes to the buyer, the buyer shall hold the goods as the seller's fiduciary agent and bailee and keep the goods separate from those of the buyer and third parties and properly stored protected and insured and identified as the seller's property but shall be entitled to resell or use the goods in the ordinary course of its business. Until such time as the property in the goods passes to the buyer the seller shall be entitled at any time

13 13

Intellisense with COM Interop
by Paul Newton 04 Jun '18

04 Jun '18

Hi all If I do this: Local loCultureInfo As ICultureInfo.ICultureInfo loCultureInfo = CreateObject("ICultureInfo.ICultureInfo","") Intellisense shows me the properties and methods of loCultureInfo But if I have a form class with a property oCultureInfo and do this: .oCultureInfo = CreateObject("ICultureInfo.ICultureInfo","") Intellisense does not work. Is there a way around this? Many thanks Paul Newton PS Off home now so will check back on Monday

3 4

ProFox List Statistics for May 2018
by List Administrator Account 01 Jun '18

01 Jun '18

================================================== ProFox List Statistics May 2018 ================================================== Subscriber Count at End of Month: ProFox: 291 ProFoxTech: 182 ================================================== Total Posts: 280 (Up 25.0% from April 2018) Total [OT] Posts: 0 (Unchanged from April 2018) Total [NF] Posts: 109 (Up 445.0% from April 2018) Daily Message Counts for May 2018 ------------------------------------------------ DOW Date Count --- ---- ----- T 1 - 11 W 2 - 25 T 3 - 5 F 4 - 8 S 6 - 6 M 7 - 3 T 8 - 25 W 9 - 13 T 10 - 19 M 14 - 6 T 15 - 6 W 16 - 4 T 17 - 5 F 18 - 28 S 19 - 3 S 20 - 4 M 21 - 11 T 22 - 12 W 23 - 6 T 24 - 13 F 25 - 16 S 26 - 4 S 27 - 1 M 28 - 8 T 29 - 25 W 30 - 10 T 31 - 3 Message Counts By Day of Week for May 2018 ------------------------------------------------ DOW Count --- ----- Sun - 11 Mon - 28 Tue - 79 Wed - 58 Thu - 45 Fri - 52 Sat - 7 Distinct Posters to the List (changes relative to April 2018) ------------------------------------------------ Non-OT messages: 39 (Up 5.41%) OT messages: 0 (Unchanged) NF messages: 27 (Up 285.71%) Total number: 39 (Up 5.41%) Top 20 Contributors by Number of Non-OT Posts ------------------------------------------------ | Posts Contributor | ------------------------------------------------ 1. 29 Ted Roche 2. 27 Alan Bourke 3. 19 Paul H. Tarver 4. 16 Stephen Russell 5. 15 Paul Newton 6. 15 Richard Kaye 7. 14 Dave Crozier 8. 14 mbsoftwaresolutions(a)mbsoftwaresolutions.com 9. 12 Charles Hart Enzer, M.D. 10. 10 Man-wai Chang 11. 9 Gene Wirchenko 12. 9 Paul Hill 13. 9 Frank Cazabon 14. 8 Kurt at VR-FX 15. 7 Mike 16. 7 Fred Taylor 17. 7 John Weller 18. 7 Eric Selje 19. 5 Gianni Turri 20. 5 Jürgen Wondzinski Top 0 Contributors by Number of OT Posts ------------------------------------------------ | Posts OT% Contributor | ------------------------------------------------ Top 20 Contributors by Number of NF Posts ------------------------------------------------ | Posts Contributor | ------------------------------------------------ 1. 12 Alan Bourke 2. 11 Stephen Russell 3. 11 Charles Hart Enzer, M.D. 4. 9 Man-wai Chang 5. 8 Ted Roche 6. 7 mbsoftwaresolutions(a)mbsoftwaresolutions.com 7. 7 John Weller 8. 6 Kurt at VR-FX 9. 5 Paul H. Tarver 10. 5 Dave Crozier 11. 3 Frank Cazabon 12. 3 Eric Selje 13. 3 Fred Taylor 14. 2 Paul Hill 15. 2 Malcolm Greene 16. 2 Ed Leafe 17. 2 Gene Wirchenko 18. 2 Thierry Nivelet 19. 1 Mike 20. 1 Jürgen Wondzinski Top 20 Contributors by Total Number of Posts ------------------------------------------------ | Posts Contributor | ------------------------------------------------ 1. 29 Ted Roche 2. 27 Alan Bourke 3. 19 Paul H. Tarver 4. 16 Stephen Russell 5. 15 Paul Newton 6. 15 Richard Kaye 7. 14 Dave Crozier 8. 14 mbsoftwaresolutions(a)mbsoftwaresolutions.com 9. 12 Charles Hart Enzer, M.D. 10. 10 Man-wai Chang 11. 9 Gene Wirchenko 12. 9 Paul Hill 13. 9 Frank Cazabon 14. 8 Kurt at VR-FX 15. 7 Mike 16. 7 Fred Taylor 17. 7 John Weller 18. 7 Eric Selje 19. 5 Gianni Turri 20. 5 Jürgen Wondzinski Top 17 Contributors by Number of New Threads Started ------------------------------------------------ | Posts Contributor | ------------------------------------------------ 1. 6 Charles Hart Enzer, M.D. 2. 5 Jürgen Wondzinski 3. 2 Dave Crozier 4. 2 Paul Newton 5. 2 mbsoftwaresolutions(a)mbsoftwaresolutions.com 6. 2 Stephen Russell 7. 2 Kurt at VR-FX 8. 2 John Weller 9. 1 List Administrator Account 10. 1 Ajoy Khaund 11. 1 Rick Schummer 12. 1 Frank Cazabon 13. 1 Ted Roche 14. 1 Eric Selje 15. 1 Richard Kaye 16. 1 Paul Hill 17. 1 Mike Top 20 Non-OT Threads by Total Number of Posts ------------------------------------------------------------------ | Posts Subject | ------------------------------------------------------------------ 1. 50 Fun with date calculations in VFP 2. 26 [NF] Let the meetings BEGIN. 3. 21 Windows 10 April 2018 Update & Running EXE from Shared drive (Samba) 4. 19 [NF] Best Practices for collaborative sharing of information 5. 15 AGETFILEVERSION Fail 6. 12 Task Pane Manager - Community pane 7. 12 Application User Level Access 8. 11 [ADMIN] Testing post to ProFox 9. 10 Class Definition Not Found 10. 10 [NF] A Question of CPU Upgrade... 11. 10 [NF] How to block the Windows 10 April 2018 Update, version 1803, from installing 12. 9 [NF] FTP Client 13. 9 [NF] No Internet Connect 14. 8 Microsoft Catch 22 RDP Update 15. 8 Windows 10 April 2018 Update & ADS Server 16. 7 [NF] When to Update WIN 10 17. 6 [NF] Network Request timed out 18. 5 String help (was [ADMIN] Testing post to ProFox) 19. 4 [NF] Hidden Files 20. 4 COM object in debugger Watch window Top 0 OT Threads by Total Number of Posts ------------------------------------------------------------------ | Posts Subject | ------------------------------------------------------------------ Top 20 Threads by Total Number of Posts ------------------------------------------------------------------ | Posts Subject | ------------------------------------------------------------------ 1. 50 Fun with date calculations in VFP 2. 26 [NF] Let the meetings BEGIN. 3. 21 Windows 10 April 2018 Update & Running EXE from Shared drive (Samba) 4. 19 [NF] Best Practices for collaborative sharing of information 5. 15 AGETFILEVERSION Fail 6. 12 Task Pane Manager - Community pane 7. 12 Application User Level Access 8. 11 [ADMIN] Testing post to ProFox 9. 10 Class Definition Not Found 10. 10 [NF] A Question of CPU Upgrade... 11. 10 [NF] How to block the Windows 10 April 2018 Update, version 1803, from installing 12. 9 [NF] FTP Client 13. 9 [NF] No Internet Connect 14. 8 Microsoft Catch 22 RDP Update 15. 8 Windows 10 April 2018 Update & ADS Server 16. 7 [NF] When to Update WIN 10 17. 6 [NF] Network Request timed out 18. 5 String help (was [ADMIN] Testing post to ProFox) 19. 4 [NF] Hidden Files 20. 4 COM object in debugger Watch window

1 0

Re: Fun with date calculations in VFP
by Gene Wirchenko 31 May '18

31 May '18

At 08:30 2018-05-18, mbsoftwaresolutions(a)mbsoftwaresolutions.com wrote: >On 2018-05-16 18:02, Ted Roche wrote: >>LastDayOfMonth() or LDOM back in my 8.3 days, was always a popular request: >>http://fox.wikis.com/wc.dll?Wiki~FindingTheLastDayOfTheMonth~VB > > >Ed Leafe had shared a ton of date functions for VFP years >ago. Here's what I have in my framework from Ed: [snipped code] I want to play, too! Here are my date functions. Some are duplicates. Some are specific to my app. The routine that will be most likely appreciated is megomonth(). ***** Start of Included Code ***** * * Subsection: Date Functions * * Many of these functions return date values, but many do not. * maybelom * Adjust Date to Last of Month? * Last Modification: 2000-06-22 * * Some dates near the end of the month should be adjusted to the last * day of the month. Adjustment is at operator discretion. "near" means in * the last five days. * * Do nothing to null or blank dates. procedure maybelom lparameters thedate, datename if isnull(thedate) or thedate={} return thedate endif local eom eom=lastdom(thedate) if day(eom)-day(thedate)<5 and thedate#eom && Yes, "<" not "<=". clear typeahead yesno=messagebox(; datename+" is close to but not the last day of its month."+CHRCR+; "Adjust it to be the last day of its month?",; MB_YESNO+MB_DEFBUTTON1,"Please confirm")=IDYES if yesno return eom else return thedate endif else return thedate endif endproc * ymendtod * Make an End of Month Date from Year, Month * Last Modification: 2005-10-25 procedure ymendtod lparameters theyear, themonth local thedate if theyear#9999 or themonth#12 thedate=date(theyear,themonth,1) thedate=gomonth(thedate,1)-1 else thedate=date(9999,12,31) && Handle this extreme case. endif return thedate endproc * lastdom * Return Last Day of Month * Last Modification: 2001-01-21 procedure lastdom lparameters thedate * * The checking for an empty date is not needed in VFP 6, but better safe than * sorry. if empty(thedate) return thedate endif return ymendtod(year(thedate),month(thedate)) endproc * firstdom * Return First Day of Month * Last Modification: 2001-01-21 * * The checking for an empty date is not needed in VFP 6, but better safe than * sorry. procedure firstdom lparameters thedate if empty(thedate) return thedate endif local daysoff daysoff=day(thedate)-1 return thedate-daysoff endproc * megomonth * Month End Handling Version of gomonth() * Last Modification: 99-05-04 * * If thedate is the last day of the month, make sure that the return value is * also the last day of its respective month. This adjustment is required * where thedate is the last day of a month that is shorter than that of the * return value's month. Example: * Call Return Value * ---- ------------ * gomonth({^1999.02.28},-2) {^1998.12.28} * megomonth({^1999.02.28},-2) {^1998.12.31} procedure megomonth lparameters thedate, moveby if thedate=lastdom(thedate) return lastdom(gomonth(thedate,moveby)) else return gomonth(thedate,moveby) endif endproc * goyear * Adjust Date by Years * Last Modification: 2013-01-21 * * If February 28 is adjusted to a leap year, the return date will be February * 28 if thedate is in a leap year and Febrauary 29 if it is not. IOW, if * thedate is at the end of the month, the return date will also be so. procedure goyear lparameters; thedate,; && D: base date theoffset && N: offset in years; can be negative if empty(thedate) return thedate endif local newdate newdate=gomonth(thedate,12*theoffset) if thedate=lastdom(thedate) newdate=lastdom(newdate) endif return newdate endproc * dtocyymm * Convert Date to Month Character Display * Last Modification: 2000-01-10 * * This routine is meant to generate two year digits. procedure dtocyymm lparameters thedate local dtosdate, char dtosdate=dtos(thedate) char=substr(dtosdate,3,2)+"."+substr(dtosdate,5,2) return char endproc * dtocw * dtoc() Wrapper * Last Modification: 99-12-28 * * This routine shows that the particular call has been dealt with w.r.t. Y2K * and the intent is that the call should results in year digits according to * the setting of set century. procedure dtocw lparameters thedate return dtoc(thedate) endproc * dtocy2 * dtoc() Generating *Two* Year Digits For Sure * Last Modification: 99-12-28 * * This routine shows that the particular call has been dealt with w.r.t. Y2K * and the intent is that the call should results in two year digits * regardless of the setting of set century. * * This routine is intended for use in reports where the full four-digit year * would take up needed space. procedure dtocy2 lparameters thedate local fcentury, chardate fcentury=set("century") set century off chardate=dtoc(thedate) set century &fcentury return chardate endproc * dtocy4 * dtoc() Generating *Four* Year Digits For Sure * Last Modification: 99-12-28 * * This routine shows that the particular call has been dealt with w.r.t. Y2K * and the intent is that the call should results in four year digits * regardless of the setting of set century. * * This routine is intended for use where the full four-digit year is * required. procedure dtocy4 lparameters thedate local fcentury, chardate fcentury=set("century") set century on chardate=dtoc(thedate) set century &fcentury return chardate endproc * dispyymm * Create a String of YY-MM Format from a Date * Last Modification: 2002-09-25 * * This routine is intended to generate a two-digit year. procedure dispyymm lparameters thedate return; right(str(year(thedate)+100),2)+"-"+right(str(month(thedate)+100),2) endproc * datespelled * Create Spelled-Out Date * Last Modification: 2007-04-03 * * Precondition: A date to spell out. * Postcondition: Returns the date spelled out * <full month name> <day>, yyyy * This is almost the same as mdy() with set century on, but mdy() creates * two-digit day strings as in "April 03, 2007". It also returns "*bad date*" * for an empty date. This routine does neither. procedure datespelled lparameters; thedate && D: the date to spell out if empty(thedate) return "" else return cmonth(thedate)+" "+transform(day(thedate))+", "+; transform(year(thedate)) endif endproc * uctdatestr * Convert Date to UCT Date String * Last Modification: 2015-08-17 * * UCT date string format is YYMMDD. procedure uctdatestr lparameters; thedate && D: date to convert if empty(thedate) return space(6) else return right(dtos(thedate),6) endif endproc * forthedatesstr * Generate "For the dates" String * Last Modification: 2015-06-17 * * Generates strings depending on datelow and datehigh being empty or not: * "For all dates" if datelow and datehigh are both empty * "For the dates from 99.99.99 on" if only datehigh is empty * "For the dates up to 99.99.99" if only datelow is empty * "For the dates from 99.99.99 to 99.99.99" if neither is empty procedure forthedatesstr lparameters; datelow,; && D: date range low or empty datehigh && D: date range high or empty do case case empty(datelow) and empty(datehigh) return "For all dates" case !empty(datelow) and empty(datehigh) return "For the dates from "+dtocy2(datelow)+" on" case empty(datelow) and !empty(datehigh) return "For the dates up to "+dtocy2(datehigh) otherwise && case !empty(datelow) and !empty(datehigh) return "For the dates from "+dtocy2(datelow)+" to "+dtocy2(datehigh) endcase endproc * forthedatesshortstr * Generate "For the dates" Short String * Last Modification: 2015-06-17 * * Generates strings depending on datelow and datehigh being empty or not: * "For all dates" if datelow and datehigh are both empty * "For 99.99.99 on" if only datehigh is empty * "For up to 99.99.99" if only datelow is empty * "For 99.99.99 to 99.99.99" if neither is empty * * The reason for the routine is that sometimes, reports are too narrow for * the longer forms generated by forthedatesstr(). procedure forthedatesshortstr lparameters; datelow,; && D: date range low or empty datehigh && D: date range high or empty do case case empty(datelow) and empty(datehigh) return "For all dates" case !empty(datelow) and empty(datehigh) return "For "+dtocy2(datelow)+" on" case empty(datelow) and !empty(datehigh) return "For up to "+dtocy2(datehigh) otherwise && case !empty(datelow) and !empty(datehigh) return "For "+dtocy2(datelow)+" to "+dtocy2(datehigh) endcase endproc * fortheperiodstr * Generate "For the period" String * Last Modification: 2015-06-17 * * Generates strings depending on datelow and datehigh being empty or not: * "For all time" if datelow and datehigh are both empty * "For the period 99.99 on" if only datehigh is empty * "For the period up to 99.99" if only datelow is empty * "For the period 99.99 to 99.99" * if neither is empty and they are not in the same month * "For the period 99.99" if neither is empty and they are in the same month procedure fortheperiodstr lparameters; datelow,; && D: date range low or empty datehigh && D: date range high or empty do case case empty(datelow) and empty(datehigh) return "For all time" case !empty(datelow) and empty(datehigh) return "For the period from "+dtocyymm(datelow)+" on" case empty(datelow) and !empty(datehigh) return "For the period up to "+dtocyymm(datehigh) case !empty(datelow) and !empty(datehigh) and; left(dtos(datelow),6)#left(dtos(datehigh),6) return; "For the period from "+dtocyymm(datelow)+" to "+dtocyymm(datehigh) otherwise && case !empty(datelow) and !empty(datehigh) and && left(dtos(datelow),6)=left(dtos(datehigh),6) return "For the period "+dtocyymm(datelow) endcase endproc * wodaterange * Generate Work Order Date Range * Last Modification: 2015-08-17 * * Magic Number (sort of): this code generates the dates in YYMMDD format * regardless of the set century and set date settings. It is isolated here * so it can be more easily adjusted if that is later needed. procedure wodaterange lparameters datelow, datehigh return uctdatestr(datelow)+"-"+uctdatestr(datehigh) endproc * datercond * Create Date Range Conditional Expression * Last Modification: 2012-12-28 procedure datercond lparameters; fromfield,; && C: fieldname for from datefrom,; && D: date value for from tofield,; && C: fieldname for to dateto && D: date value for to local valuefrom, valueto, expr valuefrom=!isnull(datefrom) and !empty(datefrom) valueto=!isnull(dateto) and !empty(dateto) expr="" do case case !valuefrom and !valueto expr=".t." case valuefrom and !valueto expr=fromfield+">={^"+dtocy4(datefrom)+"}" case !valuefrom and valueto expr=tofield+"<={^"+dtocy4(dateto)+"}" otherwise && valuefrom and valueto expr=; fromfield+">={^"+dtocy4(datefrom)+"}"+; " and "+; tofield+"<={^"+dtocy4(dateto)+"}" endcase return expr endproc * dtroverlap * Date Range Overlap? * Last Modification: 2005-08-17 * * Check if the date range of datelow1 to datehigh1 overlaps any part of the * date range datelow2 to datehigh2. .t.=overlap, .f.=no overlap * * This is one of those picky little routines that can be miscoded all * too easily. procedure dtroverlap lparameters datelow1, datehigh1, datelow2, datehigh2 return !(datehigh2<datelow1 or datelow2>datehigh1) endproc ***** End of Included Code ***** Sincerely, Gene Wirchenko

6 9

Jump to page:

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox