pre cutover push
This commit is contained in:
Infineon\StieberD
@ -1,7 +1,7 @@
|
||||
COMPILE SUBROUTINE Print_Shipment_Dev(ShipNo, ShipRec, AutoPrint, HideUI)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
DECLARE FUNCTION Msg,Set_Printer, Dialog_Box, Security_Check, FieldCount, ex_vm_rem, obj_WM_Out, SRPSendMail
|
||||
DECLARE FUNCTION Msg,Set_Printer, Dialog_Box, Security_Check, FieldCount, ex_vm_rem, obj_WM_Out, SRP_Send_Mail
|
||||
DECLARE FUNCTION Utility, Send_Event, Popup, Printer_Select, obj_Install,obj_RDS, obj_Shipment, Environment_Services
|
||||
Declare function RTI_CreateGUID, Logging_Services, PrintSetup
|
||||
|
||||
@ -97,11 +97,13 @@ Main:
|
||||
TotWfrsShip = XLATE('COC',ShipNo,'TOT_QTY','X')
|
||||
|
||||
SAPDelNo = ShipRec<COC_SAP_DEL_NO$>
|
||||
|
||||
|
||||
|
||||
WORec = XLATE('WO_LOG',ShipWONo,'','X')
|
||||
|
||||
CustNo = WORec<WO_LOG_CUST_NO$>
|
||||
EpiPartNo = WORec<WO_LOG_EPI_PART_NO$>
|
||||
CustNo = Xlate('COC', ShipNo, 'WO_CUST_NO_EX', 'X')
|
||||
EpiPartNo = Xlate('COC', ShipNo, 'EPI_PART_NO_EX', 'X')
|
||||
|
||||
WOStepKeys = WORec<WO_LOG_WO_STEP_KEY$>
|
||||
ProdOrdNo = WORec<WO_LOG_PROD_ORD_NO$>
|
||||
@ -173,8 +175,7 @@ Main:
|
||||
SWAP @VM WITH ',' in eMailAddr ;* List of email addresses to use in eMail process
|
||||
SWAP @VM WITH ', ' in eMailNames ;* Names of recipients
|
||||
|
||||
eMailAddr = 'Francois.Rivard@infineon.com'
|
||||
eMailAddr := ',dan.crisp@infineon.com'
|
||||
eMailAddr = 'daniel.stieber@infineon.com'
|
||||
eMailAddr := ',jonathan.ouellette@infineon.com'
|
||||
|
||||
Message = ''
|
||||
@ -262,12 +263,6 @@ Main:
|
||||
Printers = ''
|
||||
Default = ''
|
||||
PrinterCount = PrintSetup(PRN_GET$, Models, Printers, Default)
|
||||
|
||||
// Attempting to set a default printer is causing OI to hang. This is no longer necessary since we
|
||||
// pass the printer name in the Set_Printer('INIT') calls below.
|
||||
* If Default NE 'Microsoft XPS Document Writer,winspool,Ne00:' then
|
||||
* PrintSetup(PRN_SET$, 'Microsoft XPS Document Writer,winspool,Ne00:')
|
||||
* end
|
||||
|
||||
IF PrintPDF THEN
|
||||
|
||||
@ -293,10 +288,9 @@ Main:
|
||||
stat = Set_Printer('INIT', FileNameParms, 'Shipping Documents', PageInfo, PageSetup, PrintSetup, PrinterParm)
|
||||
While ( (Stat LT 0) and (TimeElapsed LT 60) )
|
||||
Repeat
|
||||
* stat = Set_Printer('INIT', FileNameParms, 'Shipping Documents', PageInfo, PageSetup, PrintSetup)
|
||||
|
||||
|
||||
If Stat LT 0 then
|
||||
EmailAddresses = 'dstieber@srpcs.com,francois.rivard@infineon.com,dan.crisp@infineon.com,jonathan.ouellette@infineon.com'
|
||||
EmailAddresses = 'daniel.stieber@infineon.com,jonathan.ouellette@infineon.com'
|
||||
EmailMessage = LoggingDTM : ' ' : 'WONo = ' : ShipWONo : ', ShipNo = ' : ShipNo : ', INIT Stat = ' : Stat
|
||||
end else
|
||||
EmailAddresses = ''
|
||||
@ -329,11 +323,10 @@ Main:
|
||||
PrinterParm<2> = 'Ne00:' ; // Printer port
|
||||
PrinterParm<3> = 100 ; // Scale
|
||||
PrinterParm<4> = '' ; // Bin Number
|
||||
* stat = Set_Printer('INIT', FileNameParms, TitleParms, PageInfo, PageSetup, PrintSetup)
|
||||
stat = Set_Printer('INIT', FileNameParms, TitleParms, PageInfo, PageSetup, PrintSetup, PrinterParm)
|
||||
|
||||
If Stat LT 0 then
|
||||
EmailAddresses = 'dstieber@srpcs.com,francois.rivard@infineon.com,dan.crisp@infineon.com,jonathan.ouellette@infineon.com'
|
||||
EmailAddresses = 'daniel.stieber@infineon.com,jonathan.ouellette@infineon.com'
|
||||
EmailMessage = LoggingDTM : ' ' : 'WONo = ' : ShipWONo : ', ShipNo = ' : ShipNo : ', INIT Stat = ' : Stat
|
||||
end else
|
||||
EmailAddresses = ''
|
||||
@ -473,7 +466,7 @@ Main:
|
||||
FOR H = 1 TO BackPageCopies
|
||||
stat = Set_Printer('PAGEBREAK')
|
||||
* false for not prelim, is is a full shipment and no email addresses
|
||||
Print_Coc_Back( PrintRdsKeys, PrintWMOutKeys, false$, '', PrintOnly, ShipDt, HideUI)
|
||||
Print_Coc_Back( PrintRdsKeys, PrintWMOutKeys, false$, '', PrintOnly, ShipDt, HideUI, ShipNo)
|
||||
NEXT H
|
||||
|
||||
If HideUI EQ False$ then Msg(@WINDOW, MsgUp)
|
||||
@ -648,7 +641,7 @@ Main:
|
||||
RemoteDirectory = '/Samsung'
|
||||
ProcessDirectory = Environment_Services('GetApplicationRootPath') : '\Ship_Processed\Samsung\'
|
||||
SSH = True$
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA005', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA01EC', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
|
||||
Case CustNo EQ '7126'
|
||||
// SGM
|
||||
@ -658,7 +651,7 @@ Main:
|
||||
RemoteDirectory = '/SGM'
|
||||
ProcessDirectory = Environment_Services('GetApplicationRootPath') : '\Ship_Processed\SGM\'
|
||||
SSH = True$
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA005', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA01EC', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
|
||||
Case CustNo EQ '7102' OR CustNo EQ '7125'
|
||||
// Vanguard
|
||||
@ -668,7 +661,7 @@ Main:
|
||||
RemoteDirectory = '/Vanguard'
|
||||
ProcessDirectory = Environment_Services('GetApplicationRootPath') : '\Ship_Processed\Vanguard\'
|
||||
SSH = True$
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA005', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA01EC', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
|
||||
Case CustNo EQ '7108'
|
||||
// Episil
|
||||
@ -678,7 +671,7 @@ Main:
|
||||
RemoteDirectory = '/Episil'
|
||||
ProcessDirectory = Environment_Services('GetApplicationRootPath') : '\Ship_Processed\EpiSil\'
|
||||
SSH = True$
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA005', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA01EC', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
|
||||
Case CustNo EQ '7053'
|
||||
// Tower
|
||||
@ -688,7 +681,7 @@ Main:
|
||||
RemoteDirectory = '/Tower'
|
||||
ProcessDirectory = Environment_Services('GetApplicationRootPath') : '\Ship_Processed\Tower\'
|
||||
SSH = True$
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA005', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA01EC', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
|
||||
Case CustNo EQ '6874' OR CustNo EQ '7055'
|
||||
// Wales/Newport
|
||||
@ -698,7 +691,7 @@ Main:
|
||||
RemoteDirectory = '/Newport'
|
||||
ProcessDirectory = Environment_Services('GetApplicationRootPath') : '\Ship_Processed\Newport\'
|
||||
SSH = True$
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA005', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
FTP_Services('PostRequest', 'put', Host, 'MESSA01EC', TruePDFFileName, '', Username, Password, '', RemoteDirectory, '', '', True$, SSH, ProcessDirectory, 3, False$)
|
||||
|
||||
End Case
|
||||
end
|
||||
@ -712,7 +705,7 @@ Main:
|
||||
InitDir eMailPath:'*.pdf'
|
||||
FileList = DirList()
|
||||
|
||||
*** Parameter setup of SRPSendMail ***
|
||||
*** Parameter setup of SRP_Send_Mail ***
|
||||
|
||||
ConfigFile = ''
|
||||
ConfigFile<1> = SendUsing_Port$
|
||||
@ -911,3 +904,4 @@ PrintCocFront:
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user