<html>
<title>Create & update "customer-items price list" table</title>
<!-- ---------------- w3lkped.jsp -------------- -->
<%@ taglib uri="http://cav.co.il/taglibs/mumps" prefix="m" %>
<m:session namespace="USER">
<%@ include file="w1jbarg.jsp" %>
<m:exec expr='D ^%W1ARG' />
<m:if expr="'$G(JB)" >
 <m:setSessionId expr='$$^%W1SsID("W3ORD")' />
</m:if>
<m:exec expr='D ^W3CSS' />
<m:exec expr='I $G(%ARG("MSD")) D PUT^%W1PRM("MSD",%ARG("MSD"))' />
<m:exec expr='S MSD=$$GET^%W1PRM("MSD") I $G(%ARG("SLK"))?1N D PUT^%W1PRM("SLK",%ARG("SLK"))' />
<head>
<script>

<%@ include file="w1procg.jsp" %>
<%@ include file="w3procbo.jsp" %>
<%@ include file="w4procl.jsp" %>


function ClearChn()
{
  setCookie("CHNLKP"+GetJB(),"0",0)
}

function Par2Tmp(lkh)
{
  var prm="w3lkped.Par2Tmp;"+lkh ;
  var a=<m:serverExec expr='S PRM=$$^W4PRMSRV(PRM) D PAR2TMP^W3PARLKH(PRM) W 1' varName='PRM' varValue='prm' />;
}

function AskSave(stam)
 {
    var chnlkp=getCookie("CHNLKP"+GetJB())
    ClearChn()
    var lkh=GetLKH()
    if ( +chnlkp == 1 )
    {
     var sv=confirm(Txt4Msg("SAVECHANGES"))
     if (!sv) 
      {
        Par2Tmp(lkh)
        return;
      }

     Save()
     return
    }

    Par2Tmp(lkh)
 }

function Save()
{
 ClearChn()
 var prm="w3lkped.Save;"+GetLKH()
 var a=<m:serverExec expr='S PRM=$$^W4PRMSRV(PRM) D SAVE^W3PARLKH(PRM) W 1' varName='PRM' varValue='prm' />
 MsgA("DONE")
}

function DelLkP()
{
 ClearChn()
 var del=confirm(Txt4Msg("AREYOUSURE"))
 if (!del) return

 var lkh=GetLKH()
 var a=<m:serverExec expr='D DEL^W3PARLKH(LKH) W 1' varName="LKH" varValue="lkh" />
 MsgA("DONE")
 PageReload()
}

function CustomerPrice(codp,vl)
{
 //alert("codp="+codp+" vl="+vl)
 var prm="w3lkped.CustomerPrice;"+codp+";"+vl
 var a=<m:serverExec expr='S PRM=$$^W4PRMSRV(PRM) D SETMH^W3PARLKH(PRM) W 1' varName='PRM' varValue='prm' />
 setCookie("CHNLKP"+GetJB(),'1','1')
}

function GetSrcId()
{
 return document.getElementById("srcid")
}

function GetKV()
{
 return document.getElementById("grprt").value
}

function GetLKH()
{
 var a=document.getElementById("lkh").value
 if ( a== "" )
 {
  a="<m:out expr='$$FIRSTGR^W3PARLKH' />"
 }
 return a
}

function PageReload()
{
 var prm
 if ( document.getElementById("mhonly").checked ) prm='&MHONLY=1'
 else prm='&MHONLY=0'

 hrf=HrefWithoutFirst(self)
 hrf=HrefWithoutPrmS(hrf,"&MHONLY")
 hrf=HrefWithoutPrmS(hrf,"&LKH")
 hrf=hrf+prm
 //alert("hrf="+hrf)
 self.location.replace(hrf)
}

function ShowLkP(VL,prm)
{
 if (typeof VL == 'undefined' ) VL=GetLKH();
 if (typeof prm == 'undefined' ) prm=""
  //alert("VL="+VL)
  var ifrlkp=document.getElementById("idlkp")
  ifrlkp.src="w3lkpidk.jsp?JB=<m:out expr='$G(JB)' />&LKH="+VL+"&SHMV="+GetShmv()+prm
}

function ShowPrt(VL,prm,NoClrSrc)
{
  if (typeof NoClrSrc=='undefined' ) NoClrSrc=0
  //alert("KV="+VL+" CDKV="+GetCDKV())
  if (typeof VL == 'undefined' ) VL=GetKV()
  if (typeof prm == 'undefined' ) prm=""
  var ifrprt=document.getElementById("idprt")
  if (!NoClrSrc)
  { ClearSrc() }
  var kv=VL
  var srch=U2L(GetSRCH())
  if ( srch !== "" ) kv=""
  ifrprt.src="w3lkprt.jsp?JB=<m:out expr='$G(JB)' />&KV="+kv+"&LKH="+GetLKH()+"&SHMV="+GetShmv()+"&SRCH="+srch+prm
}

