/**
 * Code generated by WINDEV Mobile - DO NOT MODIFY!
 * WINDEV Mobile object: Collection
 * Android class: SET_GlobalProcedures
 * Date: 15/04/2021 16:19:48
 * Version of wdjava64.dll: 23.0.98.0
 */


package de.arnoldconsult.leermeld.wdgen;


import de.arnoldconsult.leermeld.*;
import fr.pcsoft.wdjava.core.types.*;
import fr.pcsoft.wdjava.core.*;
import fr.pcsoft.wdjava.core.application.*;
import fr.pcsoft.wdjava.core.poo.*;
import fr.pcsoft.wdjava.core.types.collection.tableau.*;
import fr.pcsoft.wdjava.api.*;
/*Imports trouvés dans le code WL*/
/*Fin Imports trouvés dans le code WL*/



class GWDCPSET_GlobalProcedures extends WDCollProcAndroid
{
// Nombre de Procédures : 6
//  Summary: Details zum Artikel abrufen
//  Syntax:
// [ <Result> = ] CheckArtikel (<nArtikel> is int, <bOK> is boolean)
// 
//  Parameters:
// 	nArtikel (int): <specify the role of nArtikel>
// 	bOK (boolean): <specify the role of bOK>
//  Return Value:
//  	STLeermeld: <specify the possible values as well as their interpretation>
// 
//  For instance:
//  Indicate an example.
// 
static public WDObjet fWD_checkArtikel( WDObjet vWD_nArtikel , WDObjet vWD_bOK )
{
initExecProcGlobale("CheckArtikel");


try
{

////////////////////////////////////////////////////////////////////////////
// Déclaration des variables locales au traitement
// (En WLangage les variables sont encore visibles après la fin du bloc dans lequel elles sont déclarées)
////////////////////////////////////////////////////////////////////////////
WDObjet vWD_sForm = new WDChaineU();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_sArtikel = new WDChaineU();

WDObjet vWD_ResStruct = WDVarNonAllouee.ref;
WDObjet vWD_sLine = new WDChaineU();

WDObjet vWD_nLine = new WDEntier4();

WDObjet vWD_sResult = new WDChaineU();

WDObjet vWD_bWeiter = new WDBooleen();

WDObjet vWD_bufArtikel = new WDBuffer();

WDObjet vWD_arrValues = WDVarNonAllouee.ref;


vWD_nArtikel = WDParametre.traiterParametre(vWD_nArtikel, 1, false, 8);

vWD_bOK = WDParametre.traiterParametre(vWD_bOK, 2, false, 1);


// 	sForm is string = "CHECKARTIKEL"

vWD_sForm.setValeur("CHECKARTIKEL");


// 	bufResult is Buffer


// 	sArtikel is string


// 	ResStruct is STLeermeld
vWD_ResStruct = new GWDCSTLeermeld();


// 	sLine is string


// 	nLine is int


// 	sResult is string


// 	bWeiter is boolean


// 	bufArtikel is buffer


// 	arrValues is array of strings
vWD_arrValues = new WDTableauSimple(1, new int[]{0}, 0, 16);

// 	sArtikel = NumToString(nArtikel)
vWD_sArtikel.setValeur(WDAPINum.numeriqueVersChaine(vWD_nArtikel));

// 	bufArtikel = sArtikel
vWD_bufArtikel.setValeur(vWD_sArtikel.getDonneeBinaire());

// 	HTTPCreateForm(sForm)
WDAPIHttp.HTTPCreeFormulaire(vWD_sForm.getString());

// 	HTTPAddParameter(sForm,"le_checkartikel",bufArtikel)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"le_checkartikel",vWD_bufArtikel);

// 	HourGlass(True)
WDAPIDivers.sablier(new WDBooleen(true).getInt());

// 	IF HTTPSendForm(sForm,SERVER_ADRESS,httpGet) THEN
if(WDAPIHttp.HTTPEnvoieFormulaire(vWD_sForm.getString(),GWDPLeermeld.ms_Project.vWD_SERVER_ADRESS.getString(),1).getBoolean())
{
// 		bufResult = HTTPGetResult()
vWD_bufResult.setValeur(WDAPIHttp.HTTPDonneResultat().getDonneeBinaire());

// 		HourGlass(False)
WDAPIDivers.sablier(new WDBooleen(false).getInt());

// 		bWeiter = True
vWD_bWeiter.setValeur(true);

}
else
{
// 		HourGlass(False)
WDAPIDivers.sablier(new WDBooleen(false).getInt());

// 		error("Keine Verbindung zum Server, bitte Server-Adresse prüfen.")
WDAPIDialogue.erreur("Keine Verbindung zum Server, bitte Server-Adresse prüfen.");

// 		bWeiter = False
vWD_bWeiter.setValeur(false);

}

// 	if bWeiter
if(vWD_bWeiter.getBoolean())
{
// 		sResult = HTML2Text(AnsiToUnicode(bufResult))
vWD_sResult.setValeur(GWDCPSET_GlobalProcedures.fWD_hTML2Text(WDAPIChaine.ansiVersUnicode(vWD_bufResult)));

// 		IF sResult <> "" THEN
if(vWD_sResult.opDiff(""))
{
// 			StringToArray(sResult,arrValues)
WDAPITableau.chaineVersTableau(vWD_sResult,vWD_arrValues);

// 			sLine = arrValues[1]
vWD_sLine.setValeur(vWD_arrValues.get(1));

// 			nLine = Val(sLine)
vWD_nLine.setValeur(WDAPIChaine.val(vWD_sLine));

// 			SWITCH nLine
// Délimiteur de visibilité pour ne pas étendre la visibilité de la variable temporaire _WDExpSelon
{
WDObjet _WDExpSelon0 = vWD_nLine;
if(_WDExpSelon0.opEgal(0))
{
// 					Sound("BLEEP26.WAV")
WDAPIMedia.son("BLEEP26.WAV");

// 					Error( "Artikel " + nArtikel + " nicht gefunden!" )
WDAPIDialogue.erreur(new WDChaineU("Artikel ").opPlus(vWD_nArtikel).opPlus(" nicht gefunden!").getString());

// 					bOK = False
vWD_bOK.setValeur(false);

}
else if(_WDExpSelon0.opEgal(-1))
{
// 					Sound("BLEEP26.WAV")
WDAPIMedia.son("BLEEP26.WAV");

// 					Error("Leermeldung bereits vorhanden!")
WDAPIDialogue.erreur("Leermeldung bereits vorhanden!");

// 					bOK = False
vWD_bOK.setValeur(false);

}
else if(_WDExpSelon0.opEgal(-2))
{
// 					Sound("BLEEP26.WAV")
WDAPIMedia.son("BLEEP26.WAV");

// 					Error("Datensatz ist gesperrt")
WDAPIDialogue.erreur("Datensatz ist gesperrt");

// 					bOK = False
vWD_bOK.setValeur(false);

}
else if(_WDExpSelon0.opEgal(-3))
{
// 					Sound("BLEEP26.WAV")
WDAPIMedia.son("BLEEP26.WAV");

// 					Error("keine Palette vorhanden!")
WDAPIDialogue.erreur("keine Palette vorhanden!");

// 					bOK = False
vWD_bOK.setValeur(false);

}
else if(_WDExpSelon0.opInf(-3))
{
// 					Error("Unbekannter Fehler")
WDAPIDialogue.erreur("Unbekannter Fehler");

// 					bOK = False
vWD_bOK.setValeur(false);

}
else {
// 					if arraycount(arrValues) = 6 THEN
if(WDAPITableau.tableauOccurrence(vWD_arrValues).opEgal(6))
{
// 						ResStruct.nArtNr = 	nLine
vWD_ResStruct.checkType(GWDCSTLeermeld.class).mWD_nArtNr.setValeur(vWD_nLine);

// 						ResStruct.sArtBez = arrValues[2]
vWD_ResStruct.checkType(GWDCSTLeermeld.class).mWD_sArtBez.setValeur(vWD_arrValues.get(2));

// 						ResStruct.nKisten = val(arrValues[3])
vWD_ResStruct.checkType(GWDCSTLeermeld.class).mWD_nKisten.setValeur(WDAPIChaine.val(vWD_arrValues.get(3)));

// 						ResStruct.sVon = 	arrValues[4]
vWD_ResStruct.checkType(GWDCSTLeermeld.class).mWD_sVon.setValeur(vWD_arrValues.get(4));

// 						ResStruct.sZiel = 	arrValues[5]
vWD_ResStruct.checkType(GWDCSTLeermeld.class).mWD_sZiel.setValeur(vWD_arrValues.get(5));

// 						ResStruct.nDurchl = val(arrValues[6])
vWD_ResStruct.checkType(GWDCSTLeermeld.class).mWD_nDurchl.setValeur(WDAPIChaine.val(vWD_arrValues.get(6)));

// 						bOK = True
vWD_bOK.setValeur(true);

}
else
{
// 						error("Interner Fehler in CheckArtikel()")
WDAPIDialogue.erreur("Interner Fehler in CheckArtikel()");

// 						bOK = False
vWD_bOK.setValeur(false);

}

}

}

}

}

// 	RESULT ResStruct
return vWD_ResStruct;

}
finally
{
finExecProcGlobale();
}

}


//  Summary: <specify the procedure action>
//  Syntax:
// [ <Result> = ] SendPing ()
// 
//  Parameters:
// 	None
//  Return Value:
//  	boolean: // 	None
// 
//  For instance:
//  Indicate an example.
// 
static public WDObjet fWD_sendPing()
{
initExecProcGlobale("SendPing");


try
{

////////////////////////////////////////////////////////////////////////////
// Déclaration des variables locales au traitement
// (En WLangage les variables sont encore visibles après la fin du bloc dans lequel elles sont déclarées)
////////////////////////////////////////////////////////////////////////////
WDObjet vWD_sForm = new WDChaineU();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_bResult = new WDBooleen();



// 	sForm is string


// 	bufResult is buffer


// 	bResult is boolean = false

vWD_bResult.setValeur(false);


// 	HTTPCreateForm(sForm)
WDAPIHttp.HTTPCreeFormulaire(vWD_sForm.getString());

// 	HTTPAddParameter(sForm,"ping","")
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"ping",new WDChaineU(""));

// 	bResult = HTTPSendForm(sForm,SERVER_ADRESS,httpGet)
vWD_bResult.setValeur(WDAPIHttp.HTTPEnvoieFormulaire(vWD_sForm.getString(),GWDPLeermeld.ms_Project.vWD_SERVER_ADRESS.getString(),1));

// 	if bResult
if(vWD_bResult.getBoolean())
{
// 		bufResult = HTTPGetResult()
vWD_bufResult.setValeur(WDAPIHttp.HTTPDonneResultat().getDonneeBinaire());

// 		IF Length(bufResult) > 0 THEN
if(WDAPIChaine.taille(vWD_bufResult).opSup(0))
{
// 			bResult = True
vWD_bResult.setValeur(true);

}
else
{
// 			bResult = False		
vWD_bResult.setValeur(false);

}

}

// 	RESULT bResult	
return vWD_bResult;

}
finally
{
finExecProcGlobale();
}

}


