umaexpert
asked on
Scope of Dictionary object across multiple servers, HTTP Header??? Please help me out. I am new to ASP.
Hi, can anybody help me out..
To access multiple servers, session value has no scope. Hence, I am using dictionary object to store session values to maintain sessions. But as the dictionary object loses scope on click of submit to the next page, how do i refer the dictionary object in subsequent pages ?? or how do I maintain session value stored in dictionary object across multiple servers??. please give me solutions
===purchaseorder3.asp====
<!-- #include file="../include/validate.
<!-- #include file="../include/lblObject
<!-- #include file="../SessionManager.in
<%
If UCase(Triamun_Session("Lan
<!-- #include file="../include/english/P
<!-- #include file="../include/english/Q
<% ElseIf UCase(Triamun_Session("Lan
<!-- #include file="../include/german/Pu
<!-- #include file="../include/german/Qc
<% ElseIf UCase(Triamun_Session("Lan
<!-- #include file="../include/french/Pu
<!-- #include file="../include/french/Qc
<% End If
'----- block to avoid caching
Response.Buffer = true
Response.AddHeader"pragma"
Response.Expires=0
Response.Addheader"expires
' Declaration of Variables to Hold the Screen Labels
Dim lblScreenTitle, lblPurchaseOrderNumber, lblSupplier, lblSupplierCode, lblStatus, lblOrderDate, lblOrderTime
Dim lblTransmissionTime, lblDeliveryDate, lblDeliveryTime, lblModeOfPO, lblPaymentTerm, lblTransmissionDate
Dim lblModeOfTransmission, lblTotalValue, lblSalesRep, lblRemark, lblTotalNumberOfLineItems,
Dim lblSelectTitle, lblItemType, lblItemDescription, lblStockQuantity, lblMinStockQuantity, lblMaxStockQuantity
Dim lblOpenOrderQuantity, lblOrderQuantity, lblBonus, lblTotal, lblRateInCHF, lblValueOfLine
Dim lblSpecialOfferIndicator, lblCustomerIndicator, lblControlled, lblControlledTitle, lblNonMovingItem
Dim lblNonMovingItemTitle, lblDelete, lblDeleteTitle, lblSelectAllForControlled,
Dim lblCreatedBy, lblModifiedBy, lblOn, lblSearch, lblSearchPurchaseOrder, lblSearchSupplier, lblStockQuantityTT
Dim lblMinStockQuantityTT, lblMaxStockQuantityTT, lblOpenOrderQuantityTT, lblSpecialOfferIndicatorTT
Dim lblDeliverySlip, lblRef, lblGo
' Declaration of Variables to Hold the Labels on Buttons, Warning Messages
Dim lblFetch, lblCreate, lblModify, lblAuthorise, lblAccept, lblTransmit, lblReset, lblChangeSupplier
Dim lblPrint, lblRePrint, lblClose, lblClear, lblShortClose, lblTransmissionLog, lblPartnerDefinedData
Dim lblStatistics, lblPurchaseOrders, lblPurchaseOrder, lblDuplicateItemsTitle, lblDuplicateItemsWarning
Dim lblAddToExistingLine, lblDeleteTheDuplicateLine,
' Declaration of Variables to get Session Values
Dim varPartnerName, varUserName, sPARTNERID, sCON, sLANGID, errObject, errFileName, varPartnerType
Dim varDaysForNonMovingItem, ACTION, varFromScreen, varPONumber, varSalesOrderNo, varStatusOfPOBeforeUpdate
Dim varPOType, varPOAmount, varPrintFlag, varRecordCreationLabel
Dim varSupplierCode, varSupplierDescription, varPOTransmissionMode, varPODeliveryDate, varPODeliveryTime
Dim varPODate, varPOTime, varPOTransmissionTime
' CCH Help Variables
Dim CCHQueryForSupplier, varQCDForCCHSupplierStatus
' Get Session Values
Set errObject = Application("ErrObject")
errFileName = Session("FEErrMsgFile")
sPARTNERID = Triamun_Session("nPartnerI
varPartnerName = Triamun_Session("strPartne
varUserName = Triamun_Session("strUserNa
sCON = Application("strODBC")
sLANGID = Triamun_Session("Language"
varDaysForNonMovingItem = Session("PRT010") ' No of Days for an Item to become Non-Moving
varPartnerType = Trim(Triamun_Session("strP
If varDaysForNonMovingItem = "" Then varDaysForNonMovingItem = 0
' Declaration of Array variables for PO Detail
Dim arrMultiline
' Query String Values
ACTION = Trim(Request.QueryString("
varPONumber = Trim(Request("txtPONumber"
varFromScreen = Trim(Request("mFromScreen"
varSalesOrderNo = Trim(Request("mSalesOrderN
varStatusOfPOBeforeUpdate = Trim(Request.QueryString("
' Set Default Values for Screen if they are empty
If varPOType = "" Then varPOType = "M" End If
If varPOAmount = "" Then varPOAmount = "0.00" End If
If varPrintFlag = "" Then varPrintFlag = "N" End If
' --------------------------
' Creating the Query for CCH for Supplier and encoding it
' --------------------------
CCHQueryForSupplier = "SELECT CVM.Customer_Vendor_Name AS 'CVM.Customer_Vendor_Name'
CCHQueryForSupplier = CCHQueryForSupplier & " CVM.Customer_Vendor_Code AS 'CVM.Customer_Vendor_Code'
CCHQueryForSupplier = CCHQueryForSupplier & " ISNULL(PA.Electronic_Flag,
CCHQueryForSupplier = CCHQueryForSupplier & " CVM.Status AS 'CVM.Status' "
CCHQueryForSupplier = CCHQueryForSupplier & " FROM IIICustomer_Vendor_Master CVM (NOLOCK), "
CCHQueryForSupplier = CCHQueryForSupplier & " IIIPurchase_Agreements PA (NOLOCK)"
CCHQueryForSupplier = CCHQueryForSupplier & " WHERE CVM.Partner_Id *= PA.Partner_Id "
CCHQueryForSupplier = CCHQueryForSupplier & " AND CVM.Customer_Vendor_Type != 'C' "
CCHQueryForSupplier = CCHQueryForSupplier & " AND CVM.Customer_Vendor_Type != 'P' "
CCHQueryForSupplier = CCHQueryForSupplier & " AND CVM.Customer_Vendor_Code *= PA.Wholesaler_Code "
CCHQueryForSupplier = CCHQueryForSupplier & " AND CVM.Partner_Id = " & sPARTNERID
CCHQueryForSupplier = Server.URLEncode(CCHQueryF
' Loop for populating the Supplier status in a QCD
For cntr = 0 to UBound(arrCustVendStatus, 1)
varQCDForCCHSupplierStatus
varComboForCCHSupplierStat
Next
varQCDForCCHSupplierStatus
varComboForCCHSupplierStat
' --------------------------
' For diplaying Record Created/Modified By ..
varRecordCreationLabel = lblCreatedBy & " <" & "" & "> " & lblOn & " <" & "" & ">, " & lblModifiedBy & " <" & "" & "> " & lblOn & " <" & "" & ">"
''''''''''''''''''''''''''
' Fetch the Description for the First Preferred Wholesaler defined if any in the System Parameter
' and the Transmission Mode / Delivery Date & Time for the Wholesaler if any in Purchase Agreements
''''''''''''''''''''''''''
If ACTION = "" Then Call FetchPreferredWholesalerAn
''''''''''''''''''''''''''
' FUNCTION TO GET THE FIRST PREFERRED WHOLESALER AND DEFAULT THE ORDER DATE/TIME & DELIVERY DATE/TIME STARTS
''''''''''''''''''''''''''
Function FetchPreferredWholesalerAn
varSupplierCode = Trim(Session("PRT016"))
If varSupplierCode <> "" Then
Dim arrParamList
Redim arrParamList(3,3)
' Input Parameter Partner_Id
arrParamList(0,0) = "@Partner_Id"
arrParamList(0,1) = "ANY_COUNT"
arrParamList(0,2) = "adParamInput"
arrParamList(0,3) = sPARTNERID
' Input Parameter Customer Vendor Code
arrParamList(1,0) = "@Customer_Vendor_Code"
arrParamList(1,1) = "ANY_NAME"
arrParamList(1,2) = "adParamInput"
arrParamList(1,3) = varSupplierCode
' Input Parameter Language
arrParamList(2,0) = "Lang"
arrParamList(2,1) = "ANY_FLAG"
arrParamList(2,2) = "adParamInput"
arrParamList(2,3) = sLANGID
Set objPURCHASEORDER = Server.CreateObject("IIIGe
Set rstPURCHASEORDERHEADER = Server.CreateObject("ADODB
Set rstPURCHASEORDERHEADER = objPURCHASEORDER.FetchGene
"IIIFetch_Wholesaler_And_D
nERRORNO, strERRORMESSAGE)
strERRORMESSAGE = ""
If CInt(nERRORNO) > 0 Then
varSupplierDescription = rstPURCHASEORDERHEADER.fie
varPOTransmissionMode = rstPURCHASEORDERHEADER.fie
varPODeliveryDate = rstPURCHASEORDERHEADER.fie
varPODeliveryTime = rstPURCHASEORDERHEADER.fie
varPODate = rstPURCHASEORDERHEADER.fie
varPOTime = rstPURCHASEORDERHEADER.fie
varPOTransmissionTime = varPOTime
rstPURCHASEORDERHEADER.Clo
Set rstPURCHASEORDERHEADER = Nothing
End if
Erase arrParamList
Set objPURCHASEORDER = Nothing
End If
End Function
''''''''''''''''''''''''''
' FUNCTION TO GET THE FIRST PREFERRED WHOLESALER AND DEFAULT THE ORDER DATE/TIME & DELIVERY DATE/TIME ENDS
''''''''''''''''''''''''''
''''''''''''''''''''''''''
' To Get the Language Code for CCH for BASLER TAXE Items
''''''''''''''''''''''''''
Function GetDEFAULTLANGUAGECODE(str
SELECT CASE UCase(strLangId)
CASE "E" : LANGUAGECODE = "0"
CASE "G" : LANGUAGECODE = "1"
CASE "F" : LANGUAGECODE = "2"
CASE "F" : LANGUAGECODE = "3"
END SELECT
GetDEFAULTLANGUAGECODE = LANGUAGECODE
End Function
''''''''''''''''''''''''''
''''''''''''''''''''''''''
' FUNCTION TO GET THE QCD DESCRIPTION FOR THE QCD CODE AND THE QCD NAME PASSED STARTS
''''''''''''''''''''''''''
Function GetQCDDESCRIPTIONFORCODE(s
Dim cntr, arrTEMP
arrTEMP = Eval(strQCDNAME)
For cntr = 0 To UBound(arrTEMP, 1)
If strCODE = arrTEMP(cntr, 0) Then
GetQCDDESCRIPTIONFORCODE = arrTEMP(cntr, 1)
Exit Function
End If
Next
GetQCDDESCRIPTIONFORCODE = ""
End Function
''''''''''''''''''''''''''
' FUNCTION TO GET THE QCD DESCRIPTION FOR THE QCD CODE AND THE QCD NAME PASSED ENDS
''''''''''''''''''''''''''
%>
<HTML>
<HEAD>
<!-- Include JS Files -->
<LINK HREF="../include/galmenu3.
<SCRIPT LANGUAGE="JavaScript" SRC="../INCLUDE/GALMENU.JS
<SCRIPT LANGUAGE="JavaScript" SRC="../INCLUDE/COMMON.JS"
<!-- <SCRIPT LANGUAGE="JavaScript" SRC="../INCLUDE/DROPDOWN.J
<SCRIPT LANGUAGE="JavaScript" SRC="../INCLUDE/INTERFACES
<SCRIPT LANGUAGE="javascript" SRC="../INCLUDE/MULTILINEG
<STYLE type="text/css">
#divPurchaseOrder
{
BEHAVIOR: url("../include/FPGRID.htc
}
</STYLE>
<!-- Client Side Script -->
<SCRIPT LANGUAGE="javascript">
var cntOUTOFSALEITEM = 0; //Counter for Out of sale Item ; A Global variable set to check On_Authorise() method is called
var objPODetailsXMLDOM = null;
var objPURCHASEORDER = null;
var strACTION = "";
var strPOModeArray = ""
var strItemHelpEnterRow = 0
// --------- Get all PO types in a string for later manupulation ---------/
<% For nCtr=0 to Ubound(POMode)-1 %>
strPOModeArray = strPOModeArray + "<%= POMode(nCtr,0) &"~~"& POMode(nCtr,1) &"~~~~"%>"
<% Next %>
// --------------------- Display the screen Title -----------------------/
window.parent.document.tit
<%if varFromScreen = "" then%>
parent.frmMenu.writeit("<%
<%end if%>
/*************************
CODE FOR ITEM DROPDOWN STARTS
**************************
/*
var List1 = new Array()
var List1_FixedLength = 50
var foc1 = 0
var LocalFileFlag1 = true
var LocalFileFlag2 = false
var LocalFileName = "c:\\iii\\" + "<%=sPARTNERID%>" + "\\" + "<%=sLANGID%>" + "_FUI.txt"
var strItemHelpEnterRow = 0
/*************************
Function to know cursor current location for Dropdown
**************************
/*function On_SetFocusValueForItemInM
{
var strItemType = document.frmPurchaseOrder.
if (strItemType == "I")
{
DDQfoc(intRowNumber, chrItemOrPatient, fldItemDescription, fldListBox);
foc2 = intRowNumber;
return;
}
}*/
/*************************
Function to fire when an Item is chosen from the Dropdown list
**************************
/*function On_SelectionOfAnItemInFUID
{
docfrm = document.frmPurchaseOrder
if(intIndexChosen == 1)
{
if(!LocalFileFlag1) return
var fldListBox = docfrm.SearchList // Reference to the Listbox Object showing Dropdown
var fldItemDescription = docfrm.mItemDescription[fo
if (fldListBox.value == "vv")
{
loadListOnEOL(fldItemDescr
fldItemDescription.focus()
return
}
else if(fldListBox.value == "^^")
{
loadListOnBOL(fldItemDescr
fldItemDescription.focus()
return
}
fldItemDescription.value = fldListBox.options[fldList
var strListValue = fldListBox.options[fldList
var arrDropDown = strListValue.split('~')
document.frmPurchaseOrder.
if ( document.frmPurchaseOrder.
GetItemDetailsOnHelpEnter(
fldItemDescription.focus()
}
}*/
/*************************
Loads the Local File on Body Load
**************************
/*function On_LoadFUIFileOnBodyLoad()
{
DDFileload(LocalFileName, "document.frmPurchaseOrder
}*/
/*************************
CODE FOR ITEM DROPDOWN ENDS
**************************
var strColumnPassed = ""
var strFocusIsOn = ""
var intPOStatus = ""
var strFromScreen = "<%=varFromScreen%>"
var langid = "<%=sLANGID%>"
var intCurrentLine = ""
var winReport = ""
/*************************
function to set the focus value to validate on submit
**************************
function On_SetFocusValue(strValue,
{
strFocusIsOn = strValue
intCurrentLine = intRowNumber
}
/*************************
Function to launch CCH For PO Number
**************************
function HelpForPONumber()
{
var strFileName = "help.asp?HELP_ID=59&Filte
launchhelp1(strFileName);
}
/*************************
Function to launch CCH for Supplier
**************************
function HelpForSupplier()
{
var strFileName = "help.asp?From=document.fr
launchhelp1(strFileName);
}
/*************************
Funtion to launch different CCH
**************************
function On_LaunchHelpLocal(strFile
{
var winHelp
winHelp = window.open(strFileName, strWindowName, 'menubar=no,location=no,to
winHelp.focus()
}
/*************************
Funtion to compare two dates
**************************
function On_CompareTwoDateTimeField
{
var arrDate1 = (fldFromDate.value).toStri
var arrDate2 = (fldToDate.value).toString
var arrTime1 = GetTimeValue(fldFromTime).
var arrTime2 = GetTimeValue(fldToTime).to
var dtFirstDate = new Date(arrDate1[2], arrDate1[1]-1, arrDate1[0], arrTime1[0], arrTime1[1])
var dtSecondDate = new Date(arrDate2[2], arrDate2[1]-1, arrDate2[0], arrTime2[0], arrTime2[1])
// Compare Date and Time
if (dtFirstDate.getTime() > dtSecondDate.getTime()) return false
else return true
}
/*************************
Function to provide Help on enter for Item Description
**************************
function On_HelpOnEnterForItems(int
{
var strFieldsList = ""
var strItemHelpQuery = ""
var strLanguageCode = ""
strItemHelpEnterRow = intRowNumber
/** This is not to allow ' qoute in Help enter **/
var strRegExp = /[']/ig;
if (strRegExp.test(strItemEAN
{
IIIalert("<%=errObject.get
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
if (strItemType == "I")
{
//CR006 - 116 -- added by Sriram
var strItemLaunchHelp = "";
var strFields = "";
var strFields_Help = "";
if (strItemEANCode.length <= 7) strItemEANCode = strItemEANCode.replace(/^0
//Get the Column Index of required columns needs to be passed to the Item Search
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strItemLaunchHelp = "ITEMSEARCH.ASP?From=objPU
On_ChangeItemDescription(i
GetItemDetailsOnHelpEnter(
}
else
{
// Get the language code for the logged in language
if(langid == 'E')
strLanguageCode = "0"
else if(langid == 'F')
strLanguageCode = "2"
else if(langid == 'G')
strLanguageCode = "1"
else if(langid == 'I')
strLanguageCode = "3"
strFieldsList = "sprITEMDESCRIPTION,sprHID
strItemHelpQuery += " SELECT Description, BaslerTaxeKey, 0, 0, 0, 0, DBO.IIIRoundPrice(0.00) "
strItemHelpQuery += " FROM IIIBasler_Taxe (NOLOCK) "
strItemHelpQuery += " WHERE BaslerTaxeKey = '" + strItemEANCode + "'"
strItemHelpQuery += " AND Language_Code = '" + strLanguageCode + "'"
launchhelpEnter("HELPENTER
}
On_BlurCalculateTotals(int
}
/*************************
Function to provide CCH For Galdat Items/Chemicals
**************************
function HelpForItemOrChemical(intR
{
var strFileName = ""
var strFields = ""
var strItemType = divPurchaseOrder.getCellVa
// If the Type selected is Item
if (strItemType == "I")
{
//Get the Column Index of required columns needs to be passed to the Item Search
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFileName = "ITEMSEARCH.ASP?From=objPU
launchhelp1(strFileName);
}
else if (strItemType == "B")
{
strFileName = "help.asp?HELP_ID=54&Start
launchhelp1(strFileName);
}
}
/*************************
Function to fire on click of Clear Button - Goes to the BE and fetches default values
**************************
function On_Clear()
{
Allowupdate = true;
strACTION = ""
strFocusIsOn = "";
On_CallXMLHTTPAfterValidat
}
/*************************
Function to fire on click of Select/Unselect Controlled checkbox
**************************
function On_CheckUnCheckAllControll
{
var intRowNo = 0;
var nRowLength = 0;
var rstPOMLDetails = null;
var objNodeList = null;
var blnControlled = document.frmPurchaseOrder.
// If the option is unchecked/checked just uncheck all the rows of controlled column
var objPOGrid = eval(divPurchaseOrder.getG
var nColIndex = divPurchaseOrder.getColInd
Set_Value_For_Range(objPOG
if(blnControlled == false)
{
lblCheckUncheckControlled.
return false;
}
else
{
lblCheckUncheckControlled.
}
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprDELETE = '1' or @sprITEMDESCRIPTION = ''";
var objPOMLDOM = divPurchaseOrder.getXMLStr
// Return if there is no rows..
if ( objPOMLDOM == null ) return false;
rstPOMLDetails = objPOMLDOM.selectNodes("//
nRowLength = rstPOMLDetails.length
if (nRowLength == 0) return false;
objNodeList = rstPOMLDetails.nextNode;
while(objNodeList != null)
{
// Get the row no from the XML node
intRowNo = objNodeList.getAttribute("
//Check the controlled checkbox
divPurchaseOrder.setCellVa
objNodeList = rstPOMLDetails.nextNode;
}
objPOMLDOM = null
objNodeList = null
rstPOMLDetails = null
}
/*************************
Function to fire on click of Fetch button
**************************
function On_Fetch()
{
if (document.frmPurchaseOrder
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
On_CallXMLHTTPAfterValidat
strFocusIsOn = "";
return false;
}
/*************************
Function to call XML HTTP Submit based on the Mode
**************************
function On_CallXMLHTTPAfterValidat
{
//-------- From the required value as XMLDOMObject--------------
var objXMLPOSTED = StoreValuesAsXMLDOMObject(
var strRETURNRESULT = GetOutputXMLUSINGXMLHTTP("
//--------- Load the Result XML into an DOMObject -----------------//
var objRESULTXML = new ActiveXObject("Microsoft.X
objRESULTXML.loadXML(strRE
if (objRESULTXML.selectSingle
{
// strAction/Mode is globally strored once if the screen throws success message
strACTION = strMODE
divPurchaseOrder.ClearAll(
//If the mode is delete and fetchdefault then only the header value is binded
if( (strMODE == 'DELETEPURCHASEORDER') || (strMODE == 'FETCHDEFAULTVALUES') )
{
objHdrXMLDom = divPurchaseOrder.loadXMLSt
fnSetValuesOnSuccess('CLEA
SetDefaults('CLEAR');
}
else
{
objHdrXMLDom = divPurchaseOrder.loadXMLSt
objMLXMLDom = divPurchaseOrder.loadXMLSt
fnSetValuesOnSuccess('SET'
SetDefaults('SET');
}
// Display the success error message
if( (objRESULTXML.selectSingle
alert(objRESULTXML.selectS
}
else
{
strACTION = ""
if(strMODE == 'FETCH')
{
divPurchaseOrder.ClearAll(
//document.frmPurchaseOrde
fnSetValuesOnSuccess('CLEA
SetDefaults('CLEAR');
}
/** PO Containing PDI Item(s) cannot be authorised **/
if (objRESULTXML.selectSingle
{
ItemDescriptionforPDI = GetItemDescriptionforPDI()
IIIalert("<%=errObject.get
}
else
{
// Display the failed error message
alert(objRESULTXML.selectS
}
}
objRESULTXML = null;
objXMLPOSTED = null;
objHdrXMLDom = null;
objMLXMLDom = null;
return false;
}
/*************************
Function to set default on success on success of any Action
**************************
function fnSetValuesOnSuccess(strFl
{
var strCreatedOnDtls = ""
if (objHdrXMLDom == null) return false;
// Set defaults..
if(strFlag == 'SET')
{
var strCreatedBy = objHdrXMLDom.selectSingleN
var strCreatedOn = objHdrXMLDom.selectSingleN
var strModifiedBy = objHdrXMLDom.selectSingleN
var strModifiedOn = objHdrXMLDom.selectSingleN
strCreatedOnDtls = "<%=lblCreatedBy%>" + " <" + strCreatedBy + "> " + "<%=lblOn%>" + " <" + strCreatedOn + ">, " + "<%=lblModifiedBy%>" + " <" + strModifiedBy + "> " + "<%=lblOn%>" + " <" + strModifiedOn + ">"
IDCreatedOn.innerText = strCreatedOnDtls
}
else
{
IDCreatedOn.innerHTML = "<%=varRecordCreationLabel
}
//Clear the Selct all label and uncheck the combo..
document.frmPurchaseOrder.
lblCheckUncheckControlled.
}
/*************************
Function to store PO Header and detail values into a XMLDOM Object and the object is returned fro HTTP postings
**************************
function StoreValuesAsXMLDOMObject(
{
var objDOMCLIENTSIDE = new ActiveXObject("Microsoft.X
var frmPurchaseOrder = document.frmPurchaseOrder
var strCSXML = ""
var strHDRDetails = ""
var strMLDetails = ""
var objHeaderDOM = null;
var objPOMLDOM = null;
//If the mode is just Fetch/Header Uypdate then only the required header info alone is passed to the server..
if( (strMode == 'FETCH') || (strMode == 'TRANSMITPURCHASEORDERFETC
{
objHeaderDOM = divPurchaseOrder.getXMLStr
if (objHeaderDOM != null)
strHDRDetails = objHeaderDOM.xml;
}
else
{
objHeaderDOM = divPurchaseOrder.getXMLStr
if (objHeaderDOM != null)
strHDRDetails = objHeaderDOM.xml;
//--------- ML Detail is taken from the global object which is stored when Create/Modify action validation succeed
if (objPODetailsXMLDOM != null)
{
strMLDetails = objPODetailsXMLDOM.xml
}
else
{
objPOMLDOM = divPurchaseOrder.getXMLStr
if (objPOMLDOM != null)
strMLDetails = objPOMLDOM.xml
}
}
//CLEAR THE OBJECT
objPOMLDOM = null;
objHeaderDOM = null;
objPODetailsXMLDOM = null;
/** Load the PO Header and PO MLData into the XMLDOM **/
strCSXML += "<XMLHTTPPurchaseOrder>"
strCSXML += "<MODE>" + strMode + "</MODE>"
strCSXML += "<NONMOVINGITEMLABEL>" + "<%=lblNonMovingItem%>" + "</NONMOVINGITEMLABEL>"
strCSXML += "<DECIDERFLAG>" + strMode + "</DECIDERFLAG>"
strCSXML += "<HEADERDETAILFETCHFLAG></
strCSXML += "<POHEADER>" + strHDRDetails + "</POHEADER>"
strCSXML += "<POMLDETAILS>" + strMLDetails + "</POMLDETAILS>"
strCSXML += "<ErrorNo></ErrorNo>"
strCSXML += "<ErrorMessage></ErrorMess
strCSXML += "</XMLHTTPPurchaseOrder>"
objDOMCLIENTSIDE.loadXML(s
return objDOMCLIENTSIDE;
}
/*************************
Function for validation of mandatory fields (Header Fields)
**************************
function On_ValidateMandatoryFields
{
if (Trim(eval("document.frmPu
{
IIIalert("<%=errObject.get
eval("document.frmPurchase
return false;
}
return true;
}
/*************************
Function for validation of mandatory fields (PO ML Fields)
**************************
function On_ValidateMandatoryFields
{
var nCol = ""
if (strColValue == "")
{
IIIalert("<%=errObject.get
nCol = divPurchaseOrder.getColInd
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
return true;
}
/*************************
Function for Validation for Valid Characters
**************************
function On_ValidateCharSet(strCont
{
if (!isvalidCharSet(Trim(strC
{
IIIalert("<%=errObject.get
strControlName.focus()
return false
}
return true
}
/*************************
Function to Validate That Number Fields should have greater than Zero Value
**************************
function On_ValidateNumberGreaterTh
{
var nCol = ""
if (parseFloat(Trim(strColVal
{
IIIalert("<%=errObject.get
nCol = divPurchaseOrder.getColInd
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
return true;
}
/*************************
Function to show Modal Windows for Warnings to the User
**************************
function On_ShowModalWindow(arrMsgs
{
var arrLabels = new Array(2);
var strReturnValue = ""
arrLabels[0] = arrMsgs;
arrLabels[1] = arrBtns;
arrLabels[2] = "scrButton"
strReturnValue = window.showModalDialog("II
return strReturnValue;
}
/*************************
General Form Validation Routine
**************************
function Validate()
{
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
/** Validating Charset **/
if (!On_ValidateCharSet(docum
if (!On_ValidateCharSet(docum
/** Validating Dates and Time Fields **/
if (!validateDate(document.fr
if (Trim(document.frmPurchase
if (!validateDate(document.fr
/** Validating Mandatory Fields **/
if (!On_ValidateMandatoryFiel
if (!On_ValidateMandatoryFiel
if (!On_ValidateMandatoryFiel
if (!On_ValidateMandatoryFiel
/** Validating that Order Date should not be a future Date **/
var arrPODate = (document.frmPurchaseOrder
var arrPOTime = GetTimeValue(document.frmP
var dtCurrentDate = new Date()
var dtPODateTime = new Date(arrPODate[2], arrPODate[1]-1, arrPODate[0])
if (dtPODateTime.getTime() > dtCurrentDate.getTime())
{
IIIalert("<%=errObject.get
return false
}
/** Validating that Remarks should contain only a maximum of 500 chars **/
if (parseFloat(Trim(document.
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
/** Validation that Order Date is lesser than Transmission Date
and that Transmission Date is lesser than Delivery Date **/
if (document.frmPurchaseOrder
{
if (!On_CompareTwoDateTimeFie
{
alert("<%=errObject.getnth
return false
}
if (!On_CompareTwoDateTimeFie
{
alert("<%=errObject.getnth
return false
}
}
else
{
if (!On_CompareTwoDateTimeFie
{
alert("<%=errObject.getnth
return false
}
}
// ----------------- Multiline Validation starts --------------------------
/** To check that atleast one row exists in Multiline **/
var intRowNo = 0;
var nRowLength = 0;
var rstPOMLDetails = null;
var objNodeList = null;
var objXMLDOC = null;
var strIemDesc, nLineDeleted, strPOCustomerDtls;
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprITEMDESCRIPTION = '' or @sprDELETE = '1'";
var objPOMLDOM = divPurchaseOrder.getXMLStr
// Return if there is no rows..
if ( objPOMLDOM == null ) return false;
rstPOMLDetails = objPOMLDOM.selectNodes("//
nRowLength = rstPOMLDetails.length
if (nRowLength == 0)
{
alert("<%=errObject.getnth
return false;
}
objNodeList = rstPOMLDetails.nextNode;
var nOrderQuantity = "", nBonus = "", nRateInCHF = "", nCol = "", dblTotalPOValue = "0";
var nLineTotal = "", strLineType = "", NoOfLinesManual = "0", NoOfLinesAutomatic = "0", NoOfLinesCustomer = "0";
var nReturnedRow = "", nReturnedRow_Temp = "";
var nItemDescColIndex = divPurchaseOrder.getColInd
while(objNodeList != null)
{
// Get all required values from the XML Node
intRowNo = objNodeList.getAttribute("
strIemDesc = Trim(objNodeList.getAttrib
nLineDeleted = objNodeList.getAttribute("
nOrderQuantity = objNodeList.getAttribute("
nBonus = objNodeList.getAttribute("
nRateInCHF = objNodeList.getAttribute("
nLineTotal = objNodeList.getAttribute("
nReturnedRow = 0
nReturnedRow_Temp = intRowNo
//Out of sale Item Check
if ((objNodeList.getAttribute
// ------ To check that Duplicate Items should not exist in Purchase Order Multiline -----------
if ( (nLineDeleted != "1") && (strIemDesc != "") )
{
//Check for the duplicate rows until the searchcol returns "-1"..
while(nReturnedRow != -1)
{
nReturnedRow = objPURCHASEORDER.SearchCol
// Check if the duplicate row found is deleted or not, if yes return
if (nReturnedRow != -1)
{
nLineDeleted_TEMP = divPurchaseOrder.getCellVa
nReturnedRow_Temp = nReturnedRow
}
if (nReturnedRow != -1 && nLineDeleted_TEMP != '1')
{
var arrMessages = new Array()
var arrButtons = new Array()
var arrReturnValue = new Array()
arrMessages[0] = "Triamun " + "<%=lblDuplicateItemsTitle
arrMessages[1] = "<%=lblDuplicateItemsWarni
arrButtons[0] = "<%=lblAddToExistingLine%>
arrButtons[1] = "<%=lblDeleteTheDuplicateL
arrButtons[2] = "<%=lblCancel%>"
arrReturnValue = On_ShowModalWindow(arrMess
/** Add the New Line to Existing Line **/
if (arrReturnValue[1] == 0)
{
/*************************
Add the Order Quantity and Bonus in New Line to Existing Line Order Quantity
and Bonus. Mark the New Line for Delete
**************************
var nQtyInEL = divPurchaseOrder.getCellVa
var nBonusInEL = divPurchaseOrder.getCellVa
var nQtyInNL = divPurchaseOrder.getCellVa
var nBonusInNL = divPurchaseOrder.getCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
On_BlurCalculateTotals(int
}
/** Remove the New Line **/
else if (arrReturnValue[1] == 1)
{
divPurchaseOrder.setCellVa
}
else if (arrReturnValue[1] == 2)
{
return false;
}
}
}
}
// --- Validate mandatory and proper values only if the item desc is not empty and line not marked as delete
if ( (nLineDeleted != "1") && (strIemDesc != "") )
{
/** Validation for Numeric Values **/
if (Trim(nOrderQuantity) != "" && IsQty(nOrderQuantity, "<%=lblOrderQuantity%>") == false) return false
if (Trim(nBonus) != "" && IsQty(nBonus, "<%=lblBonus%>") == false) return false
if (Trim(nRateInCHF) != "" && IsPrice(nRateInCHF, "<%=lblRateInCHF%>") == false) return false
/** Validation for Mandatory Fields **/
if (!On_ValidateMandatoryFiel
if (!On_ValidateNumberGreater
var dblOrderQuantity_Temp = Trim(nOrderQuantity)==""?0
var dblBonus_Temp = Trim(nBonus)==""?0:Trim(nB
var dblRateInCHF_Temp = Trim(nRateInCHF)==""?0:Tri
// Calculating Line Level Totals
var dblTotal = RoundQty(parseFloat(dblOrd
// changed for TRIMAUNIII1.0S_015016
if (dblTotal.toString().lengt
{
alert("<%=errObject.getnth
nCol = divPurchaseOrder.getColInd
divPurchaseOrder.setFocus(
return false;
}
/** Setting Rate and Bonus Values to Zero if they are empty **/
if (Trim(nRateInCHF) == "")
divPurchaseOrder.setCellVa
if (Trim(nBonus) == "")
divPurchaseOrder.setCellVa
/** Calculate Line Totals and Grand Total **/
On_BlurCalculateTotals(int
}
objNodeList = rstPOMLDetails.nextNode;
}
// --------- Store the Customer PO details alone into a seperate element to avoid special character ------- //
objPOMLDOM = null
objNodeList = null
rstPOMLDetails = null
objXMLDOC = new ActiveXObject("Microsoft.X
// Get all the rows after filter from the ML
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprITEMDESCRIPTION = ''";
var objPOMLDOM = divPurchaseOrder.getXMLStr
rstPOMLDetails = objPOMLDOM.selectNodes("//
objNodeList = rstPOMLDetails.nextNode;
while(objNodeList != null)
{
nLineTotal = objNodeList.getAttribute("
strLineType = objNodeList.getAttribute("
nLineDeleted = objNodeList.getAttribute("
strPOCustomerDtls = objNodeList.getAttributeNo
if(nLineDeleted != '1')
{
//Calculate the Total of All PO Lines
dblTotalPOValue = RoundAmt(parseFloat(dblTot
/** Calculating No. of Rows per Line Type **/
if (strLineType.toUpperCase()
NoOfLinesManual = parseFloat(NoOfLinesManual
else if (strLineType.toUpperCase()
NoOfLinesAutomatic = parseFloat(NoOfLinesAutoma
else if (strLineType.toUpperCase()
NoOfLinesCustomer = parseFloat(NoOfLinesCustom
}
if ( strPOCustomerDtls.value != "" )
{
var newElement = objPOMLDOM.createElement("
objXMLDOC.loadXML(unescape
var ChildNode = objXMLDOC.selectSingleNode
if (ChildNode != null)
{
objNodeList.appendChild(Ch
}
}
objNodeList.removeAttribut
objNodeList = rstPOMLDetails.nextNode;
}
//Total Value of PO and Total lines are calculated and Assigned..
if (dblTotalPOValue.toString(
{
alert("<%=errObject.getnth
return false
}
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
//assign the converted XML DOM object to a global object..
objPODetailsXMLDOM = objPOMLDOM
objPOMLDOM = null
objNodeList = null
rstPOMLDetails = null
return true;
}
/*************************
Function to calculate PO Total on Change of Lines (Like Delete/Undelete, clearing a Line etc)
**************************
function On_CalculateTotalValue(int
{
On_BlurCalculateTotals(int
var dblTotalPOValue = document.frmPurchaseOrder.
var dblTotalLineValue = divPurchaseOrder.getCellVa
if (isNaN(dblTotalPOValue) || dblTotalPOValue == "") dblTotalPOValue = 0
if (isNaN(dblTotalLineValue) || dblTotalLineValue == "") dblTotalLineValue = 0
if (parseFloat(dblTotalPOValu
{
if (strAddOrSubtractFlag == "PLUS") dblTotalPOValue = parseFloat(dblTotalPOValue
else if (strAddOrSubtractFlag == "MINUS") dblTotalPOValue = parseFloat(dblTotalPOValue
}
document.frmPurchaseOrder.
}
/*************************
Function to Calculate form totals on blur
**************************
function On_BlurCalculateTotals(int
{
var dblTotalPOValue = Trim(document.frmPurchaseO
var dblValueOfLine = divPurchaseOrder.getCellVa
var dblOrderQuantity = divPurchaseOrder.getCellVa
var dblBonus = divPurchaseOrder.getCellVa
var dblRateInCHF = divPurchaseOrder.getCellVa
var strDelFlag = divPurchaseOrder.getCellVa
if (dblValueOfLine == "") dblValueOfLine = 0
if (dblTotalPOValue == "") dblTotalPOValue = 0
if (dblOrderQuantity == "") dblOrderQuantity = 0
if (dblBonus == "") dblBonus = 0
if (dblRateInCHF == "") dblRateInCHF = 0
// If the line is not marked for deletion, then calculate the total..
if (strDelFlag != "1")
{
// Calculating Line Level Totals
var dblTotalQty = RoundQty(parseFloat(dblOrd
var dblTotalAmt = RoundAmt(dblOrderQuantity * dblRateInCHF, "Y")
// Setting the Line Totals in the appropriate columns
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
dblTotalPOValue = RoundAmt(parseFloat(dblTot
if (dblTotalPOValue.toString(
{
alert("<%=errObject.getnth
divPurchaseOrder.setFocus(
return false
}
document.frmPurchaseOrder.
}
}
/*************************
Function to clear fields when Supplier Description is changed
**************************
function On_ClearSupplierCode()
{
document.frmPurchaseOrder.
}
/*************************
Function to clear fields when Item Description is changed
**************************
function On_ChangeItemDescription(i
{
On_CalculateTotalValue(int
//Clear all columns of that line..
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
var nColIndex = divPurchaseOrder.getColInd
Set_Button_Color(objPURCHA
var nItemDescColIndex = divPurchaseOrder.getColInd
var nItemFlagColIndex = divPurchaseOrder.getColInd
ResetItemColour("GRID","ob
}
/*************************
Function to fire on click of Create button
**************************
function On_Create()
{
// If the focus is on PO Number and enter key is fired..
if (strFocusIsOn == "txtPONumber")
{
On_Fetch();
return false
}
else if (strFocusIsOn == "txtSupplierDescription")
{
var strVendor = document.frmPurchaseOrder.
launchhelpEnter("HELPENTER
return false;
}
else if (strFocusIsOn == "txtOrderDate")
{
On_EnterKeyInOrderDate()
return false
}
if (!Validate()) return false
if (Trim(document.frmPurchase
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
To Default Delivery Date as per Time Rules defined for Wholesaler
**************************
function On_EnterKeyInOrderDate()
{
if (!validateDate(document.fr
if (Trim(document.frmPurchase
if (Trim(document.frmPurchase
var strSupplier = document.frmPurchaseOrder.
var strOrderDate = document.frmPurchaseOrder.
var arrWeekDays = new Array("SUN", "MON", "TUE", "WED", "THU", "FRI", "SAT")
var dtOrderDate = new Date(strOrderDate.substrin
var strOrderDay = arrWeekDays[dtOrderDate.ge
var strOrderTime = GetTimeValue(document.frmP
var intBitNoInString = 0
var strQuery = ""
var strFieldsList = "txtDeliveryDate,hidDelive
if (dtOrderDate.getDay() == "0") intBitNoInString = 7
else intBitNoInString = dtOrderDate.getDay()
strQuery += " SELECT CONVERT(NVARCHAR(10), DATEADD(DD, CONVERT(INT, SUBSTRING(Delivery_Day_Str
strQuery += " ,Delivery_Time FROM IIITime_Rules_Detail (NOLOCK) "
strQuery += " WHERE Partner_Id = '<%=sPARTNERID%>' "
strQuery += " AND Vendor_Code = (SELECT TOP 1 Vendor_Code FROM IIICustomer_Vendor_Master (NOLOCK) WHERE Partner_Id = '<%=sPARTNERID%>' AND Customer_Vendor_Name ='" + document.frmPurchaseOrder.
strQuery += " AND Order_Option IN('" + strOrderDay + "','WD') "
strQuery += " AND CONVERT(INT, SUBSTRING(Order_Day_String
strQuery += " AND CONVERT(DATETIME, Order_Time, 108) = "
strQuery += " ( SELECT MIN(CONVERT(DATETIME, Order_Time, 108)) "
strQuery += " FROM IIITime_Rules_Detail TRD (NOLOCK) INNER JOIN IIICustomer_Vendor_Master CVM (NOLOCK) "
strQuery += " ON TRD.Partner_Id = CVM.Partner_id AND TRD.Vendor_Code = CVM.Customer_Vendor_Code AND CVM.Customer_Vendor_Name = '" + document.frmPurchaseOrder.
strQuery += " AND CVM.Customer_Vendor_Type <> 'C' AND CONVERT(DATETIME, Order_Time, 108) >= CONVERT(DATETIME, '" + strOrderTime + "', 108))"
launchhelpEnter("HelpEnter
}
/*************************
Function to fire on click of Modify button
**************************
function On_Modify()
{
var strSUBMITMODE = ""
var blnTRANSMISSIONMODEDISABLE
var strTRANSMISSIONMODE = Trim(divPurchaseOrder.getC
intPOStatus = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
/*************************
Allow Modification only
1. If PO Status is OPEN
2. If PO Status is AUTHORISED and Transmission Mode is Manual
3. If PO Status is AUTHORISED and Transmission Mode is Manual
**************************
//if (intPOStatus != "2" && !((intPOStatus == "3" || intPOStatus == "6") && blnTRANSMISSIONMODEDISABLE
//if (intPOStatus != "2" && !((intPOStatus == "3" || intPOStatus == "6") && strTRANSMISSIONMODE == "M"))
if (intPOStatus != "2" && intPOStatus != "3" && intPOStatus != "6")
{
alert("<%=errObject.getnth
return false
}
if (intPOStatus != "2" && ((intPOStatus == "3" || intPOStatus == "6") && Allowupdate == false))
{
alert("<%=errObject.getnth
return false
}
else
{
if (intPOStatus == "2") strSUBMITMODE = "MODIFYPURCHASEORDER"
else strSUBMITMODE = "MODIFYTRANSMISSIONMODE"
/** If PO is Authorised or Failed, allow Update of Transmission Mode only if it is MANUAL **/
if ( (intPOStatus == "3" || intPOStatus == "6") && strTRANSMISSIONMODE != "M" )
{
alert("<%=errObject.getnth
return false
}
else /** Common Validation Procedure if PO Status is Open **/
{
if (!Validate()) return false
}
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
Function to fire on click of Authorise button
**************************
function On_Authorise()
{
intPOStatus = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// Validate that only open purchase orders can be modified
if (intPOStatus != "2")
{
IIIalert("<%=errObject.get
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
// Global Variable for Out of sale item is set to to zero before validate method
cntOUTOFSALEITEM = 0;
// General Validation for full form controls
if (!Validate()) return false
// Out of Sale Item check
if (cntOUTOFSALEITEM > 0 )
{
if (!confirm("<%=errObject.ge
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
Function to fire on click of transmit button
**************************
function On_Transmit()
{
intPOStatus = Trim(divPurchaseOrder.getC
var PONumber = Trim(divPurchaseOrder.getC
var PDIExists = Trim(divPurchaseOrder.getC
var strTRANSMISSIONMODE = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// Validate that only authorised purchase orders can be transmitted
if (intPOStatus != "3" && intPOStatus != "6")
{
IIIalert("<%=errObject.get
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
// Only PO's where transmission mode is Automatic can be Transmitted. Else it should be printed
if (strTRANSMISSIONMODE != "A")
{
alert("<%=errObject.getnth
return false
}
//Begin : Interface 002:PO Transmission - Venki
if(! validateforV50("<%=Session
{
return false
}
//End : Interface 002:PO Transmission - Venki
/** PO Containing PDI Item cannot be transmitted **/
if (PDIExists == 1)
{
ItemDescriptionforPDI = GetItemDescriptionforPDI()
//IIIalert("<%=errObject.g
IIIalert("<%=errObject.get
return false
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
function GetItemDescriptionforPDI()
{
var LineItemDesc = ""
var LineItemCode = ""
var AllItemDesc = '\n' + '\n' + "<%=lblLineNo&" "&lblItemDescription%>" + '\n' + "------ -----------------"
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprITEMDESCRIPTION = '' or @sprDELETE = '1'";
var objPOMLDOM = divPurchaseOrder.getXMLStr
// Return if there is no rows..
if ( objPOMLDOM == null ) return false;
rstPOMLDetails = objPOMLDOM.selectNodes("//
nRowLength = rstPOMLDetails.length
if (nRowLength == 0) return false;
objNodeList = rstPOMLDetails.nextNode;
while(objNodeList != null)
{
// Get the Item Code from the XML node
intRowNo = objNodeList.getAttribute("
LineItemDesc = objNodeList.getAttribute("
LineItemCode = objNodeList.getAttribute("
if (LineItemCode.substring(0,
{
AllItemDesc = AllItemDesc +'\n'+ (intRowNo) +" "+ LineItemDesc
}
objNodeList = rstPOMLDetails.nextNode;
}
objPOMLDOM = null
objNodeList = null
rstPOMLDetails = null
AllItemDesc = AllItemDesc + '\n' + '\n'
return AllItemDesc
}
/*************************
Function to fire on click of print button
**************************
function On_Print()
{
intPOStatus = Trim(divPurchaseOrder.getC
var strTRANSMISSIONMODE = Trim(divPurchaseOrder.getC
var strPrintFlag = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// Validate that only authorised purchase orders can be printed
if (intPOStatus == "2")
{
alert("<%=errObject.getnth
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
/** Purchase Order is already Printed **/
if (strTRANSMISSIONMODE == "M")
{
if (Trim(strPrintFlag) != "Y")
{
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
else
{
On_PrintReports()
return false
}
}
else
{
On_PrintReports()
return false
}
}
/*************************
Function to fire on click of Delete button
**************************
function On_Delete()
{
intPOStatus = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
if ( intPOStatus != "1" && intPOStatus != "2" )
{
IIIalert("<%=errObject.get
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
/** Delete confirmation **/
var msg = "<%=errObject.getnthdescri
if ( !window.confirm(msg) ) return;
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
Function to fire on click of Short Close button
**************************
function On_ShortClose()
{
intPOStatus = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
else if (intPOStatus == "2")
{
alert("<%=errObject.getnth
return false
}
else if (intPOStatus == "10")
{
alert("<%=errObject.getnth
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
Function to fire on click of Change Supplier Button
**************************
function On_ChangeSupplier()
{
intPOStatus = Trim(divPurchaseOrder.getC
if ( "<%=GetAccessPermission("O
{
IIIalert("<%=ErrObject.get
return false;
}
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// PO Number should be entered in order to navigate to Change Supplier Screen
if (!On_ValidateMandatoryFiel
// Validate that only for open PO's supplier can be changed
if (intPOStatus != "2")
{
IIIalert("<%=errObject.get
return false
}
var strFileName = "OrderOverviewItem3.asp?Fr
On_LaunchHelpLocal(strFile
}
/*************************
Function to fire on click of Item Price Button
**************************
function On_ItemPrice()
{
if ( "<%=GetAccessPermission("I
{
IIIalert("<%=ErrObject.get
return false;
}
// Set the defaults value
var rowNode = null
var strItemCode = ""
var intRowsInMultiline = ""
var strItemCode = ""
var strItemType = ""
var blnAtleastOneRowIsChecked = false
var blnChemicalsChecked = false
// Filter selected items having non empty item desc and Item type as item
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprSEL != '1' or @sprITEMTYPE = '' or @sprITEMDESCRIPTION = ''";
var objPOMLDetails = divPurchaseOrder.getXMLStr
// If the ML object returns null then make the row as zero
if ( objPOMLDetails == null )
intRowsInMultiline = 0
else
{
var objMLRows = objPOMLDetails.selectNodes
intRowsInMultiline = objMLRows.length
}
// Loop through the ML and get check for the proper value before calling statistics
rowNode = objMLRows.nextNode;
while(rowNode != null)
{
strItemCode = rowNode.getAttribute("sprH
strItemType = rowNode.getAttribute("sprI
intRowCount = rowNode.getAttribute("ROWU
if(strItemType == "I")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = false
if (strItemCode == "")
{
IIIalert("<%=errObject.get
//The Item in line number % does not have a matching Item Code. Please enter a valid Item or choose from the Help available (91057)
return false;
}
else //Launch the statistics screen
{
var strFileName = "ITEMPRICE.ASP?SCREENLAUNC
On_LaunchHelpLocal(strFile
break;
}
}
else if (strItemType == "B")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = true
}
rowNode = objMLRows.nextNode;
}
/** Select Atleast One Row to launch Item Statistics **/
if (!blnAtleastOneRowIsChecke
{
alert("<%=errObject.getnth
return false
}
/** Chemicals cannot be used for launching Item Statistics Screen **/
if (blnChemicalsChecked)
{
alert("<%=errObject.getnth
return false
}
}
/*************************
Function to fire on click of Partner Defined Data Button
**************************
function On_PartnerDefinedData()
{
if ( "<%=GetAccessPermission("P
{
IIIalert("<%=ErrObject.get
return false;
}
// Set the defaults value
var rowNode = null
var strItemCode = ""
var intRowsInMultiline = ""
var strItemCode = ""
var strItemType = ""
var blnAtleastOneRowIsChecked = false
var blnChemicalsChecked = false
// Filter selected items having non empty item desc and Item type as item
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprSEL != '1' or @sprITEMTYPE = '' or @sprITEMDESCRIPTION = ''";
var objPOMLDetails = divPurchaseOrder.getXMLStr
// If the ML object returns null then make the row as zero
if ( objPOMLDetails == null )
intRowsInMultiline = 0
else
{
var objMLRows = objPOMLDetails.selectNodes
intRowsInMultiline = objMLRows.length
}
// Loop through the ML and get check for the proper value before calling statistics
rowNode = objMLRows.nextNode;
while(rowNode != null)
{
strItemCode = rowNode.getAttribute("sprH
strItemType = rowNode.getAttribute("sprI
intRowCount = rowNode.getAttribute("ROWU
if(strItemType == "I")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = false
if (strItemCode == "")
{
IIIalert("<%=errObject.get
//The Item in line number % does not have a matching Item Code. Please enter a valid Item or choose from the Help available (91057)
return false;
}
else //Launch the statistics screen
{
var strFileName = "PartnerDefinedData3.ASP?F
On_LaunchHelpLocal(strFile
break;
}
}
else if (strItemType == "B")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = true
}
rowNode = objMLRows.nextNode;
}
/** Select Atleast One Row to launch Item Statistics **/
if (!blnAtleastOneRowIsChecke
{
alert("<%=errObject.getnth
return false
}
/** Chemicals cannot be used for launching Item Statistics Screen **/
if (blnChemicalsChecked)
{
alert("<%=errObject.getnth
return false
}
}
/*************************
Function to fire on click of Transmission Log Button
**************************
function On_TransmissionLog()
{
intPOStatus = Trim(divPurchaseOrder.getC
if ( "<%=GetAccessPermission("T
{
IIIalert("<%=ErrObject.get
return false;
}
/** Validate if PO Status is empty **/
if (intPOStatus == "")
{
alert("<%=errObject.getnth
document.frmPurchaseOrder.
return false
}
/** PO Number should be entered in order to navigate to Transmission Log Screen **/
if (!On_ValidateMandatoryFiel
/** Validate that only for Automatic Transmitted PO's Transmission Log can be launched **/
if (intPOStatus != "4")
{
alert("<%=errObject.getnth
return false
}
var strPONumber = document.frmPurchaseOrder.
var strFileName = "TRANSMISSIONLOG3.ASP?FROM
On_LaunchHelpLocal(strFile
}
/*************************
Function to fire on click of Item Statistics Button
**************************
function On_ItemStatistics()
{
if ( "<%=GetAccessPermission("D
{
IIIalert("<%=ErrObject.get
return false;
}
// Set the defaults value
var rowNode = null
var strItemCode = ""
var intRowsInMultiline = ""
var strItemCode = ""
var strItemType = ""
var blnAtleastOneRowIsChecked = false
var blnChemicalsChecked = false
// Filter selected items having non empty item desc and Item type as item
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprSEL != '1' or @sprITEMTYPE = '' or @sprITEMDESCRIPTION = ''";
var objPOMLDetails = divPurchaseOrder.getXMLStr
// If the ML object returns null then make the row as zero
if ( objPOMLDetails == null )
intRowsInMultiline = 0
else
{
var objMLRows = objPOMLDetails.selectNodes
intRowsInMultiline = objMLRows.length
}
// Loop through the ML and get check for the proper value before calling statistics
rowNode = objMLRows.nextNode;
while(rowNode != null)
{
strItemCode = rowNode.getAttribute("sprH
strItemType = rowNode.getAttribute("sprI
intRowCount = rowNode.getAttribute("ROWU
if(strItemType == "I")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = false
if (strItemCode == "")
{
IIIalert("<%=errObject.get
//The Item in line number % does not have a matching Item Code. Please enter a valid Item or choose from the Help available (91057)
return false;
}
else //Launch the statistics screen
{
var strFileName = "STATISTICS3.ASP?FromScree
On_LaunchHelpLocal(strFile
break;
}
}
else if (strItemType == "B")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = true
}
rowNode = objMLRows.nextNode;
}
/** Select Atleast One Row to launch Item Statistics **/
if (!blnAtleastOneRowIsChecke
{
alert("<%=errObject.getnth
return false
}
/** Chemicals cannot be used for launching Item Statistics Screen **/
if (blnChemicalsChecked)
{
alert("<%=errObject.getnth
return false
}
}
/*************************
Function to read the values from the Sales Order Screen
**************************
function On_FILLVALUESFROMCALLINGSC
{
var intRowCounter = 0
var intRowCtrInCurrentForm = 1
var nRecordCount = 0;
var strMode = "<%=Trim(ACTION)%>"
var objPOGrid = eval(divPurchaseOrder.getG
if(strFlag == 'ONLOAD')
{
// If the mode of action is fetch and the screen is called from some other screen, then fetch is called
if (strMode != "" && strFromScreen != "")
{
On_CallXMLHTTPAfterValidat
strFocusIsOn = "";
return false;
}
// If the mode of action is nothing and the screen is called from TRANSMISSIONLOG screen
if (strMode == "")
{
if (strFromScreen == "TRANSMISSIONLOG3")
{
/** Loop to get the Selected Records from the First Multiline of Transmission Log Screen **/
eval("window.parent.opener
eval("window.parent.opener
rstLocal = eval("window.parent.opener
// Calculate no. of rows and add rows if neccessary..
nRecordCount = rstLocal.length
objPOGrid.MaxRows = parseFloat(nRecordCount)>o
while (!rstLocal.EOF)
{
if (Trim(rstLocal("txtItemCod
{
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
intRowCtrInCurrentForm = parseFloat(intRowCtrInCurr
}
rstLocal.MoveNext()
}
/** Loop to get the Selected Records from the Second Multiline of Transmission Log Screen **/
eval("window.parent.opener
eval("window.parent.opener
rstLocal = eval("window.parent.opener
nRecordCount = 0
// Calculate no. of rows and add rows if neccessary..
nRecordCount = rstLocal.length
objPOGrid.MaxRows = parseFloat(nRecordCount)>o
while (!rstLocal.EOF)
{
if (Trim(rstLocal("txtItemCod
{
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
intRowCtrInCurrentForm = parseFloat(intRowCtrInCurr
}
rstLocal.MoveNext()
}
}
}
delete rstLocal
}
}
/*************************
Function to calculate the Bonus Quantity on Enter in Bonus Quantity Field
**************************
function On_CalculateBonusQuantity(
{
var strQuery = ""
var strFieldsList = ""
var strItemPharmaCode = ""
var intItemQuantity = 0
var nBonusColIndex = divPurchaseOrder.getColInd
strItemPharmaCode = divPurchaseOrder.getCellVa
intItemQuantity = divPurchaseOrder.getCellVa
divPurchaseOrder.setCellVa
strFieldsList = "sprBONUS,sprBONUS"
if (strItemPharmaCode == "" || intItemQuantity == "" || isNaN(intItemQuantity)) return false
strQuery += " SELECT TOP 1 CONVERT(INT, QtyDelivery_13) - CONVERT(INT, QtyInvoice_14) AS 'Bonus_Quantity', "
strQuery += " CONVERT(INT, QtyDelivery_13) - CONVERT(INT, QtyInvoice_14) AS 'Bonus_Quantity' "
strQuery += " FROM IIIGaldat_Pharmaceutical_W
strQuery += " WHERE Phar_04 = '" + strItemPharmaCode + "' AND CONVERT(INT, QtyInvoice_14) < " + intItemQuantity
strQuery += " GROUP BY Phar_04,QtyDelivery_13,Qty
strQuery += " ORDER BY CONVERT(INT, QtyInvoice_14) DESC, CONVERT(INT, QtyDelivery_13) - CONVERT(INT, QtyInvoice_14) DESC "
launchhelpEnter("HELPENTER
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
}
/** Variables and Operations if Transmission is to be done **/
var TransmissionStarted = false
var TransmissionSuccess = false
var TransmissionMsg = ""
var IDF = ""
var PhoneNumber = ""
//Added by Venki for replacing the Cookies to Session Start
//var ClientParams = "<%=Request.Cookies("Clien
var ClientParams = "<%=Session("ClientParams"
//Added by Venki for replacing the Cookies to Session End
var LangID = "<%=sLANGID%>"
var Item_ResponseCode = ""
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- start
var noOfLinestoLog = 0
var POLineItemstoLog = ""
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- End
/*************************
Function to create the V50 Transmission Input File
**************************
function CreateInputV50File()
{
/* var IDF = Trim(divPurchaseOrder.getC
var PhoneNumber = Trim(divPurchaseOrder.getC
var ClientParams = "<%=Session("ClientParams"
var LangID = "<%=sLANGID%>"
*/
IDF = Trim(divPurchaseOrder.getC
PhoneNumber = Trim(divPurchaseOrder.getC
ClientParams = "<%=Session("ClientParams"
LangID = "<%=sLANGID%>"
/** Transmission with Error Handling **/
try
{
fso = new ActiveXObject("Scripting.F
/** Delete the previous Transmission's Response file **/
var LocalFileName = "c:\\iii\\v50\\ANSWER.DAT"
if (fso.FileExists(LocalFileN
/** Preparing the Local File Path & Name based on the Customer IDF Code, Delete it if it already exists **/
LocalFileName = "c:\\iii\\v50\\" + IDF + ".v50"
if (fso.FileExists(LocalFileN
var its = fso.CreateTextFile(LocalFi
its.WriteLine('C;2;W2250;G
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- start
noOfLinestoLog = 0
POLineItemstoLog = ""
datestr = getCurrentDate()
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- End
divPurchaseOrder.filters = "";
var objPOMLDOM = divPurchaseOrder.getXMLStr
// Return if there is no rows..
if ( objPOMLDOM == null ) return false;
var rstPOMLDetails = objPOMLDOM.selectNodes("//
var nRowLength = rstPOMLDetails.length
var nNoOfLines = 0
for (var cntr = 1; cntr <= nRowLength; cntr ++)
{
var strITEMCODE = divPurchaseOrder.getCellVa
var nQUANTITY = divPurchaseOrder.getCellVa
var str = ""
if (strITEMCODE != "")
{
str += "1;"
str += makelength(strITEMCODE, 7)
str += ";"
str += makelength(nQUANTITY, 4)
str += ";00;" + datestr
its.WriteLine(str)
nNoOfLines++
}
POLineItemstoLog = POLineItemstoLog + "::" + str //Added by VenkiRSL - 06May2003 TRIAMUNIII1.0S_016597
}
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- start
noOfLinestoLog = nNoOfLines
if(nNoOfLines == 0)
{
alert("<%=errObject.getnth
its.Close()
return false
}
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- End
NoofLinesforComparition = makelength(nNoOfLines.toSt
lastline = "E;00;" + NoofLinesforComparition
its.WriteLine(lastline)
its.Close()
}
catch(objException)
{
TransmissionMsg = "<%=errObject.getnthdescri
return false
}
return true
}
/*************************
Function to call PO Transmit on Load of PO Detail DIV
**************************
function On_LOADSUBMITFORTRANSMISSI
{
if (strACTION == "TRANSMITPURCHASEORDERFETC
{
// Step 1 : Create the Input file
if(CreateInputV50File())
{
// Step 2: Execute V50 EXE for Transmission
ExecuteV50Command(IDF, PhoneNumber, ClientParams, LangID)
// Step 3: Read the anwer file and store as ItemCode1~ResponseCode1~~I
Item_ResponseCode = ReadV50AnswerFile()
}
LogPODetailsInTextFile() //Added by VenkiRSL - 06May2003 TRIAMUNIII1.0S_016597
document.frmPurchaseOrder.
/** Transmission status is Failure **/
if (!TransmissionSuccess)
{
alert(TransmissionMsg)
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
//document.frmPurchaseOrde
}
/** Transmission status is Transmitted **/
else
{
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
//document.frmPurchaseOrde
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
}
//Function LogPODetailsInTextFile() added by VenkiRSL for TRIAMUNIII1.0S_016597 - 06May2003
/*************************
Logging the PO Transmission details into flat files before and after PO Transmission
**************************
function LogPODetailsInTextFile()
{
var IDFNo = Trim(divPurchaseOrder.getC
var PONumbertmp = document.frmPurchaseOrder.
var filesys, newfolder, sourceFile, destinationFile
filesys = new ActiveXObject("Scripting.F
if(!filesys.FolderExists("
return
if(!filesys.FolderExists("
return
var HistoryFolder = "c:\\III\\V50\\History"
if(!filesys.FolderExists(H
newfolder = filesys.CreateFolder(Histo
var Curdate = getCurrentDate()
var CurdateArry = Curdate.split(".")
var dt = new Date()
var hours = (dt.getHours().toString().
var minutes = (dt.getMinutes().toString(
var seconds = (dt.getSeconds().toString(
var dateTimetmp = CurdateArry[2]+CurdateArry
var DestinationFolder = HistoryFolder +"\\"+ dateTimetmp+"_"+PONumbertm
if(!filesys.FolderExists(D
newfolder = filesys.CreateFolder(Desti
sourceFile = "c:\\III\\V50\\"+IDFNo+".v
destinationFile = DestinationFolder+"\\"+IDF
if (filesys.FileExists(source
{
filesys.MoveFile(sourceFil
}
sourceFile = "c:\\III\\V50\\Answer.Dat"
destinationFile = DestinationFolder+"\\Answe
if (filesys.FileExists(source
{
filesys.MoveFile(sourceFil
}
if(filesys.FolderExists(De
{
var LogFileName = DestinationFolder+"\\Log.t
its = filesys.CreateTextFile(Log
its.WriteLine("Transmissio
its.WriteLine("Response text : " + Item_ResponseCode)
its.WriteLine("No of lines Read from ML : " + noOfLinestoLog)
its.WriteLine("PO Lines Read from ML : " + POLineItemstoLog)
its.Close()
}
}
/*************************
Event to set the Deilvery Time when defaulting the Time Rules
**************************
function On_ChangeDeliveryTime()
{
var DeliveryTimeTemp = document.frmPurchaseOrder.
if (DeliveryTimeTemp == '')
{
DeliveryTimeTemp = '23:59'
}
SetTimeValue(document.frmP
}
/*************************
Function to Print Delivery Slip when launched from SO
Changed by VenkiRSL:Reports : 20-Jan-2002
**************************
function On_DeliverySlip()
{
var PONumber = document.frmPurchaseOrder.
intPOStatus = Trim(divPurchaseOrder.getC
if(PONumber == "")
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
var strPrintFlag = Trim(document.frmPurchaseO
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// Validate that only authorised purchase orders can be printed
if (intPOStatus != "3")
{
alert("<%=errObject.getnth
return false
}
var size = "directories=no,location=n
var ProcParams = '<%=Triamun_Session("nPart
winReport = window.open('../Reports/II
winReport.focus();
}
/*************************
Function to print Report on press of Print Button
**************************
function On_PrintReports()
{
var size = "directories=no,location=n
var PONO = Trim(document.frmPurchaseO
if(PONO == "")
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
else
{
retval = isvalidCharSet(document.fr
if (retval == false)
{
IIIalert("<%=ErrObject.get
document.frmPurchaseOrder.
return false;
}
}
ProcParams = '<%=Triamun_Session("nPart
winReport = window.open('../Reports/Re
winReport.focus();
}
/*************************
Function to fire on fetch of Item Details through Enter
**************************
function On_FetchItemDetails()
{
if (strItemHelpEnterRow == "") strItemHelpEnterRow = 0
var nItemDescColIndex = divPurchaseOrder.getColInd
//Adda new line if the help enter is callled from last row of the GRID..
if(objPURCHASEORDER.Maxrow
{
InsertSingleRow(objPURCHAS
}
/** Defaults the Previous Lines Quantity when scanning is done **/
if ( (parseFloat(strItemHelpEnt
{
var tmpOrderQty = divPurchaseOrder.getCellVa
divPurchaseOrder.setCellVa
}
/** Set Focus in Next Row when some Records have been returned **/
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
}
/*************************
Function for Showing Open Orders for the Item on click of Open Order Quantity
**************************
function On_OPENPOQUANTITY(nCol,nRo
{
var nOPENQUANTITY = strColValue
var strItemCode = divPurchaseOrder.getCellVa
var strItemDescription = divPurchaseOrder.getCellVa
if (nOPENQUANTITY != "" && nOPENQUANTITY > 0)
{
var strFILENAME = "HELP.ASP?HELP_ID=105&Star
launchhelp1(strFILENAME);
}
}
var colNo_sprHIDDENCUSTOMERREF
function getColReference()
{
colNo_sprHIDDENCUSTOMERREF
}
/*************************
Function to fire on Load of the form
**************************
function SetDefaults(strFlag)
{
objPURCHASEORDER = document.all("sprPurchaseO
On_LOADSUBMITFORTRANSMISSI
On_FILLVALUESFROMCALLINGSC
//On_LoadFUIFileOnBodyLoad
/** Freeze first Four Columns till Item Description Help **/
objPURCHASEORDER.ColsFroze
//OnLaunch fo the screen - Defaults value are set for the time ..
/*if (strACTION == "")
{
SetTimeValue(document.frmP
SetTimeValue(document.frmP
SetTimeValue(document.frmP
}*/
/*************************
Disable the Mode of Transmission Combo if the PO Status is not in one of the following Cases
1. Not Empty ( Screen Launch )
2. Not in Open Status
3. Not in Authorised Status with Mode of Transmission as Modem
4. Not in Failed Status with Mode of Transmission as Modem
**************************
var nPOSTATUS = Trim(divPurchaseOrder.getC
var strMODEOFTRANSMISSION = Trim(divPurchaseOrder.getC
if (nPOSTATUS == "" || nPOSTATUS == "2" || (nPOSTATUS == "3" && strMODEOFTRANSMISSION == "A") ||
(nPOSTATUS == "6" && strMODEOFTRANSMISSION == "A"))
{
document.frmPurchaseOrder.
}
else
{
document.frmPurchaseOrder.
Allowupdate = false;
}
/*** set focus on launch on the first field ***/
//document.frmPurchaseOrde
/** Set the Focus to the Print Window if the Print Flag Update is a success **/
if(Trim(divPurchaseOrder.g
{
//set the button text to Reprint..
document.frmPurchaseOrder.
if(strACTION == 'PRINTPURCHASEORDER')
{
On_PrintReports()
if (typeof(eval(winReport)) != "undefined")
winReport.focus();
}
}
else
{
document.frmPurchaseOrder.
}
}
</SCRIPT>
<!------------------------
<!------------------------
<SCRIPT LANGUAGE="JavaScript" FOR="sprPurchaseOrder" EVENT="ScriptKeyDown(KeyCo
if (KeyCode == 40)
{
if(objPURCHASEORDER.Active
{
var nItemDescColIndex = divPurchaseOrder.getColInd
var nQtyColIndex = divPurchaseOrder.getColInd
var nBonusColIndex = divPurchaseOrder.getColInd
var nPriceColIndex = divPurchaseOrder.getColInd
var nSelColIndex = divPurchaseOrder.getColInd
var nControlledColIndex = divPurchaseOrder.getColInd
var nDeleteColIndex = divPurchaseOrder.getColInd
if( (objPURCHASEORDER.ActiveCo
{
//Insert a new Row
InsertSingleRow(objPURCHAS
}
}
}
else if (KeyCode == 37 || KeyCode == 39)
{
SetFocusOnNextOrPreviousCo
}
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript" FOR="sprPurchaseOrder" EVENT="ScriptKeyPress(nKey
if (nKeyAscii == 13)
{
var nItemTypeColIndex = divPurchaseOrder.getColInd
var nItemDescColIndex = divPurchaseOrder.getColInd
var nRowNumber = objPURCHASEORDER.ActiveRow
if(objPURCHASEORDER.Active
{
var strItemType = divPurchaseOrder.getCellVa
var strItemEANCode = Trim(divPurchaseOrder.getC
if(strItemType != "" && strItemEANCode != "")
On_HelpOnEnterForItems(nRo
}
else if(objPURCHASEORDER.Active
{
InsertSingleRow(objPURCHAS
}
else if(objPURCHASEORDER.Active
{
var strItemType = divPurchaseOrder.getCellVa
if (strItemType == "I")
{
On_CalculateBonusQuantity(
return false
}
}
}
</SCRIPT>
<!------------------------
<!------------------------
<SCRIPT>
/* Function Calls Help for Item and basler Taxe, if the ... button is clicked */
function On_GridButtonClick()
{
var nCol = event.nCol;
var nRow = event.nRow;
var strFieldName = event.FieldName;
//----------- Help for Item and Basler Taxe ---------------------//
if (strFieldName == "sprHELPFORITEM")
{
HelpForItemOrChemical(nRow
return false;
}
else if(strFieldName == "sprREFERENCE")
{
/*************************
To Launch the Customer Reference Sub Screen as a Modal Window when the Go Button is clicked
**************************
var arrVALUES = new Array();
// Setting the Values to be passed to the SUB SCREEN
arrVALUES[0] = nRow
arrVALUES[1] = divPurchaseOrder.getCellVa
arrVALUES[2] = divPurchaseOrder.getCellVa
arrVALUES[3] = eval("divPurchaseOrder");
arrVALUES[4] = "PURCHASEORDER";
/** Validate that Item Description should be entered before launching the Customer Details sub screen **/
if (arrVALUES[1] == "")
{
alert("<%=errObject.getnth
return false
}
var arrRETURNVALUE = showModalDialog("POCUSTOME
if (arrRETURNVALUE[0] == "OK")
{
arrRETURNVALUE[1] = escape(arrRETURNVALUE[1]);
divPurchaseOrder.setCellVa
// Button color is changed after setting values..
var objPOGrid = eval(divPurchaseOrder.getG
var nColIndex = divPurchaseOrder.getColInd
if(arrRETURNVALUE[1] != "")
Set_Button_Color(objPOGrid
else
Set_Button_Color(objPOGrid
}
return false;
}
}
/* Function to calculate Total on change of Qty and Total */
function On_CellChange()
{
var nCol = event.nCol;
var nRow = event.nRow;
var strFieldName = event.FieldName;
if ( (strFieldName == "sprORDERQUANTITY") || (strFieldName == "sprBONUS") || (strFieldName == "sprRATEINCHF") )
{
On_BlurCalculateTotals(nRo
}
else if(strFieldName == "sprITEMDESCRIPTION")
{
On_ChangeItemDescription(n
}
}
var Allowupdate = true;
function validateTransmissionMode(o
{
//if ( objTxCboMode.value == "A" ) objTxCboMode.value = "M"
var nPOSTATUS = Trim(divPurchaseOrder.getC
var strMODEOFTRANSMISSION = Trim(divPurchaseOrder.getC
if (( nPOSTATUS == "3" ) || ( nPOSTATUS == "6" ))
{
if (strMODEOFTRANSMISSION == "M")
{
objTxCboMode.value = "M"
objTxCboMode.disabled = true;
Allowupdate = false;
}
else
{
if ( objTxCboMode.value = "M" ) Allowupdate = true;
}
}
return false;
}
function cmdItemAvailability_onClic
{
/** To check that atleast one row exists in Multiline **/
var nOrderQuantity = "";
var nSelectColIndex = divPurchaseOrder.getColInd
var nHidItemTypeColIndex = divPurchaseOrder.getColInd
var nItemTypeColIndex = divPurchaseOrder.getColInd
var nItemDescColIndex = divPurchaseOrder.getColInd
var nItemCodeColIndex = divPurchaseOrder.getColInd
var nQuantityColIndex = divPurchaseOrder.getColInd
var nItemTypeColIndex = nHidItemTypeColIndex + "~" + nItemTypeColIndex
var strError = CallProductAvailability("f
if (strError != true)
{
var strErrorArry = strError.split("~")
var intErrorNum = parseInt(strErrorArry[0])
if (strErrorArry.length == 3)
{
var intCol = parseInt(strErrorArry[1])
var intRow = parseInt(strErrorArry[2])
}
if (intErrorNum == "770")
{
alert("<%=errObject.getnth
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
if (intErrorNum == "1548")
{
alert("<%=errObject.getnth
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
if (intErrorNum == "1549")
{
alert("<%=errObject.getnth
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
if (intErrorNum == "436")
{
alert("<%=errObject.getnth
return false;
}
}
var winHelp, strWindowName, strFileName;
strWindowName = "ProductAvailability";
strFileName = "ProductAvailability.asp?F
winHelp = window.open(strFileName, strWindowName, 'menubar=no,location=no,to
winHelp.focus();
}
</SCRIPT>
</HEAD>
<!-- Drawing Screen -->
<BODY ID="PURCHASEORDER3" CLASS="pgbody" ONCLICK="bodyHideAll()" ONLOAD="SetDefaults('ONLOA
<%If varFromScreen = "" Then%>
<!--#include file="../include/galmenu.a
<%End If%>
<FORM METHOD="POST" NAME="frmPurchaseOrder" ONSUBMIT="return On_Create()">
<%If varFromScreen <> "" Then%>
<TABLE STYLE="width:954px">
<TR ALIGN="right">
<TD CLASS="tdScreenTitle" NOWRAP><%=lblScreenTitle%>
</TR>
</TABLE>
<HR>
<%End If%>
<TABLE NAME="POHEADER" ID="POHEADER"> <!-- Table for PO Header and ML -->
<TR>
<TD ALIGN="left" COLSPAN="9">
<!-- Hidden Header Controls Starts -->
<INPUT TYPE="hidden" NAME="mTimeStamp" VALUE="">
<INPUT TYPE="hidden" NAME="mPOType" VALUE="">
<INPUT TYPE="hidden" NAME="mNoOfLinesAutomatic"
<INPUT TYPE="hidden" NAME="mNoOfLinesManual" VALUE="">
<INPUT TYPE="hidden" NAME="mNoOfLinesCustomer" VALUE="">
<INPUT TYPE="hidden" NAME="mSalesOrderNo" VALUE="">
<INPUT TYPE="hidden" NAME="mFromScreen" VALUE="">
<INPUT TYPE="hidden" NAME="hidPrintFlag" VALUE="">
<INPUT TYPE="hidden" NAME="hidStatusOfPOBeforeU
<INPUT TYPE="hidden" NAME="hidOnFetchItemDetail
<INPUT TYPE="hidden" NAME="hidDeliveryTime" ONCHANGE="On_ChangeDeliver
<INPUT TYPE="hidden" NAME="hidPODETAILDATA">
<INPUT TYPE="hidden" NAME="hdnPDIExists" VALUE="">
<!-- Hidden Header Controls Ends -->
<!--Begin :Interface 002:PO Transmission - Venki-->
<INPUT TYPE="hidden" NAME="TransResponse">
<INPUT TYPE="hidden" NAME="hidCustomerIDFCode" VALUE="">
<INPUT TYPE="hidden" NAME="hidPhoneNumber" VALUE="">
<!--End :Interface 002:PO Transmission - Venki-->
<!-- Hidden Control For Item availability Starts -->
<INPUT TYPE="hidden" NAME="hidItemAvailability"
<!-- Hidden Control For Item availability Ends -->
<!-- License File for Time Picker & Grid Download Starts -->
<OBJECT CLASSID="<%=lbltriamunlpk%
<PARAM NAME="LPKPath" VALUE="../Download/Triamun
</OBJECT>
</TD>
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblPurch
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtPONumber" MAXLENGTH="15" CLASs="tdEdit" SIZE="17" ONFOCUS="On_SetFocusValue(
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdCCHForPONO" VALUE="..." ONCLICK="HelpForPONumber()
<TD ALIGN="left" CLASS="tdText"><INPUT TYPE="button" NAME="cmdFetch" CLASS="stdButton" VALUE="<%=lblFetch%>" ONCLICK="On_Fetch()" <%=GetAccessPermission("PU
<TD ALIGN="left" CLASS="tdtext"></TD>
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblStatu
<TD ALIGN="left" CLASS="tdtext">
<!-- <INPUT TYPE="hidden" NAME="hidPOStatus" VALUE=""> -->
<!-- <INPUT TYPE="text" NAME="txtPOStatus" CLASS="ctrlHdrReadOnly" READONLY TABINDEX="-1" VALUE="<%=GetQCDDESCRIPTIO
<SELECT NAME="txtPOStatus" CLASS="ctrlHdrReadOnly" DISABLED>
<OPTION VALUE="" SELECTED></OPTION>
<% For varCtr = 0 To UBound(POStatusQCD) 'PO Status retrieved from QCD %>
<OPTION VALUE="<%=POStatusQCD(varC
<% Next %>
</SELECT>
</TD>
<TD ALIGN="left" CLASS="tdHelp"></TD>
</TR>
<TR><TD ALIGN="left" COLSPAN="9"><HR></TD></TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblSuppl
<TD CLASS="tdtext"><INPUT TYPE="text" NAME="txtSupplierDescripti
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdCCHForSupplier" VALUE="..." ONCLICK="HelpForSupplier()
<TD ALIGN="left" CLASS="tdtext"><%=lblOrder
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" ID="txtOrderDate" NAME="txtOrderDate" MAXLENGTH="10" CLASS="tdEdit" ID="<%=lblOrderDate%>" ONFOCUS="On_SetFocusValue(
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdDatePickForOrderD
<TD ALIGN="left" CLASS="tdtext"><%=lblOrder
<TD ALIGN="left" CLASS="tdtext"><OBJECT NAME="txtOrderTime" ID="txtOrderTime" CLASS="tdEdit" STYLE="left:0px;top:0px;he
<PARAM NAME="_ExtentX" VALUE="1826">
<PARAM NAME="_ExtentY" VALUE="900">
<PARAM NAME="_Version" VALUE="393216">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="CalendarBackColor" VALUE="-2147483643">
<PARAM NAME="CalendarForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTitleBackCol
<PARAM NAME="CalendarTitleForeCol
<PARAM NAME="CalendarTrailingFore
<PARAM NAME="CheckBox" VALUE="0">
<PARAM NAME="CustomFormat" VALUE="HH:mm">
<PARAM NAME="DateIsNull" VALUE="0">
<PARAM NAME="Format" VALUE="662831107">
<PARAM NAME="UpDown" VALUE="1">
<PARAM NAME="CurrentDate" VALUE="0.833333333333333">
<PARAM NAME="MaxDate" VALUE="2958465">
<PARAM NAME="MinDate" VALUE="-109205">
</OBJECT></TD>
<TD ALIGN="left" CLASS="tdHelp"><LABEL ID="lblMandatoryRed">*</LA
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblModeO
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtModeOfPO" READONLY TABINDEX="-1" CLASS="ctrlhdrreadonly" VALUE=""></TD>
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblTrans
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" ID="<%=lblTransmissionDate
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdDatePickForTransm
<TD ALIGN="left" CLASS="tdtext"><%=lblTrans
<TD ALIGN="left" CLASS="tdtext"><OBJECT NAME="txtTransmissionTime"
<PARAM NAME="_ExtentX" VALUE="1826">
<PARAM NAME="_ExtentY" VALUE="900">
<PARAM NAME="_Version" VALUE="393216">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="CalendarBackColor" VALUE="-2147483643">
<PARAM NAME="CalendarForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTitleBackCol
<PARAM NAME="CalendarTitleForeCol
<PARAM NAME="CalendarTrailingFore
<PARAM NAME="CheckBox" VALUE="0">
<PARAM NAME="CustomFormat" VALUE="HH:mm">
<PARAM NAME="DateIsNull" VALUE="0">
<PARAM NAME="Format" VALUE="662831107">
<PARAM NAME="UpDown" VALUE="1">
<PARAM NAME="CurrentDate" VALUE="0.833333333333333">
<PARAM NAME="MaxDate" VALUE="2958465">
<PARAM NAME="MinDate" VALUE="-109205">
</OBJECT></TD>
<TD ALIGN="left" CLASS="tdHelp"><LABEL ID="lblMandatoryBlue">*</L
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblModeO
<TD ALIGN="left" CLASS="tdtext">
<SELECT NAME="cboModeOfTransmissio
<OPTION VALUE=""></OPTION>
<%For cntr = 0 To UBound(POTransmissionMode,
if POTransmissionMode(cntr,0)
<OPTION VALUE="<%=POTransmissionMo
<%Else%>
<OPTION VALUE="<%=POTransmissionMo
<%End If
Next%>
</SELECT><LABEL ID="lblMandatoryRed">*</LA
</TD>
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblDeliv
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" ID="<%=lblDeliveryDate%>" NAME="txtDeliveryDate" CLASS="tdEdit" MAXLENGTH="10" ID="<%=lblDeliveryDate%>" ONBLUR="validateDate(this,
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdDatePickForDelive
<TD ALIGN="left" CLASS="tdtext"><%=lblDeliv
<TD ALIGN="left" CLASS="tdtext"><OBJECT NAME="txtDeliveryTime" ID="txtDeliveryTime" CLASS="tdEdit" STYLE="left:0px;top:0px;he
<PARAM NAME="_ExtentX" VALUE="1826">
<PARAM NAME="_ExtentY" VALUE="900">
<PARAM NAME="_Version" VALUE="393216">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="CalendarBackColor" VALUE="-2147483643">
<PARAM NAME="CalendarForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTitleBackCol
<PARAM NAME="CalendarTitleForeCol
<PARAM NAME="CalendarTrailingFore
<PARAM NAME="CheckBox" VALUE="0">
<PARAM NAME="CustomFormat" VALUE="HH:mm">
<PARAM NAME="DateIsNull" VALUE="0">
<PARAM NAME="Format" VALUE="662831107">
<PARAM NAME="UpDown" VALUE="1">
<PARAM NAME="CurrentDate" VALUE="0.833333333333333">
<PARAM NAME="MaxDate" VALUE="2958465">
<PARAM NAME="MinDate" VALUE="-109205">
</OBJECT></TD>
<TD ALIGN="left" CLASS="tdHelp"><LABEL ID="lblMandatoryRed">*</LA
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblSales
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtSalesRep" VALUE="" ID="<%=lblSalesRep%>" MAXLENGTH="40" CLASS="tdEdit" ONBLUR="On_ValidateCharSet
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblTotal
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtTotalValue" READONLY TABINDEX="-1" CLASS="ctrlhdrreadonly" STYLE="text-align:right"><
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblTotal
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtTotalNoOfLineItem
<TD ALIGN="left" CLASS="tdHelp"></TD>
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblRemar
<TD ALIGN="left" CLASS="tdtext" COLSPAN="7"><TEXTAREA NAME="txtRemarks" ROWS="2" CLASS="tdEditSpan7" ONKEYPRESS="return LimitTextArea(this, 500)"><%=varRemarks%></TEX
<TD ALIGN="left" CLASS="tdHelp"></TD>
</TR>
</TABLE>
<!-- PO Detail Table -->
<TABLE>
<TR><TD ALIGN="left" COLSPAN="9"></TD></TR>
<TR><TD ALIGN="left" COLSPAN="9"></TD></TR>
<TR>
<TD ALIGN="left" COLSPAN="9">
<!-- #include file="DATAMAPPING_PURCHASE
</TD>
</TR>
<TR>
<TD ALIGN="left" COLSPAN="9">
<TABLE>
<TR ALIGN="left">
<TD ALIGN="left" STYLE="width:300px" CLASS="hdrText">
<INPUT TYPE="checkbox" NAME="chkSelectAllForContr
<LABEL ID="lblCheckUncheckControl
</TD>
<TD ALIGN="right" STYLE="width:650px" CLASS="hdrText">
<DIV ID="IDCreatedOn"><%=varRec
</TD>
</TR>
</TABLE>
</TD>
</TR>
<!--
<TR>
<TD ALIGN="left" CLASS="tdText"></TD>
<TD ALIGN="right" CLASS="tdEditSpan7"><DIV ID="IDCreatedOn" ><%=varRecordCreationLabel
<TD ALIGN="left" CLASS="tdHelp"></TD>
</TR>
-->
<TR><TD ALIGN="left" COLSPAN="9"></TD></TR>
<TR><TD ALIGN="left" COLSPAN="9"></TD></TR>
<TR>
<TD ALIGN="left" COLSPAN="9">
<INPUT TYPE="submit" CLASS="stdButton" NAME="cmdCreate" ID="functionKeyCreate" VALUE="<%=lblCreate%>" <%=GetAccessPermission("PU
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdModify" ID="functionKeyModify" VALUE="<%=lblModify%>" ONCLICK="return On_Modify()" <%=GetAccessPermission("PU
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdDelete" ID="functionKeyDelete" VALUE="<%=lblDeleteTitle%>
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdAuthorise" ID="functionKeyAuthorize" VALUE="<%=lblAuthorise%>" ONCLICK="return On_Authorise()" <%=GetAccessPermission("PU
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdPrint" ID="functionKeyPrint" <%If Trim(varPrintFlag) = "Y" Then%>VALUE="<%=lblRePrint
<!-- <INPUT TYPE="reset" CLASS="stdButton" NAME="cmdReset" VALUE="<%=lblReset%>"> -->
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdClear" ID="functionKeyClear" VALUE="<%=lblClear%>" ONCLICK="On_Clear()">
<%If varFromScreen <> "" Then%>
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdCancel" ID="functionKeyClose" VALUE="<%=lblClose%>" ONCLICK="window.close()">
<%end if%>
&n
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdTransmit" ID="functionKeyTransmit" VALUE="<%=lblTransmit%>" ONCLICK="return On_Transmit()" <%=GetAccessPermission("PU
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdShortClose" VALUE="<%=lblShortClose%>"
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdItemPrice" VALUE="<%=lblItemPrice%>" ONCLICK="On_ItemPrice()">
</TD>
</TR>
<TR>
<TD ALIGN="left" COLSPAN="9">
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdChangeSupplier" VALUE="<%=lblChangeSupplie
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdTransmissionLog" VALUE="<%=lblTransmissionL
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdPartnerDefinedDat
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdItemStatistics" VALUE="<%=lblStatistics%>"
<%'If varFromScreen = "SO" Or Trim(varSalesOrderNo) <> "" Then%>
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdDeliverySlip" VALUE="<%=lblDeliverySlip%
<%'End If%>
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdItemAvailability"
</TD>
</TR>
</TABLE>
</FORM>
<SCRIPT LANGUAGE="VbScript">
' Tool Tip for ML Columns
Sub sprPURCHASEORDER_ScriptTex
' If the column is zero
If Col = 0 Then Exit Sub
' Get the Col Name for the given col index..
If CStr(Col) <> "" Then
strColName = divPurchaseOrder.getColNam
Else
strColName = ""
End If
If (strColName = "sprSEL" AND Row = 0) Then
TipText = "<%=lblSelectTitle%>"
ShowTip = True
End If
If (strColName = "sprITEMTYPE" AND Row = 0) Then
TipText = "<%=lblItemTypeTT%>"
ShowTip = True
End If
If (strColName = "sprSTOCKQUANTITY" AND Row = 0) Then
TipText = "<%=lblStockQuantityTT%>"
ShowTip = True
End If
If (strColName = "sprMINSTOCKQUANTITY" AND Row = 0) Then
TipText = "<%=lblMinStockQuantityTT%
ShowTip = True
End If
If (strColName = "sprMAXSTOCKQUANTITY" AND Row = 0) Then
TipText = "<%=lblMaxStockQuantityTT%
ShowTip = True
End If
If (strColName = "sprOPENORDERQUANTITY" AND Row = 0) Then
TipText = "<%=lblOpenOrderQuantityTT
ShowTip = True
End If
If (strColName = "sprORDERQUANTITY" AND Row = 0) Then
TipText = "<%=lblOrderQuantityTT%>"
ShowTip = True
End If
If (strColName = "sprBONUS" AND Row = 0) Then
TipText = "<%=lblBonusTT%>"
ShowTip = True
End If
If (strColName = "sprTOTALQTY" AND Row = 0) Then
TipText = "<%=lblTotalTT%>"
ShowTip = True
End If
If (strColName = "sprRATEINCHF" AND Row = 0) Then
TipText = "<%=lblRateInCHFTT%>"
ShowTip = True
End If
If (strColName = "sprTOTALAMOUNT" AND Row = 0) Then
TipText = "<%=lblValueOfLineTT%>"
ShowTip = True
End If
If (strColName = "sprREFERENCE" AND Row = 0) Then
TipText = "<%=lblRefTT%>"
ShowTip = True
End If
If (strColName = "sprCONTROLLED" AND Row = 0) Then
TipText = "<%=lblControlledTitle%>"
ShowTip = True
End If
If (strColName = "sprNONMOVINGITEM" AND Row = 0) Then
TipText = "<%=lblNonMovingItemTitle%
ShowTip = True
End If
If (strColName = "sprDELETE" AND Row = 0) Then
TipText = "<%=lblDeleteTitle%>"
ShowTip = True
End If
If (strColName = "sprSOURCE" AND Row = 0) Then
TipText = "<%=lblSourceTT%>"
ShowTip = True
End If
If (strColName = "sprDELQTY" AND Row = 0) Then
TipText = "<%=lblDelQtyTT%>"
ShowTip = True
End If
If (strColName = "sprPENDQTY" AND Row = 0) Then
TipText = "<%=lblPendQtyTT%>"
ShowTip = True
End If
End Sub
</SCRIPT>
</BODY>
</HTML>
===server_purchaseorder3.a
<!-- #include FILE="../include/validateF
<!--#include file="../sessionmanager.in
<% If UCase(Triamun_Session("Lan
<!-- #include file="../include/english/Q
<% ElseIf UCase(Triamun_Session("Lan
<!-- #include file="../include/german/Qc
<% ElseIf UCase(Triamun_Session("Lan
<!-- #include file="../include/french/Qc
<% End If
''''''''''''''''''''''''''
' --------------------------
''''''''''''''''''''''''''
Dim objDOMSERVERSIDE, objPURCHASEORDER, objPODetails, rstPURCHASEORDERHEADER, rstPODISCOUNTMESSAGE
Dim ACTION, varPOStatus, varPONumber, varPODETAIL, nROWCOUNTER, lblNonMovingItem, strRETURNVALUE
Dim errFileName, sPARTNERID, varPartnerName, varUserName, sCON, sLANGID
Dim nERRORNO, strERRORMESSAGE, varDISCOUNTMESSAGE, strERRORMESSAGETEMP, objRETURNVALUE
Dim varStatusOfPOBeforeUpdate,
Dim varSupplierCode, varSupplierDescription, varPOTransmissionMode, varPODeliveryDate, varPODeliveryTime
Dim varPODate, varPOTime, varPOTransmissionTime, varFlagForPrinting, arrParamList
''''''''''''''''''''''''''
' --------------------------
''''''''''''''''''''''''''
SET errObject = Application("ErrObject")
errFileName = Session("FEErrMsgFile")
sPARTNERID = Triamun_Session("nPartnerI
varPartnerName = Triamun_Session("strPartne
varUserName = Triamun_Session("strUserNa
sCON = Application("strODBC")
sLANGID = Triamun_Session("Language"
varDaysForNonMovingItem = Session("PRT010") ' No of Days for an Item to become Non-Moving
If varDaysForNonMovingItem = "" Then varDaysForNonMovingItem = 0
''''''''''''''''''''''''''
' --------------------------
' Query String Variable Name Value Description
' --------------------------
' ACTION FETCH Fetches a purchase order
' INSERTPURCHASEORDER Inserts a New Purchase Order
' MODIFYPURCHASEORDER Modifies an existing Purchase Order
' AUTHORISEPURCHASEORDER Authorises an existing Purchase Order
' TRANSMITPURCHASEORDERFETCH
' TRANSMITPURCHASEORDERUPDAT
' PRINTPURCHASEORDER Prints an Existing Purchase Order
' DELETEPURCHASEORDER Deletes an existing Purchase Order
' SHORTCLOSEPO Short Closes an existing Purchase Order
' FETCHDEFAULTVALUES Fetches deafulte values like supplier, on click of clear button
''''''''''''''''''''''''''
' --------------------------
''''''''''''''''''''''''''
SET objDOMSERVERSIDE = Server.CreateObject("Micro
objDOMSERVERSIDE.load(Requ
''''''''''''''''''''''''''
'-------------------------
''''''''''''''''''''''''''
'Geting Header values from XML object passed from the browser..
ACTION = UCase(objDOMSERVERSIDE.sel
lblNonMovingItem = UCase(objDOMSERVERSIDE.sel
''''''''''''''''''''''''''
'-------------------------
''''''''''''''''''''''''''
If ACTION = "INSERTPURCHASEORDER" Or ACTION = "MODIFYPURCHASEORDER" Or ACTION = "AUTHORISEPURCHASEORDER" Then
Set objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.UpdatePur
Set objPURCHASEORDER = NOTHING
If nERRORNO > 0 Then
strERRORMESSAGETEMP = strERRORMESSAGE
ACTION = "FETCH"
End If
ElseIf ACTION = "DELETEPURCHASEORDER" Or ACTION = "PRINTPURCHASEORDER" Or ACTION = "SHORTCLOSEPO" _
Or ACTION = "MODIFYTRANSMISSIONMODE" Then
Set objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.UpdatePur
Set objPURCHASEORDER = NOTHING
If nERRORNO > 0 Then
strERRORMESSAGETEMP = strERRORMESSAGE
If ACTION = "PRINTPURCHASEORDER" Then varFlagForPrinting = "Y"
If ACTION = "DELETEPURCHASEORDER" Then
'Clear all header and Detail fields execept and fetch the default values
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
' Fetch default values ..
Call FetchPreferredWholesalerAn
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
Else
ACTION = "FETCH"
End If
End If
ElseIf ACTION = "TRANSMITPURCHASEORDERUPDA
Set objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.TransmitP
Set objPURCHASEORDER = NOTHING
If nERRORNO > 0 Then
strERRORMESSAGETEMP = strERRORMESSAGE
ACTION = "FETCH"
End If
End If
'-------------------------
If ACTION = "FETCH" Then
' Clear the ML details before PO fetch, to avoid ML data passed to proc when 100 rows of update is called
objDOMSERVERSIDE.selectSin
' Creating instance of PO Fetch Component
SET objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.FetchPurc
SET objPURCHASEORDER = NOTHING
If nERRORNO >= 0 Then
strERRORMESSAGE = strERRORMESSAGETEMP
' If there is discount for some items and the Po status is Open then display the discount message ..
If Trim(varDISCOUNTMESSAGE) <> "" And CStr(varPOStatus) = "2" Then
strERRORMESSAGE = strERRORMESSAGE & "\n" & errObject.GetNthDescriptio
strERRORMESSAGE = Replace(strERRORMESSAGE, "%", "\n" & varDISCOUNTMESSAGE)
End If
Set objPODetails = Server.CreateObject("Micro
objPODetails.loadXML(strRE
Set objDOMSERVERSIDE = objPODetails
End If
SET objPODetails = NOTHING
End If
'-------------------------
'Begin :Interface 002:PO Transmission - Venki
If ACTION = "TRANSMITPURCHASEORDERFETC
' Creating instance of PO Fetch Component
SET objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.FetchPurc
SET objPURCHASEORDER = NOTHING
' If Fetch from Header was a Success do Detail Fetch
If nERRORNO >= 0 Then
Set objPODetails = Server.CreateObject("Micro
objPODetails.loadXML(strRE
Set objDOMSERVERSIDE = objPODetails
End If
SET objPODetails = NOTHING
End If
'End :Interface 002:PO Transmission - Venki
'-------------------------
If ACTION = "FETCHDEFAULTVALUES" Then
'Clear all header and Detail fields execept and fetch the default values
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
' Fetch default values ..
Call FetchPreferredWholesalerAn
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
End If
' --------------------------
If Trim(strERRORMESSAGE) = "" Then
strERRORMESSAGE = strERRORMESSAGETEMP
End If
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.save(Resp
Response.End
''''''''''''''''''''''''''
' FUNCTION TO GET STATUS TO BE UPDATED OR TO SET BACK THE PREVIOUS STATUS AFTER AN INSERT/UPDATE FAILS STARTS
''''''''''''''''''''''''''
Function GetOrSetStatusBasedOnMode(
Dim strRETURNVALUE
strRETURNVALUE = ""
If strTYPE = "GETPREVIOUSSTATUS" Then
SELECT CASE strACTION
CASE "INSERTPURCHASEORDER" : strRETURNVALUE = ""
CASE "MODIFYPURCHASEORDER" : strRETURNVALUE = "2"
CASE "DELETEPURCHASEORDER" : strRETURNVALUE = "2"
CASE "AUTHORISEPURCHASEORDER" : strRETURNVALUE = "2"
CASE "PRINTPURCHASEORDER" : strRETURNVALUE = "3"
CASE "SHORTCLOSEPO" : strRETURNVALUE = varStatusOfPOBeforeUpdate
CASE "TRANSMITPURCHASEORDERUPDA
CASE "MODIFYTRANSMISSIONMODE" : strRETURNVALUE = "3"
END SELECT
ElseIf strTYPE = "GETSTATUSFORUPDATE" Then
SELECT CASE strACTION
CASE "INSERTPURCHASEORDER" : strRETURNVALUE = "2"
CASE "MODIFYPURCHASEORDER" : strRETURNVALUE = "2"
CASE "DELETEPURCHASEORDER" : strRETURNVALUE = ""
CASE "AUTHORISEPURCHASEORDER" : strRETURNVALUE = "3"
CASE "PRINTPURCHASEORDER" : strRETURNVALUE = "3"
CASE "SHORTCLOSEPO" : strRETURNVALUE = 10
CASE "TRANSMITPURCHASEORDERUPDA
CASE "MODIFYTRANSMISSIONMODE" : strRETURNVALUE = "3"
END SELECT
End If
GetOrSetStatusBasedOnMode = strRETURNVALUE
End Function
''''''''''''''''''''''''''
' FUNCTION TO GET STATUS TO BE UPDATED OR TO SET BACK THE PREVIOUS STATUS AFTER AN INSERT/UPDATE FAILS ENDS
''''''''''''''''''''''''''
''''''''''''''''''''''''''
' FUNCTION TO GET THE FIRST PREFERRED WHOLESALER AND DEFAULT THE ORDER DATE/TIME & DELIVERY DATE/TIME STARTS
''''''''''''''''''''''''''
Function FetchPreferredWholesalerAn
varSupplierCode = Trim(Session("PRT016"))
If varSupplierCode <> "" Then
Dim arrParamList
Redim arrParamList(3,3)
' Input Parameter Partner_Id
arrParamList(0,0) = "@Partner_Id"
arrParamList(0,1) = "ANY_COUNT"
arrParamList(0,2) = "adParamInput"
arrParamList(0,3) = sPARTNERID
' Input Parameter Customer Vendor Code
arrParamList(1,0) = "@Customer_Vendor_Code"
arrParamList(1,1) = "ANY_NAME"
arrParamList(1,2) = "adParamInput"
arrParamList(1,3) = varSupplierCode
' Input Parameter Language
arrParamList(2,0) = "Lang"
arrParamList(2,1) = "ANY_FLAG"
arrParamList(2,2) = "adParamInput"
arrParamList(2,3) = sLANGID
Set objPURCHASEORDER = Server.CreateObject("IIIGe
Set rstPURCHASEORDERHEADER = Server.CreateObject("ADODB
Set rstPURCHASEORDERHEADER = objPURCHASEORDER.FetchGene
"IIIFetch_Wholesaler_And_D
nERRORNO, strERRORMESSAGE)
strERRORMESSAGE = ""
If CInt(nERRORNO) > 0 Then
varSupplierDescription = rstPURCHASEORDERHEADER.fie
varPOTransmissionMode = rstPURCHASEORDERHEADER.fie
varPODeliveryDate = rstPURCHASEORDERHEADER.fie
varPODeliveryTime = rstPURCHASEORDERHEADER.fie
varPODate = rstPURCHASEORDERHEADER.fie
varPOTime = rstPURCHASEORDERHEADER.fie
varPOTransmissionTime = varPOTime
rstPURCHASEORDERHEADER.Clo
Set rstPURCHASEORDERHEADER = Nothing
End if
Erase arrParamList
Set objPURCHASEORDER = Nothing
End If
End Function
''''''''''''''''''''''''''
' FUNCTION TO GET THE FIRST PREFERRED WHOLESALER AND DEFAULT THE ORDER DATE/TIME & DELIVERY DATE/TIME ENDS
''''''''''''''''''''''''''
%>
===validate.asp===
<!-- Version No : TRIAMUNIII1.0S_019825 -->
<%'@ language="VBScript" %>
<%
Response.Buffer = true
Response.Expires = -1
'Response.CacheControl = "private"
Response.AddHeader "cache-control", "private"
'Response.AddHeader "pragma","no-cache"
Public Const SUCCESS = 99999
Public Const NATIVE_SQL_ERROR = 88888
Public Const IIISQL_VALIDATION_ERROR = 77777
Public Const IIIMTS_VALIDATION_ERROR = 66666
Public Const nDELETED_ITEM_COLOUR = "Red"
Public Const nCHAINED_ITEM_COLOUR = "#013399"
Public Const nOUTOFSALE_ITEM_COLOUR = "Red"
Public Const nDEFAULT_ITEM_COLOUR = "Black"
Public Const nDELETED_ITEM_COLOUR_GRID = 255
Public Const nCHAINED_ITEM_COLOUR_GRID = 10040065
Public Const nOUTOFSALE_ITEM_COLOUR_GRI
Public Const nDEFAULT_ITEM_COLOUR_GRID = 0
Public Const MAXLENGTHFORPATIENTID = 100
Public Const MAXLENGTHFORQUANTITY = 5
Public Const MAXLENGTHVALUEFORQUANTITY = 99999
Public Const MAXLENGTHVALUEFORPRICE = 9999999
Public Const MAXLENGTHVALUEFORAMOUNT = 999989900001
Public Const nINACTIVE_PATIENT_COLOUR = "Red"
Public Const nACTIVE_PATIENT_COLOUR = "Black"
Public Const nINACTIVE_PATIENT_COLOUR_G
Public Const nACTIVE_PATIENT_COLOUR_GRI
Public Const NUMBEROFDECIMALPLACES = 2
Public Const BTNENABLEDCOLOR = "#003399"
Public Const BTNDISABLEDCOLOR = "#666666"
%>
<!-- #include file="qsort.asp" -->
<%
DIm Path, serverProcPath, strSecureStringHTTPS
Path = Request.ServerVariables("s
dim c
c = Instr(2,Path,"/")
Path = Mid(Path,1,c)
'Modified for SSL Implmentation
strSecureStringHTTPS = Request.serverVariables("H
If strSecureStringHTTPS = "" Or UCase(strSecureStringHTTPS
strSecureStringHTTPS = "http://"
Else
strSecureStringHTTPS = "https://"
End If
serverProcPath = strSecureStringHTTPS + Request.ServerVariables("s
'serverProcPath = server.HTMLEncode(serverPr
if Session("Language") = "" then
Session.Abandon
Response.AddHeader "Refresh","0;URL="+Path+"G
Response.End
end if
Function Redirect( NewURL )
If Not IsEmpty( NewURL & "" ) Then
Dim QuestionMark
QuestionMark = Instr( NewURL, "?" )
If QuestionMark = 0 Then
Response.Redirect NewURL & "?" & NoCacheURL()
Response.End
Else
Response.Redirect NEWURL & "&" & NoCacheURL()
Response.End
End If
End If
End Function
Function NoCacheURL()
On Error Resume Next
'Randomize
NoCacheURL = ".rnd=" & Server.URLEncode(now())
End Function
'Added by : Rajesh P.S
'Added on : 18/May/2001
'Purpose : Function to use along with timestamp varaible. Call this function on the timestamp fetched from the
'backend before storing it in the HTML/server side variant.
Function ConvertBinaryToString(bInp
Dim strInput, i
For i = 1 To LenB(bInput)
strInput = strInput & Right("00" & Hex(AscB(MidB(bInput, i, 1))), 2)
Next
ConvertBinaryToString = strInput
End Function
' Added by : Murali P B
' Added on : 13.01.2002
' Purpose : Function to Format Time received using Request.Form from TimePicker ActiveX Control.
' Value Returned will be in HH:MM 24 Hour Format
Function GetTimeInRequiredFormat(st
strTimeValue = Trim(strTimeValue)
Dim varTempPM
If Mid(strTimeValue, 2, 1) = ":" Then strTimeValue = "0" & strTimeValue
If Mid(strTimeValue, 5, 1) = ":" Then strTimeValue = Mid(strTimeValue,1,3) & "0" & Mid(strTimeValue,4,Len(str
If UCase(Mid(strTimeValue, 10, 2)) = "PM" Then
varTempPM = CDbl(Mid(strTimeValue,1,2)
If varTempPM <> 12 Then varTempPM = CDbl(Mid(strTimeValue,1,2)
strTimeValue = CStr(varTempPM) & Mid(strTimeValue,3,3)
End If
strTimeValue = Mid(strTimeValue,1,5)
GetTimeInRequiredFormat = strTimeValue
End Function
'Added by Sandilyan R
'Added on 21 Feb 2002
'Purpose to Sort the given QCD array.
Function getQCDSortOrder(arrQCDSort
Dim rows,cols,i
rows = UBOUND(arrQCDSort,1)
cols = UBOUND(arrQCDSort,2)
Dim arrNewQCDSort,sortString
arrNewQCDSort = arrQCDSort
QSort2 arrNewQCDSort, 1, 0, rows ' sort the entire array based on column 1
sortString = ""
For i = 0 to rows - 1
sortString = sortString & arrNewQCDSort(i,0) & ","
Next
sortString = sortString & arrNewQCDSort(rows,0)
getQCDSortOrder = sortString
End Function
'Added by Sandilyan R
'Added on 14 Mar 02
'Purpose get Permissions for Action buttons
Function GetAccessPermission(strSCR
Dim ScreenAccess,bitFETCH,bitC
Dim flagEnabled,flagDisabled
flagEnabled = "ENABLED"
if FromScreenSO = "SALESORDER" then
flagDisabled = "DISABLED STYLE='BACKGROUND-COLOR: #666666'"
else
flagDisabled = "DISABLED"
end if
bitFETCH = 1
bitCREATE = 2
bitMODIFY = 3
bitAUTHORIZE = 4
bitDELETE = 5
bitSUBMIT = 6
bitREVERSE = 7
bitANY = -1
strACTION = UCASE(strACTION)
ScreenAccess = SESSION(strSCREENCODE)
IF ScreenAccess = "" THEN
GetAccessPermission = flagDisabled
EXIT FUNCTION
END IF
IF ( strACTION <> "ANY" ) THEN
ScreenAccess = SESSION(strSCREENCODE)
IF CINT(MID(ScreenAccess,Eval
GetAccessPermission = flagEnabled
ELSE
GetAccessPermission = flagDisabled
END IF
END IF
IF ( strACTION = "ANY" ) THEN
IF ( MID(ScreenAccess,1,5) AND "11111" ) > 0 THEN
GetAccessPermission = flagEnabled
ELSEIF ( MID(ScreenAccess,6,5) AND "11111" ) > 0 THEN
GetAccessPermission = flagEnabled
ELSEIF ( MID(ScreenAccess,11,5) AND "11111" ) > 0 THEN
GetAccessPermission = flagEnabled
ELSE
GetAccessPermission = flagDisabled
END IF
END IF
End Function
' Added by : Murali P B
' Added on : 21.01.2002
' Purpose : Function to get the Current Date and Time
Public Function GetServerDateAndTime(strDa
If UCase(strDateOrTime) = "DATE" Then
' Get Current Date in 104 format
If Trim(strVariable) = "" Then
strVariable = Day(Now()) & "." & Month(Now()) & "." & Year(Now())
' Setting Date in Right Format
If Mid(strVariable, 2, 1) = "." Then strVariable = "0" & strVariable
If Mid(strVariable, 5, 1) = "." Then strVariable = Mid(strVariable,1,3) & "0" & Mid(strVariable,4,Len(strV
End If
ElseIf UCase(strDateOrTime) = "TIME" Then
' Get Current Date in 108 format
If Trim(strVariable) = "" Then
strVariable = Time()
strVariable = Left(strVariable, 5)
End If
End If
End Function
' Added by : Venkataramanan M
' Added on : 04.04.2002
' Purpose : Function to decode encoded +
Public Function decodePlus(strValue)
decodePlus = replace(strValue,"$*$","+"
End Function
' Added by : Venkataramanan M
' Added on : 13.08.2002
' Purpose : Function to set Item Description colour in Table.js tables
Public function SetItemColour(TypeOfTable,
if ( TypeOfTable = "HEADERCONTROL" or TypeOfTable = "REGULARTABLE" or TypeOfTable = "XMLTABLE" ) then
if ( TypeOfItem = "DELETEDITEM" ) then
nColourToSet = nDELETED_ITEM_COLOUR
elseif ( TypeOfItem = "CHAINEDITEM" ) then
nColourToSet = nCHAINED_ITEM_COLOUR
elseif ( TypeOfItem = "OUTOFSALEITEM" ) then
nColourToSet = nOUTOFSALE_ITEM_COLOUR
else
nColourToSet = nDEFAULT_ITEM_COLOUR
end if
elseif ( TypeOfTable = "GRID" ) then
if ( TypeOfItem = "DELETEDITEM" ) then
nColourToSet = nDELETED_ITEM_COLOUR_GRID
elseif ( TypeOfItem = "CHAINEDITEM" ) then
nColourToSet = nCHAINED_ITEM_COLOUR_GRID
elseif ( TypeOfItem = "OUTOFSALEITEM" ) then
nColourToSet = nOUTOFSALE_ITEM_COLOUR_GRI
else
nColourToSet = nDEFAULT_ITEM_COLOUR_GRID
end if
end if
Response.Write "STYLE='COLOR:" & nColourToSet & "'"
end function
' Added by : Kiran Babu.D
' Added on : 29.08.2003
' Purpose : Function to get Item Description colour
Public Function IIIGetItemDescriptionColou
If (NOT IsNull(Trim(Deleted_Item_F
Item_Flag = "DELETEDITEM"
ElseIf (NOT IsNull(Trim(Chained_Item_F
Item_Flag = "CHAINEDITEM"
ElseIf (NOT IsNull(Trim(OutOfSale_Item
Item_Flag = "OUTOFSALEITEM"
Else
Item_Flag = ""
End If
IIIGetItemDescriptionColou
End Function
' Added by : Chandrasekar S
' Added on : 01.07.2003
' Purpose : Function to Round a value to it uppervalue (e.g 1.125 to 1.13). This behaviour is same as javascript round
Public Function IIIRoundUp(dInputValue)
Dim arrValue
Dim dAfterDecimalValue
' 3.6 + 23.65 + .55 + 0.1-27.9 - In VB this calc. gives an exponential no.
' Exponentials were not handled in this function
If InStr(CStr(dInputValue), "E") >= 1 Then
dInputValue = Round(dInputValue, 2)
End If
If InStr(dInputValue, ".") = 0 Then
IIIRoundUp = dInputValue
Exit Function
End If
arrValue = Split(dInputValue, ".")
If CStr(arrValue(1)) = "" And Len(CStr(arrValue(1))) = 2 Then
IIIRoundUp = Round(CDbl(dInputValue), 2)
Exit Function
End If
If Len(CStr(arrValue(1))) >= 3 Then
dAfterDecimalValue = Mid(CStr(arrValue(1)), 1, 3)
If InStrRev(dAfterDecimalValu
dAfterDecimalValue = CStr(dAfterDecimalValue) + CStr(5)
dInputValue = CStr(arrValue(0)) + "." + CStr(dAfterDecimalValue)
End If
End If
IIIRoundUp = Round(CDbl(dInputValue), 2)
End Function
%>
<SCRIPT language="JavaScript" >
var encryptionsysparam = '<%=Session("ASP017")%>';
var Encryptionpassword = '<%=Session("Encryptionpas
var commonjsUserID = '<%=Session("UserID")%>';
function InvokeServerProc(strMethod
{
//This is to trigger server side method without reloading the page.
if ( typeof(strParameters) == "undefined" )
var strParameters = "";
var QueryString = "";
QueryString = QueryString + "<QUERYSTRING>";
QueryString = QueryString + "<METHODNAME></METHODNAME>
QueryString = QueryString + "<PARAMETERS></PARAMETERS>
//Changes Added By Enian For CR BUG ID TRIAMUNIII1.0S_014098
QueryString = QueryString + "<STOREDPROCEDURE></STORED
//Changes Added By Enian For CR BUG ID TRIAMUNIII1.0S_014098
QueryString = QueryString + "</QUERYSTRING>";
var objXMLDoc = new ActiveXObject("Microsoft.X
var node=null;
objXMLDoc.loadXML(QueryStr
node = objXMLDoc.selectSingleNode
node.text = strMethodName;
node = objXMLDoc.selectSingleNode
//Changes Added By Enian For CR BUG ID TRIAMUNIII1.0S_014098
if ( typeof(strParameters) == 'object' )
node.text = strParameters.xml;
else
node.text = strParameters;
var strSP ='';
if ( typeof(strStoredProcedures
strSP = '';
else
strSP = strStoredProcedures;
node = objXMLDoc.selectSingleNode
node.text = strSP;
//Changes Added By Enian For CR BUG ID TRIAMUNIII1.0S_014098
if (strMethodName == "")
{
alert("Please provide MethodName");
return null;
}
var xmlhttp = new ActiveXObject("Microsoft.X
var serverPath = "<%=serverProcPath%>"
xmlhttp.Open("POST",server
xmlhttp.Send(objXMLDoc);
if ( xmlhttp.statusText == "OK" )
{
objResultXML = xmlhttp.responseXML;
if (objResultXML.xml == "" )
{
return null;
}
else
{
if ( typeof(strStoredProcedures
return objResultXML;
else
return objResultXML.xml;
}
}
else
{
alert(xmlhttp.statusText);
return null;
}
}
//To trap F5 function and mouse down key - sans 02.Mar.02
document.attachEvent("onke
function fun_keytrap()
{
var windowname;
if (window.event.keyCode == 116)
{
event.keyCode = ""
window.event.returnValue=f
}
// To trap Esc Key FIx for TRIAMUNIII1.0S_010817
else if(window.event.keyCode == 27)
{
window.event.returnValue=f
}
if (window.event.keyCode == 87) //Ctrl + W (Logoff)
{
if (window.event.ctrlKey)
{
windowname = parent.window.name;
if( windowname.toUpperCase() == "FRMPAGE")
{
if(window.confirm(getError
{
window.event.returnValue = true;
parent.window.parent.windo
}
else
{
window.event.keyCode = "";
window.event.returnValue = false;
}
return;
}
if( windowname.toUpperCase() == "LOGIN")
{
if(window.confirm(getError
{
window.event.returnValue = true;
parent.window.close();
}
else
{
window.event.keyCode = "";
window.event.returnValue = false;
}
return;
}
}
}
}
//function to get the patient hdr
//added by sans on 12/june/2002
function getPatientHdr(strParameter
{
var Parameter = strParameters.split("@@")
var intPatientId = Parameter[0]
// Mandatory check for the Patient Header
if (Trim(intPatientId) == '') return false;
if (parseFloat(intPatientId.l
{
alert(getErrorMessage('16'
return false;
}
var regExpr;
regExpr = /[\\?"<>|`~!@#$&]/ig;
if (regExpr.test(intPatientId
{
alert(getErrorMessage('263
return false;
}
var ArgumentCount = intPatientId.split(",")
var strInput = intPatientId + "@@" + ArgumentCount.length
var resultString = InvokeServerProc("FetchPat
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
//parse the string to get the data
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectNodes("//O
var len = nodes.length;
var errno = nodes[len - 2].text;
var errmsg = nodes[len - 1].text;
if ( len > 2 )
{
var PasswordReturn;
//For patient pwd check
if ( (parseInt(errno) > 0 ) && (nodes[4].text == "N" ) )
{
var strPatientId = intPatientId
var varParameters = new Array()
varParameters[0] = nodes[2].text
varParameters[1] = nodes[3].text
varParameters[2] = true
varParameters[4] = nodes[5].text
PasswordReturn = window.showModalDialog("Pa
if (!PasswordReturn)
{
//clear fields
nodes[0].text = ""
nodes[2].text = ""
nodes[3].text = ""
nodes[1].text = ""
nodes[4].text = ""
}
}
}
else if ((len = 2) && (parseInt(errno) == -100))
{
if(typeof(windowSizeProper
{
var windowSizeProperties = 'menubar=no,location=no,to
window.open(Parameter[1],"
}
else
launchhelp1(Parameter[1]);
return false
}
return nodes;
}
//function to get the error msg from file
//added by sans on 12/june/2002
//Added for the defect TRIAMUNIII1.0S_010692 -- Sathish
function getErrorMessage(strParamet
{
var resultString = InvokeServerProc("GetError
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
//parse the string to get the data
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectSingleNode
return nodes.text
}
//function to get the PO Number for the Given sales order
//added by sankar on 10/july/2002
//Added for the defect TRIAMUNIII1.0S_009559
function getPONumber(strSONumber)
{
var resultString = InvokeServerProc("GetPONum
var PONum
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
//parse the string to get the data
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectNodes("//O
var len = nodes.length;
var errno = nodes[len - 2].text;
var errmsg = nodes[len - 1].text;
if (parseInt(errno) > 0)
PONum=nodes[0].text
else
PONum=""
return PONum
}
function getStandardPosology(strPos
{
var resultString = InvokeServerProc("GetStand
var PosologyText
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
//parse the string to get the data
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectNodes("//O
var len = nodes.length;
var errno = nodes[len - 2].text;
var errmsg = nodes[len - 1].text;
if (parseInt(errno) > 0)
PosologyText=nodes[0].text
else
PosologyText=""
return PosologyText
}
function getItemDetails(strItemInpu
{
var resultString = InvokeServerProc("GetItemD
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectNodes("//O
return nodes
}
function checkMarquee()
{
var objMarqueeList = null;
if ( event.type == "unload" )
{
//code Change for TRIAMUNIII1.0S_012467
try
{
if ( typeof(window.opener) == "object" )
objMarqueeList = window.opener.document.get
}
catch(objException)
{
}
//End of Code Change for TRIAMUNIII1.0S_012467
}
else
{
//code Change for TRIAMUNIII1.0S_012467
try
{
if ( typeof(window.opener) == "object" )
{
var objMarqueeList = window.opener.document.get
var cntt = 0
for (cntt = 0; cntt <= objMarqueeList.length - 1; cntt++)
{
eval(objMarqueeList.item(c
}
if (objMarqueeList.length > 0 )
window.attachEvent("onunlo
}
objMarqueeList = window.document.getElement
}
catch(objException)
{
}
//End of code Change for TRIAMUNIII1.0S_012467
}
if (objMarqueeList == null) return;
for (cntt = 0; cntt <= objMarqueeList.length - 1; cntt++)
{
eval(objMarqueeList.item(c
}
}
window.attachEvent("onload
var timeinterval = "";
function starttimer()
{
Cookdel(0)
timeinterval = window.setInterval("startt
}
</SCRIPT>
===session_manager.asp===
<%
dim strSMGRProcedureName, arrSMGRParamList, Triamun_Session_Filled, SMGRSessionId, nSMGRERRORNO, strSMGRERRORMESSAGE
dim objSMGRDICTIONARY,rstSMGRS
Triamun_Session_Filled = 0
Function ReadSessionKey()
ReadSessionKey = Request.Cookies("triamunCo
End Function
'Sub WriteSessionKey(sSessionKe
' Response.Cookies("triamunC
' Response.Cookies("triamunC
'End Sub
'IIICreateSession()
public Function Triamun_Session(SessionPar
' If the session value requested has already been fetched in this page then give it else fetch all the values
' and cache. return the requested value
'response.write Triamun_Session_Filled
'response.end
If Triamun_Session_Filled <> 0 then
Triamun_Session = objSMGRDICTIONARY.Item(Ses
Exit Function
End If
Set objSMGRDICTIONARY = Server.CreateObject("Scrip
Set ObjSMGRFetchGeneric = Server.CreateObject("IIIGe
Set rstSMGRSESSION = Server.CreateObject("ADODB
varSPName = "IIIFetch_user_Session"
ReDim varSMGRPARAMINPUT(0, 3)
SMGRSessionId = ReadSessionKey()
If Trim(SMGRSessionId) = "" Then
Triamun_Session = ""
Exit Function
End If
varSMGRPARAMINPUT(0, 0) = "@Session_Id"
varSMGRPARAMINPUT(0, 1) = "ANY_ERRMSG"
varSMGRPARAMINPUT(0, 2) = "adParamInput"
varSMGRPARAMINPUT(0, 3) = SMGRSessionId
' sASPCONNECTION = ""
nSMGRERRORNO = 0
strSMGRERRORMESSAGE = ""
Set rstSMGRSESSION = ObjSMGRFetchGeneric.FetchG
If nSMGRERRORNO > 0 Then
rstSMGRSESSION.MoveFirst
While Not rstSMGRSESSION.EOF
'varSMGRSessionId = rstSMGRSESSION("Session_Id
'varPARTNERID = rstSMGRSESSION("Partner_Id
'varPARTNERNAME = rstSMGRSESSION("Partner_Na
'varPARTNERADMINNAME = rstSMGRSESSION("Partner_Ad
'varPARTNERTYPE = rstSMGRSESSION("Partner_Ty
'varPARTNERLICENCE = rstSMGRSESSION("Partner_Li
'varPARTNERKANTON = rstSMGRSESSION("Partner_Ka
'varSOFTWARELICENCE = rstSMGRSESSION("Software_L
'varSHOWGALDATALERT = rstSMGRSESSION("Show_Galda
'varLOGINLANGUAGE = rstSMGRSESSION("Login_Lang
'varPARTNERDATABASE = rstSMGRSESSION("Partner_Da
Call objSMGRDICTIONARY.Add("nPa
Call objSMGRDICTIONARY.Add("str
Call objSMGRDICTIONARY.Add("str
Call objSMGRDICTIONARY.Add("str
Call objSMGRDICTIONARY.Add("Lic
Call objSMGRDICTIONARY.Add("str
Call objSMGRDICTIONARY.Add("str
'Call objSMGRDICTIONARY.Add("nPa
Call objSMGRDICTIONARY.Add("Lan
Call objSMGRDICTIONARY.Add("Tra
Call objSMGRDICTIONARY.Add("Enc
Call objSMGRDICTIONARY.Add("Use
Call objSMGRDICTIONARY.Add("str
rstSMGRSESSION.MoveNext
Wend
End if
Set ObjSMGRFetchGeneric = Nothing
Set rstSMGRSESSION = Nothing
'If objSMGRDICTIONARY.Item("La
' Call objSMGRDICTIONARY.Add("FEE
'ElseIf objSMGRDICTIONARY.Item("La
' Call objSMGRDICTIONARY.Add("FEE
'ElseIf objSMGRDICTIONARY.Item("La
' Call objSMGRDICTIONARY.Add("FEE
'End If
Triamun_Session_Filled = "1"
If objSMGRDICTIONARY.Exists(S
Triamun_Session = objSMGRDICTIONARY.Item(Ses
Else
Triamun_Session = ""
End If
Triamun_Session = objSMGRDICTIONARY.Item(Ses
End Function
%>
Kindly explain me in detail as I am new to asp...
Regards
and Thanks for help in anticipation
Uma
To access multiple servers, session value has no scope. Hence, I am using dictionary object to store session values to maintain sessions. But as the dictionary object loses scope on click of submit to the next page, how do i refer the dictionary object in subsequent pages ?? or how do I maintain session value stored in dictionary object across multiple servers??. please give me solutions
===purchaseorder3.asp====
<!-- #include file="../include/validate.
<!-- #include file="../include/lblObject
<!-- #include file="../SessionManager.in
<%
If UCase(Triamun_Session("Lan
<!-- #include file="../include/english/P
<!-- #include file="../include/english/Q
<% ElseIf UCase(Triamun_Session("Lan
<!-- #include file="../include/german/Pu
<!-- #include file="../include/german/Qc
<% ElseIf UCase(Triamun_Session("Lan
<!-- #include file="../include/french/Pu
<!-- #include file="../include/french/Qc
<% End If
'----- block to avoid caching
Response.Buffer = true
Response.AddHeader"pragma"
Response.Expires=0
Response.Addheader"expires
' Declaration of Variables to Hold the Screen Labels
Dim lblScreenTitle, lblPurchaseOrderNumber, lblSupplier, lblSupplierCode, lblStatus, lblOrderDate, lblOrderTime
Dim lblTransmissionTime, lblDeliveryDate, lblDeliveryTime, lblModeOfPO, lblPaymentTerm, lblTransmissionDate
Dim lblModeOfTransmission, lblTotalValue, lblSalesRep, lblRemark, lblTotalNumberOfLineItems,
Dim lblSelectTitle, lblItemType, lblItemDescription, lblStockQuantity, lblMinStockQuantity, lblMaxStockQuantity
Dim lblOpenOrderQuantity, lblOrderQuantity, lblBonus, lblTotal, lblRateInCHF, lblValueOfLine
Dim lblSpecialOfferIndicator, lblCustomerIndicator, lblControlled, lblControlledTitle, lblNonMovingItem
Dim lblNonMovingItemTitle, lblDelete, lblDeleteTitle, lblSelectAllForControlled,
Dim lblCreatedBy, lblModifiedBy, lblOn, lblSearch, lblSearchPurchaseOrder, lblSearchSupplier, lblStockQuantityTT
Dim lblMinStockQuantityTT, lblMaxStockQuantityTT, lblOpenOrderQuantityTT, lblSpecialOfferIndicatorTT
Dim lblDeliverySlip, lblRef, lblGo
' Declaration of Variables to Hold the Labels on Buttons, Warning Messages
Dim lblFetch, lblCreate, lblModify, lblAuthorise, lblAccept, lblTransmit, lblReset, lblChangeSupplier
Dim lblPrint, lblRePrint, lblClose, lblClear, lblShortClose, lblTransmissionLog, lblPartnerDefinedData
Dim lblStatistics, lblPurchaseOrders, lblPurchaseOrder, lblDuplicateItemsTitle, lblDuplicateItemsWarning
Dim lblAddToExistingLine, lblDeleteTheDuplicateLine,
' Declaration of Variables to get Session Values
Dim varPartnerName, varUserName, sPARTNERID, sCON, sLANGID, errObject, errFileName, varPartnerType
Dim varDaysForNonMovingItem, ACTION, varFromScreen, varPONumber, varSalesOrderNo, varStatusOfPOBeforeUpdate
Dim varPOType, varPOAmount, varPrintFlag, varRecordCreationLabel
Dim varSupplierCode, varSupplierDescription, varPOTransmissionMode, varPODeliveryDate, varPODeliveryTime
Dim varPODate, varPOTime, varPOTransmissionTime
' CCH Help Variables
Dim CCHQueryForSupplier, varQCDForCCHSupplierStatus
' Get Session Values
Set errObject = Application("ErrObject")
errFileName = Session("FEErrMsgFile")
sPARTNERID = Triamun_Session("nPartnerI
varPartnerName = Triamun_Session("strPartne
varUserName = Triamun_Session("strUserNa
sCON = Application("strODBC")
sLANGID = Triamun_Session("Language"
varDaysForNonMovingItem = Session("PRT010") ' No of Days for an Item to become Non-Moving
varPartnerType = Trim(Triamun_Session("strP
If varDaysForNonMovingItem = "" Then varDaysForNonMovingItem = 0
' Declaration of Array variables for PO Detail
Dim arrMultiline
' Query String Values
ACTION = Trim(Request.QueryString("
varPONumber = Trim(Request("txtPONumber"
varFromScreen = Trim(Request("mFromScreen"
varSalesOrderNo = Trim(Request("mSalesOrderN
varStatusOfPOBeforeUpdate = Trim(Request.QueryString("
' Set Default Values for Screen if they are empty
If varPOType = "" Then varPOType = "M" End If
If varPOAmount = "" Then varPOAmount = "0.00" End If
If varPrintFlag = "" Then varPrintFlag = "N" End If
' --------------------------
' Creating the Query for CCH for Supplier and encoding it
' --------------------------
CCHQueryForSupplier = "SELECT CVM.Customer_Vendor_Name AS 'CVM.Customer_Vendor_Name'
CCHQueryForSupplier = CCHQueryForSupplier & " CVM.Customer_Vendor_Code AS 'CVM.Customer_Vendor_Code'
CCHQueryForSupplier = CCHQueryForSupplier & " ISNULL(PA.Electronic_Flag,
CCHQueryForSupplier = CCHQueryForSupplier & " CVM.Status AS 'CVM.Status' "
CCHQueryForSupplier = CCHQueryForSupplier & " FROM IIICustomer_Vendor_Master CVM (NOLOCK), "
CCHQueryForSupplier = CCHQueryForSupplier & " IIIPurchase_Agreements PA (NOLOCK)"
CCHQueryForSupplier = CCHQueryForSupplier & " WHERE CVM.Partner_Id *= PA.Partner_Id "
CCHQueryForSupplier = CCHQueryForSupplier & " AND CVM.Customer_Vendor_Type != 'C' "
CCHQueryForSupplier = CCHQueryForSupplier & " AND CVM.Customer_Vendor_Type != 'P' "
CCHQueryForSupplier = CCHQueryForSupplier & " AND CVM.Customer_Vendor_Code *= PA.Wholesaler_Code "
CCHQueryForSupplier = CCHQueryForSupplier & " AND CVM.Partner_Id = " & sPARTNERID
CCHQueryForSupplier = Server.URLEncode(CCHQueryF
' Loop for populating the Supplier status in a QCD
For cntr = 0 to UBound(arrCustVendStatus, 1)
varQCDForCCHSupplierStatus
varComboForCCHSupplierStat
Next
varQCDForCCHSupplierStatus
varComboForCCHSupplierStat
' --------------------------
' For diplaying Record Created/Modified By ..
varRecordCreationLabel = lblCreatedBy & " <" & "" & "> " & lblOn & " <" & "" & ">, " & lblModifiedBy & " <" & "" & "> " & lblOn & " <" & "" & ">"
''''''''''''''''''''''''''
' Fetch the Description for the First Preferred Wholesaler defined if any in the System Parameter
' and the Transmission Mode / Delivery Date & Time for the Wholesaler if any in Purchase Agreements
''''''''''''''''''''''''''
If ACTION = "" Then Call FetchPreferredWholesalerAn
''''''''''''''''''''''''''
' FUNCTION TO GET THE FIRST PREFERRED WHOLESALER AND DEFAULT THE ORDER DATE/TIME & DELIVERY DATE/TIME STARTS
''''''''''''''''''''''''''
Function FetchPreferredWholesalerAn
varSupplierCode = Trim(Session("PRT016"))
If varSupplierCode <> "" Then
Dim arrParamList
Redim arrParamList(3,3)
' Input Parameter Partner_Id
arrParamList(0,0) = "@Partner_Id"
arrParamList(0,1) = "ANY_COUNT"
arrParamList(0,2) = "adParamInput"
arrParamList(0,3) = sPARTNERID
' Input Parameter Customer Vendor Code
arrParamList(1,0) = "@Customer_Vendor_Code"
arrParamList(1,1) = "ANY_NAME"
arrParamList(1,2) = "adParamInput"
arrParamList(1,3) = varSupplierCode
' Input Parameter Language
arrParamList(2,0) = "Lang"
arrParamList(2,1) = "ANY_FLAG"
arrParamList(2,2) = "adParamInput"
arrParamList(2,3) = sLANGID
Set objPURCHASEORDER = Server.CreateObject("IIIGe
Set rstPURCHASEORDERHEADER = Server.CreateObject("ADODB
Set rstPURCHASEORDERHEADER = objPURCHASEORDER.FetchGene
"IIIFetch_Wholesaler_And_D
nERRORNO, strERRORMESSAGE)
strERRORMESSAGE = ""
If CInt(nERRORNO) > 0 Then
varSupplierDescription = rstPURCHASEORDERHEADER.fie
varPOTransmissionMode = rstPURCHASEORDERHEADER.fie
varPODeliveryDate = rstPURCHASEORDERHEADER.fie
varPODeliveryTime = rstPURCHASEORDERHEADER.fie
varPODate = rstPURCHASEORDERHEADER.fie
varPOTime = rstPURCHASEORDERHEADER.fie
varPOTransmissionTime = varPOTime
rstPURCHASEORDERHEADER.Clo
Set rstPURCHASEORDERHEADER = Nothing
End if
Erase arrParamList
Set objPURCHASEORDER = Nothing
End If
End Function
''''''''''''''''''''''''''
' FUNCTION TO GET THE FIRST PREFERRED WHOLESALER AND DEFAULT THE ORDER DATE/TIME & DELIVERY DATE/TIME ENDS
''''''''''''''''''''''''''
''''''''''''''''''''''''''
' To Get the Language Code for CCH for BASLER TAXE Items
''''''''''''''''''''''''''
Function GetDEFAULTLANGUAGECODE(str
SELECT CASE UCase(strLangId)
CASE "E" : LANGUAGECODE = "0"
CASE "G" : LANGUAGECODE = "1"
CASE "F" : LANGUAGECODE = "2"
CASE "F" : LANGUAGECODE = "3"
END SELECT
GetDEFAULTLANGUAGECODE = LANGUAGECODE
End Function
''''''''''''''''''''''''''
''''''''''''''''''''''''''
' FUNCTION TO GET THE QCD DESCRIPTION FOR THE QCD CODE AND THE QCD NAME PASSED STARTS
''''''''''''''''''''''''''
Function GetQCDDESCRIPTIONFORCODE(s
Dim cntr, arrTEMP
arrTEMP = Eval(strQCDNAME)
For cntr = 0 To UBound(arrTEMP, 1)
If strCODE = arrTEMP(cntr, 0) Then
GetQCDDESCRIPTIONFORCODE = arrTEMP(cntr, 1)
Exit Function
End If
Next
GetQCDDESCRIPTIONFORCODE = ""
End Function
''''''''''''''''''''''''''
' FUNCTION TO GET THE QCD DESCRIPTION FOR THE QCD CODE AND THE QCD NAME PASSED ENDS
''''''''''''''''''''''''''
%>
<HTML>
<HEAD>
<!-- Include JS Files -->
<LINK HREF="../include/galmenu3.
<SCRIPT LANGUAGE="JavaScript" SRC="../INCLUDE/GALMENU.JS
<SCRIPT LANGUAGE="JavaScript" SRC="../INCLUDE/COMMON.JS"
<!-- <SCRIPT LANGUAGE="JavaScript" SRC="../INCLUDE/DROPDOWN.J
<SCRIPT LANGUAGE="JavaScript" SRC="../INCLUDE/INTERFACES
<SCRIPT LANGUAGE="javascript" SRC="../INCLUDE/MULTILINEG
<STYLE type="text/css">
#divPurchaseOrder
{
BEHAVIOR: url("../include/FPGRID.htc
}
</STYLE>
<!-- Client Side Script -->
<SCRIPT LANGUAGE="javascript">
var cntOUTOFSALEITEM = 0; //Counter for Out of sale Item ; A Global variable set to check On_Authorise() method is called
var objPODetailsXMLDOM = null;
var objPURCHASEORDER = null;
var strACTION = "";
var strPOModeArray = ""
var strItemHelpEnterRow = 0
// --------- Get all PO types in a string for later manupulation ---------/
<% For nCtr=0 to Ubound(POMode)-1 %>
strPOModeArray = strPOModeArray + "<%= POMode(nCtr,0) &"~~"& POMode(nCtr,1) &"~~~~"%>"
<% Next %>
// --------------------- Display the screen Title -----------------------/
window.parent.document.tit
<%if varFromScreen = "" then%>
parent.frmMenu.writeit("<%
<%end if%>
/*************************
CODE FOR ITEM DROPDOWN STARTS
**************************
/*
var List1 = new Array()
var List1_FixedLength = 50
var foc1 = 0
var LocalFileFlag1 = true
var LocalFileFlag2 = false
var LocalFileName = "c:\\iii\\" + "<%=sPARTNERID%>" + "\\" + "<%=sLANGID%>" + "_FUI.txt"
var strItemHelpEnterRow = 0
/*************************
Function to know cursor current location for Dropdown
**************************
/*function On_SetFocusValueForItemInM
{
var strItemType = document.frmPurchaseOrder.
if (strItemType == "I")
{
DDQfoc(intRowNumber, chrItemOrPatient, fldItemDescription, fldListBox);
foc2 = intRowNumber;
return;
}
}*/
/*************************
Function to fire when an Item is chosen from the Dropdown list
**************************
/*function On_SelectionOfAnItemInFUID
{
docfrm = document.frmPurchaseOrder
if(intIndexChosen == 1)
{
if(!LocalFileFlag1) return
var fldListBox = docfrm.SearchList // Reference to the Listbox Object showing Dropdown
var fldItemDescription = docfrm.mItemDescription[fo
if (fldListBox.value == "vv")
{
loadListOnEOL(fldItemDescr
fldItemDescription.focus()
return
}
else if(fldListBox.value == "^^")
{
loadListOnBOL(fldItemDescr
fldItemDescription.focus()
return
}
fldItemDescription.value = fldListBox.options[fldList
var strListValue = fldListBox.options[fldList
var arrDropDown = strListValue.split('~')
document.frmPurchaseOrder.
if ( document.frmPurchaseOrder.
GetItemDetailsOnHelpEnter(
fldItemDescription.focus()
}
}*/
/*************************
Loads the Local File on Body Load
**************************
/*function On_LoadFUIFileOnBodyLoad()
{
DDFileload(LocalFileName, "document.frmPurchaseOrder
}*/
/*************************
CODE FOR ITEM DROPDOWN ENDS
**************************
var strColumnPassed = ""
var strFocusIsOn = ""
var intPOStatus = ""
var strFromScreen = "<%=varFromScreen%>"
var langid = "<%=sLANGID%>"
var intCurrentLine = ""
var winReport = ""
/*************************
function to set the focus value to validate on submit
**************************
function On_SetFocusValue(strValue,
{
strFocusIsOn = strValue
intCurrentLine = intRowNumber
}
/*************************
Function to launch CCH For PO Number
**************************
function HelpForPONumber()
{
var strFileName = "help.asp?HELP_ID=59&Filte
launchhelp1(strFileName);
}
/*************************
Function to launch CCH for Supplier
**************************
function HelpForSupplier()
{
var strFileName = "help.asp?From=document.fr
launchhelp1(strFileName);
}
/*************************
Funtion to launch different CCH
**************************
function On_LaunchHelpLocal(strFile
{
var winHelp
winHelp = window.open(strFileName, strWindowName, 'menubar=no,location=no,to
winHelp.focus()
}
/*************************
Funtion to compare two dates
**************************
function On_CompareTwoDateTimeField
{
var arrDate1 = (fldFromDate.value).toStri
var arrDate2 = (fldToDate.value).toString
var arrTime1 = GetTimeValue(fldFromTime).
var arrTime2 = GetTimeValue(fldToTime).to
var dtFirstDate = new Date(arrDate1[2], arrDate1[1]-1, arrDate1[0], arrTime1[0], arrTime1[1])
var dtSecondDate = new Date(arrDate2[2], arrDate2[1]-1, arrDate2[0], arrTime2[0], arrTime2[1])
// Compare Date and Time
if (dtFirstDate.getTime() > dtSecondDate.getTime()) return false
else return true
}
/*************************
Function to provide Help on enter for Item Description
**************************
function On_HelpOnEnterForItems(int
{
var strFieldsList = ""
var strItemHelpQuery = ""
var strLanguageCode = ""
strItemHelpEnterRow = intRowNumber
/** This is not to allow ' qoute in Help enter **/
var strRegExp = /[']/ig;
if (strRegExp.test(strItemEAN
{
IIIalert("<%=errObject.get
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
if (strItemType == "I")
{
//CR006 - 116 -- added by Sriram
var strItemLaunchHelp = "";
var strFields = "";
var strFields_Help = "";
if (strItemEANCode.length <= 7) strItemEANCode = strItemEANCode.replace(/^0
//Get the Column Index of required columns needs to be passed to the Item Search
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strFields_Help += divPurchaseOrder.getColInd
strItemLaunchHelp = "ITEMSEARCH.ASP?From=objPU
On_ChangeItemDescription(i
GetItemDetailsOnHelpEnter(
}
else
{
// Get the language code for the logged in language
if(langid == 'E')
strLanguageCode = "0"
else if(langid == 'F')
strLanguageCode = "2"
else if(langid == 'G')
strLanguageCode = "1"
else if(langid == 'I')
strLanguageCode = "3"
strFieldsList = "sprITEMDESCRIPTION,sprHID
strItemHelpQuery += " SELECT Description, BaslerTaxeKey, 0, 0, 0, 0, DBO.IIIRoundPrice(0.00) "
strItemHelpQuery += " FROM IIIBasler_Taxe (NOLOCK) "
strItemHelpQuery += " WHERE BaslerTaxeKey = '" + strItemEANCode + "'"
strItemHelpQuery += " AND Language_Code = '" + strLanguageCode + "'"
launchhelpEnter("HELPENTER
}
On_BlurCalculateTotals(int
}
/*************************
Function to provide CCH For Galdat Items/Chemicals
**************************
function HelpForItemOrChemical(intR
{
var strFileName = ""
var strFields = ""
var strItemType = divPurchaseOrder.getCellVa
// If the Type selected is Item
if (strItemType == "I")
{
//Get the Column Index of required columns needs to be passed to the Item Search
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFields += divPurchaseOrder.getColInd
strFileName = "ITEMSEARCH.ASP?From=objPU
launchhelp1(strFileName);
}
else if (strItemType == "B")
{
strFileName = "help.asp?HELP_ID=54&Start
launchhelp1(strFileName);
}
}
/*************************
Function to fire on click of Clear Button - Goes to the BE and fetches default values
**************************
function On_Clear()
{
Allowupdate = true;
strACTION = ""
strFocusIsOn = "";
On_CallXMLHTTPAfterValidat
}
/*************************
Function to fire on click of Select/Unselect Controlled checkbox
**************************
function On_CheckUnCheckAllControll
{
var intRowNo = 0;
var nRowLength = 0;
var rstPOMLDetails = null;
var objNodeList = null;
var blnControlled = document.frmPurchaseOrder.
// If the option is unchecked/checked just uncheck all the rows of controlled column
var objPOGrid = eval(divPurchaseOrder.getG
var nColIndex = divPurchaseOrder.getColInd
Set_Value_For_Range(objPOG
if(blnControlled == false)
{
lblCheckUncheckControlled.
return false;
}
else
{
lblCheckUncheckControlled.
}
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprDELETE = '1' or @sprITEMDESCRIPTION = ''";
var objPOMLDOM = divPurchaseOrder.getXMLStr
// Return if there is no rows..
if ( objPOMLDOM == null ) return false;
rstPOMLDetails = objPOMLDOM.selectNodes("//
nRowLength = rstPOMLDetails.length
if (nRowLength == 0) return false;
objNodeList = rstPOMLDetails.nextNode;
while(objNodeList != null)
{
// Get the row no from the XML node
intRowNo = objNodeList.getAttribute("
//Check the controlled checkbox
divPurchaseOrder.setCellVa
objNodeList = rstPOMLDetails.nextNode;
}
objPOMLDOM = null
objNodeList = null
rstPOMLDetails = null
}
/*************************
Function to fire on click of Fetch button
**************************
function On_Fetch()
{
if (document.frmPurchaseOrder
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
On_CallXMLHTTPAfterValidat
strFocusIsOn = "";
return false;
}
/*************************
Function to call XML HTTP Submit based on the Mode
**************************
function On_CallXMLHTTPAfterValidat
{
//-------- From the required value as XMLDOMObject--------------
var objXMLPOSTED = StoreValuesAsXMLDOMObject(
var strRETURNRESULT = GetOutputXMLUSINGXMLHTTP("
//--------- Load the Result XML into an DOMObject -----------------//
var objRESULTXML = new ActiveXObject("Microsoft.X
objRESULTXML.loadXML(strRE
if (objRESULTXML.selectSingle
{
// strAction/Mode is globally strored once if the screen throws success message
strACTION = strMODE
divPurchaseOrder.ClearAll(
//If the mode is delete and fetchdefault then only the header value is binded
if( (strMODE == 'DELETEPURCHASEORDER') || (strMODE == 'FETCHDEFAULTVALUES') )
{
objHdrXMLDom = divPurchaseOrder.loadXMLSt
fnSetValuesOnSuccess('CLEA
SetDefaults('CLEAR');
}
else
{
objHdrXMLDom = divPurchaseOrder.loadXMLSt
objMLXMLDom = divPurchaseOrder.loadXMLSt
fnSetValuesOnSuccess('SET'
SetDefaults('SET');
}
// Display the success error message
if( (objRESULTXML.selectSingle
alert(objRESULTXML.selectS
}
else
{
strACTION = ""
if(strMODE == 'FETCH')
{
divPurchaseOrder.ClearAll(
//document.frmPurchaseOrde
fnSetValuesOnSuccess('CLEA
SetDefaults('CLEAR');
}
/** PO Containing PDI Item(s) cannot be authorised **/
if (objRESULTXML.selectSingle
{
ItemDescriptionforPDI = GetItemDescriptionforPDI()
IIIalert("<%=errObject.get
}
else
{
// Display the failed error message
alert(objRESULTXML.selectS
}
}
objRESULTXML = null;
objXMLPOSTED = null;
objHdrXMLDom = null;
objMLXMLDom = null;
return false;
}
/*************************
Function to set default on success on success of any Action
**************************
function fnSetValuesOnSuccess(strFl
{
var strCreatedOnDtls = ""
if (objHdrXMLDom == null) return false;
// Set defaults..
if(strFlag == 'SET')
{
var strCreatedBy = objHdrXMLDom.selectSingleN
var strCreatedOn = objHdrXMLDom.selectSingleN
var strModifiedBy = objHdrXMLDom.selectSingleN
var strModifiedOn = objHdrXMLDom.selectSingleN
strCreatedOnDtls = "<%=lblCreatedBy%>" + " <" + strCreatedBy + "> " + "<%=lblOn%>" + " <" + strCreatedOn + ">, " + "<%=lblModifiedBy%>" + " <" + strModifiedBy + "> " + "<%=lblOn%>" + " <" + strModifiedOn + ">"
IDCreatedOn.innerText = strCreatedOnDtls
}
else
{
IDCreatedOn.innerHTML = "<%=varRecordCreationLabel
}
//Clear the Selct all label and uncheck the combo..
document.frmPurchaseOrder.
lblCheckUncheckControlled.
}
/*************************
Function to store PO Header and detail values into a XMLDOM Object and the object is returned fro HTTP postings
**************************
function StoreValuesAsXMLDOMObject(
{
var objDOMCLIENTSIDE = new ActiveXObject("Microsoft.X
var frmPurchaseOrder = document.frmPurchaseOrder
var strCSXML = ""
var strHDRDetails = ""
var strMLDetails = ""
var objHeaderDOM = null;
var objPOMLDOM = null;
//If the mode is just Fetch/Header Uypdate then only the required header info alone is passed to the server..
if( (strMode == 'FETCH') || (strMode == 'TRANSMITPURCHASEORDERFETC
{
objHeaderDOM = divPurchaseOrder.getXMLStr
if (objHeaderDOM != null)
strHDRDetails = objHeaderDOM.xml;
}
else
{
objHeaderDOM = divPurchaseOrder.getXMLStr
if (objHeaderDOM != null)
strHDRDetails = objHeaderDOM.xml;
//--------- ML Detail is taken from the global object which is stored when Create/Modify action validation succeed
if (objPODetailsXMLDOM != null)
{
strMLDetails = objPODetailsXMLDOM.xml
}
else
{
objPOMLDOM = divPurchaseOrder.getXMLStr
if (objPOMLDOM != null)
strMLDetails = objPOMLDOM.xml
}
}
//CLEAR THE OBJECT
objPOMLDOM = null;
objHeaderDOM = null;
objPODetailsXMLDOM = null;
/** Load the PO Header and PO MLData into the XMLDOM **/
strCSXML += "<XMLHTTPPurchaseOrder>"
strCSXML += "<MODE>" + strMode + "</MODE>"
strCSXML += "<NONMOVINGITEMLABEL>" + "<%=lblNonMovingItem%>" + "</NONMOVINGITEMLABEL>"
strCSXML += "<DECIDERFLAG>" + strMode + "</DECIDERFLAG>"
strCSXML += "<HEADERDETAILFETCHFLAG></
strCSXML += "<POHEADER>" + strHDRDetails + "</POHEADER>"
strCSXML += "<POMLDETAILS>" + strMLDetails + "</POMLDETAILS>"
strCSXML += "<ErrorNo></ErrorNo>"
strCSXML += "<ErrorMessage></ErrorMess
strCSXML += "</XMLHTTPPurchaseOrder>"
objDOMCLIENTSIDE.loadXML(s
return objDOMCLIENTSIDE;
}
/*************************
Function for validation of mandatory fields (Header Fields)
**************************
function On_ValidateMandatoryFields
{
if (Trim(eval("document.frmPu
{
IIIalert("<%=errObject.get
eval("document.frmPurchase
return false;
}
return true;
}
/*************************
Function for validation of mandatory fields (PO ML Fields)
**************************
function On_ValidateMandatoryFields
{
var nCol = ""
if (strColValue == "")
{
IIIalert("<%=errObject.get
nCol = divPurchaseOrder.getColInd
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
return true;
}
/*************************
Function for Validation for Valid Characters
**************************
function On_ValidateCharSet(strCont
{
if (!isvalidCharSet(Trim(strC
{
IIIalert("<%=errObject.get
strControlName.focus()
return false
}
return true
}
/*************************
Function to Validate That Number Fields should have greater than Zero Value
**************************
function On_ValidateNumberGreaterTh
{
var nCol = ""
if (parseFloat(Trim(strColVal
{
IIIalert("<%=errObject.get
nCol = divPurchaseOrder.getColInd
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
return true;
}
/*************************
Function to show Modal Windows for Warnings to the User
**************************
function On_ShowModalWindow(arrMsgs
{
var arrLabels = new Array(2);
var strReturnValue = ""
arrLabels[0] = arrMsgs;
arrLabels[1] = arrBtns;
arrLabels[2] = "scrButton"
strReturnValue = window.showModalDialog("II
return strReturnValue;
}
/*************************
General Form Validation Routine
**************************
function Validate()
{
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
/** Validating Charset **/
if (!On_ValidateCharSet(docum
if (!On_ValidateCharSet(docum
/** Validating Dates and Time Fields **/
if (!validateDate(document.fr
if (Trim(document.frmPurchase
if (!validateDate(document.fr
/** Validating Mandatory Fields **/
if (!On_ValidateMandatoryFiel
if (!On_ValidateMandatoryFiel
if (!On_ValidateMandatoryFiel
if (!On_ValidateMandatoryFiel
/** Validating that Order Date should not be a future Date **/
var arrPODate = (document.frmPurchaseOrder
var arrPOTime = GetTimeValue(document.frmP
var dtCurrentDate = new Date()
var dtPODateTime = new Date(arrPODate[2], arrPODate[1]-1, arrPODate[0])
if (dtPODateTime.getTime() > dtCurrentDate.getTime())
{
IIIalert("<%=errObject.get
return false
}
/** Validating that Remarks should contain only a maximum of 500 chars **/
if (parseFloat(Trim(document.
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
/** Validation that Order Date is lesser than Transmission Date
and that Transmission Date is lesser than Delivery Date **/
if (document.frmPurchaseOrder
{
if (!On_CompareTwoDateTimeFie
{
alert("<%=errObject.getnth
return false
}
if (!On_CompareTwoDateTimeFie
{
alert("<%=errObject.getnth
return false
}
}
else
{
if (!On_CompareTwoDateTimeFie
{
alert("<%=errObject.getnth
return false
}
}
// ----------------- Multiline Validation starts --------------------------
/** To check that atleast one row exists in Multiline **/
var intRowNo = 0;
var nRowLength = 0;
var rstPOMLDetails = null;
var objNodeList = null;
var objXMLDOC = null;
var strIemDesc, nLineDeleted, strPOCustomerDtls;
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprITEMDESCRIPTION = '' or @sprDELETE = '1'";
var objPOMLDOM = divPurchaseOrder.getXMLStr
// Return if there is no rows..
if ( objPOMLDOM == null ) return false;
rstPOMLDetails = objPOMLDOM.selectNodes("//
nRowLength = rstPOMLDetails.length
if (nRowLength == 0)
{
alert("<%=errObject.getnth
return false;
}
objNodeList = rstPOMLDetails.nextNode;
var nOrderQuantity = "", nBonus = "", nRateInCHF = "", nCol = "", dblTotalPOValue = "0";
var nLineTotal = "", strLineType = "", NoOfLinesManual = "0", NoOfLinesAutomatic = "0", NoOfLinesCustomer = "0";
var nReturnedRow = "", nReturnedRow_Temp = "";
var nItemDescColIndex = divPurchaseOrder.getColInd
while(objNodeList != null)
{
// Get all required values from the XML Node
intRowNo = objNodeList.getAttribute("
strIemDesc = Trim(objNodeList.getAttrib
nLineDeleted = objNodeList.getAttribute("
nOrderQuantity = objNodeList.getAttribute("
nBonus = objNodeList.getAttribute("
nRateInCHF = objNodeList.getAttribute("
nLineTotal = objNodeList.getAttribute("
nReturnedRow = 0
nReturnedRow_Temp = intRowNo
//Out of sale Item Check
if ((objNodeList.getAttribute
// ------ To check that Duplicate Items should not exist in Purchase Order Multiline -----------
if ( (nLineDeleted != "1") && (strIemDesc != "") )
{
//Check for the duplicate rows until the searchcol returns "-1"..
while(nReturnedRow != -1)
{
nReturnedRow = objPURCHASEORDER.SearchCol
// Check if the duplicate row found is deleted or not, if yes return
if (nReturnedRow != -1)
{
nLineDeleted_TEMP = divPurchaseOrder.getCellVa
nReturnedRow_Temp = nReturnedRow
}
if (nReturnedRow != -1 && nLineDeleted_TEMP != '1')
{
var arrMessages = new Array()
var arrButtons = new Array()
var arrReturnValue = new Array()
arrMessages[0] = "Triamun " + "<%=lblDuplicateItemsTitle
arrMessages[1] = "<%=lblDuplicateItemsWarni
arrButtons[0] = "<%=lblAddToExistingLine%>
arrButtons[1] = "<%=lblDeleteTheDuplicateL
arrButtons[2] = "<%=lblCancel%>"
arrReturnValue = On_ShowModalWindow(arrMess
/** Add the New Line to Existing Line **/
if (arrReturnValue[1] == 0)
{
/*************************
Add the Order Quantity and Bonus in New Line to Existing Line Order Quantity
and Bonus. Mark the New Line for Delete
**************************
var nQtyInEL = divPurchaseOrder.getCellVa
var nBonusInEL = divPurchaseOrder.getCellVa
var nQtyInNL = divPurchaseOrder.getCellVa
var nBonusInNL = divPurchaseOrder.getCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
On_BlurCalculateTotals(int
}
/** Remove the New Line **/
else if (arrReturnValue[1] == 1)
{
divPurchaseOrder.setCellVa
}
else if (arrReturnValue[1] == 2)
{
return false;
}
}
}
}
// --- Validate mandatory and proper values only if the item desc is not empty and line not marked as delete
if ( (nLineDeleted != "1") && (strIemDesc != "") )
{
/** Validation for Numeric Values **/
if (Trim(nOrderQuantity) != "" && IsQty(nOrderQuantity, "<%=lblOrderQuantity%>") == false) return false
if (Trim(nBonus) != "" && IsQty(nBonus, "<%=lblBonus%>") == false) return false
if (Trim(nRateInCHF) != "" && IsPrice(nRateInCHF, "<%=lblRateInCHF%>") == false) return false
/** Validation for Mandatory Fields **/
if (!On_ValidateMandatoryFiel
if (!On_ValidateNumberGreater
var dblOrderQuantity_Temp = Trim(nOrderQuantity)==""?0
var dblBonus_Temp = Trim(nBonus)==""?0:Trim(nB
var dblRateInCHF_Temp = Trim(nRateInCHF)==""?0:Tri
// Calculating Line Level Totals
var dblTotal = RoundQty(parseFloat(dblOrd
// changed for TRIMAUNIII1.0S_015016
if (dblTotal.toString().lengt
{
alert("<%=errObject.getnth
nCol = divPurchaseOrder.getColInd
divPurchaseOrder.setFocus(
return false;
}
/** Setting Rate and Bonus Values to Zero if they are empty **/
if (Trim(nRateInCHF) == "")
divPurchaseOrder.setCellVa
if (Trim(nBonus) == "")
divPurchaseOrder.setCellVa
/** Calculate Line Totals and Grand Total **/
On_BlurCalculateTotals(int
}
objNodeList = rstPOMLDetails.nextNode;
}
// --------- Store the Customer PO details alone into a seperate element to avoid special character ------- //
objPOMLDOM = null
objNodeList = null
rstPOMLDetails = null
objXMLDOC = new ActiveXObject("Microsoft.X
// Get all the rows after filter from the ML
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprITEMDESCRIPTION = ''";
var objPOMLDOM = divPurchaseOrder.getXMLStr
rstPOMLDetails = objPOMLDOM.selectNodes("//
objNodeList = rstPOMLDetails.nextNode;
while(objNodeList != null)
{
nLineTotal = objNodeList.getAttribute("
strLineType = objNodeList.getAttribute("
nLineDeleted = objNodeList.getAttribute("
strPOCustomerDtls = objNodeList.getAttributeNo
if(nLineDeleted != '1')
{
//Calculate the Total of All PO Lines
dblTotalPOValue = RoundAmt(parseFloat(dblTot
/** Calculating No. of Rows per Line Type **/
if (strLineType.toUpperCase()
NoOfLinesManual = parseFloat(NoOfLinesManual
else if (strLineType.toUpperCase()
NoOfLinesAutomatic = parseFloat(NoOfLinesAutoma
else if (strLineType.toUpperCase()
NoOfLinesCustomer = parseFloat(NoOfLinesCustom
}
if ( strPOCustomerDtls.value != "" )
{
var newElement = objPOMLDOM.createElement("
objXMLDOC.loadXML(unescape
var ChildNode = objXMLDOC.selectSingleNode
if (ChildNode != null)
{
objNodeList.appendChild(Ch
}
}
objNodeList.removeAttribut
objNodeList = rstPOMLDetails.nextNode;
}
//Total Value of PO and Total lines are calculated and Assigned..
if (dblTotalPOValue.toString(
{
alert("<%=errObject.getnth
return false
}
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
//assign the converted XML DOM object to a global object..
objPODetailsXMLDOM = objPOMLDOM
objPOMLDOM = null
objNodeList = null
rstPOMLDetails = null
return true;
}
/*************************
Function to calculate PO Total on Change of Lines (Like Delete/Undelete, clearing a Line etc)
**************************
function On_CalculateTotalValue(int
{
On_BlurCalculateTotals(int
var dblTotalPOValue = document.frmPurchaseOrder.
var dblTotalLineValue = divPurchaseOrder.getCellVa
if (isNaN(dblTotalPOValue) || dblTotalPOValue == "") dblTotalPOValue = 0
if (isNaN(dblTotalLineValue) || dblTotalLineValue == "") dblTotalLineValue = 0
if (parseFloat(dblTotalPOValu
{
if (strAddOrSubtractFlag == "PLUS") dblTotalPOValue = parseFloat(dblTotalPOValue
else if (strAddOrSubtractFlag == "MINUS") dblTotalPOValue = parseFloat(dblTotalPOValue
}
document.frmPurchaseOrder.
}
/*************************
Function to Calculate form totals on blur
**************************
function On_BlurCalculateTotals(int
{
var dblTotalPOValue = Trim(document.frmPurchaseO
var dblValueOfLine = divPurchaseOrder.getCellVa
var dblOrderQuantity = divPurchaseOrder.getCellVa
var dblBonus = divPurchaseOrder.getCellVa
var dblRateInCHF = divPurchaseOrder.getCellVa
var strDelFlag = divPurchaseOrder.getCellVa
if (dblValueOfLine == "") dblValueOfLine = 0
if (dblTotalPOValue == "") dblTotalPOValue = 0
if (dblOrderQuantity == "") dblOrderQuantity = 0
if (dblBonus == "") dblBonus = 0
if (dblRateInCHF == "") dblRateInCHF = 0
// If the line is not marked for deletion, then calculate the total..
if (strDelFlag != "1")
{
// Calculating Line Level Totals
var dblTotalQty = RoundQty(parseFloat(dblOrd
var dblTotalAmt = RoundAmt(dblOrderQuantity * dblRateInCHF, "Y")
// Setting the Line Totals in the appropriate columns
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
dblTotalPOValue = RoundAmt(parseFloat(dblTot
if (dblTotalPOValue.toString(
{
alert("<%=errObject.getnth
divPurchaseOrder.setFocus(
return false
}
document.frmPurchaseOrder.
}
}
/*************************
Function to clear fields when Supplier Description is changed
**************************
function On_ClearSupplierCode()
{
document.frmPurchaseOrder.
}
/*************************
Function to clear fields when Item Description is changed
**************************
function On_ChangeItemDescription(i
{
On_CalculateTotalValue(int
//Clear all columns of that line..
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
var nColIndex = divPurchaseOrder.getColInd
Set_Button_Color(objPURCHA
var nItemDescColIndex = divPurchaseOrder.getColInd
var nItemFlagColIndex = divPurchaseOrder.getColInd
ResetItemColour("GRID","ob
}
/*************************
Function to fire on click of Create button
**************************
function On_Create()
{
// If the focus is on PO Number and enter key is fired..
if (strFocusIsOn == "txtPONumber")
{
On_Fetch();
return false
}
else if (strFocusIsOn == "txtSupplierDescription")
{
var strVendor = document.frmPurchaseOrder.
launchhelpEnter("HELPENTER
return false;
}
else if (strFocusIsOn == "txtOrderDate")
{
On_EnterKeyInOrderDate()
return false
}
if (!Validate()) return false
if (Trim(document.frmPurchase
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
To Default Delivery Date as per Time Rules defined for Wholesaler
**************************
function On_EnterKeyInOrderDate()
{
if (!validateDate(document.fr
if (Trim(document.frmPurchase
if (Trim(document.frmPurchase
var strSupplier = document.frmPurchaseOrder.
var strOrderDate = document.frmPurchaseOrder.
var arrWeekDays = new Array("SUN", "MON", "TUE", "WED", "THU", "FRI", "SAT")
var dtOrderDate = new Date(strOrderDate.substrin
var strOrderDay = arrWeekDays[dtOrderDate.ge
var strOrderTime = GetTimeValue(document.frmP
var intBitNoInString = 0
var strQuery = ""
var strFieldsList = "txtDeliveryDate,hidDelive
if (dtOrderDate.getDay() == "0") intBitNoInString = 7
else intBitNoInString = dtOrderDate.getDay()
strQuery += " SELECT CONVERT(NVARCHAR(10), DATEADD(DD, CONVERT(INT, SUBSTRING(Delivery_Day_Str
strQuery += " ,Delivery_Time FROM IIITime_Rules_Detail (NOLOCK) "
strQuery += " WHERE Partner_Id = '<%=sPARTNERID%>' "
strQuery += " AND Vendor_Code = (SELECT TOP 1 Vendor_Code FROM IIICustomer_Vendor_Master (NOLOCK) WHERE Partner_Id = '<%=sPARTNERID%>' AND Customer_Vendor_Name ='" + document.frmPurchaseOrder.
strQuery += " AND Order_Option IN('" + strOrderDay + "','WD') "
strQuery += " AND CONVERT(INT, SUBSTRING(Order_Day_String
strQuery += " AND CONVERT(DATETIME, Order_Time, 108) = "
strQuery += " ( SELECT MIN(CONVERT(DATETIME, Order_Time, 108)) "
strQuery += " FROM IIITime_Rules_Detail TRD (NOLOCK) INNER JOIN IIICustomer_Vendor_Master CVM (NOLOCK) "
strQuery += " ON TRD.Partner_Id = CVM.Partner_id AND TRD.Vendor_Code = CVM.Customer_Vendor_Code AND CVM.Customer_Vendor_Name = '" + document.frmPurchaseOrder.
strQuery += " AND CVM.Customer_Vendor_Type <> 'C' AND CONVERT(DATETIME, Order_Time, 108) >= CONVERT(DATETIME, '" + strOrderTime + "', 108))"
launchhelpEnter("HelpEnter
}
/*************************
Function to fire on click of Modify button
**************************
function On_Modify()
{
var strSUBMITMODE = ""
var blnTRANSMISSIONMODEDISABLE
var strTRANSMISSIONMODE = Trim(divPurchaseOrder.getC
intPOStatus = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
/*************************
Allow Modification only
1. If PO Status is OPEN
2. If PO Status is AUTHORISED and Transmission Mode is Manual
3. If PO Status is AUTHORISED and Transmission Mode is Manual
**************************
//if (intPOStatus != "2" && !((intPOStatus == "3" || intPOStatus == "6") && blnTRANSMISSIONMODEDISABLE
//if (intPOStatus != "2" && !((intPOStatus == "3" || intPOStatus == "6") && strTRANSMISSIONMODE == "M"))
if (intPOStatus != "2" && intPOStatus != "3" && intPOStatus != "6")
{
alert("<%=errObject.getnth
return false
}
if (intPOStatus != "2" && ((intPOStatus == "3" || intPOStatus == "6") && Allowupdate == false))
{
alert("<%=errObject.getnth
return false
}
else
{
if (intPOStatus == "2") strSUBMITMODE = "MODIFYPURCHASEORDER"
else strSUBMITMODE = "MODIFYTRANSMISSIONMODE"
/** If PO is Authorised or Failed, allow Update of Transmission Mode only if it is MANUAL **/
if ( (intPOStatus == "3" || intPOStatus == "6") && strTRANSMISSIONMODE != "M" )
{
alert("<%=errObject.getnth
return false
}
else /** Common Validation Procedure if PO Status is Open **/
{
if (!Validate()) return false
}
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
Function to fire on click of Authorise button
**************************
function On_Authorise()
{
intPOStatus = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// Validate that only open purchase orders can be modified
if (intPOStatus != "2")
{
IIIalert("<%=errObject.get
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
// Global Variable for Out of sale item is set to to zero before validate method
cntOUTOFSALEITEM = 0;
// General Validation for full form controls
if (!Validate()) return false
// Out of Sale Item check
if (cntOUTOFSALEITEM > 0 )
{
if (!confirm("<%=errObject.ge
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
Function to fire on click of transmit button
**************************
function On_Transmit()
{
intPOStatus = Trim(divPurchaseOrder.getC
var PONumber = Trim(divPurchaseOrder.getC
var PDIExists = Trim(divPurchaseOrder.getC
var strTRANSMISSIONMODE = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// Validate that only authorised purchase orders can be transmitted
if (intPOStatus != "3" && intPOStatus != "6")
{
IIIalert("<%=errObject.get
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
// Only PO's where transmission mode is Automatic can be Transmitted. Else it should be printed
if (strTRANSMISSIONMODE != "A")
{
alert("<%=errObject.getnth
return false
}
//Begin : Interface 002:PO Transmission - Venki
if(! validateforV50("<%=Session
{
return false
}
//End : Interface 002:PO Transmission - Venki
/** PO Containing PDI Item cannot be transmitted **/
if (PDIExists == 1)
{
ItemDescriptionforPDI = GetItemDescriptionforPDI()
//IIIalert("<%=errObject.g
IIIalert("<%=errObject.get
return false
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
function GetItemDescriptionforPDI()
{
var LineItemDesc = ""
var LineItemCode = ""
var AllItemDesc = '\n' + '\n' + "<%=lblLineNo&" "&lblItemDescription%>" + '\n' + "------ -----------------"
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprITEMDESCRIPTION = '' or @sprDELETE = '1'";
var objPOMLDOM = divPurchaseOrder.getXMLStr
// Return if there is no rows..
if ( objPOMLDOM == null ) return false;
rstPOMLDetails = objPOMLDOM.selectNodes("//
nRowLength = rstPOMLDetails.length
if (nRowLength == 0) return false;
objNodeList = rstPOMLDetails.nextNode;
while(objNodeList != null)
{
// Get the Item Code from the XML node
intRowNo = objNodeList.getAttribute("
LineItemDesc = objNodeList.getAttribute("
LineItemCode = objNodeList.getAttribute("
if (LineItemCode.substring(0,
{
AllItemDesc = AllItemDesc +'\n'+ (intRowNo) +" "+ LineItemDesc
}
objNodeList = rstPOMLDetails.nextNode;
}
objPOMLDOM = null
objNodeList = null
rstPOMLDetails = null
AllItemDesc = AllItemDesc + '\n' + '\n'
return AllItemDesc
}
/*************************
Function to fire on click of print button
**************************
function On_Print()
{
intPOStatus = Trim(divPurchaseOrder.getC
var strTRANSMISSIONMODE = Trim(divPurchaseOrder.getC
var strPrintFlag = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// Validate that only authorised purchase orders can be printed
if (intPOStatus == "2")
{
alert("<%=errObject.getnth
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
/** Purchase Order is already Printed **/
if (strTRANSMISSIONMODE == "M")
{
if (Trim(strPrintFlag) != "Y")
{
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
else
{
On_PrintReports()
return false
}
}
else
{
On_PrintReports()
return false
}
}
/*************************
Function to fire on click of Delete button
**************************
function On_Delete()
{
intPOStatus = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
if ( intPOStatus != "1" && intPOStatus != "2" )
{
IIIalert("<%=errObject.get
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
/** Delete confirmation **/
var msg = "<%=errObject.getnthdescri
if ( !window.confirm(msg) ) return;
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
Function to fire on click of Short Close button
**************************
function On_ShortClose()
{
intPOStatus = Trim(divPurchaseOrder.getC
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
else if (intPOStatus == "2")
{
alert("<%=errObject.getnth
return false
}
else if (intPOStatus == "10")
{
alert("<%=errObject.getnth
return false
}
/** PO Number cannot be empty **/
if (!On_ValidateMandatoryFiel
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
/*************************
Function to fire on click of Change Supplier Button
**************************
function On_ChangeSupplier()
{
intPOStatus = Trim(divPurchaseOrder.getC
if ( "<%=GetAccessPermission("O
{
IIIalert("<%=ErrObject.get
return false;
}
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// PO Number should be entered in order to navigate to Change Supplier Screen
if (!On_ValidateMandatoryFiel
// Validate that only for open PO's supplier can be changed
if (intPOStatus != "2")
{
IIIalert("<%=errObject.get
return false
}
var strFileName = "OrderOverviewItem3.asp?Fr
On_LaunchHelpLocal(strFile
}
/*************************
Function to fire on click of Item Price Button
**************************
function On_ItemPrice()
{
if ( "<%=GetAccessPermission("I
{
IIIalert("<%=ErrObject.get
return false;
}
// Set the defaults value
var rowNode = null
var strItemCode = ""
var intRowsInMultiline = ""
var strItemCode = ""
var strItemType = ""
var blnAtleastOneRowIsChecked = false
var blnChemicalsChecked = false
// Filter selected items having non empty item desc and Item type as item
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprSEL != '1' or @sprITEMTYPE = '' or @sprITEMDESCRIPTION = ''";
var objPOMLDetails = divPurchaseOrder.getXMLStr
// If the ML object returns null then make the row as zero
if ( objPOMLDetails == null )
intRowsInMultiline = 0
else
{
var objMLRows = objPOMLDetails.selectNodes
intRowsInMultiline = objMLRows.length
}
// Loop through the ML and get check for the proper value before calling statistics
rowNode = objMLRows.nextNode;
while(rowNode != null)
{
strItemCode = rowNode.getAttribute("sprH
strItemType = rowNode.getAttribute("sprI
intRowCount = rowNode.getAttribute("ROWU
if(strItemType == "I")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = false
if (strItemCode == "")
{
IIIalert("<%=errObject.get
//The Item in line number % does not have a matching Item Code. Please enter a valid Item or choose from the Help available (91057)
return false;
}
else //Launch the statistics screen
{
var strFileName = "ITEMPRICE.ASP?SCREENLAUNC
On_LaunchHelpLocal(strFile
break;
}
}
else if (strItemType == "B")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = true
}
rowNode = objMLRows.nextNode;
}
/** Select Atleast One Row to launch Item Statistics **/
if (!blnAtleastOneRowIsChecke
{
alert("<%=errObject.getnth
return false
}
/** Chemicals cannot be used for launching Item Statistics Screen **/
if (blnChemicalsChecked)
{
alert("<%=errObject.getnth
return false
}
}
/*************************
Function to fire on click of Partner Defined Data Button
**************************
function On_PartnerDefinedData()
{
if ( "<%=GetAccessPermission("P
{
IIIalert("<%=ErrObject.get
return false;
}
// Set the defaults value
var rowNode = null
var strItemCode = ""
var intRowsInMultiline = ""
var strItemCode = ""
var strItemType = ""
var blnAtleastOneRowIsChecked = false
var blnChemicalsChecked = false
// Filter selected items having non empty item desc and Item type as item
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprSEL != '1' or @sprITEMTYPE = '' or @sprITEMDESCRIPTION = ''";
var objPOMLDetails = divPurchaseOrder.getXMLStr
// If the ML object returns null then make the row as zero
if ( objPOMLDetails == null )
intRowsInMultiline = 0
else
{
var objMLRows = objPOMLDetails.selectNodes
intRowsInMultiline = objMLRows.length
}
// Loop through the ML and get check for the proper value before calling statistics
rowNode = objMLRows.nextNode;
while(rowNode != null)
{
strItemCode = rowNode.getAttribute("sprH
strItemType = rowNode.getAttribute("sprI
intRowCount = rowNode.getAttribute("ROWU
if(strItemType == "I")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = false
if (strItemCode == "")
{
IIIalert("<%=errObject.get
//The Item in line number % does not have a matching Item Code. Please enter a valid Item or choose from the Help available (91057)
return false;
}
else //Launch the statistics screen
{
var strFileName = "PartnerDefinedData3.ASP?F
On_LaunchHelpLocal(strFile
break;
}
}
else if (strItemType == "B")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = true
}
rowNode = objMLRows.nextNode;
}
/** Select Atleast One Row to launch Item Statistics **/
if (!blnAtleastOneRowIsChecke
{
alert("<%=errObject.getnth
return false
}
/** Chemicals cannot be used for launching Item Statistics Screen **/
if (blnChemicalsChecked)
{
alert("<%=errObject.getnth
return false
}
}
/*************************
Function to fire on click of Transmission Log Button
**************************
function On_TransmissionLog()
{
intPOStatus = Trim(divPurchaseOrder.getC
if ( "<%=GetAccessPermission("T
{
IIIalert("<%=ErrObject.get
return false;
}
/** Validate if PO Status is empty **/
if (intPOStatus == "")
{
alert("<%=errObject.getnth
document.frmPurchaseOrder.
return false
}
/** PO Number should be entered in order to navigate to Transmission Log Screen **/
if (!On_ValidateMandatoryFiel
/** Validate that only for Automatic Transmitted PO's Transmission Log can be launched **/
if (intPOStatus != "4")
{
alert("<%=errObject.getnth
return false
}
var strPONumber = document.frmPurchaseOrder.
var strFileName = "TRANSMISSIONLOG3.ASP?FROM
On_LaunchHelpLocal(strFile
}
/*************************
Function to fire on click of Item Statistics Button
**************************
function On_ItemStatistics()
{
if ( "<%=GetAccessPermission("D
{
IIIalert("<%=ErrObject.get
return false;
}
// Set the defaults value
var rowNode = null
var strItemCode = ""
var intRowsInMultiline = ""
var strItemCode = ""
var strItemType = ""
var blnAtleastOneRowIsChecked = false
var blnChemicalsChecked = false
// Filter selected items having non empty item desc and Item type as item
divPurchaseOrder.filters = "";
divPurchaseOrder.filters = "@sprSEL != '1' or @sprITEMTYPE = '' or @sprITEMDESCRIPTION = ''";
var objPOMLDetails = divPurchaseOrder.getXMLStr
// If the ML object returns null then make the row as zero
if ( objPOMLDetails == null )
intRowsInMultiline = 0
else
{
var objMLRows = objPOMLDetails.selectNodes
intRowsInMultiline = objMLRows.length
}
// Loop through the ML and get check for the proper value before calling statistics
rowNode = objMLRows.nextNode;
while(rowNode != null)
{
strItemCode = rowNode.getAttribute("sprH
strItemType = rowNode.getAttribute("sprI
intRowCount = rowNode.getAttribute("ROWU
if(strItemType == "I")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = false
if (strItemCode == "")
{
IIIalert("<%=errObject.get
//The Item in line number % does not have a matching Item Code. Please enter a valid Item or choose from the Help available (91057)
return false;
}
else //Launch the statistics screen
{
var strFileName = "STATISTICS3.ASP?FromScree
On_LaunchHelpLocal(strFile
break;
}
}
else if (strItemType == "B")
{
blnAtleastOneRowIsChecked = true
blnChemicalsChecked = true
}
rowNode = objMLRows.nextNode;
}
/** Select Atleast One Row to launch Item Statistics **/
if (!blnAtleastOneRowIsChecke
{
alert("<%=errObject.getnth
return false
}
/** Chemicals cannot be used for launching Item Statistics Screen **/
if (blnChemicalsChecked)
{
alert("<%=errObject.getnth
return false
}
}
/*************************
Function to read the values from the Sales Order Screen
**************************
function On_FILLVALUESFROMCALLINGSC
{
var intRowCounter = 0
var intRowCtrInCurrentForm = 1
var nRecordCount = 0;
var strMode = "<%=Trim(ACTION)%>"
var objPOGrid = eval(divPurchaseOrder.getG
if(strFlag == 'ONLOAD')
{
// If the mode of action is fetch and the screen is called from some other screen, then fetch is called
if (strMode != "" && strFromScreen != "")
{
On_CallXMLHTTPAfterValidat
strFocusIsOn = "";
return false;
}
// If the mode of action is nothing and the screen is called from TRANSMISSIONLOG screen
if (strMode == "")
{
if (strFromScreen == "TRANSMISSIONLOG3")
{
/** Loop to get the Selected Records from the First Multiline of Transmission Log Screen **/
eval("window.parent.opener
eval("window.parent.opener
rstLocal = eval("window.parent.opener
// Calculate no. of rows and add rows if neccessary..
nRecordCount = rstLocal.length
objPOGrid.MaxRows = parseFloat(nRecordCount)>o
while (!rstLocal.EOF)
{
if (Trim(rstLocal("txtItemCod
{
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
intRowCtrInCurrentForm = parseFloat(intRowCtrInCurr
}
rstLocal.MoveNext()
}
/** Loop to get the Selected Records from the Second Multiline of Transmission Log Screen **/
eval("window.parent.opener
eval("window.parent.opener
rstLocal = eval("window.parent.opener
nRecordCount = 0
// Calculate no. of rows and add rows if neccessary..
nRecordCount = rstLocal.length
objPOGrid.MaxRows = parseFloat(nRecordCount)>o
while (!rstLocal.EOF)
{
if (Trim(rstLocal("txtItemCod
{
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
divPurchaseOrder.setCellVa
intRowCtrInCurrentForm = parseFloat(intRowCtrInCurr
}
rstLocal.MoveNext()
}
}
}
delete rstLocal
}
}
/*************************
Function to calculate the Bonus Quantity on Enter in Bonus Quantity Field
**************************
function On_CalculateBonusQuantity(
{
var strQuery = ""
var strFieldsList = ""
var strItemPharmaCode = ""
var intItemQuantity = 0
var nBonusColIndex = divPurchaseOrder.getColInd
strItemPharmaCode = divPurchaseOrder.getCellVa
intItemQuantity = divPurchaseOrder.getCellVa
divPurchaseOrder.setCellVa
strFieldsList = "sprBONUS,sprBONUS"
if (strItemPharmaCode == "" || intItemQuantity == "" || isNaN(intItemQuantity)) return false
strQuery += " SELECT TOP 1 CONVERT(INT, QtyDelivery_13) - CONVERT(INT, QtyInvoice_14) AS 'Bonus_Quantity', "
strQuery += " CONVERT(INT, QtyDelivery_13) - CONVERT(INT, QtyInvoice_14) AS 'Bonus_Quantity' "
strQuery += " FROM IIIGaldat_Pharmaceutical_W
strQuery += " WHERE Phar_04 = '" + strItemPharmaCode + "' AND CONVERT(INT, QtyInvoice_14) < " + intItemQuantity
strQuery += " GROUP BY Phar_04,QtyDelivery_13,Qty
strQuery += " ORDER BY CONVERT(INT, QtyInvoice_14) DESC, CONVERT(INT, QtyDelivery_13) - CONVERT(INT, QtyInvoice_14) DESC "
launchhelpEnter("HELPENTER
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
}
/** Variables and Operations if Transmission is to be done **/
var TransmissionStarted = false
var TransmissionSuccess = false
var TransmissionMsg = ""
var IDF = ""
var PhoneNumber = ""
//Added by Venki for replacing the Cookies to Session Start
//var ClientParams = "<%=Request.Cookies("Clien
var ClientParams = "<%=Session("ClientParams"
//Added by Venki for replacing the Cookies to Session End
var LangID = "<%=sLANGID%>"
var Item_ResponseCode = ""
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- start
var noOfLinestoLog = 0
var POLineItemstoLog = ""
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- End
/*************************
Function to create the V50 Transmission Input File
**************************
function CreateInputV50File()
{
/* var IDF = Trim(divPurchaseOrder.getC
var PhoneNumber = Trim(divPurchaseOrder.getC
var ClientParams = "<%=Session("ClientParams"
var LangID = "<%=sLANGID%>"
*/
IDF = Trim(divPurchaseOrder.getC
PhoneNumber = Trim(divPurchaseOrder.getC
ClientParams = "<%=Session("ClientParams"
LangID = "<%=sLANGID%>"
/** Transmission with Error Handling **/
try
{
fso = new ActiveXObject("Scripting.F
/** Delete the previous Transmission's Response file **/
var LocalFileName = "c:\\iii\\v50\\ANSWER.DAT"
if (fso.FileExists(LocalFileN
/** Preparing the Local File Path & Name based on the Customer IDF Code, Delete it if it already exists **/
LocalFileName = "c:\\iii\\v50\\" + IDF + ".v50"
if (fso.FileExists(LocalFileN
var its = fso.CreateTextFile(LocalFi
its.WriteLine('C;2;W2250;G
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- start
noOfLinestoLog = 0
POLineItemstoLog = ""
datestr = getCurrentDate()
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- End
divPurchaseOrder.filters = "";
var objPOMLDOM = divPurchaseOrder.getXMLStr
// Return if there is no rows..
if ( objPOMLDOM == null ) return false;
var rstPOMLDetails = objPOMLDOM.selectNodes("//
var nRowLength = rstPOMLDetails.length
var nNoOfLines = 0
for (var cntr = 1; cntr <= nRowLength; cntr ++)
{
var strITEMCODE = divPurchaseOrder.getCellVa
var nQUANTITY = divPurchaseOrder.getCellVa
var str = ""
if (strITEMCODE != "")
{
str += "1;"
str += makelength(strITEMCODE, 7)
str += ";"
str += makelength(nQUANTITY, 4)
str += ";00;" + datestr
its.WriteLine(str)
nNoOfLines++
}
POLineItemstoLog = POLineItemstoLog + "::" + str //Added by VenkiRSL - 06May2003 TRIAMUNIII1.0S_016597
}
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- start
noOfLinestoLog = nNoOfLines
if(nNoOfLines == 0)
{
alert("<%=errObject.getnth
its.Close()
return false
}
//Modified VenkiRSL for PO Problem - 06May2003 TRIAMUNIII1.0S_016597 -- End
NoofLinesforComparition = makelength(nNoOfLines.toSt
lastline = "E;00;" + NoofLinesforComparition
its.WriteLine(lastline)
its.Close()
}
catch(objException)
{
TransmissionMsg = "<%=errObject.getnthdescri
return false
}
return true
}
/*************************
Function to call PO Transmit on Load of PO Detail DIV
**************************
function On_LOADSUBMITFORTRANSMISSI
{
if (strACTION == "TRANSMITPURCHASEORDERFETC
{
// Step 1 : Create the Input file
if(CreateInputV50File())
{
// Step 2: Execute V50 EXE for Transmission
ExecuteV50Command(IDF, PhoneNumber, ClientParams, LangID)
// Step 3: Read the anwer file and store as ItemCode1~ResponseCode1~~I
Item_ResponseCode = ReadV50AnswerFile()
}
LogPODetailsInTextFile() //Added by VenkiRSL - 06May2003 TRIAMUNIII1.0S_016597
document.frmPurchaseOrder.
/** Transmission status is Failure **/
if (!TransmissionSuccess)
{
alert(TransmissionMsg)
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
//document.frmPurchaseOrde
}
/** Transmission status is Transmitted **/
else
{
document.frmPurchaseOrder.
document.frmPurchaseOrder.
document.frmPurchaseOrder.
//document.frmPurchaseOrde
}
document.frmPurchaseOrder.
On_CallXMLHTTPAfterValidat
return false;
}
}
//Function LogPODetailsInTextFile() added by VenkiRSL for TRIAMUNIII1.0S_016597 - 06May2003
/*************************
Logging the PO Transmission details into flat files before and after PO Transmission
**************************
function LogPODetailsInTextFile()
{
var IDFNo = Trim(divPurchaseOrder.getC
var PONumbertmp = document.frmPurchaseOrder.
var filesys, newfolder, sourceFile, destinationFile
filesys = new ActiveXObject("Scripting.F
if(!filesys.FolderExists("
return
if(!filesys.FolderExists("
return
var HistoryFolder = "c:\\III\\V50\\History"
if(!filesys.FolderExists(H
newfolder = filesys.CreateFolder(Histo
var Curdate = getCurrentDate()
var CurdateArry = Curdate.split(".")
var dt = new Date()
var hours = (dt.getHours().toString().
var minutes = (dt.getMinutes().toString(
var seconds = (dt.getSeconds().toString(
var dateTimetmp = CurdateArry[2]+CurdateArry
var DestinationFolder = HistoryFolder +"\\"+ dateTimetmp+"_"+PONumbertm
if(!filesys.FolderExists(D
newfolder = filesys.CreateFolder(Desti
sourceFile = "c:\\III\\V50\\"+IDFNo+".v
destinationFile = DestinationFolder+"\\"+IDF
if (filesys.FileExists(source
{
filesys.MoveFile(sourceFil
}
sourceFile = "c:\\III\\V50\\Answer.Dat"
destinationFile = DestinationFolder+"\\Answe
if (filesys.FileExists(source
{
filesys.MoveFile(sourceFil
}
if(filesys.FolderExists(De
{
var LogFileName = DestinationFolder+"\\Log.t
its = filesys.CreateTextFile(Log
its.WriteLine("Transmissio
its.WriteLine("Response text : " + Item_ResponseCode)
its.WriteLine("No of lines Read from ML : " + noOfLinestoLog)
its.WriteLine("PO Lines Read from ML : " + POLineItemstoLog)
its.Close()
}
}
/*************************
Event to set the Deilvery Time when defaulting the Time Rules
**************************
function On_ChangeDeliveryTime()
{
var DeliveryTimeTemp = document.frmPurchaseOrder.
if (DeliveryTimeTemp == '')
{
DeliveryTimeTemp = '23:59'
}
SetTimeValue(document.frmP
}
/*************************
Function to Print Delivery Slip when launched from SO
Changed by VenkiRSL:Reports : 20-Jan-2002
**************************
function On_DeliverySlip()
{
var PONumber = document.frmPurchaseOrder.
intPOStatus = Trim(divPurchaseOrder.getC
if(PONumber == "")
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
var strPrintFlag = Trim(document.frmPurchaseO
// Validate if PO Status is empty
if (intPOStatus == "")
{
alert("<%=errObject.getnth
return false
}
// Validate that only authorised purchase orders can be printed
if (intPOStatus != "3")
{
alert("<%=errObject.getnth
return false
}
var size = "directories=no,location=n
var ProcParams = '<%=Triamun_Session("nPart
winReport = window.open('../Reports/II
winReport.focus();
}
/*************************
Function to print Report on press of Print Button
**************************
function On_PrintReports()
{
var size = "directories=no,location=n
var PONO = Trim(document.frmPurchaseO
if(PONO == "")
{
IIIalert("<%=errObject.get
document.frmPurchaseOrder.
return false
}
else
{
retval = isvalidCharSet(document.fr
if (retval == false)
{
IIIalert("<%=ErrObject.get
document.frmPurchaseOrder.
return false;
}
}
ProcParams = '<%=Triamun_Session("nPart
winReport = window.open('../Reports/Re
winReport.focus();
}
/*************************
Function to fire on fetch of Item Details through Enter
**************************
function On_FetchItemDetails()
{
if (strItemHelpEnterRow == "") strItemHelpEnterRow = 0
var nItemDescColIndex = divPurchaseOrder.getColInd
//Adda new line if the help enter is callled from last row of the GRID..
if(objPURCHASEORDER.Maxrow
{
InsertSingleRow(objPURCHAS
}
/** Defaults the Previous Lines Quantity when scanning is done **/
if ( (parseFloat(strItemHelpEnt
{
var tmpOrderQty = divPurchaseOrder.getCellVa
divPurchaseOrder.setCellVa
}
/** Set Focus in Next Row when some Records have been returned **/
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
}
/*************************
Function for Showing Open Orders for the Item on click of Open Order Quantity
**************************
function On_OPENPOQUANTITY(nCol,nRo
{
var nOPENQUANTITY = strColValue
var strItemCode = divPurchaseOrder.getCellVa
var strItemDescription = divPurchaseOrder.getCellVa
if (nOPENQUANTITY != "" && nOPENQUANTITY > 0)
{
var strFILENAME = "HELP.ASP?HELP_ID=105&Star
launchhelp1(strFILENAME);
}
}
var colNo_sprHIDDENCUSTOMERREF
function getColReference()
{
colNo_sprHIDDENCUSTOMERREF
}
/*************************
Function to fire on Load of the form
**************************
function SetDefaults(strFlag)
{
objPURCHASEORDER = document.all("sprPurchaseO
On_LOADSUBMITFORTRANSMISSI
On_FILLVALUESFROMCALLINGSC
//On_LoadFUIFileOnBodyLoad
/** Freeze first Four Columns till Item Description Help **/
objPURCHASEORDER.ColsFroze
//OnLaunch fo the screen - Defaults value are set for the time ..
/*if (strACTION == "")
{
SetTimeValue(document.frmP
SetTimeValue(document.frmP
SetTimeValue(document.frmP
}*/
/*************************
Disable the Mode of Transmission Combo if the PO Status is not in one of the following Cases
1. Not Empty ( Screen Launch )
2. Not in Open Status
3. Not in Authorised Status with Mode of Transmission as Modem
4. Not in Failed Status with Mode of Transmission as Modem
**************************
var nPOSTATUS = Trim(divPurchaseOrder.getC
var strMODEOFTRANSMISSION = Trim(divPurchaseOrder.getC
if (nPOSTATUS == "" || nPOSTATUS == "2" || (nPOSTATUS == "3" && strMODEOFTRANSMISSION == "A") ||
(nPOSTATUS == "6" && strMODEOFTRANSMISSION == "A"))
{
document.frmPurchaseOrder.
}
else
{
document.frmPurchaseOrder.
Allowupdate = false;
}
/*** set focus on launch on the first field ***/
//document.frmPurchaseOrde
/** Set the Focus to the Print Window if the Print Flag Update is a success **/
if(Trim(divPurchaseOrder.g
{
//set the button text to Reprint..
document.frmPurchaseOrder.
if(strACTION == 'PRINTPURCHASEORDER')
{
On_PrintReports()
if (typeof(eval(winReport)) != "undefined")
winReport.focus();
}
}
else
{
document.frmPurchaseOrder.
}
}
</SCRIPT>
<!------------------------
<!------------------------
<SCRIPT LANGUAGE="JavaScript" FOR="sprPurchaseOrder" EVENT="ScriptKeyDown(KeyCo
if (KeyCode == 40)
{
if(objPURCHASEORDER.Active
{
var nItemDescColIndex = divPurchaseOrder.getColInd
var nQtyColIndex = divPurchaseOrder.getColInd
var nBonusColIndex = divPurchaseOrder.getColInd
var nPriceColIndex = divPurchaseOrder.getColInd
var nSelColIndex = divPurchaseOrder.getColInd
var nControlledColIndex = divPurchaseOrder.getColInd
var nDeleteColIndex = divPurchaseOrder.getColInd
if( (objPURCHASEORDER.ActiveCo
{
//Insert a new Row
InsertSingleRow(objPURCHAS
}
}
}
else if (KeyCode == 37 || KeyCode == 39)
{
SetFocusOnNextOrPreviousCo
}
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript" FOR="sprPurchaseOrder" EVENT="ScriptKeyPress(nKey
if (nKeyAscii == 13)
{
var nItemTypeColIndex = divPurchaseOrder.getColInd
var nItemDescColIndex = divPurchaseOrder.getColInd
var nRowNumber = objPURCHASEORDER.ActiveRow
if(objPURCHASEORDER.Active
{
var strItemType = divPurchaseOrder.getCellVa
var strItemEANCode = Trim(divPurchaseOrder.getC
if(strItemType != "" && strItemEANCode != "")
On_HelpOnEnterForItems(nRo
}
else if(objPURCHASEORDER.Active
{
InsertSingleRow(objPURCHAS
}
else if(objPURCHASEORDER.Active
{
var strItemType = divPurchaseOrder.getCellVa
if (strItemType == "I")
{
On_CalculateBonusQuantity(
return false
}
}
}
</SCRIPT>
<!------------------------
<!------------------------
<SCRIPT>
/* Function Calls Help for Item and basler Taxe, if the ... button is clicked */
function On_GridButtonClick()
{
var nCol = event.nCol;
var nRow = event.nRow;
var strFieldName = event.FieldName;
//----------- Help for Item and Basler Taxe ---------------------//
if (strFieldName == "sprHELPFORITEM")
{
HelpForItemOrChemical(nRow
return false;
}
else if(strFieldName == "sprREFERENCE")
{
/*************************
To Launch the Customer Reference Sub Screen as a Modal Window when the Go Button is clicked
**************************
var arrVALUES = new Array();
// Setting the Values to be passed to the SUB SCREEN
arrVALUES[0] = nRow
arrVALUES[1] = divPurchaseOrder.getCellVa
arrVALUES[2] = divPurchaseOrder.getCellVa
arrVALUES[3] = eval("divPurchaseOrder");
arrVALUES[4] = "PURCHASEORDER";
/** Validate that Item Description should be entered before launching the Customer Details sub screen **/
if (arrVALUES[1] == "")
{
alert("<%=errObject.getnth
return false
}
var arrRETURNVALUE = showModalDialog("POCUSTOME
if (arrRETURNVALUE[0] == "OK")
{
arrRETURNVALUE[1] = escape(arrRETURNVALUE[1]);
divPurchaseOrder.setCellVa
// Button color is changed after setting values..
var objPOGrid = eval(divPurchaseOrder.getG
var nColIndex = divPurchaseOrder.getColInd
if(arrRETURNVALUE[1] != "")
Set_Button_Color(objPOGrid
else
Set_Button_Color(objPOGrid
}
return false;
}
}
/* Function to calculate Total on change of Qty and Total */
function On_CellChange()
{
var nCol = event.nCol;
var nRow = event.nRow;
var strFieldName = event.FieldName;
if ( (strFieldName == "sprORDERQUANTITY") || (strFieldName == "sprBONUS") || (strFieldName == "sprRATEINCHF") )
{
On_BlurCalculateTotals(nRo
}
else if(strFieldName == "sprITEMDESCRIPTION")
{
On_ChangeItemDescription(n
}
}
var Allowupdate = true;
function validateTransmissionMode(o
{
//if ( objTxCboMode.value == "A" ) objTxCboMode.value = "M"
var nPOSTATUS = Trim(divPurchaseOrder.getC
var strMODEOFTRANSMISSION = Trim(divPurchaseOrder.getC
if (( nPOSTATUS == "3" ) || ( nPOSTATUS == "6" ))
{
if (strMODEOFTRANSMISSION == "M")
{
objTxCboMode.value = "M"
objTxCboMode.disabled = true;
Allowupdate = false;
}
else
{
if ( objTxCboMode.value = "M" ) Allowupdate = true;
}
}
return false;
}
function cmdItemAvailability_onClic
{
/** To check that atleast one row exists in Multiline **/
var nOrderQuantity = "";
var nSelectColIndex = divPurchaseOrder.getColInd
var nHidItemTypeColIndex = divPurchaseOrder.getColInd
var nItemTypeColIndex = divPurchaseOrder.getColInd
var nItemDescColIndex = divPurchaseOrder.getColInd
var nItemCodeColIndex = divPurchaseOrder.getColInd
var nQuantityColIndex = divPurchaseOrder.getColInd
var nItemTypeColIndex = nHidItemTypeColIndex + "~" + nItemTypeColIndex
var strError = CallProductAvailability("f
if (strError != true)
{
var strErrorArry = strError.split("~")
var intErrorNum = parseInt(strErrorArry[0])
if (strErrorArry.length == 3)
{
var intCol = parseInt(strErrorArry[1])
var intRow = parseInt(strErrorArry[2])
}
if (intErrorNum == "770")
{
alert("<%=errObject.getnth
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
if (intErrorNum == "1548")
{
alert("<%=errObject.getnth
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
if (intErrorNum == "1549")
{
alert("<%=errObject.getnth
objPURCHASEORDER.focus();
objPURCHASEORDER.SetActive
return false;
}
if (intErrorNum == "436")
{
alert("<%=errObject.getnth
return false;
}
}
var winHelp, strWindowName, strFileName;
strWindowName = "ProductAvailability";
strFileName = "ProductAvailability.asp?F
winHelp = window.open(strFileName, strWindowName, 'menubar=no,location=no,to
winHelp.focus();
}
</SCRIPT>
</HEAD>
<!-- Drawing Screen -->
<BODY ID="PURCHASEORDER3" CLASS="pgbody" ONCLICK="bodyHideAll()" ONLOAD="SetDefaults('ONLOA
<%If varFromScreen = "" Then%>
<!--#include file="../include/galmenu.a
<%End If%>
<FORM METHOD="POST" NAME="frmPurchaseOrder" ONSUBMIT="return On_Create()">
<%If varFromScreen <> "" Then%>
<TABLE STYLE="width:954px">
<TR ALIGN="right">
<TD CLASS="tdScreenTitle" NOWRAP><%=lblScreenTitle%>
</TR>
</TABLE>
<HR>
<%End If%>
<TABLE NAME="POHEADER" ID="POHEADER"> <!-- Table for PO Header and ML -->
<TR>
<TD ALIGN="left" COLSPAN="9">
<!-- Hidden Header Controls Starts -->
<INPUT TYPE="hidden" NAME="mTimeStamp" VALUE="">
<INPUT TYPE="hidden" NAME="mPOType" VALUE="">
<INPUT TYPE="hidden" NAME="mNoOfLinesAutomatic"
<INPUT TYPE="hidden" NAME="mNoOfLinesManual" VALUE="">
<INPUT TYPE="hidden" NAME="mNoOfLinesCustomer" VALUE="">
<INPUT TYPE="hidden" NAME="mSalesOrderNo" VALUE="">
<INPUT TYPE="hidden" NAME="mFromScreen" VALUE="">
<INPUT TYPE="hidden" NAME="hidPrintFlag" VALUE="">
<INPUT TYPE="hidden" NAME="hidStatusOfPOBeforeU
<INPUT TYPE="hidden" NAME="hidOnFetchItemDetail
<INPUT TYPE="hidden" NAME="hidDeliveryTime" ONCHANGE="On_ChangeDeliver
<INPUT TYPE="hidden" NAME="hidPODETAILDATA">
<INPUT TYPE="hidden" NAME="hdnPDIExists" VALUE="">
<!-- Hidden Header Controls Ends -->
<!--Begin :Interface 002:PO Transmission - Venki-->
<INPUT TYPE="hidden" NAME="TransResponse">
<INPUT TYPE="hidden" NAME="hidCustomerIDFCode" VALUE="">
<INPUT TYPE="hidden" NAME="hidPhoneNumber" VALUE="">
<!--End :Interface 002:PO Transmission - Venki-->
<!-- Hidden Control For Item availability Starts -->
<INPUT TYPE="hidden" NAME="hidItemAvailability"
<!-- Hidden Control For Item availability Ends -->
<!-- License File for Time Picker & Grid Download Starts -->
<OBJECT CLASSID="<%=lbltriamunlpk%
<PARAM NAME="LPKPath" VALUE="../Download/Triamun
</OBJECT>
</TD>
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblPurch
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtPONumber" MAXLENGTH="15" CLASs="tdEdit" SIZE="17" ONFOCUS="On_SetFocusValue(
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdCCHForPONO" VALUE="..." ONCLICK="HelpForPONumber()
<TD ALIGN="left" CLASS="tdText"><INPUT TYPE="button" NAME="cmdFetch" CLASS="stdButton" VALUE="<%=lblFetch%>" ONCLICK="On_Fetch()" <%=GetAccessPermission("PU
<TD ALIGN="left" CLASS="tdtext"></TD>
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblStatu
<TD ALIGN="left" CLASS="tdtext">
<!-- <INPUT TYPE="hidden" NAME="hidPOStatus" VALUE=""> -->
<!-- <INPUT TYPE="text" NAME="txtPOStatus" CLASS="ctrlHdrReadOnly" READONLY TABINDEX="-1" VALUE="<%=GetQCDDESCRIPTIO
<SELECT NAME="txtPOStatus" CLASS="ctrlHdrReadOnly" DISABLED>
<OPTION VALUE="" SELECTED></OPTION>
<% For varCtr = 0 To UBound(POStatusQCD) 'PO Status retrieved from QCD %>
<OPTION VALUE="<%=POStatusQCD(varC
<% Next %>
</SELECT>
</TD>
<TD ALIGN="left" CLASS="tdHelp"></TD>
</TR>
<TR><TD ALIGN="left" COLSPAN="9"><HR></TD></TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblSuppl
<TD CLASS="tdtext"><INPUT TYPE="text" NAME="txtSupplierDescripti
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdCCHForSupplier" VALUE="..." ONCLICK="HelpForSupplier()
<TD ALIGN="left" CLASS="tdtext"><%=lblOrder
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" ID="txtOrderDate" NAME="txtOrderDate" MAXLENGTH="10" CLASS="tdEdit" ID="<%=lblOrderDate%>" ONFOCUS="On_SetFocusValue(
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdDatePickForOrderD
<TD ALIGN="left" CLASS="tdtext"><%=lblOrder
<TD ALIGN="left" CLASS="tdtext"><OBJECT NAME="txtOrderTime" ID="txtOrderTime" CLASS="tdEdit" STYLE="left:0px;top:0px;he
<PARAM NAME="_ExtentX" VALUE="1826">
<PARAM NAME="_ExtentY" VALUE="900">
<PARAM NAME="_Version" VALUE="393216">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="CalendarBackColor" VALUE="-2147483643">
<PARAM NAME="CalendarForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTitleBackCol
<PARAM NAME="CalendarTitleForeCol
<PARAM NAME="CalendarTrailingFore
<PARAM NAME="CheckBox" VALUE="0">
<PARAM NAME="CustomFormat" VALUE="HH:mm">
<PARAM NAME="DateIsNull" VALUE="0">
<PARAM NAME="Format" VALUE="662831107">
<PARAM NAME="UpDown" VALUE="1">
<PARAM NAME="CurrentDate" VALUE="0.833333333333333">
<PARAM NAME="MaxDate" VALUE="2958465">
<PARAM NAME="MinDate" VALUE="-109205">
</OBJECT></TD>
<TD ALIGN="left" CLASS="tdHelp"><LABEL ID="lblMandatoryRed">*</LA
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblModeO
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtModeOfPO" READONLY TABINDEX="-1" CLASS="ctrlhdrreadonly" VALUE=""></TD>
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblTrans
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" ID="<%=lblTransmissionDate
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdDatePickForTransm
<TD ALIGN="left" CLASS="tdtext"><%=lblTrans
<TD ALIGN="left" CLASS="tdtext"><OBJECT NAME="txtTransmissionTime"
<PARAM NAME="_ExtentX" VALUE="1826">
<PARAM NAME="_ExtentY" VALUE="900">
<PARAM NAME="_Version" VALUE="393216">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="CalendarBackColor" VALUE="-2147483643">
<PARAM NAME="CalendarForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTitleBackCol
<PARAM NAME="CalendarTitleForeCol
<PARAM NAME="CalendarTrailingFore
<PARAM NAME="CheckBox" VALUE="0">
<PARAM NAME="CustomFormat" VALUE="HH:mm">
<PARAM NAME="DateIsNull" VALUE="0">
<PARAM NAME="Format" VALUE="662831107">
<PARAM NAME="UpDown" VALUE="1">
<PARAM NAME="CurrentDate" VALUE="0.833333333333333">
<PARAM NAME="MaxDate" VALUE="2958465">
<PARAM NAME="MinDate" VALUE="-109205">
</OBJECT></TD>
<TD ALIGN="left" CLASS="tdHelp"><LABEL ID="lblMandatoryBlue">*</L
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblModeO
<TD ALIGN="left" CLASS="tdtext">
<SELECT NAME="cboModeOfTransmissio
<OPTION VALUE=""></OPTION>
<%For cntr = 0 To UBound(POTransmissionMode,
if POTransmissionMode(cntr,0)
<OPTION VALUE="<%=POTransmissionMo
<%Else%>
<OPTION VALUE="<%=POTransmissionMo
<%End If
Next%>
</SELECT><LABEL ID="lblMandatoryRed">*</LA
</TD>
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblDeliv
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" ID="<%=lblDeliveryDate%>" NAME="txtDeliveryDate" CLASS="tdEdit" MAXLENGTH="10" ID="<%=lblDeliveryDate%>" ONBLUR="validateDate(this,
<TD ALIGN="left" CLASS="tdHelp"><INPUT TYPE="button" NAME="cmdDatePickForDelive
<TD ALIGN="left" CLASS="tdtext"><%=lblDeliv
<TD ALIGN="left" CLASS="tdtext"><OBJECT NAME="txtDeliveryTime" ID="txtDeliveryTime" CLASS="tdEdit" STYLE="left:0px;top:0px;he
<PARAM NAME="_ExtentX" VALUE="1826">
<PARAM NAME="_ExtentY" VALUE="900">
<PARAM NAME="_Version" VALUE="393216">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="CalendarBackColor" VALUE="-2147483643">
<PARAM NAME="CalendarForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTitleBackCol
<PARAM NAME="CalendarTitleForeCol
<PARAM NAME="CalendarTrailingFore
<PARAM NAME="CheckBox" VALUE="0">
<PARAM NAME="CustomFormat" VALUE="HH:mm">
<PARAM NAME="DateIsNull" VALUE="0">
<PARAM NAME="Format" VALUE="662831107">
<PARAM NAME="UpDown" VALUE="1">
<PARAM NAME="CurrentDate" VALUE="0.833333333333333">
<PARAM NAME="MaxDate" VALUE="2958465">
<PARAM NAME="MinDate" VALUE="-109205">
</OBJECT></TD>
<TD ALIGN="left" CLASS="tdHelp"><LABEL ID="lblMandatoryRed">*</LA
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblSales
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtSalesRep" VALUE="" ID="<%=lblSalesRep%>" MAXLENGTH="40" CLASS="tdEdit" ONBLUR="On_ValidateCharSet
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblTotal
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtTotalValue" READONLY TABINDEX="-1" CLASS="ctrlhdrreadonly" STYLE="text-align:right"><
<TD ALIGN="left" CLASS="tdHelp"></TD>
<TD ALIGN="left" CLASS="tdtext"><%=lblTotal
<TD ALIGN="left" CLASS="tdtext"><INPUT TYPE="text" NAME="txtTotalNoOfLineItem
<TD ALIGN="left" CLASS="tdHelp"></TD>
</TR>
<TR>
<TD ALIGN="left" CLASS="tdtext"><%=lblRemar
<TD ALIGN="left" CLASS="tdtext" COLSPAN="7"><TEXTAREA NAME="txtRemarks" ROWS="2" CLASS="tdEditSpan7" ONKEYPRESS="return LimitTextArea(this, 500)"><%=varRemarks%></TEX
<TD ALIGN="left" CLASS="tdHelp"></TD>
</TR>
</TABLE>
<!-- PO Detail Table -->
<TABLE>
<TR><TD ALIGN="left" COLSPAN="9"></TD></TR>
<TR><TD ALIGN="left" COLSPAN="9"></TD></TR>
<TR>
<TD ALIGN="left" COLSPAN="9">
<!-- #include file="DATAMAPPING_PURCHASE
</TD>
</TR>
<TR>
<TD ALIGN="left" COLSPAN="9">
<TABLE>
<TR ALIGN="left">
<TD ALIGN="left" STYLE="width:300px" CLASS="hdrText">
<INPUT TYPE="checkbox" NAME="chkSelectAllForContr
<LABEL ID="lblCheckUncheckControl
</TD>
<TD ALIGN="right" STYLE="width:650px" CLASS="hdrText">
<DIV ID="IDCreatedOn"><%=varRec
</TD>
</TR>
</TABLE>
</TD>
</TR>
<!--
<TR>
<TD ALIGN="left" CLASS="tdText"></TD>
<TD ALIGN="right" CLASS="tdEditSpan7"><DIV ID="IDCreatedOn" ><%=varRecordCreationLabel
<TD ALIGN="left" CLASS="tdHelp"></TD>
</TR>
-->
<TR><TD ALIGN="left" COLSPAN="9"></TD></TR>
<TR><TD ALIGN="left" COLSPAN="9"></TD></TR>
<TR>
<TD ALIGN="left" COLSPAN="9">
<INPUT TYPE="submit" CLASS="stdButton" NAME="cmdCreate" ID="functionKeyCreate" VALUE="<%=lblCreate%>" <%=GetAccessPermission("PU
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdModify" ID="functionKeyModify" VALUE="<%=lblModify%>" ONCLICK="return On_Modify()" <%=GetAccessPermission("PU
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdDelete" ID="functionKeyDelete" VALUE="<%=lblDeleteTitle%>
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdAuthorise" ID="functionKeyAuthorize" VALUE="<%=lblAuthorise%>" ONCLICK="return On_Authorise()" <%=GetAccessPermission("PU
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdPrint" ID="functionKeyPrint" <%If Trim(varPrintFlag) = "Y" Then%>VALUE="<%=lblRePrint
<!-- <INPUT TYPE="reset" CLASS="stdButton" NAME="cmdReset" VALUE="<%=lblReset%>"> -->
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdClear" ID="functionKeyClear" VALUE="<%=lblClear%>" ONCLICK="On_Clear()">
<%If varFromScreen <> "" Then%>
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdCancel" ID="functionKeyClose" VALUE="<%=lblClose%>" ONCLICK="window.close()">
<%end if%>
&n
<INPUT TYPE="button" CLASS="stdButton" NAME="cmdTransmit" ID="functionKeyTransmit" VALUE="<%=lblTransmit%>" ONCLICK="return On_Transmit()" <%=GetAccessPermission("PU
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdShortClose" VALUE="<%=lblShortClose%>"
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdItemPrice" VALUE="<%=lblItemPrice%>" ONCLICK="On_ItemPrice()">
</TD>
</TR>
<TR>
<TD ALIGN="left" COLSPAN="9">
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdChangeSupplier" VALUE="<%=lblChangeSupplie
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdTransmissionLog" VALUE="<%=lblTransmissionL
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdPartnerDefinedDat
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdItemStatistics" VALUE="<%=lblStatistics%>"
<%'If varFromScreen = "SO" Or Trim(varSalesOrderNo) <> "" Then%>
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdDeliverySlip" VALUE="<%=lblDeliverySlip%
<%'End If%>
<INPUT TYPE="button" CLASS="scrButton" NAME="cmdItemAvailability"
</TD>
</TR>
</TABLE>
</FORM>
<SCRIPT LANGUAGE="VbScript">
' Tool Tip for ML Columns
Sub sprPURCHASEORDER_ScriptTex
' If the column is zero
If Col = 0 Then Exit Sub
' Get the Col Name for the given col index..
If CStr(Col) <> "" Then
strColName = divPurchaseOrder.getColNam
Else
strColName = ""
End If
If (strColName = "sprSEL" AND Row = 0) Then
TipText = "<%=lblSelectTitle%>"
ShowTip = True
End If
If (strColName = "sprITEMTYPE" AND Row = 0) Then
TipText = "<%=lblItemTypeTT%>"
ShowTip = True
End If
If (strColName = "sprSTOCKQUANTITY" AND Row = 0) Then
TipText = "<%=lblStockQuantityTT%>"
ShowTip = True
End If
If (strColName = "sprMINSTOCKQUANTITY" AND Row = 0) Then
TipText = "<%=lblMinStockQuantityTT%
ShowTip = True
End If
If (strColName = "sprMAXSTOCKQUANTITY" AND Row = 0) Then
TipText = "<%=lblMaxStockQuantityTT%
ShowTip = True
End If
If (strColName = "sprOPENORDERQUANTITY" AND Row = 0) Then
TipText = "<%=lblOpenOrderQuantityTT
ShowTip = True
End If
If (strColName = "sprORDERQUANTITY" AND Row = 0) Then
TipText = "<%=lblOrderQuantityTT%>"
ShowTip = True
End If
If (strColName = "sprBONUS" AND Row = 0) Then
TipText = "<%=lblBonusTT%>"
ShowTip = True
End If
If (strColName = "sprTOTALQTY" AND Row = 0) Then
TipText = "<%=lblTotalTT%>"
ShowTip = True
End If
If (strColName = "sprRATEINCHF" AND Row = 0) Then
TipText = "<%=lblRateInCHFTT%>"
ShowTip = True
End If
If (strColName = "sprTOTALAMOUNT" AND Row = 0) Then
TipText = "<%=lblValueOfLineTT%>"
ShowTip = True
End If
If (strColName = "sprREFERENCE" AND Row = 0) Then
TipText = "<%=lblRefTT%>"
ShowTip = True
End If
If (strColName = "sprCONTROLLED" AND Row = 0) Then
TipText = "<%=lblControlledTitle%>"
ShowTip = True
End If
If (strColName = "sprNONMOVINGITEM" AND Row = 0) Then
TipText = "<%=lblNonMovingItemTitle%
ShowTip = True
End If
If (strColName = "sprDELETE" AND Row = 0) Then
TipText = "<%=lblDeleteTitle%>"
ShowTip = True
End If
If (strColName = "sprSOURCE" AND Row = 0) Then
TipText = "<%=lblSourceTT%>"
ShowTip = True
End If
If (strColName = "sprDELQTY" AND Row = 0) Then
TipText = "<%=lblDelQtyTT%>"
ShowTip = True
End If
If (strColName = "sprPENDQTY" AND Row = 0) Then
TipText = "<%=lblPendQtyTT%>"
ShowTip = True
End If
End Sub
</SCRIPT>
</BODY>
</HTML>
===server_purchaseorder3.a
<!-- #include FILE="../include/validateF
<!--#include file="../sessionmanager.in
<% If UCase(Triamun_Session("Lan
<!-- #include file="../include/english/Q
<% ElseIf UCase(Triamun_Session("Lan
<!-- #include file="../include/german/Qc
<% ElseIf UCase(Triamun_Session("Lan
<!-- #include file="../include/french/Qc
<% End If
''''''''''''''''''''''''''
' --------------------------
''''''''''''''''''''''''''
Dim objDOMSERVERSIDE, objPURCHASEORDER, objPODetails, rstPURCHASEORDERHEADER, rstPODISCOUNTMESSAGE
Dim ACTION, varPOStatus, varPONumber, varPODETAIL, nROWCOUNTER, lblNonMovingItem, strRETURNVALUE
Dim errFileName, sPARTNERID, varPartnerName, varUserName, sCON, sLANGID
Dim nERRORNO, strERRORMESSAGE, varDISCOUNTMESSAGE, strERRORMESSAGETEMP, objRETURNVALUE
Dim varStatusOfPOBeforeUpdate,
Dim varSupplierCode, varSupplierDescription, varPOTransmissionMode, varPODeliveryDate, varPODeliveryTime
Dim varPODate, varPOTime, varPOTransmissionTime, varFlagForPrinting, arrParamList
''''''''''''''''''''''''''
' --------------------------
''''''''''''''''''''''''''
SET errObject = Application("ErrObject")
errFileName = Session("FEErrMsgFile")
sPARTNERID = Triamun_Session("nPartnerI
varPartnerName = Triamun_Session("strPartne
varUserName = Triamun_Session("strUserNa
sCON = Application("strODBC")
sLANGID = Triamun_Session("Language"
varDaysForNonMovingItem = Session("PRT010") ' No of Days for an Item to become Non-Moving
If varDaysForNonMovingItem = "" Then varDaysForNonMovingItem = 0
''''''''''''''''''''''''''
' --------------------------
' Query String Variable Name Value Description
' --------------------------
' ACTION FETCH Fetches a purchase order
' INSERTPURCHASEORDER Inserts a New Purchase Order
' MODIFYPURCHASEORDER Modifies an existing Purchase Order
' AUTHORISEPURCHASEORDER Authorises an existing Purchase Order
' TRANSMITPURCHASEORDERFETCH
' TRANSMITPURCHASEORDERUPDAT
' PRINTPURCHASEORDER Prints an Existing Purchase Order
' DELETEPURCHASEORDER Deletes an existing Purchase Order
' SHORTCLOSEPO Short Closes an existing Purchase Order
' FETCHDEFAULTVALUES Fetches deafulte values like supplier, on click of clear button
''''''''''''''''''''''''''
' --------------------------
''''''''''''''''''''''''''
SET objDOMSERVERSIDE = Server.CreateObject("Micro
objDOMSERVERSIDE.load(Requ
''''''''''''''''''''''''''
'-------------------------
''''''''''''''''''''''''''
'Geting Header values from XML object passed from the browser..
ACTION = UCase(objDOMSERVERSIDE.sel
lblNonMovingItem = UCase(objDOMSERVERSIDE.sel
''''''''''''''''''''''''''
'-------------------------
''''''''''''''''''''''''''
If ACTION = "INSERTPURCHASEORDER" Or ACTION = "MODIFYPURCHASEORDER" Or ACTION = "AUTHORISEPURCHASEORDER" Then
Set objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.UpdatePur
Set objPURCHASEORDER = NOTHING
If nERRORNO > 0 Then
strERRORMESSAGETEMP = strERRORMESSAGE
ACTION = "FETCH"
End If
ElseIf ACTION = "DELETEPURCHASEORDER" Or ACTION = "PRINTPURCHASEORDER" Or ACTION = "SHORTCLOSEPO" _
Or ACTION = "MODIFYTRANSMISSIONMODE" Then
Set objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.UpdatePur
Set objPURCHASEORDER = NOTHING
If nERRORNO > 0 Then
strERRORMESSAGETEMP = strERRORMESSAGE
If ACTION = "PRINTPURCHASEORDER" Then varFlagForPrinting = "Y"
If ACTION = "DELETEPURCHASEORDER" Then
'Clear all header and Detail fields execept and fetch the default values
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
' Fetch default values ..
Call FetchPreferredWholesalerAn
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
Else
ACTION = "FETCH"
End If
End If
ElseIf ACTION = "TRANSMITPURCHASEORDERUPDA
Set objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.TransmitP
Set objPURCHASEORDER = NOTHING
If nERRORNO > 0 Then
strERRORMESSAGETEMP = strERRORMESSAGE
ACTION = "FETCH"
End If
End If
'-------------------------
If ACTION = "FETCH" Then
' Clear the ML details before PO fetch, to avoid ML data passed to proc when 100 rows of update is called
objDOMSERVERSIDE.selectSin
' Creating instance of PO Fetch Component
SET objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.FetchPurc
SET objPURCHASEORDER = NOTHING
If nERRORNO >= 0 Then
strERRORMESSAGE = strERRORMESSAGETEMP
' If there is discount for some items and the Po status is Open then display the discount message ..
If Trim(varDISCOUNTMESSAGE) <> "" And CStr(varPOStatus) = "2" Then
strERRORMESSAGE = strERRORMESSAGE & "\n" & errObject.GetNthDescriptio
strERRORMESSAGE = Replace(strERRORMESSAGE, "%", "\n" & varDISCOUNTMESSAGE)
End If
Set objPODetails = Server.CreateObject("Micro
objPODetails.loadXML(strRE
Set objDOMSERVERSIDE = objPODetails
End If
SET objPODetails = NOTHING
End If
'-------------------------
'Begin :Interface 002:PO Transmission - Venki
If ACTION = "TRANSMITPURCHASEORDERFETC
' Creating instance of PO Fetch Component
SET objPURCHASEORDER = Server.CreateObject("IIIPu
strRETURNVALUE = objPURCHASEORDER.FetchPurc
SET objPURCHASEORDER = NOTHING
' If Fetch from Header was a Success do Detail Fetch
If nERRORNO >= 0 Then
Set objPODetails = Server.CreateObject("Micro
objPODetails.loadXML(strRE
Set objDOMSERVERSIDE = objPODetails
End If
SET objPODetails = NOTHING
End If
'End :Interface 002:PO Transmission - Venki
'-------------------------
If ACTION = "FETCHDEFAULTVALUES" Then
'Clear all header and Detail fields execept and fetch the default values
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
' Fetch default values ..
Call FetchPreferredWholesalerAn
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
End If
' --------------------------
If Trim(strERRORMESSAGE) = "" Then
strERRORMESSAGE = strERRORMESSAGETEMP
End If
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.selectSin
objDOMSERVERSIDE.save(Resp
Response.End
''''''''''''''''''''''''''
' FUNCTION TO GET STATUS TO BE UPDATED OR TO SET BACK THE PREVIOUS STATUS AFTER AN INSERT/UPDATE FAILS STARTS
''''''''''''''''''''''''''
Function GetOrSetStatusBasedOnMode(
Dim strRETURNVALUE
strRETURNVALUE = ""
If strTYPE = "GETPREVIOUSSTATUS" Then
SELECT CASE strACTION
CASE "INSERTPURCHASEORDER" : strRETURNVALUE = ""
CASE "MODIFYPURCHASEORDER" : strRETURNVALUE = "2"
CASE "DELETEPURCHASEORDER" : strRETURNVALUE = "2"
CASE "AUTHORISEPURCHASEORDER" : strRETURNVALUE = "2"
CASE "PRINTPURCHASEORDER" : strRETURNVALUE = "3"
CASE "SHORTCLOSEPO" : strRETURNVALUE = varStatusOfPOBeforeUpdate
CASE "TRANSMITPURCHASEORDERUPDA
CASE "MODIFYTRANSMISSIONMODE" : strRETURNVALUE = "3"
END SELECT
ElseIf strTYPE = "GETSTATUSFORUPDATE" Then
SELECT CASE strACTION
CASE "INSERTPURCHASEORDER" : strRETURNVALUE = "2"
CASE "MODIFYPURCHASEORDER" : strRETURNVALUE = "2"
CASE "DELETEPURCHASEORDER" : strRETURNVALUE = ""
CASE "AUTHORISEPURCHASEORDER" : strRETURNVALUE = "3"
CASE "PRINTPURCHASEORDER" : strRETURNVALUE = "3"
CASE "SHORTCLOSEPO" : strRETURNVALUE = 10
CASE "TRANSMITPURCHASEORDERUPDA
CASE "MODIFYTRANSMISSIONMODE" : strRETURNVALUE = "3"
END SELECT
End If
GetOrSetStatusBasedOnMode = strRETURNVALUE
End Function
''''''''''''''''''''''''''
' FUNCTION TO GET STATUS TO BE UPDATED OR TO SET BACK THE PREVIOUS STATUS AFTER AN INSERT/UPDATE FAILS ENDS
''''''''''''''''''''''''''
''''''''''''''''''''''''''
' FUNCTION TO GET THE FIRST PREFERRED WHOLESALER AND DEFAULT THE ORDER DATE/TIME & DELIVERY DATE/TIME STARTS
''''''''''''''''''''''''''
Function FetchPreferredWholesalerAn
varSupplierCode = Trim(Session("PRT016"))
If varSupplierCode <> "" Then
Dim arrParamList
Redim arrParamList(3,3)
' Input Parameter Partner_Id
arrParamList(0,0) = "@Partner_Id"
arrParamList(0,1) = "ANY_COUNT"
arrParamList(0,2) = "adParamInput"
arrParamList(0,3) = sPARTNERID
' Input Parameter Customer Vendor Code
arrParamList(1,0) = "@Customer_Vendor_Code"
arrParamList(1,1) = "ANY_NAME"
arrParamList(1,2) = "adParamInput"
arrParamList(1,3) = varSupplierCode
' Input Parameter Language
arrParamList(2,0) = "Lang"
arrParamList(2,1) = "ANY_FLAG"
arrParamList(2,2) = "adParamInput"
arrParamList(2,3) = sLANGID
Set objPURCHASEORDER = Server.CreateObject("IIIGe
Set rstPURCHASEORDERHEADER = Server.CreateObject("ADODB
Set rstPURCHASEORDERHEADER = objPURCHASEORDER.FetchGene
"IIIFetch_Wholesaler_And_D
nERRORNO, strERRORMESSAGE)
strERRORMESSAGE = ""
If CInt(nERRORNO) > 0 Then
varSupplierDescription = rstPURCHASEORDERHEADER.fie
varPOTransmissionMode = rstPURCHASEORDERHEADER.fie
varPODeliveryDate = rstPURCHASEORDERHEADER.fie
varPODeliveryTime = rstPURCHASEORDERHEADER.fie
varPODate = rstPURCHASEORDERHEADER.fie
varPOTime = rstPURCHASEORDERHEADER.fie
varPOTransmissionTime = varPOTime
rstPURCHASEORDERHEADER.Clo
Set rstPURCHASEORDERHEADER = Nothing
End if
Erase arrParamList
Set objPURCHASEORDER = Nothing
End If
End Function
''''''''''''''''''''''''''
' FUNCTION TO GET THE FIRST PREFERRED WHOLESALER AND DEFAULT THE ORDER DATE/TIME & DELIVERY DATE/TIME ENDS
''''''''''''''''''''''''''
%>
===validate.asp===
<!-- Version No : TRIAMUNIII1.0S_019825 -->
<%'@ language="VBScript" %>
<%
Response.Buffer = true
Response.Expires = -1
'Response.CacheControl = "private"
Response.AddHeader "cache-control", "private"
'Response.AddHeader "pragma","no-cache"
Public Const SUCCESS = 99999
Public Const NATIVE_SQL_ERROR = 88888
Public Const IIISQL_VALIDATION_ERROR = 77777
Public Const IIIMTS_VALIDATION_ERROR = 66666
Public Const nDELETED_ITEM_COLOUR = "Red"
Public Const nCHAINED_ITEM_COLOUR = "#013399"
Public Const nOUTOFSALE_ITEM_COLOUR = "Red"
Public Const nDEFAULT_ITEM_COLOUR = "Black"
Public Const nDELETED_ITEM_COLOUR_GRID = 255
Public Const nCHAINED_ITEM_COLOUR_GRID = 10040065
Public Const nOUTOFSALE_ITEM_COLOUR_GRI
Public Const nDEFAULT_ITEM_COLOUR_GRID = 0
Public Const MAXLENGTHFORPATIENTID = 100
Public Const MAXLENGTHFORQUANTITY = 5
Public Const MAXLENGTHVALUEFORQUANTITY = 99999
Public Const MAXLENGTHVALUEFORPRICE = 9999999
Public Const MAXLENGTHVALUEFORAMOUNT = 999989900001
Public Const nINACTIVE_PATIENT_COLOUR = "Red"
Public Const nACTIVE_PATIENT_COLOUR = "Black"
Public Const nINACTIVE_PATIENT_COLOUR_G
Public Const nACTIVE_PATIENT_COLOUR_GRI
Public Const NUMBEROFDECIMALPLACES = 2
Public Const BTNENABLEDCOLOR = "#003399"
Public Const BTNDISABLEDCOLOR = "#666666"
%>
<!-- #include file="qsort.asp" -->
<%
DIm Path, serverProcPath, strSecureStringHTTPS
Path = Request.ServerVariables("s
dim c
c = Instr(2,Path,"/")
Path = Mid(Path,1,c)
'Modified for SSL Implmentation
strSecureStringHTTPS = Request.serverVariables("H
If strSecureStringHTTPS = "" Or UCase(strSecureStringHTTPS
strSecureStringHTTPS = "http://"
Else
strSecureStringHTTPS = "https://"
End If
serverProcPath = strSecureStringHTTPS + Request.ServerVariables("s
'serverProcPath = server.HTMLEncode(serverPr
if Session("Language") = "" then
Session.Abandon
Response.AddHeader "Refresh","0;URL="+Path+"G
Response.End
end if
Function Redirect( NewURL )
If Not IsEmpty( NewURL & "" ) Then
Dim QuestionMark
QuestionMark = Instr( NewURL, "?" )
If QuestionMark = 0 Then
Response.Redirect NewURL & "?" & NoCacheURL()
Response.End
Else
Response.Redirect NEWURL & "&" & NoCacheURL()
Response.End
End If
End If
End Function
Function NoCacheURL()
On Error Resume Next
'Randomize
NoCacheURL = ".rnd=" & Server.URLEncode(now())
End Function
'Added by : Rajesh P.S
'Added on : 18/May/2001
'Purpose : Function to use along with timestamp varaible. Call this function on the timestamp fetched from the
'backend before storing it in the HTML/server side variant.
Function ConvertBinaryToString(bInp
Dim strInput, i
For i = 1 To LenB(bInput)
strInput = strInput & Right("00" & Hex(AscB(MidB(bInput, i, 1))), 2)
Next
ConvertBinaryToString = strInput
End Function
' Added by : Murali P B
' Added on : 13.01.2002
' Purpose : Function to Format Time received using Request.Form from TimePicker ActiveX Control.
' Value Returned will be in HH:MM 24 Hour Format
Function GetTimeInRequiredFormat(st
strTimeValue = Trim(strTimeValue)
Dim varTempPM
If Mid(strTimeValue, 2, 1) = ":" Then strTimeValue = "0" & strTimeValue
If Mid(strTimeValue, 5, 1) = ":" Then strTimeValue = Mid(strTimeValue,1,3) & "0" & Mid(strTimeValue,4,Len(str
If UCase(Mid(strTimeValue, 10, 2)) = "PM" Then
varTempPM = CDbl(Mid(strTimeValue,1,2)
If varTempPM <> 12 Then varTempPM = CDbl(Mid(strTimeValue,1,2)
strTimeValue = CStr(varTempPM) & Mid(strTimeValue,3,3)
End If
strTimeValue = Mid(strTimeValue,1,5)
GetTimeInRequiredFormat = strTimeValue
End Function
'Added by Sandilyan R
'Added on 21 Feb 2002
'Purpose to Sort the given QCD array.
Function getQCDSortOrder(arrQCDSort
Dim rows,cols,i
rows = UBOUND(arrQCDSort,1)
cols = UBOUND(arrQCDSort,2)
Dim arrNewQCDSort,sortString
arrNewQCDSort = arrQCDSort
QSort2 arrNewQCDSort, 1, 0, rows ' sort the entire array based on column 1
sortString = ""
For i = 0 to rows - 1
sortString = sortString & arrNewQCDSort(i,0) & ","
Next
sortString = sortString & arrNewQCDSort(rows,0)
getQCDSortOrder = sortString
End Function
'Added by Sandilyan R
'Added on 14 Mar 02
'Purpose get Permissions for Action buttons
Function GetAccessPermission(strSCR
Dim ScreenAccess,bitFETCH,bitC
Dim flagEnabled,flagDisabled
flagEnabled = "ENABLED"
if FromScreenSO = "SALESORDER" then
flagDisabled = "DISABLED STYLE='BACKGROUND-COLOR: #666666'"
else
flagDisabled = "DISABLED"
end if
bitFETCH = 1
bitCREATE = 2
bitMODIFY = 3
bitAUTHORIZE = 4
bitDELETE = 5
bitSUBMIT = 6
bitREVERSE = 7
bitANY = -1
strACTION = UCASE(strACTION)
ScreenAccess = SESSION(strSCREENCODE)
IF ScreenAccess = "" THEN
GetAccessPermission = flagDisabled
EXIT FUNCTION
END IF
IF ( strACTION <> "ANY" ) THEN
ScreenAccess = SESSION(strSCREENCODE)
IF CINT(MID(ScreenAccess,Eval
GetAccessPermission = flagEnabled
ELSE
GetAccessPermission = flagDisabled
END IF
END IF
IF ( strACTION = "ANY" ) THEN
IF ( MID(ScreenAccess,1,5) AND "11111" ) > 0 THEN
GetAccessPermission = flagEnabled
ELSEIF ( MID(ScreenAccess,6,5) AND "11111" ) > 0 THEN
GetAccessPermission = flagEnabled
ELSEIF ( MID(ScreenAccess,11,5) AND "11111" ) > 0 THEN
GetAccessPermission = flagEnabled
ELSE
GetAccessPermission = flagDisabled
END IF
END IF
End Function
' Added by : Murali P B
' Added on : 21.01.2002
' Purpose : Function to get the Current Date and Time
Public Function GetServerDateAndTime(strDa
If UCase(strDateOrTime) = "DATE" Then
' Get Current Date in 104 format
If Trim(strVariable) = "" Then
strVariable = Day(Now()) & "." & Month(Now()) & "." & Year(Now())
' Setting Date in Right Format
If Mid(strVariable, 2, 1) = "." Then strVariable = "0" & strVariable
If Mid(strVariable, 5, 1) = "." Then strVariable = Mid(strVariable,1,3) & "0" & Mid(strVariable,4,Len(strV
End If
ElseIf UCase(strDateOrTime) = "TIME" Then
' Get Current Date in 108 format
If Trim(strVariable) = "" Then
strVariable = Time()
strVariable = Left(strVariable, 5)
End If
End If
End Function
' Added by : Venkataramanan M
' Added on : 04.04.2002
' Purpose : Function to decode encoded +
Public Function decodePlus(strValue)
decodePlus = replace(strValue,"$*$","+"
End Function
' Added by : Venkataramanan M
' Added on : 13.08.2002
' Purpose : Function to set Item Description colour in Table.js tables
Public function SetItemColour(TypeOfTable,
if ( TypeOfTable = "HEADERCONTROL" or TypeOfTable = "REGULARTABLE" or TypeOfTable = "XMLTABLE" ) then
if ( TypeOfItem = "DELETEDITEM" ) then
nColourToSet = nDELETED_ITEM_COLOUR
elseif ( TypeOfItem = "CHAINEDITEM" ) then
nColourToSet = nCHAINED_ITEM_COLOUR
elseif ( TypeOfItem = "OUTOFSALEITEM" ) then
nColourToSet = nOUTOFSALE_ITEM_COLOUR
else
nColourToSet = nDEFAULT_ITEM_COLOUR
end if
elseif ( TypeOfTable = "GRID" ) then
if ( TypeOfItem = "DELETEDITEM" ) then
nColourToSet = nDELETED_ITEM_COLOUR_GRID
elseif ( TypeOfItem = "CHAINEDITEM" ) then
nColourToSet = nCHAINED_ITEM_COLOUR_GRID
elseif ( TypeOfItem = "OUTOFSALEITEM" ) then
nColourToSet = nOUTOFSALE_ITEM_COLOUR_GRI
else
nColourToSet = nDEFAULT_ITEM_COLOUR_GRID
end if
end if
Response.Write "STYLE='COLOR:" & nColourToSet & "'"
end function
' Added by : Kiran Babu.D
' Added on : 29.08.2003
' Purpose : Function to get Item Description colour
Public Function IIIGetItemDescriptionColou
If (NOT IsNull(Trim(Deleted_Item_F
Item_Flag = "DELETEDITEM"
ElseIf (NOT IsNull(Trim(Chained_Item_F
Item_Flag = "CHAINEDITEM"
ElseIf (NOT IsNull(Trim(OutOfSale_Item
Item_Flag = "OUTOFSALEITEM"
Else
Item_Flag = ""
End If
IIIGetItemDescriptionColou
End Function
' Added by : Chandrasekar S
' Added on : 01.07.2003
' Purpose : Function to Round a value to it uppervalue (e.g 1.125 to 1.13). This behaviour is same as javascript round
Public Function IIIRoundUp(dInputValue)
Dim arrValue
Dim dAfterDecimalValue
' 3.6 + 23.65 + .55 + 0.1-27.9 - In VB this calc. gives an exponential no.
' Exponentials were not handled in this function
If InStr(CStr(dInputValue), "E") >= 1 Then
dInputValue = Round(dInputValue, 2)
End If
If InStr(dInputValue, ".") = 0 Then
IIIRoundUp = dInputValue
Exit Function
End If
arrValue = Split(dInputValue, ".")
If CStr(arrValue(1)) = "" And Len(CStr(arrValue(1))) = 2 Then
IIIRoundUp = Round(CDbl(dInputValue), 2)
Exit Function
End If
If Len(CStr(arrValue(1))) >= 3 Then
dAfterDecimalValue = Mid(CStr(arrValue(1)), 1, 3)
If InStrRev(dAfterDecimalValu
dAfterDecimalValue = CStr(dAfterDecimalValue) + CStr(5)
dInputValue = CStr(arrValue(0)) + "." + CStr(dAfterDecimalValue)
End If
End If
IIIRoundUp = Round(CDbl(dInputValue), 2)
End Function
%>
<SCRIPT language="JavaScript" >
var encryptionsysparam = '<%=Session("ASP017")%>';
var Encryptionpassword = '<%=Session("Encryptionpas
var commonjsUserID = '<%=Session("UserID")%>';
function InvokeServerProc(strMethod
{
//This is to trigger server side method without reloading the page.
if ( typeof(strParameters) == "undefined" )
var strParameters = "";
var QueryString = "";
QueryString = QueryString + "<QUERYSTRING>";
QueryString = QueryString + "<METHODNAME></METHODNAME>
QueryString = QueryString + "<PARAMETERS></PARAMETERS>
//Changes Added By Enian For CR BUG ID TRIAMUNIII1.0S_014098
QueryString = QueryString + "<STOREDPROCEDURE></STORED
//Changes Added By Enian For CR BUG ID TRIAMUNIII1.0S_014098
QueryString = QueryString + "</QUERYSTRING>";
var objXMLDoc = new ActiveXObject("Microsoft.X
var node=null;
objXMLDoc.loadXML(QueryStr
node = objXMLDoc.selectSingleNode
node.text = strMethodName;
node = objXMLDoc.selectSingleNode
//Changes Added By Enian For CR BUG ID TRIAMUNIII1.0S_014098
if ( typeof(strParameters) == 'object' )
node.text = strParameters.xml;
else
node.text = strParameters;
var strSP ='';
if ( typeof(strStoredProcedures
strSP = '';
else
strSP = strStoredProcedures;
node = objXMLDoc.selectSingleNode
node.text = strSP;
//Changes Added By Enian For CR BUG ID TRIAMUNIII1.0S_014098
if (strMethodName == "")
{
alert("Please provide MethodName");
return null;
}
var xmlhttp = new ActiveXObject("Microsoft.X
var serverPath = "<%=serverProcPath%>"
xmlhttp.Open("POST",server
xmlhttp.Send(objXMLDoc);
if ( xmlhttp.statusText == "OK" )
{
objResultXML = xmlhttp.responseXML;
if (objResultXML.xml == "" )
{
return null;
}
else
{
if ( typeof(strStoredProcedures
return objResultXML;
else
return objResultXML.xml;
}
}
else
{
alert(xmlhttp.statusText);
return null;
}
}
//To trap F5 function and mouse down key - sans 02.Mar.02
document.attachEvent("onke
function fun_keytrap()
{
var windowname;
if (window.event.keyCode == 116)
{
event.keyCode = ""
window.event.returnValue=f
}
// To trap Esc Key FIx for TRIAMUNIII1.0S_010817
else if(window.event.keyCode == 27)
{
window.event.returnValue=f
}
if (window.event.keyCode == 87) //Ctrl + W (Logoff)
{
if (window.event.ctrlKey)
{
windowname = parent.window.name;
if( windowname.toUpperCase() == "FRMPAGE")
{
if(window.confirm(getError
{
window.event.returnValue = true;
parent.window.parent.windo
}
else
{
window.event.keyCode = "";
window.event.returnValue = false;
}
return;
}
if( windowname.toUpperCase() == "LOGIN")
{
if(window.confirm(getError
{
window.event.returnValue = true;
parent.window.close();
}
else
{
window.event.keyCode = "";
window.event.returnValue = false;
}
return;
}
}
}
}
//function to get the patient hdr
//added by sans on 12/june/2002
function getPatientHdr(strParameter
{
var Parameter = strParameters.split("@@")
var intPatientId = Parameter[0]
// Mandatory check for the Patient Header
if (Trim(intPatientId) == '') return false;
if (parseFloat(intPatientId.l
{
alert(getErrorMessage('16'
return false;
}
var regExpr;
regExpr = /[\\?"<>|`~!@#$&]/ig;
if (regExpr.test(intPatientId
{
alert(getErrorMessage('263
return false;
}
var ArgumentCount = intPatientId.split(",")
var strInput = intPatientId + "@@" + ArgumentCount.length
var resultString = InvokeServerProc("FetchPat
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
//parse the string to get the data
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectNodes("//O
var len = nodes.length;
var errno = nodes[len - 2].text;
var errmsg = nodes[len - 1].text;
if ( len > 2 )
{
var PasswordReturn;
//For patient pwd check
if ( (parseInt(errno) > 0 ) && (nodes[4].text == "N" ) )
{
var strPatientId = intPatientId
var varParameters = new Array()
varParameters[0] = nodes[2].text
varParameters[1] = nodes[3].text
varParameters[2] = true
varParameters[4] = nodes[5].text
PasswordReturn = window.showModalDialog("Pa
if (!PasswordReturn)
{
//clear fields
nodes[0].text = ""
nodes[2].text = ""
nodes[3].text = ""
nodes[1].text = ""
nodes[4].text = ""
}
}
}
else if ((len = 2) && (parseInt(errno) == -100))
{
if(typeof(windowSizeProper
{
var windowSizeProperties = 'menubar=no,location=no,to
window.open(Parameter[1],"
}
else
launchhelp1(Parameter[1]);
return false
}
return nodes;
}
//function to get the error msg from file
//added by sans on 12/june/2002
//Added for the defect TRIAMUNIII1.0S_010692 -- Sathish
function getErrorMessage(strParamet
{
var resultString = InvokeServerProc("GetError
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
//parse the string to get the data
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectSingleNode
return nodes.text
}
//function to get the PO Number for the Given sales order
//added by sankar on 10/july/2002
//Added for the defect TRIAMUNIII1.0S_009559
function getPONumber(strSONumber)
{
var resultString = InvokeServerProc("GetPONum
var PONum
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
//parse the string to get the data
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectNodes("//O
var len = nodes.length;
var errno = nodes[len - 2].text;
var errmsg = nodes[len - 1].text;
if (parseInt(errno) > 0)
PONum=nodes[0].text
else
PONum=""
return PONum
}
function getStandardPosology(strPos
{
var resultString = InvokeServerProc("GetStand
var PosologyText
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
//parse the string to get the data
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectNodes("//O
var len = nodes.length;
var errno = nodes[len - 2].text;
var errmsg = nodes[len - 1].text;
if (parseInt(errno) > 0)
PosologyText=nodes[0].text
else
PosologyText=""
return PosologyText
}
function getItemDetails(strItemInpu
{
var resultString = InvokeServerProc("GetItemD
var objXMLDoc = new ActiveXObject("Microsoft.X
var nodes =null;
objXMLDoc.loadXML(resultSt
nodes = objXMLDoc.selectNodes("//O
return nodes
}
function checkMarquee()
{
var objMarqueeList = null;
if ( event.type == "unload" )
{
//code Change for TRIAMUNIII1.0S_012467
try
{
if ( typeof(window.opener) == "object" )
objMarqueeList = window.opener.document.get
}
catch(objException)
{
}
//End of Code Change for TRIAMUNIII1.0S_012467
}
else
{
//code Change for TRIAMUNIII1.0S_012467
try
{
if ( typeof(window.opener) == "object" )
{
var objMarqueeList = window.opener.document.get
var cntt = 0
for (cntt = 0; cntt <= objMarqueeList.length - 1; cntt++)
{
eval(objMarqueeList.item(c
}
if (objMarqueeList.length > 0 )
window.attachEvent("onunlo
}
objMarqueeList = window.document.getElement
}
catch(objException)
{
}
//End of code Change for TRIAMUNIII1.0S_012467
}
if (objMarqueeList == null) return;
for (cntt = 0; cntt <= objMarqueeList.length - 1; cntt++)
{
eval(objMarqueeList.item(c
}
}
window.attachEvent("onload
var timeinterval = "";
function starttimer()
{
Cookdel(0)
timeinterval = window.setInterval("startt
}
</SCRIPT>
===session_manager.asp===
<%
dim strSMGRProcedureName, arrSMGRParamList, Triamun_Session_Filled, SMGRSessionId, nSMGRERRORNO, strSMGRERRORMESSAGE
dim objSMGRDICTIONARY,rstSMGRS
Triamun_Session_Filled = 0
Function ReadSessionKey()
ReadSessionKey = Request.Cookies("triamunCo
End Function
'Sub WriteSessionKey(sSessionKe
' Response.Cookies("triamunC
' Response.Cookies("triamunC
'End Sub
'IIICreateSession()
public Function Triamun_Session(SessionPar
' If the session value requested has already been fetched in this page then give it else fetch all the values
' and cache. return the requested value
'response.write Triamun_Session_Filled
'response.end
If Triamun_Session_Filled <> 0 then
Triamun_Session = objSMGRDICTIONARY.Item(Ses
Exit Function
End If
Set objSMGRDICTIONARY = Server.CreateObject("Scrip
Set ObjSMGRFetchGeneric = Server.CreateObject("IIIGe
Set rstSMGRSESSION = Server.CreateObject("ADODB
varSPName = "IIIFetch_user_Session"
ReDim varSMGRPARAMINPUT(0, 3)
SMGRSessionId = ReadSessionKey()
If Trim(SMGRSessionId) = "" Then
Triamun_Session = ""
Exit Function
End If
varSMGRPARAMINPUT(0, 0) = "@Session_Id"
varSMGRPARAMINPUT(0, 1) = "ANY_ERRMSG"
varSMGRPARAMINPUT(0, 2) = "adParamInput"
varSMGRPARAMINPUT(0, 3) = SMGRSessionId
' sASPCONNECTION = ""
nSMGRERRORNO = 0
strSMGRERRORMESSAGE = ""
Set rstSMGRSESSION = ObjSMGRFetchGeneric.FetchG
If nSMGRERRORNO > 0 Then
rstSMGRSESSION.MoveFirst
While Not rstSMGRSESSION.EOF
'varSMGRSessionId = rstSMGRSESSION("Session_Id
'varPARTNERID = rstSMGRSESSION("Partner_Id
'varPARTNERNAME = rstSMGRSESSION("Partner_Na
'varPARTNERADMINNAME = rstSMGRSESSION("Partner_Ad
'varPARTNERTYPE = rstSMGRSESSION("Partner_Ty
'varPARTNERLICENCE = rstSMGRSESSION("Partner_Li
'varPARTNERKANTON = rstSMGRSESSION("Partner_Ka
'varSOFTWARELICENCE = rstSMGRSESSION("Software_L
'varSHOWGALDATALERT = rstSMGRSESSION("Show_Galda
'varLOGINLANGUAGE = rstSMGRSESSION("Login_Lang
'varPARTNERDATABASE = rstSMGRSESSION("Partner_Da
Call objSMGRDICTIONARY.Add("nPa
Call objSMGRDICTIONARY.Add("str
Call objSMGRDICTIONARY.Add("str
Call objSMGRDICTIONARY.Add("str
Call objSMGRDICTIONARY.Add("Lic
Call objSMGRDICTIONARY.Add("str
Call objSMGRDICTIONARY.Add("str
'Call objSMGRDICTIONARY.Add("nPa
Call objSMGRDICTIONARY.Add("Lan
Call objSMGRDICTIONARY.Add("Tra
Call objSMGRDICTIONARY.Add("Enc
Call objSMGRDICTIONARY.Add("Use
Call objSMGRDICTIONARY.Add("str
rstSMGRSESSION.MoveNext
Wend
End if
Set ObjSMGRFetchGeneric = Nothing
Set rstSMGRSESSION = Nothing
'If objSMGRDICTIONARY.Item("La
' Call objSMGRDICTIONARY.Add("FEE
'ElseIf objSMGRDICTIONARY.Item("La
' Call objSMGRDICTIONARY.Add("FEE
'ElseIf objSMGRDICTIONARY.Item("La
' Call objSMGRDICTIONARY.Add("FEE
'End If
Triamun_Session_Filled = "1"
If objSMGRDICTIONARY.Exists(S
Triamun_Session = objSMGRDICTIONARY.Item(Ses
Else
Triamun_Session = ""
End If
Triamun_Session = objSMGRDICTIONARY.Item(Ses
End Function
%>
Kindly explain me in detail as I am new to asp...
Regards
and Thanks for help in anticipation
Uma
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.