/**
 * Code generated by WINDEV Mobile - DO NOT MODIFY!
 * WINDEV Mobile object: Collection
 * Android class: COL_GlobalProcedures
 * Date: 25/04/2021 12:10:12
 * Version of wdjava64.dll: 23.0.98.0
 */


package com.arnoldconsult.sib20.wdgen;


import com.arnoldconsult.sib20.*;
import fr.pcsoft.wdjava.core.types.*;
import fr.pcsoft.wdjava.core.*;
import fr.pcsoft.wdjava.core.application.*;
import fr.pcsoft.wdjava.api.*;
import fr.pcsoft.wdjava.core.types.collection.tableau.*;
import fr.pcsoft.wdjava.core.parcours.*;
import fr.pcsoft.wdjava.core.parcours.chaine.*;
/*Imports trouvés dans le code WL*/
/*Fin Imports trouvés dans le code WL*/



class GWDCPCOL_GlobalProcedures extends WDCollProcAndroid
{
// Nombre de Procédures : 8
//  Summary: <specify the procedure action>
//  Syntax:
// [ <Result> = ] Anmeld (<sUserID>, <sUserPIN>)
// 
//  Parameters:
// 	sUserID: <specify the role of bufUserID>
// 	sUserPIN: <specify the role of bufUserPIN>
//  Return Value:
//  	boolean: // 	None
// 
//  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(),GWDPSIB20.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(GWDCPCOL_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)
GWDPSIB20.ms_Project.vWD_gnUserID.setValeur(WDAPIChaine.val(vWD_sUserID));

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

// 			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>
//  Syntax:
// [ <Result> = ] HTML2Text (<sText>)
// 
//  Parameters:
//  	sText: <specify the role of sText>
//  Return Value:
//  	Unspecified Type: // 	None
// 
//  For instance:
//  Indicate an example.
// 
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();
}

}


//  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(),GWDPSIB20.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: <specify the procedure action>
//  Syntax:
// [ <Result> = ] Buchung (<bufArtikel>, <bufMenge>, <bufConfirmed>)
// 
//  Parameters:
// 	bufArtikel:<specify the role of bufUserID>
// 	bufMenge:<specify the role of bufUserPIN>
// 	bufConfirmed:<specify the role of bufConfirmed>
//  Return Value:
//  	int: // 	None
// 
//  &inv_setmenge&artnr=12354&artbez=abcsefs&menge=12&confirmed=0&userid=10&sib=bestell&edit=999
//  Indicate an example.
// 
static public WDObjet fWD_buchung( WDObjet vWD_bufArtikel , WDObjet vWD_bufMenge , WDObjet vWD_bufConfirmed )
{
initExecProcGlobale("Buchung");


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_bufUserID = new WDBuffer();

WDObjet vWD_bufSIB = new WDBuffer();

WDObjet vWD_nResult = new WDEntier4();

WDObjet vWD_sResult = new WDChaineU();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_bWeiter = new WDBooleen();



// 	sForm is string = "BUCHUNG"

vWD_sForm.setValeur("BUCHUNG");


// 	bufUserID is buffer = NumToString(gnUserID)

vWD_bufUserID.setValeur(WDAPINum.numeriqueVersChaine(GWDPSIB20.ms_Project.vWD_gnUserID));


// 	bufSIB is buffer = gsSIB	//Kennwort INVENTUR oder BESTELLUNG

vWD_bufSIB.setValeur(GWDPSIB20.ms_Project.vWD_gsSIB);


// 	nResult is int


// 	sResult is string


// 	bufResult is buffer


// 	bWeiter is boolean


// 	bufUserID = numtostring(gnUserID)
vWD_bufUserID.setValeur(WDAPINum.numeriqueVersChaine(GWDPSIB20.ms_Project.vWD_gnUserID).getDonneeBinaire());

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

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

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

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

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

// 	HTTPAddParameter(sForm,"sib",bufSIB)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"sib",vWD_bufSIB);

// 	HTTPAddParameter(sForm,"confirmed",bufConfirmed)	//Rückfrage ob wirklich Buchen in STAPAUF verhindern
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"confirmed",vWD_bufConfirmed);

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

// 		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);

}

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

// 	if sResult = "OK" THEN
if(vWD_sResult.opEgal("OK"))
{
// 		nResult = 0
vWD_nResult.setValeur(0);

}
else if(vWD_sResult.opEgal("CHECK"))
{
// 		nResult = 1
vWD_nResult.setValeur(1);

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

// 		Error("Fehler bei Buchung!")
WDAPIDialogue.erreur("Fehler bei Buchung!");

// 		nResult = -1
vWD_nResult.setValeur(-1);

}

// 	RESULT nResult
return vWD_nResult;

}
finally
{
finExecProcGlobale();
}

}