//  Summary: &createstapauf&artnr=99999&ziel=999&durchl=0&von=999&menge=9999
//  Syntax:
// CreateStapAuf (<MyLeermeld> is STLeermeld)
// 
//  Parameters:
// 	MyLeermeld (STLeermeld): <specify the role of MyLeermeld>
//  Return Value:
//  	None
// 
//  For instance:
//  Indicate an example.
// 
// 	bOK (boolean): <specify the role of bOK>
static public void fWD_createStapAuf( WDObjet vWD_MyLeermeld )
{
initExecProcGlobale("CreateStapAuf");


try
{

////////////////////////////////////////////////////////////////////////////
// Déclaration des variables locales au traitement
// (En WLangage les variables sont encore visibles après la fin du bloc dans lequel elles sont déclarées)
////////////////////////////////////////////////////////////////////////////
WDObjet vWD_sForm = new WDChaineU();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_bufArtNr = new WDBuffer();

WDObjet vWD_bufZiel = new WDBuffer();

WDObjet vWD_bufDurchl = new WDBuffer();

WDObjet vWD_bufVon = new WDBuffer();

WDObjet vWD_bufMenge = new WDBuffer();

WDObjet vWD_bufUserID = new WDBuffer();



vWD_MyLeermeld = WDParametre.traiterParametreClasse(vWD_MyLeermeld, 1, false, GWDCSTLeermeld.class, 36);


// 	sForm is string = "CREATESTAPAUF"

vWD_sForm.setValeur("CREATESTAPAUF");


// 	bufResult is Buffer


// 	bufArtNr, bufZiel, bufDurchl, bufVon, bufMenge, bufUserID are Buffers







// 	bufArtNr = UnicodeToAnsi(NumToString( MyLeermeld.nArtNr ),charsetAnsi)
vWD_bufArtNr.setValeur(WDAPIChaine.UnicodeVersAnsi(WDAPINum.numeriqueVersChaine(vWD_MyLeermeld.checkType(GWDCSTLeermeld.class).mWD_nArtNr),0).getDonneeBinaire());

// 	bufDurchl = UnicodeToAnsi(NumToString(MyLeermeld.nDurchl),charsetAnsi)
vWD_bufDurchl.setValeur(WDAPIChaine.UnicodeVersAnsi(WDAPINum.numeriqueVersChaine(vWD_MyLeermeld.checkType(GWDCSTLeermeld.class).mWD_nDurchl),0).getDonneeBinaire());

// 	bufVon = UnicodeToAnsi(MyLeermeld.sVon,charsetAnsi)
vWD_bufVon.setValeur(WDAPIChaine.UnicodeVersAnsi(vWD_MyLeermeld.checkType(GWDCSTLeermeld.class).mWD_sVon,0).getDonneeBinaire());

// 	bufZiel = UnicodeToAnsi(MyLeermeld.sZiel,charsetAnsi)
vWD_bufZiel.setValeur(WDAPIChaine.UnicodeVersAnsi(vWD_MyLeermeld.checkType(GWDCSTLeermeld.class).mWD_sZiel,0).getDonneeBinaire());

// 	bufMenge = UnicodeToAnsi(NumToString(MyLeermeld.nKisten),charsetAnsi)
vWD_bufMenge.setValeur(WDAPIChaine.UnicodeVersAnsi(WDAPINum.numeriqueVersChaine(vWD_MyLeermeld.checkType(GWDCSTLeermeld.class).mWD_nKisten),0).getDonneeBinaire());

// 	bufUserID = NumToString(gnUserID)
vWD_bufUserID.setValeur(WDAPINum.numeriqueVersChaine(GWDPLeermeld.ms_Project.vWD_gnUserID).getDonneeBinaire());

// 	HTTPCreateForm(sForm)
WDAPIHttp.HTTPCreeFormulaire(vWD_sForm.getString());

// 	HTTPAddParameter(sForm,"le_createstapauf","")
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"le_createstapauf",new WDChaineU(""));

// 	HTTPAddParameter(sForm,"artnr",bufArtNr)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"artnr",vWD_bufArtNr);

// 	HTTPAddParameter(sForm,"durchl",bufDurchl)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"durchl",vWD_bufDurchl);

// 	HTTPAddParameter(sForm,"von",bufVon)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"von",vWD_bufVon);

// 	HTTPAddParameter(sForm,"ziel",bufZiel)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"ziel",vWD_bufZiel);

// 	HTTPAddParameter(sForm,"menge",bufMenge)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"menge",vWD_bufMenge);

// 	HTTPAddParameter(sForm,"userid",bufUserID)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"userid",vWD_bufUserID);

// 	IF HTTPSendForm(sForm,SERVER_ADRESS,httpGet) THEN
if(WDAPIHttp.HTTPEnvoieFormulaire(vWD_sForm.getString(),GWDPLeermeld.ms_Project.vWD_SERVER_ADRESS.getString(),1).getBoolean())
{
// 		IF InTestMode()
if(WDAPIVM.enModeTest().getBoolean())
{
// 			bufResult = HTTPGetResult()
vWD_bufResult.setValeur(WDAPIHttp.HTTPDonneResultat().getDonneeBinaire());

}
else
{
// 			bufResult = AnsiToUnicode(HTTPGetResult(),charsetAnsi)
vWD_bufResult.setValeur(WDAPIChaine.ansiVersUnicode(WDAPIHttp.HTTPDonneResultat(),0).getDonneeBinaire());

}

}
else
{
// 		Error("Verbindung zum Server fehlgeschlagen","Bitte Server-Einstellung prüfen")
WDAPIDialogue.erreur("Verbindung zum Server fehlgeschlagen",new String[] {"Bitte Server-Einstellung prüfen"} );

}

// 	IF Upper(bufResult) = "OK" THEN
if(WDAPIChaine.majuscule(vWD_bufResult).opEgal("OK"))
{
// 		sound("BLEEP18.WAV")
WDAPIMedia.son("BLEEP18.WAV");

}
else
{
// 		sound("BLEEP26.WAV")
WDAPIMedia.son("BLEEP26.WAV");

// 		Error("Fehler: ",bufResult)
WDAPIDialogue.erreur("Fehler: ",new String[] {vWD_bufResult.getString()} );

}

// 	Return
return;

}
finally
{
finExecProcGlobale();
}

}


