I have two scripts creating new records from a portal in related
tables. (OSX, 8.5)
The first I'll name "Working" and the other I'll name "Dopie"
Working creates a new record for each if/endif where tested true,
Dopie will run each test accurately, but does not perform a find for
each true test like Working does.
Dopie creates one new record, with accurate data (including pulling
result from second if for "customers" if "vsi" doesn't produce a
"yes")...so the if/test/result must be functioning. I cannot figure
why "working" creates a record for each if/endif....and Dopie is not.
Driving me nuts.... Any ideas welcome!
*******************
"Working"
Set Variable [ $$ppart; Value:Product Parts::Product Part ID ]
New Window [ Name: "Product Part Approvals"; Height: 400; Width: Get
( WindowDesktopWidth ); Top: 600 ]
If [ Product Parts::LicensorAppReqD = "YES" ]
Go to Layout [ "ppapplist" (ProductPartApprovalList) ]
New Record/Request
Set Field [ ProductPartApprovalList:

part4app; $$ppart ]
Set Field [ ProductPartApprovalList::AppLevel; "Final Design" ]
Set Field [ ProductPartApprovalList::Approver; "Licensor" ]
Commit Records/Requests
[ Skip data entry validation; No dialog ]
End If
If [ Product Parts::ClientAppReqD = "YES" ]
Go to Layout [ "ppapplist" (ProductPartApprovalList) ]
New Record/Request
Set Field [ ProductPartApprovalList:

part4app; $$ppart ]
Set Field [ ProductPartApprovalList::AppLevel; "Final Design" ]
Set Field [ ProductPartApprovalList::Approver; "Customer" ]
Commit Records/Requests
[ Skip data entry validation; No dialog ]
End If
If [ Product Parts::VSIAppReqD = "YES" ]
Go to Layout [ "ppapplist" (ProductPartApprovalList) ]
New Record/Request
Set Field [ ProductPartApprovalList:

part4app; $$ppart ]
Set Field [ ProductPartApprovalList::AppLevel; "Final Design" ]
Set Field [ ProductPartApprovalList::Approver; "VSIntl" ]
Commit Records/Requests
[ Skip data entry validation; No dialog ]
End If
If [ Product Parts::LicensorAppReqP = "YES" ]
Go to Layout [ "ppapplist" (ProductPartApprovalList) ]
New Record/Request
Set Field [ ProductPartApprovalList:

part4app; $$ppart ]
Set Field [ ProductPartApprovalList::AppLevel; "Final Proof" ]
Set Field [ ProductPartApprovalList::Approver; "Licensor" ]
Commit Records/Requests
[ Skip data entry validation; No dialog ]
End If
**************************
"Dopie"
Set Variable [ $$ppartr; Value:Product Parts::Product Part ID ]
If [ Product Parts::VSIAppReqProd = "yes" or Product Parts::VSIAppReqP
= "yes" or Product Parts::VSIAppReqD = "yes" ]
Go to Layout [ "ProductPartsReported" (ProductPartsReported) ]
New Record/Request
Set Field [ ProductPartsReported::PartID#; $$ppartr ]
Set Field [ ProductPartsReported::Approver; "VSIntl" ]
Commit Records/Requests
[ Skip data entry validation; No dialog ]
End If
If [ Product Parts::ClientAppReqProd = "yes" or Product
Parts::ClientAppReqP = "yes" or Product Parts::ClientAppReqD = "yes" ]
Go to Layout [ "ProductPartsReported" (ProductPartsReported) ]
New Record/Request
Set Field [ ProductPartsReported::PartID#; $$ppartr ]
Set Field [ ProductPartsReported::Approver; "Customer" ]
Commit Records/Requests
[ Skip data entry validation; No dialog ]
End If