157 lines
2.6 KiB
Plaintext
157 lines
2.6 KiB
Plaintext
COMPILE ROUTINE TEST_OBJ_SHIPMENT(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Set_Status, Send_Info, Btree.Extract, obj_Shipment, Send_Dyn
|
|
DECLARE FUNCTION Get_Status,obj_Schedule, obj_Shipment, FTPList
|
|
|
|
|
|
$INSERT COC_EQUATES
|
|
|
|
EQU CRCRLF$ TO \0D0D0A\
|
|
EQU CRLF$ TO \0D0A\
|
|
EQU TAB$ TO \09\
|
|
|
|
EnvPath = 'C:\FTP_IN\'
|
|
|
|
DEBUG
|
|
|
|
|
|
* * * * * * * JCH Testing of OI's FTP functions * * * * * * *
|
|
|
|
|
|
*FtpDomain = '10.131.1.243' ;* Wales
|
|
*User = 'irep'
|
|
*Password = 'g6fyi9'
|
|
|
|
*FtpDomain = '10.72.100.40' ;* Temecula & El Segundo
|
|
*User = 'EPIMesa'
|
|
*Password = 'irepi01'
|
|
|
|
FtpDomain = '194.90.108.5'
|
|
User = 'irepi'
|
|
Password = 'REPii2'
|
|
Path = ''
|
|
FileName = ''
|
|
Error = ''
|
|
|
|
FileList = FTPList(FtpDomain,User,Password,Path,Error)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
DEBUG
|
|
END
|
|
|
|
|
|
DEBUG
|
|
|
|
|
|
IF FileList THEN
|
|
SWAP CRLF$ WITH '|' IN FileList
|
|
END ELSE
|
|
IF Error THEN
|
|
DEBUG
|
|
END
|
|
END
|
|
|
|
|
|
|
|
GOTO Bail
|
|
|
|
******* Shipment Releases Inbound *******
|
|
|
|
InboundPath = EnvPath:'ShipRel\' ;* Get any inbound Product Order Releases
|
|
InitDir InboundPath:'*.tsv'
|
|
FileList = DirList()
|
|
|
|
FileNames = ''
|
|
LOOP
|
|
FileName = FileList[1,@FM]
|
|
FileList[1,Col2()] = ""
|
|
|
|
LOCATE FileName IN FileNames BY 'AR' USING @FM SETTING Pos ELSE
|
|
FileNames = INSERT(FileNames,Pos,0,0,FileName)
|
|
END
|
|
|
|
UNTIL FileList = ""
|
|
REPEAT
|
|
|
|
IF FileNames[-1,1] = @FM THEN FileNames[-1,1] = ''
|
|
Test = ''
|
|
FileCnt = COUNT(FileNames,@FM) + (FileNames NE '')
|
|
|
|
|
|
FOR N = 1 TO FileCnt
|
|
Send_Info('Processing ':N:' of ':FileCnt)
|
|
FileName = FileNames<N>
|
|
StartTime = Time()
|
|
OSREAD FileIn FROM InboundPath:FileName THEN
|
|
|
|
SWAP TAB$ WITH @VM IN FileIn
|
|
SWAP CRCRLF$ WITH @FM IN FileIn
|
|
SWAP CRLF$ WITH @FM IN FileIn
|
|
|
|
LOOP
|
|
LastChar = FileIn[-1,1]
|
|
UNTIL LastChar NE @FM
|
|
FileIn[-1,1] = ''
|
|
REPEAT
|
|
|
|
RetVal = obj_Shipment('SAPCreate',FileIn)
|
|
|
|
RetVal = 0
|
|
|
|
IF RetVal = 1 THEN
|
|
|
|
OSDELETE InboundPath:Filename ;* Deletes local copy of inbound file
|
|
|
|
SubDirectory = 'ShipRel'
|
|
*GOSUB ClearInbound ;* Deletes file on FTP server FromSAP\ProdOrdRel directory
|
|
|
|
END ;* End of check for successful WO_LOG create
|
|
END
|
|
NEXT N
|
|
|
|
RETURN
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ReadCnt = 0
|
|
SendCnt = 0
|
|
|
|
FOR I = 1 TO ShipCnt
|
|
|
|
ShipNo = ShipNos<1,I>
|
|
|
|
CustNo = XLATE('COC',ShipNo,'CUST_NO','X')
|
|
|
|
|
|
ReadCnt += 1
|
|
|
|
LOCATE CustNo IN CustNos USING @VM SETTING Pos THEN
|
|
*obj_Shipment('SendTechnical',ShipNo)
|
|
SendCnt += 1
|
|
END
|
|
Send_Info(ReadCnt:' - ':SendCnt)
|
|
NEXT I
|
|
|
|
Send_Dyn(ReadCnt:' - ':SendCnt)
|
|
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|