lhm-scripts/RPG.js

76 lines
1.8 KiB
JavaScript
Raw Permalink Normal View History

2023-02-24 18:42:00 -07:00
//
// RPG - Ford Parts by Basic for CDK Drive
//
var core;
bzhao = new ActiveXObject("BZWhll.WhllObj");
bzhao.Connect( "" );
core = bzhao.InputBox ("Enter core number", "0");
if (core == 0)
{
bzhao.MsgBox("Aborted");
}
else if (core != "0") {
if (core != "") {
if (core != null) {
var PDATM = bzhao.WaitForText("Use Arrow", 1, 1, 0.1);
var PDAT = bzhao.WaitForText("PART NUMBER", 1, 1, 0.1);
var PDA = bzhao.WaitForText("(PDA)", 1, 1, 0.1);
var DL = bzhao.WaitForText("O.H. PART-NO............ BIN...", 1, 1, 0.1);
if (PDATM == 0)
{
bzhao.SendKey( "<F3>" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
}
else if (PDAT == 0)
{
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
}
else if (PDA == 0)
{
bzhao.SendKey( "<Enter>" );
}
else if (DL == 0)
{
bzhao.SendKey( "<Enter>" );
}
2023-05-25 16:30:40 -06:00
else if (bzhao.WaitForText("Account: ABG672-I", 1, 1, 0.1))
2023-02-24 18:42:00 -07:00
{
bzhao.MsgBox("Please return to home screen");
}
2023-05-25 16:30:40 -06:00
bzhao.WaitForText("Account: ABG672-I", 1, 1, 100000);
2023-02-24 18:42:00 -07:00
bzhao.SendKey( "RPG" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<CursorRight>" );
bzhao.SendKey( "<CursorRight>" );
bzhao.SendKey( "<CursorRight>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<CursorDown>" );
bzhao.SendKey( "<Enter>" );
bzhao.WaitForText("cols 31");
bzhao.SendKey( "R" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
bzhao.WaitForText("Ford Parts by Basic PROMPT # 1", 1, 1, 100000);
bzhao.SendKey( "[" );
2023-07-14 16:48:24 -06:00
bzhao.SendKey( core.toUpperCase() );
2023-02-24 18:42:00 -07:00
bzhao.SendKey( "]" );
bzhao.SendKey( "<Enter>" );
bzhao.WaitForText("cols 31", 1, 1, 100000);
bzhao.SendKey( "E" );
bzhao.SendKey( "<Enter>" );
bzhao.SendKey( "<Enter>" );
bzhao.Disconnect();
}
}
}