'<WMS mod: place salutation message above content on order shipped emails>
if pcv_AdmComments<>"" then
pcv_DropShipperMsg=pcv_DropShipperMsg & vbcrlf & replace(pcv_AdmComments,"''","'") & vbcrlf & vbcrlf
end if
if pcv_LastShip="1" then ' This is the last (or only) shipment
pcv_DropShipperSbj=ship_dictLanguage.Item(Session("language")&"_partship_sbj_9")
pcv_DropShipperSbj=replace(pcv_DropShipperSbj,"<ORDER_ID>",(scpre + int(qry_ID)))
'<WMS> Replace with line below
'pcv_DropShipperMsg=pcv_DropShipperSbj & vbcrlf & vbcrlf
pcv_DropShipperMsg=pcv_DropShipperMsg & pcv_DropShipperSbj & vbcrlf & vbcrlf
pcv_DropShipperMsg=pcv_DropShipperMsg & ship_dictLanguage.Item(Session("language")&"_partship_msg_8") & vbcrlf & vbcrlf
pcv_DropShipperMsg1=ship_dictLanguage.Item(Session("language")&"_partship_msg_8a") & vbcrlf
else
pcv_DropShipperSbj=ship_dictLanguage.Item(Session("language")&"_partship_sbj_1")
pcv_DropShipperSbj=replace(pcv_DropShipperSbj,"<ORDER_ID>",(scpre + int(qry_ID)))
'<WMS> Replace with line below
'pcv_DropShipperMsg=pcv_DropShipperSbj & vbcrlf & vbcrlf
pcv_DropShipperMsg=pcv_DropShipperMsg & pcv_DropShipperSbj & vbcrlf & vbcrlf
pcv_DropShipperMsg=pcv_DropShipperMsg & ship_dictLanguage.Item(Session("language")&"_partship_msg_1") & vbcrlf & vbcrlf
pcv_DropShipperMsg1=ship_dictLanguage.Item(Session("language")&"_partship_msg_1a") & vbcrlf & vbcrlf
end if
'if pcv_AdmComments<>"" then
' pcv_DropShipperMsg=pcv_DropShipperMsg & vbcrlf & replace(pcv_AdmComments,"''","'") & vbcrlf & vbcrlf
'end if
'</WMS>