Demo entry 6719554

111

   

Submitted by 231 on Mar 12, 2018 at 05:50
Language: Tcl. Code size: 1.5 kB.

set getStepName "getCurrentStepContext(attributes='stepName', lotNumber='${lotNumber}')"
    set stepName [RMIRequest M3MatlMgr $getStepName]
    lassign $stepName errCode inst errTxt
    if {$errCode == "error"  || $errCode == ""} {
       set reply [list "error" $errTxt] 
       return $reply
    } 
    set getRecipePointerAttributesAPI "getRecipePointerAttributes('pointerAttr,precedence',stepName='${stepName}')"
    set RecipePointerAttributesInfo [RMIRequest M3MatlMgr $getRecipePointerAttributesAPI]
    lassign $RecipePointerAttributesInfo errCode inst errTxt
    if {$errCode == "error" || $errCode == ""} {
        set reply [list "error" $errTxt] 
        return $reply
    } else {
        set RecipePointerAttributesInfo [lindex  [lindex $RecipePointerAttributesInfo 0] 0]
    }
    set getLotAttributesAPI "getLotAttributes(attributes='${RecipePointerAttributesInfo}',lotNumber='${lotNumber}')"
    set LotAttributesInfo [RMIRequest M3MatlMgr $getLotAttributesAPI]
    lassign $LotAttributesInfo errCode inst errTxt
    if {$errCode == "error" || $errCode == ""} {
        set reply [list "error" $errTxt]
        return $reply
    }
    set getRecipeNamesAPI "getRecipeNames(attributes='recipeId',stepName='${stepName}',pointer='${LotAttributesInfo}')"
    set RecipeNamesInfo [RMIRequest M3MatlMgr $getRecipeNamesAPI]
    lassign $RecipeNamesInfo errCode inst errTxt
    if {$errCode == "error" || $errCode == ""} {
        set reply [list "error" $errTxt]
        return $reply
    }

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).