//  Summary: Wenn der Abbrechen-Button gedrückt wird, muss die Sperre wieder aufgehoben werden
//  Syntax:
// CancelStapAuf (<nArtikel> is int)
// 
//  Parameters:
// 	nArtikel (int): <specify the role of nArtikel>
//  Return Value:
//  	None
// 
//  For instance:
//  Indicate an example.
// 
static public void fWD_cancelStapAuf( WDObjet vWD_nArtikel )
{
initExecProcGlobale("CancelStapAuf");


try
{

////////////////////////////////////////////////////////////////////////////
// Déclaration des variables locales au traitement
// (En WLangage les variables sont encore visibles après la fin du bloc dans lequel elles sont déclarées)
////////////////////////////////////////////////////////////////////////////
WDObjet vWD_sForm = new WDChaineU();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_bufArtikel = new WDBuffer();



vWD_nArtikel = WDParametre.traiterParametre(vWD_nArtikel, 1, false, 8);


// 	sForm is string = "CANCELSTAPAUF"

vWD_sForm.setValeur("CANCELSTAPAUF");


// 	bufResult is buffer


// 	bufArtikel is buffer


// 	bufArtikel = UnicodeToAnsi(NumToString(nArtikel))
vWD_bufArtikel.setValeur(WDAPIChaine.UnicodeVersAnsi(WDAPINum.numeriqueVersChaine(vWD_nArtikel)).getDonneeBinaire());

// 	HTTPCreateForm(sForm)
WDAPIHttp.HTTPCreeFormulaire(vWD_sForm.getString());

// 	HTTPAddParameter(sForm,"le_cancelstapauf",bufArtikel)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"le_cancelstapauf",vWD_bufArtikel);

// 	IF HTTPSendForm(sForm,SERVER_ADRESS,httpGet) THEN
if(WDAPIHttp.HTTPEnvoieFormulaire(vWD_sForm.getString(),GWDPLeermeld.ms_Project.vWD_SERVER_ADRESS.getString(),1).getBoolean())
{
// 		bufResult = AnsiToUnicode(HTTPGetResult(),charsetAnsi)
vWD_bufResult.setValeur(WDAPIChaine.ansiVersUnicode(WDAPIHttp.HTTPDonneResultat(),0).getDonneeBinaire());

}
else
{
// 		Error("Verbindung zum Server fehlgeschlagen","Bitte Server-Einstellung prüfen")
WDAPIDialogue.erreur("Verbindung zum Server fehlgeschlagen",new String[] {"Bitte Server-Einstellung prüfen"} );

}

// 	if Upper(bufResult) <> "OK" THEN
if(WDAPIChaine.majuscule(vWD_bufResult).opDiff("OK"))
{
// 		error("Fehler: ",bufResult)
WDAPIDialogue.erreur("Fehler: ",new String[] {vWD_bufResult.getString()} );

}

}
finally
{
finExecProcGlobale();
}

}