//  Summary: <specify the procedure action>
//  Syntax:
// [ <Result> = ] GetArtBez (<sArtikelID> is string)
// 
//  Parameters:
// 	sArtikelID (UNICODE string): <specify the role of bufArtikelID>
//  Return Value:
//  	UNICODE string: // 	None
// 
//  &getartbez=12345
//  ->"abcdefg" oder "FEHLER"
// 
static public WDObjet fWD_getArtBez( WDObjet vWD_sArtikelID )
{
initExecProcGlobale("GetArtBez");


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_bufArtikelID = new WDBuffer();

WDObjet vWD_bWeiter = new WDBooleen();



vWD_sArtikelID = WDParametre.traiterParametre(vWD_sArtikelID, 1, false, 16);


// 	sForm is string = "GETARTBEZ"

vWD_sForm.setValeur("GETARTBEZ");


// 	sResult is string


// 	bufResult is buffer


// 	bufArtikelID is buffer = sArtikelID

vWD_bufArtikelID.setValeur(vWD_sArtikelID);


// 	bWeiter is boolean


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

// 	HTTPAddParameter(sForm,"inv_getartbez",bufArtikelID)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"inv_getartbez",vWD_bufArtikelID);

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

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

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

// 		error("Keine Verbindung zu Server, bitte Server-Adresse prüfen.")
WDAPIDialogue.erreur("Keine Verbindung zu 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(GWDCPCOL_GlobalProcedures.fWD_hTML2Text(WDAPIChaine.ansiVersUnicode(vWD_bufResult)));

}
else
{
// 		sResult = "Fehler in GetArtBez"
vWD_sResult.setValeur("Fehler in GetArtBez");

}

// 	result sResult
return vWD_sResult;

}
finally
{
finExecProcGlobale();
}

}


//  Summary: Eine Liste mit Buchungen abholen
//  Syntax:
// [ <Result> = ] Liste ()
// 
//  Parameters:
// 	None
//  Return Value:
//  	array: // 	None
// 
//  For instance:
//  Indicate an example.
// 
//  	arrListe: <specify the role of arrListe>
static public WDObjet fWD_liste()
{
initExecProcGlobale("Liste");


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_bufSIB = new WDBuffer();

WDObjet vWD_sResult = new WDChaineU();

WDObjet vWD_bWeiter = new WDBooleen();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_nResult = new WDEntier4();

WDObjet vWD_i = new WDEntier4();

WDObjet vWD_arrListe = WDVarNonAllouee.ref;


// 	sForm is string = "LISTE"

vWD_sForm.setValeur("LISTE");


// 	bufSIB is buffer = gsSIB

vWD_bufSIB.setValeur(GWDPSIB20.ms_Project.vWD_gsSIB);


// 	sResult is string


// 	bWeiter is boolean


// 	bufResult is buffer


// 	nResult is int


// 	i is int


// 	arrListe is array of 1 by 6 strings
vWD_arrListe = new WDTableauSimple(2, new int[]{1,6}, 0, 16);

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

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

// 	HTTPAddParameter(sForm,"sib",bufSIB)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"sib",vWD_bufSIB);

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

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

}
else
{
// 		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(GWDCPCOL_GlobalProcedures.fWD_hTML2Text(WDAPIChaine.ansiVersUnicode(vWD_bufResult)));

}
else
{
// 		sResult = "Fehler in Liste"
vWD_sResult.setValeur("Fehler in Liste");

}

// 	IF bWeiter and Length( sResult ) > 0
if((vWD_bWeiter.getBoolean() & WDAPIChaine.taille(vWD_sResult).opSup(0)))
{
// 		FOR EACH STRING sZeile OF sResult SEPARATED BY crlf
IWDParcours parcours1 = null;
try
{
WDObjet vWD_sZeile = new WDChaineU();
parcours1 = WDParcoursSousChaine.pourTout(vWD_sZeile, null, null, vWD_sResult, "\r\n", 0x2);
while(parcours1.testParcours())
{
// 			arrayaddline(arrListe,"","","","","","")
WDAPITableau.tableauAjouteLigne(vWD_arrListe,new WDObjet[] {new WDChaineU(""),new WDChaineU(""),new WDChaineU(""),new WDChaineU(""),new WDChaineU(""),new WDChaineU("")} );

// 			nResult = arraycount(arrListe)
vWD_nResult.setValeur(WDAPITableau.tableauOccurrence(vWD_arrListe));

// 			i = 0
vWD_i.setValeur(0);

// 			for each string sCol of sZeile separated by ";"
IWDParcours parcours2 = null;
try
{
WDObjet vWD_sCol = new WDChaineU();
parcours2 = WDParcoursSousChaine.pourTout(vWD_sCol, null, null, parcours1.getVariableParcours(), ";", 0x2);
while(parcours2.testParcours())
{
// 				i++
vWD_i.opInc();

// 				arrListe[nResult,i] = NoSpace(sCol)
vWD_arrListe.get(vWD_nResult,vWD_i.getInt()).setValeur(WDAPIChaine.sansEspace(parcours2.getVariableParcours()));

}

}
finally
{
if(parcours2 != null)
{
parcours2.finParcours();
}
}


}

}
finally
{
if(parcours1 != null)
{
parcours1.finParcours();
}
}


// 		nResult = ArrayCount(arrListe)
vWD_nResult.setValeur(WDAPITableau.tableauOccurrence(vWD_arrListe));

}

