TextBox.Value = {}

PUBLIC lnSQLConn, lnAnzWhere AS LONG
PUBLIC cServer, cSQL, cWhere AS STRING
PUBLIC cMessageTitle
PUBLIC lCANCEL AS Logical

SET SYSFORMATS ON

* Variablen zuweisen **************************************************************************************
lnSQLConn =  0 
cServer = "PC-ANSC"
cMessageTitle = "Erfassung - Leistungsdaten"

STORE SQLSTRINGCONNECT('DRIVER=SQL Server;SERVER='+ALLTRIM(cServer)+';UID=produktion;PWD=adler;APP=Microsoft Visual FoxPro;DATABASE=dmihybrid;LANGUAGE=Deutsch') TO lnSQLConn
SQLSETPROP(lnSQLConn,"DispWarnings",.T.)	&& zeigt Fehlermeldungen an

THISFORM.CAPTION = cMessageTitle

* Abfragen, ob Conect erfolgreich war **********************************************************************
IF lnSQLConn <  0 
	WAIT WINDOW 'Verbindung mit SQL Server [' + cServer + '] nicht möglich!' TIMEOUT  3 
	THISFORM.RELEASE
	CANCEL
ELSE
	WAIT WINDOW 'Verbindung mit SQL Server [' + cServer + '] erfolgreich hergestellt!' TIMEOUT  2 
ENDIF

* Variablen zuweisen **************************************************************************************
cSQL = ""
cWhere = ""
lnAnzWhere =  0 
lCANCEL = .F.
cPar01 = ALLTRIM(THISFORM.txtKunde_nr.VALUE)
cPar02 = ALLTRIM(THISFORM.txtKtr.VALUE)
cPar03 = "'" + ALLTRIM(THISFORM.txtDatum.VALUE) + "'"
cPar04 = ALLTRIM(THISFORM.txtFilm_nr.VALUE)
cPar05 = ALLTRIM(THISFORM.txtNorg_v.VALUE)
cPar06 = ALLTRIM(THISFORM.txtNbelegeb.VALUE)
cPar07 = ALLTRIM(THISFORM.txtNorg_ges.VALUE)
cPar08 = ALLTRIM(THISFORM.txtNRegister.VALUE)
cPar09 = ALLTRIM(THISFORM.txtNimagesb.VALUE)
cPar10 = ALLTRIM(THISFORM.txtNimages_f.VALUE)

WITH THISFORM.txtKunde_nr AS TEXTBOX
	IF LEN(cPar01) >  0   THEN
		IF lnAnzWhere >  0  THEN
			cWhere = cWhere  + " AND " + "[Kunde_nr] = " + cPar01
		ELSE
			cWhere = "[Kunde_nr] = " + cPar01
		ENDIF
		lnAnzWhere = lnAnzWhere +  1 

		.BORDERCOLOR=RGB( 0 , 0 , 0 )
	ELSE
		.BORDERCOLOR=RGB( 255 , 0 , 0 )
		lCANCEL = .T.
	ENDIF
ENDWITH

...


*Abbruch, fals nicht alle Felder erfast sind ************************************************************
IF lCANCEL = .T. THEN
	MESSAGEBOX("Bitte alle * - Pflicht/Prüffelder erfassen!", 48 ,cMessageTitle)
	CANCEL
ENDIF

* Prüfen, ob eingegebenen Daten bereits vorhanden sind ****************************************************
cSQL = "SELECT COUNT(*) as SQLAnz FROM t_ld_hybrid WHERE "
cSQL = cSQL + cWhere
SQLEXEC(lnSQLConn, cSQL)
IF Sqlresult.SQLAnz >  0  THEN	&& wenn vorhanden, dann ...
	MESSAGEBOX("Die Leistungsdaten sind bereits vorhanden!" +CHR( 13 )+CHR( 13 )+ cWhere, 16 ,cMessageTitle)
ELSE
	cSQL = "INSERT INTO t_ld_hybrid (Kunde_nr, Ktr, Datum, Film_nr, Norg_v, Nbelegeb, Norg_ges, NRegister, Nimagesb, Nimages_f) VALUES ("
	cSQL = cSQL + cPar01 + ", "
	cSQL = cSQL + cPar02 + ", "
	cSQL = cSQL + cPar03 + ", "
	cSQL = cSQL + cPar04 + ", "
	cSQL = cSQL + cPar05 + ", "
	cSQL = cSQL + cPar06 + ", "
	cSQL = cSQL + cPar07 + ", "
	cSQL = cSQL + cPar08 + ", "
	cSQL = cSQL + cPar09 + ", "
	cSQL = cSQL + cPar10 + ")"
	SQLEXEC(lnSQLConn, cSQL)