Hello,
I am trying to mimic developer diaries 20 (passing user information via prompt to rpg program. it works fine if i check just one record but when i check multiple records, its not processing the second record.... how do i do a loop on multiple records where i want to prompt for information
below is what i have but its not working...
Select;
When Action = 'ProcessPart';
For SelectIdx = 1 to gSelectionCnt;
HldType = GetSelectionChar(SelectIdx:'HDTYPE');
If HldType = 'DiscretePart';
SetAppVar('PromptForPart':'true');
Else;
SetAppVar('PromptForPart':'false');
EndIf;
SetResponse('success': 'true');
Return;
EndFor;
When Action = 'Release';
NewPartNumber = vvIn_char('PartNumber');
For SelectIdx = 1 to gSelectionCnt;
EOrder = GetSelectionChar(SelectIdx: 'HDEORDR');
ELine = GetSelectionChar(SelectIdx: 'HDELINE');
HldType = GetSelectionChar(SelectIdx: 'HDTYPE');
I am trying to mimic developer diaries 20 (passing user information via prompt to rpg program. it works fine if i check just one record but when i check multiple records, its not processing the second record.... how do i do a loop on multiple records where i want to prompt for information
below is what i have but its not working...
Select;
When Action = 'ProcessPart';
For SelectIdx = 1 to gSelectionCnt;
HldType = GetSelectionChar(SelectIdx:'HDTYPE');
If HldType = 'DiscretePart';
SetAppVar('PromptForPart':'true');
Else;
SetAppVar('PromptForPart':'false');
EndIf;
SetResponse('success': 'true');
Return;
EndFor;
When Action = 'Release';
NewPartNumber = vvIn_char('PartNumber');
For SelectIdx = 1 to gSelectionCnt;
EOrder = GetSelectionChar(SelectIdx: 'HDEORDR');
ELine = GetSelectionChar(SelectIdx: 'HDELINE');
HldType = GetSelectionChar(SelectIdx: 'HDTYPE');
Comment