// 	RESULT arrListe
return vWD_arrListe;

}
finally
{
finExecProcGlobale();
}

}


//  Summary: <specify the procedure action>
//  Syntax:
// [ <Result> = ] Edit (<bufID>, <bufArtikel>, <bufMenge>)
// 
//  Parameters:
//  	bufID: <specify the role of bufID>
//  	bufArtikel: <specify the role of bufArtikel>
//  	bufMenge: <specify the role of bufMenge>
//  Return Value:
//  	boolean: // 	None
// 
//  For instance:
//  Indicate an example.
// 
static public WDObjet fWD_edit( WDObjet vWD_bufID , WDObjet vWD_bufArtikel , WDObjet vWD_bufMenge )
{
initExecProcGlobale("Edit");


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_bufUserID = new WDBuffer();

WDObjet vWD_bufSIB = new WDBuffer();

WDObjet vWD_bResult = new WDBooleen();

WDObjet vWD_sResult = new WDChaineU();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_bWeiter = new WDBooleen();



// 	sForm is string = "EDIT"

vWD_sForm.setValeur("EDIT");


// 	bufUserID is buffer = numtostring(gnUserID)

vWD_bufUserID.setValeur(WDAPINum.numeriqueVersChaine(GWDPSIB20.ms_Project.vWD_gnUserID));


// 	bufSIB is buffer = gsSIB		//Kennwort BESTELLUNG oder INVENTUR

vWD_bufSIB.setValeur(GWDPSIB20.ms_Project.vWD_gsSIB);


// 	bResult is boolean


// 	sResult is string


// 	bufResult is buffer


// 	bWeiter is boolean


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

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

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

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

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

// 	HTTPAddParameter(sForm,"sib",bufSIB)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"sib",vWD_bufSIB);

// 	HTTPAddParameter(sForm,"edit",bufID)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"edit",vWD_bufID);

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

// 		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 THEN
if(vWD_bWeiter.getBoolean())
{
// 		sResult = HTML2Text(AnsiToUnicode(bufResult))
vWD_sResult.setValeur(GWDCPCOL_GlobalProcedures.fWD_hTML2Text(WDAPIChaine.ansiVersUnicode(vWD_bufResult)));

}
else
{
// 		sResult = "Fehler bei Edit"
vWD_sResult.setValeur("Fehler bei Edit");

}

// 	if sResult = "OK"	
if(vWD_sResult.opEgal("OK"))
{
// 		bResult = True
vWD_bResult.setValeur(true);

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

}

// 	RESULT bResult
return vWD_bResult;

}
finally
{
finExecProcGlobale();
}

}


//  Summary: <specify the procedure action>
//  Syntax:
// [ <Result> = ] DelBooking (<bufID> is buffer)
// 
//  Parameters:
// 	bufID (buffer): <specify the role of bufID>
//  Return Value:
//  	boolean: // 	None
// 
//  For instance:
//  Indicate an example.
// 
static public WDObjet fWD_delBooking( WDObjet vWD_bufID )
{
initExecProcGlobale("DelBooking");


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_bufUserID = new WDBuffer();

WDObjet vWD_bufSIB = new WDBuffer();

WDObjet vWD_bResult = new WDBooleen();

WDObjet vWD_bufResult = new WDBuffer();

WDObjet vWD_sResult = new WDChaineU();

WDObjet vWD_bWeiter = new WDBooleen();



vWD_bufID = WDParametre.traiterParametre(vWD_bufID, 1, false, 30);


// 	sForm is string = "DELBOOKING"

vWD_sForm.setValeur("DELBOOKING");


// 	bufUserID is buffer = NumToString(gnUserID)

vWD_bufUserID.setValeur(WDAPINum.numeriqueVersChaine(GWDPSIB20.ms_Project.vWD_gnUserID));


// 	bufSIB is buffer = gsSIB

vWD_bufSIB.setValeur(GWDPSIB20.ms_Project.vWD_gsSIB);


// 	bResult is boolean


// 	bufResult is Buffer


// 	sResult is string


// 	bWeiter is boolean


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

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

// 	HTTPAddParameter(sForm,"id",bufID)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"id",vWD_bufID);

// 	HTTPAddParameter(sForm,"sib",bufSIB)
WDAPIHttp.HTTPAjouteParametre(vWD_sForm.getString(),"sib",vWD_bufSIB);

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

// 		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 THEN
if(vWD_bWeiter.getBoolean())
{
// 		sResult = HTML2Text(AnsiToUnicode(bufResult))
vWD_sResult.setValeur(GWDCPCOL_GlobalProcedures.fWD_hTML2Text(WDAPIChaine.ansiVersUnicode(vWD_bufResult)));

}
else
{
// 		sResult = "Fehler bei DelBooking"
vWD_sResult.setValeur("Fehler bei DelBooking");

}

// 	IF sResult = "OK" THEN
if(vWD_sResult.opEgal("OK"))
{
// 		ToastDisplay("Buchung gelöscht")
WDAPIToast.toastAffiche("Buchung gelöscht");

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

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

}

// 	RESULT bResult
return vWD_bResult;

}
finally
{
finExecProcGlobale();
}

}



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