JoPPS scripting werd uitgebreid met extra functies om Bi-Colour wizard te gebruiken:
- Mogelijkheid voorzien om via scripting de Bi-Colour wizard aan te roepen.
- Mogelijkheid om instellingen voor de wizard in JOPPS.INI per reeks te kunnen opgeven.
- Mogelijkheid om omschrijving aan te passen via JOPPS.INI.
- Mogelijkheid extra categorieën op te geven voor buiten/binnen kleur.
- Specifieke leverancier bestelinformatie van buiten/binnen kleur overnemen.
Scripting uitgebreid met extra functies om Bi-Colour wizard te gebruiken :
CreateBiColour(Obutton[,Ssystem[,Soutside[,Sinside]]]) : Odialog
Obutton button object van het formulier waaraan de Bi-Colour wizard
dient gekoppeld te worden
Ssystem specifieke reeks waarmee in JOPPS.INI de juiste sectie wordt
gekozen om Bi-Colour instellingen te lezen
Soutside lijst met extra filter waarden voor keuze van de buiten kleur
deze waarden dienen gescheiden te worden door komma
Sinside lijst met extra filter waarden voor keuze van de binnen kleur
deze waarden dienen gescheiden te worden door komma
Odialog dialog object Bi_Color wizard
NewBiColour(Odialog) : Scolor;
Odialog Bi-Colour wizard dialog object
Scolor code nieuwe Bi-Colour (blanco indien geannuleerd)
In JOPPS.INI wordt standaard naar de sectie [DATABASE] gezocht om de Bi-Colour wizard instellingen te lezen, indien de reeks wordt opgegeven zal gezocht worden naar de sectie [DATABASE_SYSTEM]. Indien deze niet bestaan blijft de Bi-Colour wizard werken met de “oude” instellingen :
[WEL13]
Colour_Category_Out=28
Colour_Category_In=28
Colour_CodeRecord=BICOLOR
Colour_Prefix=
[WEL13_ALU_ECO_FUTURAL]
Colour_Category_Out=28
Colour_Category_In=28
Colour_CodeRecord=BICOLOR
Colour_Prefix=ALU
Colour_Desc_1=%0:s bu %1:s bi %2:s
Colour_Desc_2=%0:s ext %1:s int %2:s
Colour_Desc_3=%0:s außen %1:s innen %2:s
Colour_Desc_4=%0:s outer %1:s inner %2:s
Colour_Desc_5=%0:s outer %1:s inner %2:s
Het standaard formaat om de omschrijving van een “Bi-Color” samen te stellen wordt opgepikt uit de taal tabel JOPPS.DB (tag -1,32600). Dit formaat is voortaan via JOPPS.INI te wijzigen door middel van de keywords “Colour_Desc_1” … “Colour_Desc_5” voor de 5 verschillende talen.
Specifieke leverancier bestelinformatie van buiten/binnen kleur wordt overgenomen volgens het volgende principe :
- De standaard leverancier bestelinformatie voor de nieuwe kleur wordt opgehaald uit de uitvoering record waar naar verwezen wordt voor de nieuwe kleur, bijvoorbeeld regel “PG01,PG02,PG03,1.15” zal PG03 als standaard gebruiken
- De specifieke leverancier bestelinformatie van de buiten kleur wordt opgehaald
- De specifieke leverancier bestelinformatie van de binnen kleur wordt opgehaald
- De specifieke leverancier bestelcodes voor de nieuwe kleur worden samengesteld als aan de volgende voorwaarden wodt voldaan:
- De leverancier moet aanwezig zijn in buiten/binnen kleur record
- De bestelcodes moeten aanwezig zijn in buiten/binnen kleur record
Het standaard formaat “%0:s %1:s” om de nieuwe leverancier bestelcodes samen te stellen kan aangepast worden door de gebruiker d.m.v. de sleutels “Colour_Supplier_1” en “Colour_Supplier_2” via de daartoe voorziene secties (per databank of per databank/reeks) in het JOPPS.INI bestand :
[WEL14]
Colour_Category_Out=28
Colour_Category_In=28
Colour_CodeRecord=BICOLOR
Colour_Supplier_1=%0:s %1:s (formaat voor “ral” bestelcode)
Colour_Supplier_2=%0:s %1:s (formaat voor “lak” bestelcode)
[WEL14_ALU_ECO_FUTURAL]
Colour_Category_Out=28
Colour_Category_In=28
Colour_CodeRecord=BICOLOR
Colour_Supplier_1=%0:s %1:s (formaat voor “ral” bestelcode)
Colour_Supplier_2=%0:s %1:s (formaat voor “lak” bestelcode)
Een voorbeeld script:
/* -------------------------------------------------------------------- */
/* Example BiColour.jss */
/* */
/* Example for creation of BiColour in scripting. */
/* */
/* TechWIN Software BVBA 2013 (c) - Gunter Selleslagh */
/* -------------------------------------------------- */
/* change form default appearance */
FORMSETTINGS.FONT.BOLD := True;
FORMSETTINGS.FONT.ITALIC := False;
FORMSETTINGS.FONT.FACENAME := 'Calibri';
FORMSETTINGS.FONT.HEIGHT := 20;
/* create form */
/* arguments: title, width, height, sizeable */
frmColor := FORM.Create('Bi-Kleur voorbeeld',300,125,True);
/* create button */
/* arguments: owner, result, caption, x position, y position, width, height */
btnColor := BUTTON.Create(frmColor,BUTTON_OK,'',10,10,frmColor.ClientWidth-20,30);
btnColor.Default := True;
btnAbort := BUTTON.Create(frmColor,BUTTON_CANCEL,'Annuleren',10,btnColor.Height+20,frmColor.ClientWidth-20,30);
btnAbort.Cancel := True;
/* create bi-colour wizard */
aSystem := AskStr('Reeks','Waarde:','',32,'!');
dlg := CreateBiColour(btnColor,aSystem);
/* show form */
ret := frmColor.Display();
while (ret != BUTTON_CANCEL) do
{
if (ret = BUTTON_OK) then
{
res := NewBiColour(dlg);
if res <> '' then
{
ShowMessage('Nieuwe kleur = ' + res);
}
else
{
ShowMessage('Opdracht geannuleerd!');
};
};
ret := frmColor.Display();
};
/* free objects */
btnAbort.Free();
btnColor.Free();
frmColor.Free();
Zie ook: