Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
The Impossible String !
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
The Impossible String !
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows 7
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01627611
Message ID:
01627611
Vues:
137
Hey gang!

Weird problem here.

We have some code (show below) that just a few times, out of thousands of time run, sends over this string

^2015-10-14 12:00:00 AM^|^^|^^|^^|^^|^^|^^|^2015-08-10 12:00:00 AM

instead of this....

^2015-10-14 12:00:00 AM^|^^|^^|^^|^^|^2015-08-10 12:00:00 AM

4 "spaces" ( the ^^| segments) should be sent if no data is in the diagnoses table.... but we are sometimes getting 6 !!!
SET CENTURY ON
SET DATE TO YMD
lcText = lcText + "^" + STRTRAN(ALLTRIM(TTOC(rx.filled_date + rx.days_supply)),"/","-") + "^|"
SET DATE TO AMERICAN
SET CENTURY OFF
* Price Override (Not supported) (position 39)
lcText = lcText + "^^|"
* Diagnoses (Code and Qualifier) (position 40 - 41)
IF USED("diagnoses")
	IF THIS.m_seek(ALLTRIM(STR(rx.rx_no)) + ALLTRIM(STR(refill_no)),"diagnoses","fullrx",1)
		lcText = lcText + "^" + ALLTRIM(diagnoses.diagnosis_code) + "^|"
		lcText = lcText + "^" + ALLTRIM(diagnoses.diagnosis_code_qualifier) + "^|"
	ELSE
		lcText = lcText + "^^|"
		lcText = lcText + "^^|"
	ENDIF
ELSE
	lcText = lcText + "^^|"
	lcText = lcText + "^^|"
ENDIF
* Facts and Comparisions Disease Code (Not supported) (position 42)
lcText = lcText + "^^|"
* Date Written (position 43)
* 04/06/07 STB per Matt Bergmann - Changed format to include dashes and time
SET CENTURY ON
SET DATE TO YMD
lcText = lcText + "^" + STRTRAN(ALLTRIM(TTOC(rx.written_date)),"/","-") + "^|"
SET DATE TO AMERICAN
SET CENTURY OFF
any ideas ???

Thanks!
Tommy
Tommy Tillman A+ NetWork+ MCP
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform