phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed FTP server IP for QA environment

Browse Source
This commit is contained in:
Infineon\StieberD
2025-11-11 09:13:53 -07:00
parent c1dea45db2
commit 39bdf5f9cb
2 changed files with 56 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
LSL2/STPROC/OBJ_SAP.txt
View File

@ -76,32 +76,30 @@ end
Main:
RepoID = ''
SAPEnviron = Environment_Services('GetSAPPath')
RepoID = ''
SAPEnviron = Environment_Services('GetSAPPath')
FTPServerIP = Environment_Services('GetSapFtpServerIP')
FTPUser = Environment_Services('GetSapFtpServerUser')
FTPPassWord = Environment_Services('GetSapFtpServerPassword')
FTPCapturePath = Environment_Services('GetApplicationRootPath') : '\SAP\FTPFiles\'
BEGIN CASE
CASE SAPEnviron = 'PRD'
TransFilePathIn = Environment_Services('GetFTPRootPath') : '\FTP_IN'
TransFilePathOut = Environment_Services('GetFTPRootPath') : '\FTP_OUT'
FTPScriptPath = Environment_Services('GetFTPRootPath') : '\FTPScript\'
FTPServerIP = '172.23.28.185' ;* This is the new EU server (sappnfs.eu.infineon.com)
FTPUser = 'prdopeni'
FTPPassWord = 'sapprdopeni'
FTPCapturePath = Environment_Services('GetApplicationRootPath') : '\SAP\FTPFiles\'
Begin case
Case SAPEnviron = 'PRD'
TransFilePathIn = Environment_Services('GetFTPRootPath') : '\FTP_IN'
TransFilePathOut = Environment_Services('GetFTPRootPath') : '\FTP_OUT'
FTPScriptPath = Environment_Services('GetFTPRootPath') : '\FTPScript\'
CASE SAPEnviron = 'QA'
TransFilePathIn = Environment_Services('GetFTPRootPath') : '\FTP_IN_TEST'
TransFilePathOut = Environment_Services('GetFTPRootPath') : '\FTP_OUT_TEST'
FTPScriptPath = Environment_Services('GetFTPRootPath') : '\FTPScript_Test\'
FTPServerIP = '172.28.150.80' ;* IFX EU FTP Server IP address or URL
FTPUser = 'qasopeni'
FTPPassWord = 'sapqasopeni'
FTPCapturePath = Environment_Services('GetApplicationRootPath') : '\SAP\FTPFiles\'
Case SAPEnviron = 'QA'
TransFilePathIn = Environment_Services('GetFTPRootPath') : '\FTP_IN_TEST'
TransFilePathOut = Environment_Services('GetFTPRootPath') : '\FTP_OUT_TEST'
FTPScriptPath = Environment_Services('GetFTPRootPath') : '\FTPScript_Test\'
CASE 1
Case Otherwise$
ErrMsg('Invalid SAPEnviron variable in obj_SAP')
RETURN
END CASE
return
End case
BaseFromSAPScript = 'lcd ':TransFilePathIn:CRLF$ ;* Change local directory to C:\FTP_IN
@ -130,7 +128,7 @@ Main:
CASE Method = 'SendOutbound' ; GOSUB SendOutbound
CASE Method = 'SendReconcile' ; GOSUB SendReconcile
CASE 1
CASE Otherwise$
ErrorMsg = 'Unknown Method ':QUOTE(Method):' passed to routine.'
END CASE
@ -1504,4 +1502,3 @@ CheckForErrors:
return