If All(&str_var1, &nbr_Num1, &nbr_Num2, &str_Var2, &d_Date1, &b_Exists) Then
&REC = CreateRecord(Record.MY_RECORD);
&REC.OPRID.Value = %OperatorId;
&REC.FIELD1.Value = MY_RECORD.FIELD1.Value;
&b_Update_Flag = &REC.SelectByKey();
&REC.OPRID.Value = %OperatorId;
&REC.FIELD1.Value = BITW_PERSON_DTL.FIELD1.Value;
&REC.FIELD2.Value = MY_RECORD.FIELD2.Value;
&REC.DATETIME_STAMP.value = %Datetime;
If &b_Update_Flag Then
&REC.Update();
Else
&REC.Insert();
End-If;
End-If;
&REC = CreateRecord(Record.MY_RECORD);
&REC.OPRID.Value = %OperatorId;
&REC.FIELD1.Value = MY_RECORD.FIELD1.Value;
&b_Update_Flag = &REC.SelectByKey();
&REC.OPRID.Value = %OperatorId;
&REC.FIELD1.Value = BITW_PERSON_DTL.FIELD1.Value;
&REC.FIELD2.Value = MY_RECORD.FIELD2.Value;
&REC.DATETIME_STAMP.value = %Datetime;
If &b_Update_Flag Then
&REC.Update();
Else
&REC.Insert();
End-If;
End-If;
No comments:
Post a Comment