//  Summary: Name und Passwort mit PERSONAL.DBF vergleichen 
//  Syntax:
// [ <Result> = ] Anmeld (<sUserID>, <sUserPIN>)
// 
//  Parameters:
// 	sUserID: <specify the role of sUserID>
// 	sUserPIN: <specify the role of sUserPIN>
//  Return Value:
//  	boolean: Ob Username und Passwort in PERSONAL gefunden werden konnten
// 
//  For instance:
//  Indicate an example.
// 
static public WDObjet fWD_anmeld( WDObjet vWD_sUserID , WDObjet vWD_sUserPIN )
{
initExecProcGlobale("Anmeld");


try
{

////////////////////////////////////////////////////////////////////////////
// Déclaration des variables locales au traitement
// (En WLangage les variables sont encore visibles après la fin du bloc dans lequel elles sont déclarées)
////////////////////////////////////////////////////////////////////////////
WDObjet vWD_sForm = new WDChaineU();

WDObjet vWD_sResult = new WDChaineU();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_nPos = new WDEntier4();

WDObjet vWD_bResult = new WDBooleen();

WDObjet vWD_bufUserID = new WDBuffer();

WDObjet vWD_bufUserPIN = new WDBuffer();



// 	sForm is string = "ANMELD"

vWD_sForm.setValeur("ANMELD");


// 	sResult is String


// 	bufResult is buffer


// 	nPos is int


// 	bResult is boolean


// 	bufUserID is buffer = sUserID

vWD_bufUserID.setValeur(vWD_sUserID);


// 	bufUserPIN is Buffer = sUserPIN

vWD_bufUserPIN.setValeur(vWD_sUserPIN);


// 	HTTPCreateForm(sForm)
WDAPIHttp.HTTPCreeFormulaire(vWD_sForm.getString());

// 	HTTPAddParameter(sForm,"anmeld","")
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"anmeld",new WDChaineU(""));

// 	HTTPAddParameter(sForm,"userid",bufUserID)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"userid",vWD_bufUserID);

// 	HTTPAddParameter(sForm,"userpw",bufUserPIN)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"userpw",vWD_bufUserPIN);

// 	bResult = HTTPSendForm(sForm,SERVER_ADRESS,httpGet)
vWD_bResult.setValeur(WDAPIHttp.HTTPEnvoieFormulaire(vWD_sForm.getString(),GWDPLeermeld.ms_Project.vWD_SERVER_ADRESS.getString(),1));

// 	if bResult THEN
if(vWD_bResult.getBoolean())
{
// 		bufResult = HTTPGetResult()
vWD_bufResult.setValeur(WDAPIHttp.HTTPDonneResultat().getDonneeBinaire());

// 		sResult = AnsiToUnicode(bufResult)
vWD_sResult.setValeur(WDAPIChaine.ansiVersUnicode(vWD_bufResult));

}
else
{
// 		Error("Verbindung zum Server fehlgeschlagen","Bitte Server-Einstellung prüfen")
WDAPIDialogue.erreur("Verbindung zum Server fehlgeschlagen",new String[] {"Bitte Server-Einstellung prüfen"} );

}

// 	if bResult
if(vWD_bResult.getBoolean())
{
// 		sResult = HTML2Text(sResult)
vWD_sResult.setValeur(GWDCPSET_GlobalProcedures.fWD_hTML2Text(vWD_sResult));

// 		nPos = Position(sResult,"OK:") 
vWD_nPos.setValeur(WDAPIChaine.position(vWD_sResult,new WDChaineU("OK:")));

// 		IF nPos > 0
if(vWD_nPos.opSup(0))
{
// 			gnUserID = Val(sUserID)
GWDPLeermeld.ms_Project.vWD_gnUserID.setValeur(WDAPIChaine.val(vWD_sUserID));

// 			gsUserName = NoSpace(Middle(sResult,nPos+4))
GWDPLeermeld.ms_Project.vWD_gsUserName.setValeur(WDAPIChaine.sansEspace(WDAPIChaine.milieu(vWD_sResult,vWD_nPos.opPlus(4).getInt())));

// 			WIN_Haupt.STC_Username = gsUserName
GWDPLeermeld.ms_Project.getWIN_Haupt().mWD_STC_Username.setValeur(GWDPLeermeld.ms_Project.vWD_gsUserName);

// 			bResult = True
vWD_bResult.setValeur(true);

}
else
{
// 			Error("Fehler bei Anmeldung","Antwort vom Server:",sResult)
WDAPIDialogue.erreur("Fehler bei Anmeldung",new String[] {"Antwort vom Server:",vWD_sResult.getString()} );

// 			bResult = False
vWD_bResult.setValeur(false);

}

}

// 	RESULT bResult
return vWD_bResult;

}
finally
{
finExecProcGlobale();
}

}


