%RO Routine Output Utility
GT.M 15-JUN-2020 12:10:50
W3PAY
W3PAY(ORD) ; [ 15.06.20 08:42 ] [ 03.04.18 17:17 ] [ 24.09.17 08:49 ] 
 N (JB,%ARG,ORD)
 S DLM=$$DLM
 D W("<br>")
  S ORDSUM=$J($P($$^W4GETSUM(JB,1),";",5),2,2)
  S PAID=$$PAID^W3HZMST(JB)
  S ITRA=ORDSUM-PAID
  D W($$SPAN("BROWN",18)_$$^%W1DICT("TOPAY")_" : "_ORDSUM_"</span>") 
  D W($$NBSP^%L1FRM(10)) 
  D W($$SPAN("BROWN",18)_$$^%W1DICT("PAID")_" <input id=""paid"" type=""text"" size=""7"" readonly=""readonly"" value="""_$J(PAID,2,2)_""" style=""font-size:"_$$^W3FSZ(16)_"""></span>") 
  D W($$NBSP^%L1FRM(10)) 
  D W($$SPAN("BROWN",18)_$$^%W1DICT("ITRA")_" <input id=""itra"" type=""text"" size=""7"" readonly=""readonly"" value="""_$J(ITRA,2,2)_""" style=""font-size:"_$$^W3FSZ(16)_"""></span>") 
  D W($$NBSP^%L1FRM(3)) 
  D W($$^%W1DICT("MOVEITRA2FIELD"))
  W $$NBSP^%L1FRM(10)
  W "<img src=""w3calc.jpg"" alt=""Calculator"" "
  W " onClick=""BOCalc('25','60')"" "
  W " style=""cursor:pointer"" />"
  ;
 D W("<br>")
 ;
 D W("<div id=""divcash""><br>")
  D W($$SPAN_$$^%W1DICT("CASH")_"</span>&nbsp;")
  D W("<input type=""text"" id=""cash"" size=""7"" maxlength=""9"" onClick=""this.select()"" onkeyup=""OnKeyUp(this,event)"" value="""_$$CASH^W3HZMST(ORD)_""">")
 D W("</div>")
 ;
 D W("<br><br>")
 S TOP=$$^W4KF(120),HG=$$^W4KF(100)
 D
 .D W("<div id=""divca"" dir="""_$$^%W1DIR_""" style=""position:absolute;top:"_TOP_"px;height:"_$$^W4KF(HG)_"px;left:5%;width:90%;overflow:auto"">")
 . D W($$SPAN_$$^%W1DICT("TYPECCPAYMENT")_"</span>") 
 .D W("<table id=""tblca"">")
 .D W("<tr>")
 .D W(" <th>"_$$^%W1DICT("NORD")_"</th>")
 .D W(" <th>"_$$^%W1DICT("CREDITCARDNUMBER")_"</th>")
 .D W(" <th>"_$$^%W1DICT("UNTILMMYY")_"</th>")
 .D W(" <th> CVV </th>")
 .D W(" <th>"_$$^%W1DICT("IDNUMBER")_"</th>")
 .D W(" <th>"_$$^%W1DICT("SUM")_"</th>")
 .D W(" <th>"_$$^%W1DICT("TIP")_"</th>")
 .D W("</tr>")
 .
 .N I F I=1:1:15 D
 ..D W("<tr>")
 .. D W("<td style=""background-color:light-grey"">"_I_"</td>")
 .. D W("<td><input type=""text"" id=""caid"_I_""" size=""19"" maxlength=""19"" value="""_$P($$CREDCARD^W3HZMST(ORD),DLM,I)_"""></td>")
 .. D W("<td>") D SELMMYY(I) D W("</td>")
 .. D W("<td><input type=""text"" id=""cacvv"_I_""" size=""3"" maxlength=""3"" value="""_$P($$CREDCVV2^W3HZMST(ORD),DLM,I)_"""></td>")
 .. D W("<td><input type=""text"" id=""catz"_I_""" size=""9"" maxlength=""9"" value="""_$P($$CREDTZ^W3HZMST(ORD),DLM,I)_"""></td>")
 .. S SUM=$P($$CREDSUM^W3HZMST(ORD),DLM,I)
 .. ;;I 'SUM,I=1 S SUM=$$TSHL^W3HZMST(ORD)
 .. D W("<td><input type=""text"" id=""casum"_I_""" size=""7"" maxlength=""9"" value="""_$P(SUM,":")_""" onClick=""this.select()"" onkeyup=""OnKeyUp(this,event,'caid"_I_"')"" ></td>")
 .. D W("<td><input type=""text"" id=""catip"_I_""" size=""7"" maxlength=""9"" value="""_$P(SUM,":",2)_""" onClick=""this.select()"" onkeyup=""OnKeyUp(this,event,'caid"_I_"','1')""></td>")
 ..D W("</tr>")
 .D W("</table>")
 .D W("</div>")
 ;
 D W("<br><br>")
 S TOP=TOP+HG+$$^W4KF(50)
 S HG=$$^W4KF(100)
 D  ;
 .D W("<div id=""divtnb"" dir="""_$$^%W1DIR_""" style=""position:absolute;top:"_TOP_"px;height:"_HG_"px;left:20%;width:60%;overflow:auto"">")
 .D W($$SPAN_$$^%W1DICT("TYPETNBPAYMENT")_"</span>") 
 .D W("<table id=""tbltnb"" >")
 .D W("<tr>")
 .D W(" <th>"_$$^%W1DICT("NORD")_"</th>")
 .;;D W(" <th>"_$$^%W1DICT("COMPANYNUMBER")_"</th>")
 .D W(" <th>"_$$^%W1DICT("CARDNUMBER")_"</th>")
 .D W(" <th>"_$$^%W1DICT("SUM")_"</th>")
 .D W(" <th>"_$$^%W1DICT("TIP")_"</th>")
 .D W("</tr>")
 .
 .N I F I=1:1:10 D
 ..D W("<tr>")
 .. ;;D W("<td><input type=""text"" id=""tnbcompany"_I_""" size=""5"" maxlength=""5"" value="""_$P($$TNBCOMP^W3HZMST(ORD),DLM,I)_"""></td>")
 .. D W("<td style=""background-color:light:grey"">"_I_"</td>")
 .. D W("<td><input type=""text"" id=""tnbcard"_I_""" size=""15"" maxlength=""30"" value="""_$P($$TNBCARD^W3HZMST(ORD),DLM,I)_"""></td>")
 .. S SUM=$P($$TNBPAY^W3HZMST(ORD),DLM,I)
 .. D W("<td><input type=""text"" id=""tnbsum"_I_""" size=""7"" maxlength=""9"" value="""_$J($P(SUM,":"),2,2)_""" onClick=""this.select()"" onkeyup=""OnKeyUp(this,event,'tnbcard"_I_"')""></td>")
 .. D W("<td><input type=""text"" id=""tnbtip"_I_""" size=""7"" maxlength=""9"" value="""_$J($P(SUM,":",2),2,2)_""" onClick=""this.select()"" onkeyup=""OnKeyUp(this,event,'tnbcard"_I_"','1')""></td>")
 ..D W("</tr>")
 .D W("</table>")
 .D W("</div>")
 ;
 D W("<br><br>")
 ;
 S TOP=TOP+HG+$$^W4KF(50)
 S HG=$$^W4KF(100)
 D  ;
 .D W("<div id=""divcib"" dir="""_$$^%W1DIR_""" style=""position:absolute;top:"_TOP_"px;height:"_HG_"px;left:20%;width:60%;overflow:auto"">")
 .D W($$SPAN_$$^%W1DICT("TYPECIBPAYMENT")_"</span>") 
 .D W("<table id=""tblcib"" >")
 .D W("<tr>")
 .D W(" <th>"_$$^%W1DICT("NORD")_"</th>")
 .;;D W(" <th>"_$$^%W1DICT("COMPANYNUMBER")_"</th>")
 .D W(" <th>"_$$^%W1DICT("CARDNUMBER")_"</th>")
 .D W(" <th>"_$$^%W1DICT("SUM")_"</th>")
 .D W(" <th>"_$$^%W1DICT("TIP")_"</th>")
 .D W("</tr>")
 .
 .N I F I=1:1:10 D
 ..D W("<tr>")
 .. D W("<td style=""background-color:light:grey"">"_I_"</td>")
 .. ;;D W("<td><input type=""text"" id=""cibcompany"_I_""" size=""5"" maxlength=""5"" value="""_$P($$CIBCOMP^W3HZMST(ORD),DLM,I)_""">")
 .. D W("<td><input type=""text"" id=""cibcard"_I_""" size=""15"" maxlength=""30"" value="""_$P($$CIBCARD^W3HZMST(ORD),DLM,I)_""">")
 .. S SUM=$P($$CIBPAY^W3HZMST(ORD),DLM,I)
 .. D W("<td><input type=""text"" id=""cibsum"_I_""" size=""7"" maxlength=""9"" value="""_$J($P(SUM,":"),2,2)_""" onClick=""this.select()"" onkeyup=""OnKeyUp(this,event,'cibcard"_I_"')""></td>")
 .. D W("<td><input type=""text"" id=""cibtip"_I_""" size=""7"" maxlength=""9"" value="""_$J($P(SUM,":",2),2,2)_""" onClick=""this.select()"" onkeyup=""OnKeyUp(this,event,'cibcard"_I_"','1')""></td>")
 ..D W("</tr>")
 .D W("</table>")
 .D W("</div>")
 ;
 D W("<br>")
 
 S TOP=TOP+HG+$$^W4KF(30)
 D W("<div id=""divbut"" dir="""_$$^%W1DIR_""" style=""position:absolute;top:"_TOP_"px;height:"_HG_"px;left:35%;width:30%"">")
 D ^W4SBMBCK
 D W("</div>")
 Q
 ;
 ;
W(TXT)
 W TXT
 Q
 ;
CA(STAM) ;
 I $$MKRZAR Q 0
 I CODTS=3 Q 1
 Q 0
 ;
 ;
CIBUS(STAM) ;
 I $$MKRZAR Q 0
 I CODTS=5 Q 1
 Q 0
 ;
TENBIS(STAM) ;
 I $$MKRZAR Q 0
 I CODTS=7 Q 1
 Q 0
 ;
SELMMYY(I) ;
 S DLM=$$DLM
 D W("<select id=""mmid"_I_""" ")
 I $D(W5ORDVW) W " disabled=""disabled"" "
 D W(">")
 N K F K=1:1:12 D
 .N VL S VL=$E($P($$CREDMMYY^W3HZMST(ORD),DLM,I),1,2)
 .D W("<option value="""_$TR($J(K,2)," ",0)_""" "_$S(K=+VL:"selected=""selected"" ",1:"")_">"_$TR($J(K,2)," ",0)_"</option>")
 D W("</select>&nbsp;")
 ;
 N YY S YY=$ZD($H,"YY")
 D W("<select id=""yyid"_I_""" ")
 I $D(W5ORDVW) W " disabled=""disabled"" "
 D W(" >")
 F K=1:1:10 D
 .N VL S VL=$E($P($$CREDMMYY^W3HZMST(ORD),DLM,I),3,4)
 .D W("<option value="""_(2000+YY+K-1)_""""_$S(+VL=(YY+K-1):" selected=""selected""",1:"")_" >"_(2000+YY+K-1)_"</option>")
 D W("</select>")
 Q
 ;
MKRZAR(STAM) ;
 Q $$MKRZAR^W3ORDVW
 ;
SPAN(COLOR,FSZ) ;
 I $G(COLOR)="" S COLOR="green"
 I $G(FSZ)="" S FSZ=14
 Q "<span style=""color:"_COLOR_";font-size:"_$$^W3FSZ(FSZ)_""">"
 ;
 ;
SETCA(PRM) ;
 N (JB,%ARG,PRM)
 S CA=$P(PRM,"~")
 S MM=$P(PRM,"~",2)
 S YY=$P(PRM,"~",3)
 S CVV=$P(PRM,"~",4)
 S TZ=$P(PRM,"~",5)
 S SUM=$P(PRM,"~",6)
 ;
 S DLM=$$DLM
 S CAENCR=""
 F J=1:1:$L(CA,DLM) S CAENCR=CAENCR_$$^W3ENCR(JB_";"_$P(CA,DLM,J))_"^"
 D PUT^W3HZMST(JB,"CREDCARD",$E(CAENCR,1,$L(CAENCR)-1))
 D PUT^W3HZMST(JB,"CREDCVV2",CVV)
 ;
 S TZENCR=""
 F J=1:1:$L(TZ,DLM) S TZENCR=TZENCR_$$^W3ENCR(JB_";"_$P(TZ,DLM,J))_"^"
 D PUT^W3HZMST(JB,"CREDTZ",$E(TZENCR,1,$L(TZENCR)-1))
 D PUT^W3HZMST(JB,"CREDSUM",SUM)
 ;
 S MMYY=""
 F I=1:1:$L(YY,DLM) D
 .N YY1 S YY1=$P(YY,DLM,I) I $L(YY1)=4 S YY1=$E(YY1,3,4)
 .I $L(YY1)<2 S YY1="0"_YY1
 .S MMYY=MMYY_$TR($J($P(MM,DLM,I),2)," ",0)_YY1_DLM
 S MMYY=$E(MMYY,1,$L(MMYY)-1)
 D PUT^W3HZMST(JB,"CREDMMYY",MMYY)
 Q 1
 ;
 ;
SETCASH(CASH)
 D PUT^W3HZMST(JB,"CASH",CASH)
 Q 1
 ; 
SETTNB(PRM) ;
 N (JB,%ARG,PRM)
 S DLM=$$DLM
 S CARD=$P(PRM,"~")
 S SUM=$P(PRM,"~",2)
 S CARDENCR=""
 F J=1:1:$L(CARD,DLM) S CARDENCR=CARDENCR_$$^W3ENCR(JB_";"_$P(CARD,DLM,J))_"^"
 D PUT^W3HZMST(JB,"TNBCARD",$E(CARDENCR,1,$L(CARDENCR)-1))
 D PUT^W3HZMST(JB,"TNBPAY",SUM)
 Q 1
 ;
SETCIB(PRM) ;
 N (JB,%ARG,PRM)
 S DLM=$$DLM
 S CARD=$P(PRM,"~")
 S SUM=$P(PRM,"~",2)
 S CARDENCR=""
 F J=1:1:$L(CARD,DLM) S CARDENCR=CARDENCR_$$^W3ENCR(JB_";"_$P(CARD,DLM,J))_"^"
 D PUT^W3HZMST(JB,"CIBCARD",$E(CARDENCR,1,$L(CARDENCR)-1))
 D PUT^W3HZMST(JB,"CIBPAY",SUM)
 Q 1
 ;
DLM(STAM) ;
 Q ";"
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 