function Search()
{
  ShowPrt(GetKV(),"",1)
}

function Unload()
{
 var a=<m:serverExec expr='S SEFROM="W3LKPED" K ^[$$^W3MAIN]TMPPAR($$^%W1JB) W 1' />
}

function OnLoad()
{
 Par2Tmp(GetLKH())
 ShowLkP(GetLKH())
 ShowPrt(GetKV())
}

</script>
</head>

<body onLoad="OnLoad()" onUnload="Unload()" onMouseDown="ifrHide()" >

<div align="center" >
<table width="100%" border="0" dir="<m:out expr='$$^%W1DIR' />" >
 <tr>
  <td style="text-align:center;<m:out expr='$$FONTFM^W3CSS' />;font-size:<m:out expr='$$^W3FSZ(16)' />; background-color:<m:out expr='$$BGHD^W3CSS($$COLOR^W3CSS)' />;color:<m:out expr='$$FRHD^W3CSS($$COLOR^W3PRM)' />" >
   <m:if expr='+$G(%ARG("SLK"))=0' >
    <m:out expr='$$H2U^%L1FRM($$^W3MSDG(+MSD))_" - "_$$^%W1DICT("CUSTOMERITEMSPRICESLIST")' />
   </m:if>
   <m:if expr='$G(%ARG("SLK"))' >
    <m:out expr='$$H2U^%L1FRM($$^W3MSDG(+MSD))_" - "_$$^%W1DICT("CUSTOMERSGROUPITEMSPRICESLIST")' />
   </m:if>
  </td>
 </tr> 
</table>

<table width="100%" border="0" dir="<m:out expr='$$^%W1DIR' />" >
 <tr>
  <m:if expr='$$SMALL^W3PARLKH!$$SLK^W3PARLKH!$G(%ARG("MHONLY"))' >
  <td width="30%" style="text-align:<m:out expr='$S($$^%W1DIR="LTR":"left",1:"right")' />" >
   <m:out expr='$S($$SLK^W3PARLKH:$$^%W1DICT("CUSTOMERSGROUP"),1:$$^%W1DICT("CUSTOMER"))' />&nbsp; 
  </m:if>
  <m:if expr='+$$SMALL^W3PARLKH=0&(+$$SLK^W3PARLKH=0)&(+$G(%ARG("MHONLY"))=0)' >
  <td width="50%" style="text-align:<m:out expr='$S($$^%W1DIR="LTR":"left",1:"right")' />" >
  </m:if>
   <m:exec expr='S EEFROM="W3LKPED" N FIRSTGR S FIRSTGR="LKH" D GROUP^W3PARLKH K FIRSTGR' />
  </td>

  <m:if expr='$$SMALL^W3PARLKH!$$SLK^W3PARLKH!$G(%ARG("MHONLY"))' >
  <td width="22%"><m:out expr='$S($$SLK^W3PARLKH:$$^%W1DICT("SHOWCUSTOMERSGROUPSWITHPRICESLISTONLY"),1:$$^%W1DICT("SHOWCUSTOMERSWITHPRICESLISTONLY"))' />&nbsp;<input type="checkbox" id="mhonly" <m:out expr='$S($G(%ARG("MHONLY")):"checked=""checked""",1:"")' /> onChange="PageReload()" </td>
  </m:if>

  <td width="25%" valign="top" >
   <m:out expr='$$^%W1DICT("GROUP")' />&nbsp; 
   <m:exec expr='S EEFROM="W3LKPED" N FIRSTGR S FIRSTGR="KVPRT" D GROUP^W3PARLKH K FIRSTGR' />
  </td>

  <td valign="top">
   <input type="text" id="srcid" maxlength="14" size="14"/>
   <input type="button" id="srcsbm" value="<m:out expr='$$^%W1DICT("SEARCHITEM")' />" onClick="Search()" />
  </td>
 </tr> 
</table>

<table align="center" width="100%" height="85%" border="1" dir="<m:out expr='$$^%W1DIR' />" >
 <tr>
  <td width="48%"><iframe style="width:100%;height:100%" name="lkp" id="idlkp" ></iframe></td>
  <td width="8%"><iframe style="width:100%;height:100%" src="w3lkpmv.jsp?JB=<m:out expr='+$G(JB)' />&LKH=<m:out expr='$$FIRSTGR^W3PARLKH' />" name="mv" id="idmv" ></iframe></td>
  <td width="44%"><iframe style="width:100%;height:100%" name="prt" id="idprt" ></iframe></td>
 </tr>
</table>

<iframe name="cwindow" id="ifr" class="ifr"></iframe>
</m:session>
</body>
</html>