//  Summary: <specify the procedure action>
// 
static public WDObjet fWD_hTML2Text( WDObjet vWD_sText )
{
initExecProcGlobale("HTML2Text");


try
{
// 	IF sText = "" THEN
if(vWD_sText.opEgal(""))
{
// 		RESULT ""
return new WDChaineU("");

}

// 	sText = Replace(sText,"&quot;",Charact(34))
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&quot;"),WDAPIChaine.caract(34)));

// 	sText = Replace(sText,"&lt;","<")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&lt;"),new WDChaineU("<")));

// 	sText = Replace(sText,"&gt;",">")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&gt;"),new WDChaineU(">")));

// 	sText = Replace(sText,"&auml;","ä")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&auml;"),new WDChaineU("ä")));

// 	sText = Replace(sText,"&Auml;","Ä")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&Auml;"),new WDChaineU("Ä")));

// 	sText = Replace(sText,"&ouml;","ö")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&ouml;"),new WDChaineU("ö")));

// 	sText = Replace(sText,"&Ouml;","Ö")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&Ouml;"),new WDChaineU("Ö")));

// 	sText = Replace(sText,"&uuml;","ü")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&uuml;"),new WDChaineU("ü")));

// 	sText = Replace(sText,"&Uuml;","Ü")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&Uuml;"),new WDChaineU("Ü")));

// 	sText = Replace(sText,"&szlig;","ß")
vWD_sText.setValeur(WDAPIChaine.remplace(vWD_sText,new WDChaineU("&szlig;"),new WDChaineU("ß")));

// 	RESULT sText
return vWD_sText;

}
finally
{
finExecProcGlobale();
}

}



////////////////////////////////////////////////////////////////////////////
// Déclaration des variables globales
////////////////////////////////////////////////////////////////////////////
}
