68 lines
3.1 KiB
Plaintext
68 lines
3.1 KiB
Plaintext
Subroutine TEST4(Param1, Param2, Param3)
|
|
#pragma precomp SRP_PreCompiler
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, RList, Btree.Extract, msg, ErrMsg,Security_Err_Msg, Set_FSError, obj_Tables, Create_Table, Logging_Services, PrintSetup
|
|
DECLARE SUBROUTINE obj_React_Run,obj_React_Run_CI,obj_RDS_Test, obj_RDS_Layer, Set_Status, BTREE.READ, obj_Post_Log, REACT_RUN_RDS, Reactor_Services, SRP_TcpClient, FTP_Services, Print_Shipment_Dev
|
|
DECLARE SUBROUTINE Extract_SI_Keys, Btree.Extract, Set_List_Box_Data, Print_Shipment, Database_Services, Activate_Save_Select, GetTempPath, obj_Export, obj_WO_Mat, Messaging_Services, SRP_Stopwatch
|
|
DECLARE FUNCTION obj_Popup, Dialog_Box, obj_Install, FindWindow, Security_Check, obj_rds2, obj_Tables, Get_Status, obj_ICAR, obj_Recipe, obj_JCH_Log, Min, Max, obj_Export, obj_Prod_spec
|
|
Declare function Database_Services, Error_Services, RTI_Task_Submit, RTI_Task_Status, RTI_CreateGUID, Environment_Services, Logging_Services, MCP, PrintSetup, FTP_Services, SRP_Encode, RTI_Task_Status
|
|
Declare function SRP_Trim, SRPLogonAPI_ValidateUser, Obj_Calendar, RTI_LH_Info, SRP_TcpClient, Date_Services, obj_WM_In, SRP_Path, RTI_IsMember, RTI_LDAP_Groups_For_User, RTI_LDAP_Groups_For_User_RTI, RTI_Task_Submit
|
|
Declare function SQL_Services, Get_App_Info, HTTPClient_Services, NextKey
|
|
Declare subroutine SQL_Services, Add_Repos_App, HTTPClient_Services, obj_SAP,sap_services
|
|
|
|
$INSERT LOGICAL
|
|
$INSERT SEC_GROUPS_EQU
|
|
$INSERT RDS_EQU
|
|
$INSERT WO_LOG_EQU
|
|
$INSERT WO_MAT_EQUATES
|
|
$INSERT WO_STEP_EQUATES
|
|
$INSERT WM_OUT_EQUATES
|
|
$Insert COC_EQUATES
|
|
$INSERT QUOTE_SPEC_EQU
|
|
$INSERT PROD_SPEC_EQU
|
|
$INSERT RDS_TEST_EQUATES
|
|
$INSERT RDS_LAYER_EQUATES
|
|
$INSERT REACT_RUN_EQUATES
|
|
$INSERT REACT_MODE_EQUATES
|
|
$INSERT POPUP_EQUATES
|
|
$INSERT SECURITY_RIGHTS_EQU
|
|
$INSERT CLEAN_INSP_EQUATES
|
|
$insert RTI_LH_INFO_EQUATES
|
|
$insert PRINTSETUP_EQUATES
|
|
$insert REPOSITORY_EQUATES
|
|
|
|
|
|
// Code to massage data in the PROD_SPEC.SPEC_SPI column.
|
|
Open 'PROD_SPEC' to hProdSpec then
|
|
RList('SELECT PROD_SPEC', 5, '', '', '')
|
|
* call Make.List(0, 4962, '', '')
|
|
* call Make.List(0, 5011, '', '')
|
|
EOF = False$
|
|
Loop
|
|
ReadNext KeyID else EOF = True$
|
|
Until EOF EQ True$
|
|
Locate KeyID in '4962,5011,5012' using ',' setting cPos else
|
|
Read Record from hProdSpec, KeyID then
|
|
SpecEPI = Record<15>
|
|
NumLayers = DCount(SpecEPI, Char(248))
|
|
For LayerCnt = 1 to NumLayers
|
|
LayerData = Field(SpecEPI, Char(248), LayerCnt, 1)
|
|
ThickMin = LayerData<0, 7>
|
|
ThickMax = LayerData<0, 8>
|
|
ThickMin := 0
|
|
ThickMax := 0
|
|
LayerData<0, 7> = ThickMin
|
|
LayerData<0, 8> = ThickMax
|
|
SpecEPI = FieldStore(SpecEPI, Char(248), LayerCnt, 1, LayerData)
|
|
Next LayerCnt
|
|
Record<15> = SpecEPI
|
|
Write Record to hProdSpec, KeyID else
|
|
|
|
end
|
|
end else
|
|
|
|
end
|
|
end
|
|
Repeat
|
|
end
|