%RO Routine Output Utility
GT.M 09-JUN-2018 17:09:34
W4DMN
W4DMN ; DOCH DMEY MISHL NOSAFIM [ 09.06.18 17:03 ] [ 28.05.18 18:33 ] [ 08.05.18 12:47 ] 
 N (JB,%ARG,%REM)
 S $ZT="S zr=$R X ^ZT  ZG "_$ZL_":ERWB^%L1X"
 Q:'$G(JB)
 D ^%W1ARG
 ;
 ;
 W "<div dir="""_$$^%W1DIR_""" align=""center"">",!
  W "<table class=""hdvw"" "
   W "style=""font-size:"_$$^W3FSZ(16)_";width:100%"" border=""1"">",!
   W "<tr>"
    W "<td>"
      W $$H2U^%L1FRM($$^W3MSDG($$GET^%W1PRM("MSD")))_" : "
      W $$^%W1DICT("DMNREPORT")
    W "</td>"
  W "</tr>"
  W "</table>",!
  ;
  S COLSPAN=7
  ;
  I '$G(MEDAT),'$G(ADDAT) D  Q
    .N DTZ S DTZ=$$^W4DZ
    .W "<table width=""70%"" style=""font-size:"_$$^W3FSZ(12)_""">",!
    . W "<tr>"
    .  W "<td dir=""LTR"">"
    .     D ^%W1DAT("MEDAT",DTZ,$$^%W1DICT("FROMDATE"))
    .  W "</td>" 
    .  W "<td>&nbsp;</td> ",!
    .  W "<td dir=""LTR"">"
    .    D ^%W1DAT("ADDAT",DTZ,$$^%W1DICT("UNTILDATE"))
    .  W "</td>"
    .  W "<td>&nbsp;</td> ",!
    .  W "<td>"
    .    D ROUNDBUT^%W1JS("sbm",$$^%W1DICT("SUBMIT"),"Submit()","color:green","wh,22")
    .  W "</td>" 
    .  W "<td>"
    .    D ROUNDBUT^%W1JS("backid",$$^%W1DICT("BACK"),"Back()","color:red","wh,22")
    .  W "</td>"
    . W "</tr> ",!
    .W "</table>",!
 ;
 ;
 S MEDT=$$^%L1DC($G(MEDAT),3)
 S ADDT=$$^%L1DC($G(ADDAT),3)
 ;
 D DIVBUT
 W "<br>" 
 ;
 D KOT ;
 W "<br>",!
 ;
 W "<table id=""TblDmn"" border=""1"" width=""90%"" cellspacing=""0"" cellpadding=""3"">"
 W "<tr>"
  W "<th>"_$$^%W1DICT("COURIER")_"</th>"
  W "<th>"_$$^%W1DICT("DATE")_"</th>"
  W "<th>"_$$^%W1DICT("CITY")_"</th>"
  W "<th>"_$$^%W1DICT("CUSTOMNUMBER")_"</th>"
  W "<th>"_$$^%W1DICT("CUSTOMNAME")_"</th>"
  W "<th>"_$$^%W1DICT("ADDRESS")_"</th>"
  W "<th>"_$$^%W1DICT("TIME")_"</th>"
  W "<th>"_$$^%W1DICT("ORDER")_"</th>"
  W "<th>"_$$^%W1DICT("TOPAY")_"</th>"
  W "<th>"_$$^%W1DICT("DLVPAY")_"</th>"
  I $$EDIT W "<th>"_$$^%W1DICT("PREVPAY")_"</th>"
  W "<th>"_$$^%W1DICT("ADDDLVPAY")_"</th>"
  I $$EDIT D
  .W "<th>"_$$^%W1DICT("CHANGED")_"</th>" 
 W "</tr>",!
 ;
 S VRM=$$^W4MAIN("VRM")
 K @VRM
 ;
 F DT=MEDT:1:ADDT D
 .S HZM="" F  S HZM=$O(@$$^W4GL("W4LINKD")@(DT,HZM)) Q:HZM=""  D HZM
 ;
 ;
 K STOPAY,SDMSH,SDMN,SHZ
 S (STOPAY,SDMSH,SDMN,SHZ)=0
 ;
 S PSL="" F  S PSL=$O(@VRM@(PSL)) Q:PSL=""  D
 .I $G(%ARG("PSL")),PSL'=%ARG("PSL") Q
 .S DT="" F  S DT=$O(@VRM@(PSL,DT)) Q:DT=""  D
 ..S SHAA="" F  S SHAA=$O(@VRM@(PSL,DT,SHAA)) Q:SHAA=""  D
 ...S HZM="" F  S HZM=$O(@VRM@(PSL,DT,SHAA,HZM)) Q:HZM=""  D
 ....S ST=$G(^(HZM))
 ....D TRHZ(PSL,DT,HZM,ST)
 .
 .I '$$EDIT D
 ..W "<tr style=""background-color:lightyellow;font-weight:bold"" >"
 ..W "<td colspan="""_COLSPAN_""">"_$$H2U^%L1FRM(@$$^W4GL("P1SL")@(PSL))_"</td>"
 ..W "<td>"_$G(SHZ(PSL))_"</td>"
 ..W "<td>"_$J($G(STOPAY(PSL)),2,2)_"</td>"
 ..W "<td>"_$J($G(SDMSH(PSL)),2,2)_"</td>"
 ..W "<td align=""center"">"_$J($G(SDMN(PSL)),2,2)_"</td>"
 .
 ;
 W "<tr id=""trtot"" style=""background-color:yellow;font-weight:bold"" >"
  W "<td colspan="""_COLSPAN_""">"_$$^%W1DICT("TOTAL")_"</td>"
  W "<td>"_$G(SHZ)_"</td>"
  W "<td>"_$J(STOPAY,2,2)_"</td>"
  W "<td>"_$J(SDMSH,2,2)_"</td>"
  ;
  I '$$EDIT W "<td align=""center"">"_$J(SDMN,2,2)_"</td>"
  I $$EDIT D
  .W "<td>&nbsp;</td>"
  .W "<td align=""center"">" 
  .W " <input type=""text"" size=""8"" id=""totdmn"" readonly=""readonly"" value="""_$J(SDMN,2,2)_""" />"
  .W "</td>" 
  .W "<td>&nbsp;</td>"
 W "</tr>",!
 ;
 W "</div>",!
 K @VRM
 K @$$^W4MAIN("VRMPSL")
 Q
 ;
 ;
HZM ;
 I $$^W4PIZUL(HZM) Q
 ;
 S %SCRN="P1HZ"
 D GA^W4SCREF(%SCRN,$$^W4ORD_"(HZM)")
 ;
 S BAIT=$$BAIT^W4HZMST(HZM),DIRA=$$DIRA^W4HZMST(HZM)
 I BAIT,DIRA S BAIT=BAIT_"/"_DIRA
 S ADR=BAIT_" "_$$KTV^W4HZMST(HZM)
 ;
 S IR=$$IR^W4HZMST(HZM)
 N DTH S DTH=$$^%L1DC(TRH,3)
 ;
 I $$^W4ISCDLK(LKHN) S NMB=LKHN
 N NMB1 S NMB1=$TR(NMB,"-","")
 I $G(MEPSL),PSL<MEPSL!(PSL>$G(ADPSL)) S OK=0 Q
 ;
 S IR=$$SPA^%L1FRM($G(IR))
 ;;I $$^W4MSL(NMB),IR="" S IR="TAKEAWAY"
 I $$TAKEAWAY(IR) Q
 I IR="eti aia` lz" S IR="aia` lz"
 S PSL=$$PSL^W4HZMST(HZM) Q:'PSL
 ;
 S ST=HZM_"\"_TRH_"\"_IR_"\"_NMB_"\"_ADR_"\"_SHAA_"\"_TSHL_"\"_DMSH
 S:SHAA="" SHAA="00:00"
 S @VRM@(PSL,DT,SHAA,HZM)=ST
 Q
 ;
 ;
TRHZ(PSL,DT,HZM,ST) ;
 D PRS^%L1FRM(ST,"HZM\TRH\IR\NMB\ADR\SHAA\TSHL\DMSH","\")
 W "<tr id=""tr"_HZM_""" >"
  W "<td>"_$$H2U^%L1FRM(@$$^W4GL("P1SL")@(PSL))_"</td>"
  W "<td>"_TRH_"</td>"
  W "<td>"_$$H2U^%L1FRM(IR)_"</td>"
  W "<td>"_NMB_"</td>"
  W "<td>"_$$H2U^%L1FRM($$NAME^W4HZMST(HZM))_"</td>"
  W "<td>"_$$H2U^%L1FRM(ADR)_"</td>"
  W "<td>"_SHAA_"</td>"
  W "<td onClick=""ShowOrder('"_HZM_"',this)"" style=""cursor:pointer"" >"_HZM_"</td>"
  W "<td>"_$J(TSHL,2,2)_"</td>"
  W "<td>"_$J(DMSH,2,2)_"</td>"
  ;
  S SHZ=SHZ+1
  S SHZ(PSL)=$G(SHZ(PSL))+1
  S STOPAY=STOPAY+TSHL
  S STOPAY(PSL)=$G(STOPAY(PSL))+TSHL
  S SDMSH=SDMSH+DMSH
  S SDMSH(PSL)=$G(SDMSH(PSL))+DMSH
  N VL S VL=$$VL(HZM)
  S SDMN=SDMN+VL
  S SDMN(PSL)=$G(SDMN(PSL))+VL
  ;
  I '$$EDIT D
  .W "<td align=""center"" >"
  . W $J(VL,2,2)
  .W "</td>"
  ;
  I $$EDIT D
  . S:$G(IR)="" IR=" "
  . W "<td id=""prv"_HZM_""" style=""cursor:pointer"" onClick=""PrevPay('"_HZM_"')"" >"
  .  W $G(@$$^W4GL("W4DMNPRV")@(PSL,IR))
  . W "</td>"
  . W "<td align=""center"" >"
  .  W "<input id=""dmn"_HZM_""" type=""text"" value="""_VL_""" size=""7"" onChange=""ChangeDmn('"_HZM_"')"" onClick=""this.select()"" >"
  . W "</td>"
  ;
  I $$EDIT D
  .W "<td align=""center""><input type=""checkbox"" id=""chn"_HZM_""" /></td>"  
 W "</tr>"
 Q
 ;
 ;
 ;
MVT ;
 S MVT(1)="onefn"
 S MVT(2)="wiy"
 S MVT(3)="`-k"
 S MVT(4)="dtwd"
 S MVT(5)="yelz"
 Q
 ;
 ;
PRM ;
 Q
 ;
TAKEAWAY(IR) ;
 I $TR(IR," .","")'="TAKEAWAY",$TR(IR," .","")'="TAW" Q 0
 Q 1
 ;
D(NOM) ; 
 ;;S ^D(HZM)=NOM 
 Q 
 ;
VL(HZM) ; 
 Q $G(@$$^W4GL("W4DMN")@(HZM)) 
 ;
EDIT(STAM) ; 
 Q $G(%ARG("EDIT")) 
 ;
DIVBUT ; 
 N VIS S VIS="hidden"
 I $$EDIT S VIS="visible"
 W "<table id=""tbhd"" width=""90%"" >",!
  W "<tr>"
   W "<td style=""width:40%"">&nbsp;</td>"
   W "<td>"
    W $$^%W1DICT("EDIT")_"&nbsp;"
    W "<input id=""edit"" type=""checkbox"" "
    I $$EDIT W " checked=""checked"" "
    W " onClick=""ShowPsw()"" >",!
   W "</td>"
   ;
   W "<td>"
    S VRMPSL=$$^W4MAIN("VRMPSL") K @VRMPSL
    S PSL="" F J=1:1 S PSL=$O(@$$^W4GL("P1SL")@(PSL)) Q:PSL=""  D
    .N A S A=$G(^(PSL))
    .S IND=$E($$INV^%L1FRM(A),1,10)
    .S IND=IND_J
    .S @VRMPSL@(IND)=PSL
    ;
    W "<select id=""psl"" onChange=""ChangePsl()"" "
    W ">",!
     W "<option value=""0"">"_$$^%W1DICT("CHOICECOURIER")_"</option>",!
     S IND="" F  S IND=$O(@VRMPSL@(IND)) Q:IND=""  D
     .S PSL=$G(^(IND)) Q:PSL=""
     .W "<option value="""_PSL_""" "
     .I $G(%ARG("PSL")),PSL=%ARG("PSL") W " selected=""selected"" "
     .W ">"_$$H2U^%L1FRM($G(@$$^W4GL("P1SL")@(PSL)))_"</option>",!
    W "</select>"
   W "</td>" 
   ;
   W "<td style=""width:30%"">&nbsp;</td>"
   W "<td>"
    W "<img src=""w3save.jpg"" id=""saveid"" alt=""Save"" onClick=""Save()"" "
     W "style=""cursor:pointer;visibility:"_VIS_""" ",!
    W " />"
   W "</td>"
   I '$$EDIT D
   .W "<td>"
   . W "<img src=""w3print.jpg"" id=""printid"" alt=""Print"" onClick=""Print()"" "
   . W " />"
   .W "</td>"
   W "<td>"
    W "<img src=""w3close.jpg"" id=""backid"" alt=""Back"" onClick=""Cnc()"" "
    W " />"
   W "</td>"
  W "</tr>",!
 W "</table>",!
 Q 
 ;
KOT ; 
 W "<span style=""font-size:"_$$^W3FSZ(14)_""">" 
  D 
  .I MEDAT=ADDAT W $$^%W1DICT("TODATE",MEDAT) Q
  .W $$^%W1DICT("FROMDATETODATE",MEDAT_"<>"_ADDAT) Q
 W "</span>",!
 W "<br>",!
 Q 
 ;
SAVE(PRM) ; 
 N HZM,VL,PSL,IR
 S HZM=$P(PRM,";") 
 S VL=$P(PRM,";",2) 
 I 'HZM Q "NOORDER" 
 S @$$^W4GL("W4DMN")@(HZM)=VL 
 S IR=$$IR^W4HZMST(HZM)
 S PSL=$$PSL^W4HZMST(HZM)
 I $L(IR),$L(PSL) S @$$^W4GL("W4DMNPRV")@(PSL,IR)=VL
 Q 1
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 



