%RO Routine Output Utility
GT.M 24-AUG-2021 11:02:15
W4LCBCR
W4LCBCR ; [ 24.08.21 08:12 ] [ 18.03.21 17:00 ] [ 20.06.20 12:59 ] 
 N (JB,%ARG,%REM)
 N $ZT S $ZT="S zr=$R X ^ZT  ZG "_$ZL_":SVER^%L1X"
 ;
 S (STRING,LKH)=$$LK^W4LHB($G(%ARG("LKH")))
 ;
 D PUT^%W3DEB("W4LCBCR","ARG=[%ARG")
 ;
 I $$^W4NOBACK S %ARG("SHOW")=1
 ;
 S CODDOC=$$CODDOC($$NOM)
 S NOM=+$$NOM
 I NOM,$L(CODDOC) S (STRING,LKH)=$$LK^W4STRING(CODDOC,NOM)
 ;
 D ^W4MDPPC
 I $G(%ARG("DEL")) D PUT^%W1PRM("MKRYD",NOM_"CB")
 ;
 I NOM,$$HMK(NOM),$G(PRINT),$$PRINT,$G(%ARG("DEL")) D  Q  ; -- BITUL LE MADP KUPA
 .K %ARG("PRINT")
 .D PUT^%W1PRM("MKRYD","DELCB")
 .S A=$$^W4PCCB(NOM)
 ;
 D GLCBHB^W4CBHB
 ;
 D KOTCB(LKH)
 ;
 D DAF1
 ;
 I '$$HMK($$NOM) D
 .W "<br><br>",!
 .I $D(@GLCBHB@(NOM))>9 D
 ..W "<div dir="""_$$^%W1DIR_""" style=""font-weight:bold;"_$$FONTFM^W3CSS_""" >"
 ..W $$^%W1DICT("PAIDINVOICES")_" : "
 ..N N S N="" F  S N=$O(@GLCBHB@(NOM,N)) Q:N=""  D
 ...W N I $O(@GLCBHB@(NOM,N))'="" W " , "
 ..W "</div>",!
 .
 .I $$PRINT D
 ..W "<br><br><br>",!
 ..W "<div id=""divsign"" >"
 ..W "<table dir="""_$$^%W1DIR_""">"
 .. W "<tr>"
 ..  W "<td width=""16%"">&nbsp; </td>",!
 ..  W "<td>"_$$^%W1DICT("SIGNATURE")_"&nbsp;&nbsp;________________</td>",!
 ..  W "<td width=""54%"">&nbsp; </td>",!
 .. W "</tr>",!
 ..W "</table>"
 ..W "</div>",!
 ;
 I NOM,$$PRINT,'$$HMK($$NOM),$D(@GLCBHB@(NOM))>9 D
 .I $G(@$$^W4PRM@("NOPCCBHB")) Q
 .W "<p style=""page-break-before:always"">",!
 .D ^W4CBHB(LKH,NOM,1)
 ;
 W "<br/>"
 ;
 I '$$PRINT D DIVBUT
 ;
 Q
 ;
 ;
KOTCB(LKH) ;
  N DAT I '$$NOM S DAT=$$NEWDAT
  ;
  I $$HMK($$NOM) D  G EKCB
  .W "<br>",!
  .I '$$PRINT,'$$NOM D
  ..N ITRA
  ..W "<div align=""center"">",!
  .. W "<table dir="""_$$^%W1DIR_""" border=""0"" style=""font-size:"_$$^W3FSZ(16)_";font-weight:bold"">",!
  ..  W "<tr>"
  ..   W "<td>"
  ..    W $$^%W1DICT("TOPAY")_" : "_$J($$TOPAY($$NOM),2,2)
  ..   W "</td>",!
  ..   W "<td>&nbsp;</td>"
  ..   W "<td>"
  ..    W $$^%W1DICT("PAID")_" : <span id=""idpaid"">"_$J($$PAID,2,2)_"</span>",!
  ..   W "</td>",!
  ..   W "<td>&nbsp;</td>"
  ..   S ITRA=$J($$TOPAY($$NOM)-$$PAID,2,2)
  ..   I ITRA'<0 D
  ...   W "<td>"
  ...    W $$^%W1DICT("ITRA")_" : <span id=""iditra"" style=""color:red"">"_$J($$TOPAY($$NOM)-$$PAID,2,2)_"</span>",!
  ...   W "</td>",!
  ..   I ITRA<0 D
  ...   W "<td>"
  ...    W $$^%W1DICT("ODEF")_" : <span id=""idodef"" style=""color:red"">"_$J(-ITRA,2,2)_"</span>",!
  ...   W "</td>",!
  ..  W "</tr>",!
  .. W "</table>",!
  ..W "</div>",!
  ..W "<br><br>",!
  ;
  I $$NOM S DAT=$$^%L1DC($$DAT($$NOM),1)
  ;
  D ^W4KOTHSB($$NOM,LKH,DAT,"CB")
EKCB Q
  ;
TD W "<td width=""30%"">"
 Q
 ;
 ;
DAF1 ;
 N (JB,%ARG,LKH,DAT,CMNT,BFTAX,AFTAX,SHUM,LMAM)
 S STRING=LKH
 D TMPCB
 S NOM=$$NOM
 ;
 I '$$PRINT,'NOM D
 .W "<table width=""96%"" id=""divchkdet"" dir="""_$$^%W1DIR_""">",!
 . W "<tr>"
 . W "<td width=""15%"">"
 .  N HOV S HOV=$J($$CBH^W4KLOST(LKH,+$H),2,2)
 .  W $$^%W1DICT("HOVHBC")
 . W "</td>"
 . W "<td dir=""LTR"" "_$$^%W1ALIGN_" style=""font-weight:bold;font-size:"_$$^W3FSZ(12)_$S(HOV<0:";color:red",1:"")_""">"
 .  W HOV
 . W "</td>"
 . W "<td width=""10%"">&nbsp;</td>",!
 . W "<td>"
 . W $$^%W1DICT("MAXCHECKSNUMBER")
 . W " <select id=""colst"" onChange=""ChangeColst()"" >",!
 . N I F I=3:1:36 D
 .. W "  <option "
 .. I I=+$G(%ARG("COLST")) W " selected=""selected"" "
 .. W "  >"_I_"</option>",!
 . W " </select>",!
 . W " </td>"
 . N CHECKED
 . S CHECKED=""
 . I $$CHKDET S CHECKED=" checked=""checked"" "
 . W "<td>&nbsp;</td>"
 . W "<td>"
 .  W $$^%W1DICT("CHECKCHECKDETAILS")_" <input type=""checkbox"" id=""chkdet"" "_CHECKED_" onClick=""ChangeCheckCheck()"" >"
 . W "</td>"
 . W "<td>"
 . N CHKTZ
 . S CHKTZ=""
 . I $$GET^%W1PRM("CHKTZ") S CHKTZ=" checked=""checked"" "
 .  W $$^%W1DICT("CHECKID")_" <input type=""checkbox"" id=""chktz"" "_CHKTZ_" onClick=""ChangeCheckTz()"" >"
 . W "</td>"
 . W "</tr>",!
 .W "</table>",!
 ;
 W "<br>"
 W "<table id=""TblRcpBd"" dir="""_$$^%W1DIR_""" width=""96%"" "
  I '$G(NOM) W "border=""1"" cellspacing=""0"" "
  I $G(NOM) W "border=""1"" cellspacing=""3"" "
  W ">",!
  W "<tr>",!
   W "<th>"_$$^%W1DICT("SUM")_"</th>",!
   W "<th>"_$$^%W1DICT("BANK")_"</th>",!
   W "<th>"_$$^%W1DICT("SNIF")_"</th>",!
   W "<th>"_$$^%W1DICT("TZ")_"</th>",!
   W "<th>"_$$^%W1DICT("ACCOUNT")_"</th>",!
   W "<th>"_$$^%W1DICT("CHECK")_"</th>",!
   W "<th>"_$$^%W1DICT("PRAON")_"</th>",!
  W "</tr>",!
  ;
  D COLST
  S SUMCH=0
  ;
  I '$$NOM D  ;-- NEW
  .F I=1:1:COLST D
  ..S SUMCH=SUMCH+$$SUMT(I)
  ..W "<tr>",!
  ..W "<td dir=""LTR"" "_$$^%W1ALIGN_"><input type=""text"" size=""10"" id=""sum"_I_""" maxlength=""10"" onClick=""SvSt('"_I_"'); FocSel(this)"" onKeyUp=""ChangeSum('"_I_"')"" onChange=""ChangeValue(this)"" value="""_$$SUMT(I)_"""></td>",!
  ..W "<td><input type=""text"" size=""2"" id=""bank"_I_""" maxlength=""2"" onFocus=""ShowAccounts(this,'"_I_"')"" value="""_$$BANKT(I)_"""></td>",!
  ..W "<td><input type=""text"" size=""5"" id=""snif"_I_""" maxlength=""5"" onClick=""FocSel(this)"" value="""_$$SNIFT(I)_"""></td>",!
  ..W "<td><input type=""text"" size=""9"" id=""tz"_I_""" maxlength=""9"" onClick=""SetTz('"_I_"');FocSel(this)"" value="""_$$TZT(I)_"""></td>",!
  ..W "<td><input type=""text"" size=""10"" id=""hesh"_I_""" maxlength=""10"" onClick=""FocSel(this)"" value="""_$$HESHT(I)_"""></td>",!
  ..W "<td><input type=""text"" size=""10"" id=""chk"_I_""" maxlength=""10"" onClick=""FocSel(this)"" value="""_$$CHKT(I)_"""></td>",!
  ..W "<td dir=""LTR"" align=""center"">" S %W1DAT("NODAY")=1 D ^%W1DAT("DATPR"_I,$$DATPRT(I)) W "</td>",!
  ..W "</tr>",!
  ;
  I $$NOM D
  .I $$PRINT S $P(@$$GLCB(NOM),"\",5)=$P($G(@$$GLCB(NOM)),"\",5)+1
  .F I=1:1 Q:'$D(@$$GLCB(NOM)@(I))  D
  ..W "<tr>",!
  ..W " <td "_$$BORDER_" dir=""LTR"" "_$$^%W1ALIGN_" >"_$$RKV($$SUM(NOM,I),"N")_"&nbsp;&nbsp;&nbsp;</td>",! S SUMCH=SUMCH+$$SUM(NOM,I)
  ..W " <td "_$$BORDER_" >"_$$RKV($$BANK(NOM,I))_"</td>",!
  ..W " <td "_$$BORDER_" >"_$$RKV($$SNIF(NOM,I))_"</td>",!
  ..W " <td "_$$BORDER_" >"_$$RKV($$TZ(NOM,I))_"</td>",!
  ..W " <td "_$$BORDER_" >"_$$RKV($$HESH(NOM,I))_"</td>",!
  ..W " <td "_$$BORDER_" >"_$$RKV($$CHK(NOM,I))_"</td>",!
  ..W " <td "_$$BORDER_" align=""center"" >"_$$RKV($$DATPR(NOM,I))_"</td>",!
  ..W "</tr>",!
  .;
  .
  W "<tr><td "_$$BORDER_" "_$$^%W1ALIGN_" >"_$$^%W1DICT("TOTAL")_"&nbsp; "_$$SPANBLACK(SUMCH)_" id=""sumch"">"_$J(SUMCH,2,2)_"</span></td>"
  W "</tr>",!
  ;
  W "</table>",!
  ;
  W "<br />"
  W "<table id=""TblRcpBt"" dir="""_$$^%W1DIR_""" width=""96%"" border=""0"" cellspacing=""0"">",!
   W "<tr>",!
   W " <td>"
    W $$^%W1DICT("PAIDCASH")_" : "
    I '$$NOM W "<input type=""text"" size=""8"" id=""cash"" onClick=""FocSel(this)"" maxlength=""8"" onKeyUp=""ChangeSum('CASH')"" onChange=""ChangeValue(this)"" value="""_$$MZT_""">"
    I $$NOM W $$SPANBLACK($$MZ(NOM))_" id=""summz"" >"_$$VW($J($$MZ(NOM)+$$ODEF(NOM),2,2))_"</span>"
   W " </td>",!
   ;
   W " <td>"
    W $$^%W1DICT("NIKMAS")_" : "
    I '$$NOM W "<input type=""text"" size=""8"" id=""nikmas"" maxlength=""8"" onClick=""FocSel(this)"" onKeyUp=""ChangeSum('NIKMAS')"" onChange=""ChangeValue(this)"" value="""_$$NIKMAST_""">"
    I $$NOM W $$SPANBLACK($$NIKMAS(NOM))_" id=""nikmas""> "_$$VW($$NIKMAS(NOM))_"</span>"
   W " </td>",!
   ;
   I '$$NOM D
   . W "<td>",!
   .  D ROUNDBUT^%W1JS("PayCrCard",$$^%W1DICT("PAYCRCARD"),"PayCrCard()","color:green",",,,180")
   . W "</td>",!
   . I $$CAJ^W4PRM=2 D
   .. W "<td>",!
   ..  D ROUNDBUT^%W1JS("PayCrCard",$$^%W1DICT("PAIDOUT"),"PayCrCardOut()","color:green",",,,220")
   .. W "</td>",!
   .W "</tr>",!
   ;
   S GLCBV=$$GLCBV(NOM)
   ;
   I $$NOM!$D(@GLCBV)!$L($$GETP^%W1PRM("S21")) D
   .I '$$NOM,$L($$GETP^%W1PRM("S21")) D
   ..D SETS21(STRING)
   .
   .W "</tr>",!
   .I $D(@GLCBV)=1 D SHOWCA(NOM)
   .I $D(@GLCBV)>9 N N S N="" F  S N=$O(@GLCBV@(N)) Q:N=""  D SHOWCA(NOM,N)
  ;
  W "<tr>",!
  W " <td style=""font-size:"_$$^W3FSZ(14)_""">"
   N ZN
   W $$^%W1DICT("TOTALPAID")_" : <b>"
   ;
   S ZN=$S($$NOM:$J($$TOT(NOM)+$$ODEF(NOM),2,2),1:$J($$PAID,2,2))
   W $$SPANBLACK(ZN)_" id=""total"">"
   W ZN
   W "</span></b>",!
  W " </td>",!
  ;
  I '$$HMK($$NOM) D
  .W "<td>&nbsp;</td>",!
  ;
  I $$HMK($$NOM) D
  .I '$$NOM D  Q
  ..N ITRA,TOPAY,PAID
  ..S TOPAY=$$TOPAY(0),PAID=$$PAID
  ..S ITRA=TOPAY-PAID
  ..D PUT^%W3DEB("W4LCBCR-HMK","ITRA=ITRA & TOPAY=TOPAY & PAID=PAID")
  ..D
  ...W "<td>"
  ...W $$^%W1DICT("ITRA")_" : "
  ... W "<span id=""iditra1"" style=""color:red;font-weight:bold"">"
  ...  I ITRA'<0 W $J(ITRA,2,2)
  ...  E  W "&nbsp;"
  ... W "</span>",!
  ...W "</td>",!
  ..D
  ...W "<td>"
  ... W $$^%W1DICT("ODEF")_" : <span id=""idodef1"" style=""color:red;font-weight:bold"">"
  ... I ITRA<0 W $J(-ITRA,2,2)
  ... W "&nbsp;"
  ...W "</td>",!
  .
  .I $$NOM,$$ODEF($$NOM) D
  ..W "<td>"
  .. W $$^%W1DICT("ODEF")_" : <span id=""idodef1"" style=""color:red;font-weight:bold"">"_$J($$ODEF($$NOM),2,2)_"</span>",!
  ..W "</td>",!
  ;
  ;
  W "<td>&nbsp;</td>",!
  W "</table>",!
  W "<br />",!
  ;
  D DIVCMNT($$NOM,$$PRINT,$S($$NOM:$$COMMENT(NOM),1:$$COMMENTT),$$PRIVATEINF($$NOM))
 Q
 ;
 ;
RKV(VL,PR) ;
 I $G(VL)="" Q "&nbsp;"
 I $G(PR)="H" Q $$H2U^%L1FRM(VL)
 I $G(PR)="N" Q $S(VL<0:"<span style=""color:red"">",1:"")_$J(VL,2,2)_$S(VL<0:"</span>",1:"")
 Q VL
 ;
VW(VL) ;
 I 'VL Q VL
 Q "<b>"_VL_"</b>"
 ;
BORDER(STAM) ;
 Q " style=""border:1px solid grey"" " 
 ;
DIVBUT ;
 W "<div id=""divbut"">"
 I $$NOM D ^W4EMAIL(LKH,+NOM,"CB")
 ;
 W "<table dir="""_$$^%W1DIR_""" width="""_$S($$CSR:90,1:70)_"%"" border=""0"" cellspacing=""0"">",!
  W "<tr>"
   ;
   W "<td>"
   I '$$NOM D
   .
   .    I '$$NOBIG D ROUNDBUT^%W1JS("Submit",$$^%W1DICT("SUBMITANDPRINT"),"Submit('"_LKH_"','0')","color:green",",,,100")
   .    I $$CSR D
   ..    W "</td><td>"
   ..     D ROUNDBUT^%W1JS("SubmitCSR",$$^%W1DICT("SUBMITANDCSRPRINT"),"Submit('"_LKH_"','1')","color:green",",,,180")
   ..  W "</td>"
   ; 
   I '$$NOBIG D
   .I $$NOM,'$$HMK($$NOM) D
   .. D ROUNDBUT^%W1JS("Print",$$^%W1DICT("PRINT"),"Print('"_LKH_"','"_$$NOM_"')","color:green",",,,100")
   .I $$NOM,$$HMK($$NOM) D
   .. D ROUNDBUT^%W1JS("Print",$$^%W1DICT("PRINT"),"PrintAndBack()","color:green",",,,100")
   W "</td>",!
   ;
   W "<td>&nbsp;</td>",!
   I $$NOM,$$CSR D
   .  W "<td>"
   .    D ROUNDBUT^%W1JS("CSRPrint",$$^%W1DICT("CSRPRINT"),"CSRPrint('"_$$NOM_"')","color:green",",,,180")
   .  W "</td>"
   W "<td>&nbsp;</td>",!
   ;
   I $$NOM,'$$^W4DELCB($$NOM) D
   . I $G(%ARG("SHOW"))<1 D
   ..  W "<td>"
   ..   D ROUNDBUT^%W1JS("Delete",$$^%W1DICT("CANCEL"),"Delete()","color:black",",,,100")
   ..  W "</td>",!
   .  W "<td>&nbsp;</td>",!
   ;
   I $$NOM,$D(@GLCBHB@(NOM))>9,'$$HMK($$NOM) D
   .  W "<td>"
   .   D ROUNDBUT^%W1JS("ShowInvoices",$$^%W1DICT("SHOWINVOICES"),"ShowInvoices('"_LKH_"','"_$$NOM_"')","color:darkblue",",,,200")
   .  W "</td>",!
   .  W "<td>&nbsp;</td>",!
   ;
   I $$NOM,'$$HMK($$NOM),$G(%ARG("SHOW"))<1 D
   . N CLINV S CLINV=$$^%W1DICT("CLOSEINVOICES")
   . I '$$ITRACB($$NOM) S CLINV=$$^%W1DICT("RECLOSEINVOICES")
   . W "<td>"
   .  D ROUNDBUT^%W1JS("CloseInvoices",CLINV,"CloseInvoices('"_+$$NOM_"')","color:darkblue",",,,200")
   . W "</td>",!
   ;
  D TMPCB
  I '$D(@TMPCB@("S21")),'$L($$GETP^%W1PRM("S21")) D
  . W "<td>&nbsp;</td>",!
  . W "<td>"
  .  D ROUNDBUT^%W1JS("Back",$$^%W1DICT("BACK"),"Back()","color:red",",,,100")
  . W "</td>",!
  ;
  W "</tr>",!
  W "</table>",!
  ;
  W "</div>",!
  Q
  ;
  ;
PUTTMP(PRM) ;
 N (JB,%ARG,PRM)
 D PUT^%W3DEB("W4LCBCR-PUTTMP","PRM=PRM")
 D ^W4IN
 N TMPCB D TMPCB
 ;;K @TMPCB
 S STRING=$P(PRM,";")
 I STRING="" Q "NOCUSTNMB"
 S MZ=$P(PRM,";",2)
 S NIKMAS=$P(PRM,";",3)
 S HRA=$P(PRM,";",4)
 S NOZERO=$P(PRM,";",5)
 S BDIKA=$P(PRM,";",6)
 S PRV=$P(PRM,";",7)
 ;
 S PRM=$P(PRM,";",8,200)
 ;
 S SUMCH=0
 S SUMB=0
 ;
 S ER=""
 S MC="BANK~SNIF~TZ~HESH~CHECK~DATPR"
 S ID="bank~snif~tz~hesh~chk~DATPR"
 ;
 F SH=1:1:$L(PRM,";") D  Q:$L(ER)
 .N ST S ST=$P(PRM,";",SH)
 .S ST=$$CNWEB^%L1FRM(ST)
 .I $P(ST,"~") D  Q:ER
 ..F J=1:1:$L(MC,"~") D  Q:$L(ER)
 ...N VL S VL=$P(ST,"~",J+1),IDJ=$P(ID,"~",J) I BDIKA D
 ....I VL="" S ER="NO"_$P(MC,"~",J)_";"_IDJ_SH_$S(IDJ["DAT":"IDdd",1:"") Q
 ....I $P(MC,"~",J)="TZ",$$CHKTZ,'$$^W4TZ(VL) S ER="IDNUMBERISWRONG"_";"_IDJ_SH Q
 ....I $P(MC,"~",J)="DATPR",$E(VL,1,2)<1!($E(VL,1,2)>31)!($E(VL,1,2)'?2N) S ER="DATERR"_";"_$P(ID,"~",J)_SH_"IDdd" Q
 ....I $P(MC,"~",J)="DATPR",$E(VL,4,5)<1!($E(VL,4,5)>12)!($E(VL,4,5)'?2N) S ER="DATERR"_";"_$P(ID,"~",J)_SH_"IDmm" Q
 ....I $P(MC,"~",J)="DATPR",$E(VL,7,8)'?2N S ER="DATERR"_";"_$P(ID,"~",J)_SH_"IDyy" Q
 ....I $P(MC,"~",J)="DATPR",'$$^%L1DC(VL,3) S ER="DATERR"_";"_$P(ID,"~",J)_SH_"IDdd" Q
 .
 .I '$P(ST,"~"),$P(PRM,";",SH+1),NOZERO S ER="NOSUM;sum"_SH Q
 .
 .I $P(ST,"~",6)["B"!($P(ST,"~",6)["a")!($P(ST,"~",6)="b") D
 ..S $P(ST,"~",6)="BANK"
 ..S SUMB=SUMB+ST
 .
 .S @TMPCB@(SH)=$TR(ST,"~","\")
 .
 .S SUMCH=SUMCH+ST
 ;
 I $L(ER) Q ER
PUTTMP1 ;
 N SUMCA S SUMCA=0
 N S21 S S21=$$GETP^%W1PRM("S21")
 I $L(S21) S SUMCA=$P(S21,"*",7)
 S SUM=SUMCH+MZ+$$SUMCA+SUMCA
 I 'SUM,NOZERO Q "NOSUM;sum1"
 D PUTTMP2
 Q 1
 ;
SUMCA(STAM) ;
 N TMPCB D TMPCB
 I $D(@TMPCB@("S21"))=1 Q $P($G(@TMPCB@("S21",N)),"*",7)
 ;
 N SUMCA S SUMCA=0
 N N S N="" F  S N=$O(@TMPCB@("S21",N)) Q:N=""  D
 .S SUMCA=SUMCA+$P($G(^(N)),"*",7)
 Q SUMCA
 ;
 ;
PUTTMP2 ;
 N TMPCB D TMPCB
 S SUM=SUMCH+MZ+$$SUMCA
 S @TMPCB=$J(SUM,2,2)_"\"_$J(MZ,2,2)
 S $P(@TMPCB,"\",6)=$J(SUMCH,2,2)
 S $P(@TMPCB,"\",8)=$J(SUMB,2,2)
 S $P(@TMPCB,"\",7)=$J(SUMCH-SUMB,2,2)
 S $P(@TMPCB,"\",9)=$J(NIKMAS,2,2)
 S @TMPCB@("HR")=$TR($$INVH^%L1FRM($$CNWEB^%L1FRM(HRA)),"\","/")
 I $G(PRV) S @TMPCB@("HR","PRV")=1
 S @TMPCB@("LKH")=STRING
 I $L($G(%ARG("LKHNAME"))) S @TMPCB@("LKHNAME")=$TR(%ARG("LKHNAME"),"\","/")
 I $L($G(%ARG("RCPNAME"))) S @TMPCB@("FOR")=$TR(%ARG("RCPNAME"),"\","/")
 ;
 ;;D SETS21(STRING)
 Q
 ;
 ;
SETS21(STRING) ;
 N TMPCB D TMPCB
 ;
 I $L($$GETP^%W1PRM("S21")) D
 .N NEWV S NEWV=$O(@TMPCB@("S21",999),-1)+1
 .S @TMPCB@("S21",NEWV)=$$GETP^%W1PRM("S21")
 .D KILL^%W1PRM("S21")
 .I $L($$GETP^%W1PRM("SOUT")) D
 ..S @TMPCB@("S21",NEWV,"SOUT")=$$GETP^%W1PRM("SOUT")
 ..D KILL^%W1PRM("SOUT")
 .I $L($$GETP^%W1PRM("TRAN")) D
 ..S @TMPCB@("S21",NEWV,"TRAN")=$$GETP^%W1PRM("TRAN")
 ..D KILL^%W1PRM("TRAN")
 .I $L($$GETP^%W1PRM("UID")) D
 ..S @TMPCB@("S21",NEWV,"UID")=$$GETP^%W1PRM("UID")
 ..D KILL^%W1PRM("UID")
 .I $D(@$$^W4MAIN("TMPEMV")) D
 ..M @TMPCB@("S21",NEWV,"EMV")=@$$^W4MAIN("TMPEMV")
 ..K @$$^W4MAIN("TMPEMV")
 .N GL D GL^W4L
 .
 .I $G(STRING),$D(@GL@(STRING))=11 D
 ..N S21 S S21=$G(@TMPCB@("S21",NEWV))
 ..N VIZ S VIZ=$P(S21,"*",2)_"^"_$E($P(S21,"*",14),1,2)_"^"_$E($P(S21,"*",14),3,4)_"^"_$P(S21,"*",24)_"^"_$P(S21,"*",23)
 ..D PUT^W4L(STRING,VIZ,"CADFLT")
 Q
 ;
 ;
VLD(STRING) ;
 N TZ S TZ=$P(STRING,";",2)
 D PUT^%W1PRM("TZ",TZ)
 S STRING=$P(STRING,";")
 ;
 I $G(STRING)="" Q "NOCUSTNMB"
 S LK0=STRING
 S STRING=$$LK^W4LHB(LK0)
 ;
 D TMPCB I '$D(@TMPCB)="" Q "NODATA!"
 ;
 Q 1
 ;
 ;
PUT(STRING) ; -- SAVE NEW RECEIPT
 N (JB,%ARG,%REM,STRING)
 ;
 S KLIN=$$^W4KLIN
 D PUT^%W3DEB("W4LCBCR-PUT","STRING=STRING")
 ;
 N TZ S TZ=$P(STRING,";",2)
 S STRING=$P(STRING,";")
 ;
 I $G(STRING)="" Q "NOCUSTNMB"
 S LK0=STRING
 S STRING=$$LK^W4LHB(LK0)
 ;
 D TMPCB I '$D(@TMPCB)="" Q "NODATA!"
 ;
 N N S N="" F  S N=$O(@TMPCB@("S21",N)) Q:N=""  D
 .S S21=$G(^(N))
 .I $E(S21,1,2)'="$V" S S21=""
 .S VZ=$P(S21,"*",7)
 .N SOUT,TRAN
 .S SOUT=$G(@TMPCB@("S21",N,"SOUT"))
 .;;I $L(SOUT)<20 S SOUT=$$GETP^%W1PRM("SOUT") D KILL^%W1PRM("SOUT")
 .S TRAN=$G(@TMPCB@("S21",N,"TRAN"))
 .;;I $L(TRAN)<20 S TRAN=$$GETP^%W1PRM("TRAN") D KILL^%W1PRM("TRAN")
 .;
 .I $L(S21) D ZAPCA(S21,SOUT,TRAN)
 ;
 S CODDOC=$$CODDOC
 S SUM=$$PAID
 I 'SUM Q "NOSUM!"
 ;
 ;;W "SUM="_SUM_"  TOPAY="_$$TOPAY($$NOM)_"  HMK="_$$HMK(0),!
 ;
 S NOM=$$NOM,TOPAY=$$TOPAY(NOM)
 D PUT^%W3DEB("W4LCBCR-PUT","NOM=NOM & TOPAY=TOPAY & SUM=SUM")
 ;
 S RES="",ODEF=0
 ;
 I $$HMK(NOM),$J(SUM,1,1)'=$J(TOPAY,1,1) D  I RES'="" Q RES
 .I 'NOM D  Q:ODEF>0&(TOPAY'<0)!(ODEF<0&(TOPAY<0))
 ..N MZ S MZ=$$MZT
 ..I SUM-TOPAY>0,SUM-TOPAY'>MZ S ODEF=SUM-TOPAY
 .S RES="PAYMENTNOTEQCREDIT"
 ;
 I '$D(@$$^W4GL("P1DZ")) S @$$^W4GL("P1DZ")=+$H
 ;
 D ^W4IN
 ;
 I $$HMK($$NOM)'=2 D
 .L +@KLIN@(CODDOC):1
 .S NUMBER=$O(@KLIN@(CODDOC,9999999),-1)+1
 ;
 I $$HMK($$NOM)=2 D
 .N NMB S NMB=$$PUTHMK^W4DOC ; ----------- !!!! --> MLY
 .S NUMBER=$P(NMB,";",2)
 ;
 L +@$$GLCB(NUMBER):1
 ;
 N GLCBV S GLCBV=$$GLCBV(NUMBER)
 L +@GLCBV:1
 M @GLCBV=@TMPCB@("S21") ; -------------------- !!!!!!!!!!!!!!!!!!
 K @TMPCB@("S21")
 L -@GLCBV
 ;
 M @$$GLCB(NUMBER)=@TMPCB ; <---  SUM,MZ,SUMCH,NIKMAS
 ;
 M @$$GLCBHR(NUMBER)=@TMPCB@("HR")
 ;
 S N=9999 F  S N=$O(@$$GLCB(NUMBER)@(N),-1) Q:N=""  D
 .I '$G(^(N)) D DEL^%L1GSEQ($$GLCB(NUMBER),N)
 ;
 D PUTZAP(STRING,SUM) ; --> KLUP
 ;
 S $P(@$$GLCB(NUMBER),"\")=$J(SUM,2,2)
 S $P(@$$GLCB(NUMBER),"\",3)=$J($$VZ,2,2)
 S $P(@$$GLCB(NUMBER),"\",4)=$$^%L1DC($$NEWDAT,2)
 S $P(@$$GLCB(NUMBER),"\",11)=$TR($$LKH^W4L(STRING),"\","/")
 S $P(@$$GLCB(NUMBER),"\",13)=$H
 ;
 I $$VCARD(STRING) D
 .S @$$GLCB(NUMBER)@("VC")=$$GET^W4TMPANS("VCARD","STR")
 .S @$$GLCB(NUMBER)@("VC","CARD")=$$GET^W4TMPANS("VCARD","CARDNUMBER")
 .S @$$GLCB(NUMBER)@("VC","NAME")=$TR($$GET^W4TMPANS("VCARD","NAME"),"\","/")
 .S @$$GLCB(NUMBER)@("VC","ASM")=$$GET^W4TMPANS("VCARD","ASM")
 ;
 I $G(%ARG("WBCARD")) D
 .S @$$GLCB(NUMBER)@("WB","LKH")=$G(%ARG("BSLKH"))
 .S @$$GLCB(NUMBER)@("WB","CARD")=$G(%ARG("BSCARD"))
 .S @$$GLCB(NUMBER)@("WB","NAME")=$TR($G(%ARG("BSNAME")),"\","/")
 .S @$$GLCB(NUMBER)@("WB","CLUB")=$G(%ARG("BSCLUB"))
 .S @$$GLCB(NUMBER)@("WB","ASM")=$G(%ARG("BSASM"))
 ;
 I $G(%ARG("WMCARD")) D
 .S @$$GLCB(NUMBER)@("MP","CARD")=$G(%ARG("MPCARD"))
 .S @$$GLCB(NUMBER)@("MP","NAME")=$G(%ARG("MPNAME"))
 .S @$$GLCB(NUMBER)@("MP","ASM")=$G(%ARG("MPASM"))
 .S @$$GLCB(NUMBER)@("MP","ARM")=$G(%ARG("MPARM"))
 ;
 I $G(ODEF),ODEF>0&(TOPAY'<0)!(ODEF<0&(TOPAY<0)) D
 .S $P(@$$GLCB(NUMBER),"\",2)=$P($G(@$$GLCB(NUMBER)),"\",2)-ODEF
 .S $P(@$$GLCB(NUMBER),"\",1)=$P($G(@$$GLCB(NUMBER)),"\",1)-ODEF
 .S $P(@$$GLCB(NUMBER),"\",15)=ODEF
 ;
 L  ;
 D ^%S2GLSV($$GLCB(NUMBER),$$^W4FGIB)
 D ^%S2GLSV($$GLCBHR(NUMBER),$$^W4FGIB)
 D ^%S2GLSV($$GLCBV(NUMBER),$$^W4FGIB)
 ;
 I '$$TZ^W4L(STRING),TZ D PUT^W4L(STRING,TZ,"TZ")
 ;
 I $$HMK($$NOM)'=2 D  ;--- HMK YAD
 .S NRZD=$S($$CODDOC="HMK":7,1:6)
 .L +@$$^W4GL("KLF"):1
 .I NUMBER>$P($G(@$$^W4GL("KLF")),"\",NRZD) D
 ..S $P(@$$^W4GL("KLF"),"\",NRZD)=NUMBER
 .L +@$$^W4KLIN@(CODDOC):1
 .S @$$^W4KLIN@(CODDOC,NUMBER)=STRING
 L  ;
 ;
 I $$HMK($$NOM)=1 D
 .M @$$GLHB(NUMBER)=@$$TMPHB
 .D ^%S2GLSV($$GLHB(NUMBER),$$^W4FGIB)
 ;
PUTE ;
 D CRACNTN^W4ACNT(STRING,NUMBER,CODDOC)
 ;
 D
 .K @TMPCB
 .K @$$TMPHB
 .D CLEAR^W4PAYKB
 .D CLEAR
 ;
 D PUT^%W1PRM("MKRYD",NUMBER_CODDOC)
 I $$HMK($$NOM)'=2 D
 .;;D PUT^%W1PRM("MKRYD",NUMBER_CODDOC)
 .D ^%S2GLSV($$^W4KLIN_"("""_CODDOC_""","""_NUMBER_""")",$$^W4FGIB)
 ;
 D ^W4SETCH(CODDOC,NUMBER)
 ;
 I $G(ODEF),ODEF>0&($G(TOPAY)'<0)!(ODEF<0&($G(TOPAY)<0)),NUMBER'[";" S NUMBER=NUMBER_";"_ODEF
 Q NUMBER
 ;
 ;
PUTZAP(CUSN,SUM) ;
 N DATE,COD,KLN,P1DZ,KMAM,DLL,DLNH
 D ^W4KLINIT,^W4IN
 S DATE=$$^%L1DC($$NEWDAT,2)
 S CODDOC=$$CODDOC
 S COD="A"
 I '$$HMK(0) S COD=CODPAY
 D PUT^%W3DEB("W4LCBCR-PUTZAP","CUSN=CUSN&DATE=DATE&CODDOC=CODDOC&COD=COD")
 D ^W4KLUP
 Q
 ;
 ;
DELETE(NOMCB) ;
 N (JB,%REM,NOMCB)
 S KLIN=$$^W4KLIN
 S CODDOC=$$CODDOC(NOMCB)
 S STRING=$G(@KLIN@(CODDOC,+NOMCB))
 D PUT^%W3DEB("W4LCBCR-DELETE","NOMCB=NOMCB & KLIN=KLIN & CODDOC=CODDOC")
 S LK0=STRING
 S STRING=$$LK^W4LHB(LK0)
 I STRING="" Q "NOCUSTNMB"
 ;------------- BITIL TASHLUMIM
 N TMPCB
 D TMPCB K @TMPCB
 M @TMPCB=@$$GLCB(NOMCB)
 S A=$G(@TMPCB)
 F J=1,2,3,6,7,8,9,15 S $P(A,"\",J)=-$P(A,"\",J)
 S @TMPCB=A
 F I=1:1 Q:'$D(@TMPCB@(I))  D
 .S $P(^(I),"\")=-$P(^(I),"\")
 ;
 S OK="ERROR"
 N GLBV S GLCBV=$$GLCBV(NOMCB)
 ;
 I $D(@GLCBV)=1 D  I OK'="OK;000" Q OK
 .N S21 S S21=$G(@GLCBV) Q:'$L(S21)
 .S STRIN=$G(@GLCBV@("STRIN"))
 .I STRIN="" S STRIN=$$^W4S212IN(S21)
 .S $P(S21,"*",6)=-$P(S21,"*",6)
 .S $P(S21,"*",7)=-$P(S21,"*",7)
 .S OK=$$BIT^W4PAYCBA(STRIN)
 .I OK'="OK;000" S OK=$$ERROR(OK)
 ;
 I $D(@$$GLCBV(NOMCB))>9 D  I OK'="OK;000" Q OK
 .N TM S TM=$P($G(@$$GLCB(NOMCB)),"\",13)
 .N N S N="" F  S N=$O(@GLCBV@(N)) Q:N=""  D
 ..N S21 S S21=$G(^(N)) Q:'$L(S21)
 ..S STRIN=$G(@GLCBV@(N,"STRIN"))
 ..I STRIN="" S STRIN=$$^W4S212IN(S21)
 ..S UID=$G(@GLCBV@(N,"UID"))
 ..I $$^W4WASSND(TM) S UID=""
 ..S $P(S21,"*",6)=-$P(S21,"*",6)
 ..S $P(S21,"*",7)=-$P(S21,"*",7)
 ..N VID S VID=$E($P(S21,"*"),3)
 ..S OK=$$BIT^W4PAYCBA(STRIN,UID) ; ---------- !!!!!!!!!!!!!!!!!!
 ..I OK'="OK;000" S OK=$$ERROR(OK) Q
 ..D SETS21(STRING)
 ;
 ;
 S A=1
 I $$VCARD(STRING) D  I A'=1 Q "ERROR;"_A
 .N CARD,TRID
 .S CARD=$G(@$$GLCB(NOMCB)@("VC","CARD"))
 .S TRID=$G(@$$GLCB(NOMCB)@("VC","ASM"))
 .I CARD=""!(TRID="") Q
 .S A=$$DEL^WVVOID(0,CARD,TRID)
 ;
 S @TMPCB@("HR")=$$TV^%W1DICT($$^%W1LNG,"DELETINGRECEIPT",+NOMCB)
 ;
 I $$HMK(NOMCB)=1 D
 .S @TMPCB@("HR")=$$TV^%W1DICT($$^%W1LNG,"DELETINGINVCRCP",+NOMCB)
 .K @$$TMPHB
 .M @$$TMPHB=@$$GLHB(NOMCB)
 .N A S A=$G(@$$TMPHB)
 .N J F J=1,2,3,10 S $P(A,"\",J)=-$P(A,"\",J)
 .S $P(A,"\",4)=$ZD($H,"DD.MM.YY")
 .S $P(A,"\",7)=$ZD($H,"DD.MM.YY  24:60")
 .S @$$TMPHB=A
 .N I F I=1:1 Q:'$D(@$$TMPHB@(I))  D
 ..S $P(^(I),"\")=-$P(^(I),"\")
 ..S $P(^(I),"\",3)=-$P(^(I),"\",3)
 ;
 I $$HMK(NOMCB)=2 D  ; MEFURAT
 .S @TMPCB@("HR")=$$TV^%W1DICT($$^%W1LNG,"DELETINGINVCRCP",+NOMCB)
 .D DELHB($$GLHB(NOMCB))
 .
 .S DT=+$H,VDOC="HMK"
 ;
 S %ARG("NOM")=NOMCB
 ;
 S NEWCB=$$PUT(STRING) ; -- !!!! --> FOR HMK --> PUTHMK^W4DOC --> MLY
 ;
 I NEWCB>0,'$$HMK(NOMCB) D
 .D GLCBHB^W4CBHB
 .D CLRHB(+NOMCB,"D")
 .K @GLCBHB@(+NOMCB)
 .D ^%S2GLSV(GLCBHB_"(+NOMCB)",$$^W4FGIB,"K")
 .L +@$$GLCBHR(NOMCB):1
 .L +@$$^W4GL("W4DELCB")@(+NOMCB)
 .S @$$^W4GL("W4DELCB")@(+NOMCB)=NEWCB
 .D ^%S2GLSV($$^W4GL("W4DELCB")_"("_+NOMCB_")",$$^W4FGIB)
 .S @$$GLCBHR(+NOMCB)=$$TV^%W1DICT($$^%W1LNG,"DELETEDBYRECEIPT",+NEWCB)
 .S @$$GLCBHR(+NEWCB)=$$TV^%W1DICT($$^%W1LNG,"DELETINGRECEIPT",+NOMCB)
 .L  ;
 ;
 I NEWCB>0,$$HMK(NOMCB) D
 .L +@$$GLCBHR(+NOMCB):1
 .L +@$$^W4GL("W4DELHMK")@(+NOMCB)
 .S @$$^W4GL("W4DELHMK")@(+NOMCB)=+NEWCB
 .D ^%S2GLSV($$^W4GL("W4DELHMK")_"("_+NOMCB_")",$$^W4FGIB)
 .S @$$GLCBHR(+NOMCB)=$$TV^%W1DICT($$^%W1LNG,"DELETEDBYINVCRCP",+NEWCB)
 .S @$$GLCBHR(+NEWCB)=$$TV^%W1DICT($$^%W1LNG,"DELETINGINVCRCP",+NOMCB)
 .L  ;
 .N NOM S NOM=$P(LK0,"W",2) Q:'NOM
 .Q:'$D(@$$^W4GL("W4DOC")@(NOM,"HMK"))
 .S @$$^W4GL("W4DOC")@(NOM,"HMK","DELETED")=$H_"\"_NEWCB
 .N NEWNOM S NEWNOM=$P($G(@$$^W4KLIN@("HMK",+NEWCB)),"W",2)
 .Q:'NEWNOM
 .Q:'$D(@$$^W4GL("W4DOC")@(+NEWNOM,"HMK"))
 .S @$$^W4GL("W4DOC")@(+NEWNOM,"HMK","DELETED")=$H_"\"_NOMCB
 ;
 D ^%S2GLSV($$GLCBHR(NOMCB),$$^W4FGIB)
 ;
 D PUT^%W1PRM("MKRYD",NEWCB_$S($$HMK(NOMCB):"HMK",1:"CB"))
 ;
 ;;I $$HMK(NOMCB),$$DOCCSR^W4LKHCSR D ^W4PCHMK(NEWCB)
 ;
ECB Q NEWCB
 ;
 ;
ERROR(OK) ;
 ;;W "  VID="_VID,! ; ***
 D PUT^%W1PRM("S21","")
 N STA S STA=$P(OK,";",2)
 S OK="ERROR;"_STA_";" I STA S OK=OK_$G(@$$^W4GL("KOD")@(+STA))
 I +STA=3,$G(VID) S OK=OK_";"_$$TELCA^W4OPT(+VID)
 Q OK
 ;
GLCB(NOM) ;
 I $L($G(STRING))<4 S STRING=$$STRING(NOM) S:STRING="" STRING=" "
 I $$HMK(NOM)=1 Q $$^W4GL("KLF")_"("""_STRING_""",""HMK"","_+NOM_",""CB"")"
 I $$HMK(NOM)=2 Q $$^W4GL("W4DOC")_"("_+$$NOMDOC(NOM)_",""HMK"",""CB"")"
 Q $$^W4GL("KLF")_"("""_STRING_""",""CB"","_+NOM_")"
 ;
GLHB(NOM) ;
 I $L($G(STRING))<4 S STRING=$$STRING(NOM)
 I $$HMK(NOM)=1 Q $$^W4GL("KLF")_"("""_STRING_""",""HMK"","_+NOM_",""HB"")"
 S NOM=$$NOMDOC(NOM) Q $$^W4GL("W4DOC")_"("_+NOM_")"
 ;
GLCBHR(NOM) ;
 I $L($G(STRING))<4 S STRING=$$STRING(NOM)
 I $$HMK(NOM)=1 Q $$^W4GL("KLF")_"("""_STRING_""",""HMK"","_+NOM_",""CBP"")"
 I $$HMK(NOM)=2 Q $$^W4GL("W4DOC")_"("_+$$NOMDOC(NOM)_",""HMK"",""CBP"")"
 Q $$^W4GL("KLF")_"(STRING,""CBP"","_+NOM_")"
 ;
GLCBV(NOM) ;
 N TMPCB
 I $L($G(STRING))<4 S STRING=$$STRING(NOM)
 I '$G(NOM) D TMPCB Q $E(TMPCB,1,$L(TMPCB)-1)_",""S21"")"
 ;
 I $$HMK(NOM)=1 Q $$^W4GL("KLF")_"(STRING,""HMK"","_+NOM_",""CBV"")"
 I $$HMK(NOM)=2 Q $$^W4GL("W4DOC")_"("_+$$NOMDOC(NOM)_",""HMK"",""CBV"")"
 Q $$^W4GL("KLF")_"(STRING,""CBV"","_+NOM_")"
 ;
 ;
HOV(DT) ;
 K KLOST,KLOSTP
 I '$G(@$$^W4PRM@("ITRAHZ")) Q $$CBH^W4KLOST(LKH,DT)
 ;
 N DAT0,DAT2,DD,STRING,NN,BUY,PAY
 S DAT=$$^%L1DC($$^%L1DC(DT,1),2)
 S DAT0=DAT,DAT2=$$^%L1DC($$^%L1DC($H,1),2)
 S DD=$E(DAT,5,6)
 S STRING=LKH D ^W4KLOST
 Q ITRA0
 ;
COLST S COLST=$G(%ARG("COLST"))
 N TMPCB,MIN D TMPCB
 S MIN=$O(@TMPCB@(99999),-1)
 I COLST<MIN S COLST=MIN
 I COLST<3 S COLST=3
 Q
 ;
 ;
GETKOT(STRING,NOM) ;
 N A S A=$G(@$$GLCB(NOM))
 S ORGTIME=$ZD($P(A,"\",13),"DD.MM.YY  24:60")
 I ORGTIME="" S ORGTIME=$$^%L1DC($P(A,"\",4),1)
 S LKHNAME=$$LKHNAME^W4CBGET(STRING,NOM)
 I STRING=$$^WVLKH,$$SPA^%L1FRM(LKHNAME)'=$$SPA^%L1FRM($$LKH^W4L(STRING)) D
 .S LKHNAME="[ "_LKHNAME_" ] "_$$SPA^%L1FRM($$LKH^W4L(STRING))
 S LKHFOR=""
 I $L($G(@$$GLCB(NOM)@("FOR"))) S LKHFOR=^("FOR")
 S LKHKTV=$P(A,"\",14)
 I LKHKTV="" S LKHKTV=$$KTVM^W4L(STRING)
 Q
 ;
SUM(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $P($G(@$$GLCB(NOM)@(I)),"\",1)
 ;
BANK(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $P($G(@$$GLCB(NOM)@(I)),"\",2)
 ;
SNIF(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $P($G(@$$GLCB(NOM)@(I)),"\",3)
 ;
TZ(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $P($G(@$$GLCB(NOM)@(I)),"\",4)
 ;
HESH(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $P($G(@$$GLCB(NOM)@(I)),"\",5)
 ;
CHK(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $P($G(@$$GLCB(NOM)@(I)),"\",6)
 ;
DATPR(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $P($G(@$$GLCB(NOM)@(I)),"\",7)
 ;
SUMT(I) ;
 D TMPCB
 Q $P($G(@TMPCB@(I)),"\",1)
 ;
BANKT(I) ;
 D TMPCB
 Q $P($G(@TMPCB@(I)),"\",2)
 ;
SNIFT(I) ;
 D TMPCB
 Q $P($G(@TMPCB@(I)),"\",3)
 ;
TZT(I) ;
 N TZ
 D TMPCB
 S TZ=$P($G(@TMPCB@(I)),"\",4)
 ;;I TZ="",$$SUMT(I),$G(%ARG("LKH")) S TZ=$$TZ^W4L(%ARG("LKH"))
 Q TZ
 ;
HESHT(I) ;
 D TMPCB
 Q $P($G(@TMPCB@(I)),"\",5)
 ;
CHKT(I) ;
 D TMPCB
 Q $P($G(@TMPCB@(I)),"\",6)
 ;
DATPRT(I) ;
 D TMPCB
 N A
 S A=$P($G(@TMPCB@(I)),"\",7)
 I A="" S A="-"
 Q A
 ;
CA(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 N GLCBV S GLCBV=$$GLCBV(NOM)
 I $D(@GLCBV)=1 Q $J($P($G(@GLCBV),"*",7),2,2)
 I '$G(I) S I=1
 Q $J($P($G(@GLCBV@(I)),"*",7),2,2)
 ;
CANMB(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 N GLCBV S GLCBV=$$GLCBV(NOM)
 I $D(@GLCBV)=1 Q $P($G(@GLCBV),"*",2)
 I '$G(I) S I=1
 Q $P($G(@GLCBV@(I)),"*",2)
 ;
NOMISKA(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 N GLCBV S GLCBV=$$GLCBV(NOM)
 I $D(@GLCBV)=1 Q $P($G(@GLCBV),"*",3)
 I '$G(I) S I=1
 Q $P($G(@GLCBV@(I)),"*",3)
 ;
CASUGI(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 N GLCBV S GLCBV=$$GLCBV(NOM)
 I $D(@GLCBV)=1 Q $P($G(@GLCBV),"*",4)
 I '$G(I) S I=1
 Q $P($G(@GLCBV@(I)),"*",4)
 ;
CASUGI1(NOM,I,NOWEB) ;
 N SI S SI=$$CASUGI(NOM,$G(I)) I 'SI Q $S($G(NOWEB):"",1:"&nbsp;")
 Q $$SUGI1(SI)
 ;
SUGI1(SI)
 I $G(SI)="" Q "?"
 N SI1 S SI1=$G(^[$$^W3MAIN]W4PAYS($$COUNTRY^W3PRM,"SI",SI))
 I $G(NOWEB) Q SI1
 Q $$H2U^%L1FRM(SI1)
 ;
CASUGA(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 N GLCBV S GLCBV=$$GLCBV(NOM)
 I $D(@GLCBV)=1 Q $P($G(@GLCBV),"*",5)
 I '$G(I) S I=1
 Q $P($G(@GLCBV@(I)),"*",5)
 ;
CASUGA1(NOM,I,NOWEB) ;
 N SA S SA=$$CASUGA(NOM,$G(I)) I 'SA Q $S($G(NOWEB):"",1:"&nbsp;")
 Q $$SUGA1(SA)
 ;
SUGA1(SA)
 S SA=+$G(SA)
 N SA1 S SA1=$G(^[$$^W3MAIN]W4PAYS($$COUNTRY^W3PRM,"SA",SA))
 I $G(NOWEB) Q SA1
 Q $$H2U^%L1FRM(SA1)
 ;
CATSN(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 N GLCBV S GLCBV=$$GLCBV(NOM)
 N A S A=""
 I $D(@GLCBV)=1 S A=$P($G(@$$GLCBV(NOM)),"*",9)
 ;
 I $D(@GLCBV)>9 D
 .I '$G(I) S I=1
 .S A=$P($G(@GLCBV@(I)),"*",9)
 ;
 I 'A Q ""
 Q A
 ;
 ;
CATS1(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 N GLCBV S GLCBV=$$GLCBV(NOM)
 N A S A="" I $D(@GLCBV)=1 S A=$P($G(@GLCBV),"*",8)
 I $D(@GLCBV)>9 D
 .I '$G(I) S I=1
 .S A=$P($G(@GLCBV@(I)),"*",8)
 I 'A Q ""
 Q $J(A*.01,2,2)
 ;
CATS2(NOM,I) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 N GLCBV S GLCBV=$$GLCBV(NOM)
 N A S A=""
 I $D(@GLCBV)=1 S A=$P($G(@$$GLCBV(NOM)),"*",10)
 I $D(@GLCBV)>9 D
 .I '$G(I) S I=1
 .S A=$P($G(@GLCBV@(I)),"*",10)
 I 'A Q ""
 Q $J(A*.01,2,2)
 ;
 ;
NEWDAT(STAM) ;
 I '$$^W4LKH D ^W4IN Q $ZD(P1DZ,"DD.MM.YY")
 Q $ZD($H,"DD.MM.YY")
 ;
MZ(NOM) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $J($P($G(@$$GLCB(NOM)),"\",2),2,2)
 ;
ODEF(NOM) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $J($P($G(@$$GLCB(NOM)),"\",15),2,2)
 ;
SUMCH(NOM) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $J($P($G(@$$GLCB(NOM)),"\",6),2,2)
 ;
SUMB(NOM) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $J($P($G(@$$GLCB(NOM)),"\",8),2,2)
 ;
NIKMAS(NOM) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $J($P($G(@$$GLCB(NOM)),"\",9),2,2)
 ;
TOT(NOM) ;
 I '$G(NOM) Q $$PAID
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 D PUT^%W3DEB("W4LCBCR-TOT","STRING=STRING & NOM=NOM")
 Q $J($P($G(@$$GLCB(NOM)),"\",1),2,2)
 ;
DAT(NOM) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $P($G(@$$GLCB(NOM)),"\",4)
 ;
COMMENT(NOM) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $G(@$$GLCBHR(NOM))
 ;
PRIVATEINF(NOM) ;
 I $G(NOM)="" Q ""
 N STRING S STRING=$$STRING(NOM) I STRING="" Q ""
 Q $G(@$$GLCBHR(NOM)@("PRV"))
 ;
 ;
MZT(STAM) ;
 D TMPCB
 Q $J($P($G(@TMPCB),"\",2),2,2)
 ;
NIKMAST(STAM) ;
 D TMPCB
 Q $J($P($G(@TMPCB),"\",9),2,2)
 ;
TOTT(STAM) ;
 D TMPCB
 Q $J($P($G(@TMPCB),"\",1),2,2)
 ;
COMMENTT(STAM) ;
 D TMPCB
 Q $G(@TMPCB@("HR"))
 ;
NOM(STAM) ;
 I $G(%ARG("NOM")) Q %ARG("NOM")
 Q 0
 ;
TMPCB ;
 S TMPCB=$$^W4MAIN("TMPCB")
 Q
 ;
TMPHB(STAM) Q $$^W4MAIN("TMPHBK")
 ;
SPANBLACK(VL) ;
 Q "<span dir=""LTR"" "_$$^%W1ALIGN_" style=""color:"_$S($G(VL)<0:"red",1:"black")_""""
 ;
STRING(NOM) ;
 N LK
 I '$G(NOM) D  Q LK
 .I $G(%ARG("LKH")) S LK=%ARG("LKH") Q
 .D TMPCB
 .S LK=$G(@TMPCB@("LKH"))
 ;
 N CODDOC
 S CODDOC=$$CODDOC(NOM)
 ;
 Q $$LK^W4STRING(CODDOC,+NOM)
 ;
 ;
CLEAR ;
 D KILL^%W1PRM("S21")
 D KILL^%W1PRM("TRAN")
 D KILL^%W1PRM("SOUT")
 D KILL^%W1PRM("CBCRED")
 D KILL^%W1PRM("STRIN")
 D KILL^%W1PRM("CB")
 D KILL^%W1PRM("LKH")
 D KILL^%W1PRM("NOMCB")
 K @$$^W4MAIN("TMPEMV")
 D KILL^W4TMPPAY
 Q
 ;
ITRACB(NOMCB) ;
 Q $$TOTCB(NOMCB)-$$SUMPAID(NOMCB)
 ;
TOTCB(NOMCB) ;
 D GLCBHB^W4CBHB
 I $D(@GLCBHB@(NOMCB))>9 D
 .S $P(@GLCBHB@(NOMCB),"\",4)=$$SUMPAID(NOMCB)
 Q $P($G(@$$GLCB(NOMCB)),"\")
 ;
 ;
SUMPAID(NOMCB) ;
 D GLCBHB^W4CBHB
 N N,SUMPAID S SUMPAID=0
 S N="" F  S N=$O(@GLCBHB@(NOMCB,N)) Q:N=""  S SUMPAID=SUMPAID+$G(^(N))
 Q SUMPAID
 ;
CLRHB(NOMCB,PR) ;
 I $G(PR)="" S PR="D"
 N W4CB
 D GLCBHB^W4CBHB
 N LK,A,CBO
 ;
 N HB S HB="" F  S HB=$O(@GLCBHB@(NOMCB,HB)) Q:HB=""  D
 .N SUM S SUM=$G(^(HB))
 .S LK=$G(@$$^W4GL("KLIN")@("H",HB)) Q:LK=""
 .
 .I LK["+" D  Q
 ..S LK=$P(LK,"+")
 ..S A=$G(@$$^W4GL("P1LHB")@(LK,HB)) Q:A=""
 ..S @$$^W4GL("P1LHB")@(LK,HB)=$$UPDHB(SUM,A,NOMCB,5,6,PR)
 ..D ^%S2GLSV($$^W4GL("P1LHB")_"("""_LK_""","""_HB_""")",$$^W4FGIB)
 .
 .I $$ARM^W4LHB(LK)=1 D  Q  ; -- YAD
 ..S A=$G(@$$^W4GL("KLF")@(LK,"H",HB)) Q:A=""
 ..S @$$^W4GL("KLF")@(LK,"H",HB)=$$UPDHB(SUM,A,NOMCB,5,6,PR)
 ..D ^%S2GLSV($$^W4GL("KLF")_"("""_LK_""",""H"","""_HB_""")",$$^W4FGIB)
 .
 .I $$ARM^W4LHB(LK)=2 D  Q  ; -- MEFURETET
 ..N NOMDOC S NOMDOC=$P(LK,"W",2)
 ..S LK=$P(LK,"W")
 ..S A=$G(@$$^W4GL("W4DOC")@(NOMDOC)) Q:A=""
 ..S @$$^W4GL("W4DOC")@(NOMDOC)=$$UPDHB(SUM,A,NOMCB,19,20,PR)
 ..D ^%S2GLSV($$^W4GL("W4DOC")_"("""_NOMDOC_""")",$$^W4FGIB)
 Q
 ;
 ;
UPDHB(SUM,A,NOMCB,NDLM1,NDLM2,PR) ;
 I PR="D" D
 .N CBO,SUMO
 .S CBO=$P(A,"\",NDLM2)
 .S SUMO=$P(A,"\",NDLM1)
 .S CBO=","_CBO_","
 .S CBO=$P(CBO,","_NOMCB_",")_","_$P(CBO,","_NOMCB_",",2)
 .S:$E(CBO)="," CBO=$E(CBO,2,120)
 .S:$E(CBO,$L(CBO))="," CBO=$E(CBO,1,$L(CBO)-1)
 .S $P(A,"\",NDLM1)=$J(SUMO-SUM,2,2)
 .S $P(A,"\",NDLM2)=CBO
 ;
 I PR="S" D
 .N CBO,SUMO
 .S CBO=$P(A,"\",NDLM2)
 .S SUMO=$P(A,"\",NDLM1)
 .S CBO=","_CBO_","
 .I CBO'[(","_NOMCB_",") S CBO=CBO_NOMCB
 .S:$E(CBO)="," CBO=$E(CBO,2,120)
 .S:$E(CBO,$L(CBO))="," CBO=$E(CBO,1,$L(CBO)-1)
 .S $P(A,"\",NDLM1)=$J(SUMO+SUM,2,2)
 .S $P(A,"\",NDLM2)=CBO
 ;
 Q A
 ;
CODDOC(STAM) ;
 I $G(STAM)["HMK" Q "HMK"
 I $$HMK($$NOM) Q "HMK"
 Q "CB"
 ;
TOPAY(NOM) ;
 N HMK S HMK=$$HMK(NOM)
 D PUT^%W3DEB("W4LCBCR-TOPAY","NOM=NOM & HMK=HMK")
 I HMK=2 Q $P($G(@$$TMPHB),"\",6)
 Q $P($G(@$$TMPHB),"\",2)
 ;
PAID(STAM) ;
 N A,S21,SUM,TMPCB
 D TMPCB
 S A=$G(@TMPCB)
 S SUM=$P(A,"\",6)+$P(A,"\",2)+$P(A,"\",9)+$$VZ
 Q SUM
 ;
VZ(STAM) N S21,VZ
 S S21=$$GET^%W1PRM("S21")
 I $E(S21,1,2)'="$V" S S21=""
 S VZ=$P(S21,"*",7)
 Q (VZ+$$SUMCA)
 ;
HMK(NOM) ;
 N OK
 I $G(NOM)["HMK" D  Q OK
 .N LK0
 .S LK0=$$^W4STRING("HMK",+NOM)
 .I LK0="" S OK=0 Q
 .I LK0["W" S OK=2 Q
 .S OK=1
 ;
 N LK0
 I '$$HMK^W4LHB Q 0
 I '$G(NOM) Q $$HMK^W4LHB
 I $G(LK0)="" S LK0=$$^W4STRING("HMK",NOM)
 I $G(LK0)["W" Q 2
 Q 1
 ;
NOMDOC(NOM) ;
 N LK0,NOMDOC
 S LK0=""
 S NOMDOC=0
 I NOM S LK0=$G(@$$^W4KLIN@($$CODDOC(NOM),+NOM))
 I $$HMK(NOM)=2 S NOMDOC=$P(LK0,"W",2)
 Q NOMDOC
 ;
INIT ;
 D CLEAR
 D CLEAR^W4PAYKB
 D TMPCB
 K:+$$HMK^W4LHB=0 @TMPCB
 D PUT^%W1PRM("CHKDET",1)
 D PUT^%W1PRM("CHKTZ",1)
 I $G(%ARG("NOMHB")) D PUT^%W1PRM("NOMHB",%ARG("NOMHB"))
 I $G(%ARG("SUMHB")) D PUT^%W1PRM("SUMHB",%ARG("SUMHB"))
 Q
 ;
CHKDET(STAM) ;
 Q $$GETP^%W1PRM("CHKDET")
 ;
CHKTZ(STAM) ;
 Q $$GETP^%W1PRM("CHKTZ")
 ;
CSRPRINT(NOMCB) ;
 Q $$^W4PCCB(NOMCB)
 ;
CSR(STAM) ;
 I '$$^W4LKH Q 1
 I $$^W4LKHCSR Q 1
 Q 0
 ;
DIVCMNT(NOM,PRINT,COMMENT,PRV,SHOW) ;
  W "<table dir="""_$$^%W1DIR_""" width=""96%"" border=""0"" cellspacing=""0"">",!
  I $G(PRV),PRINT G ETB
  W " <tr>",!
  W "<td width=""10%"">"_$$^%W1DICT("COMMENT")_" :</td>",!
  I '$G(NOM) S SHOW=0
  I $G(NOM),'$$INP^W4DOC,'$D(EDITCMNT) S SHOW=1
  I '$G(SHOW) D
  .W "  <td width=""60%"">"
  .;;W "   <input type=""text"" size=""75"" maxlength=""75"" id=""comment"" value="""_$$H2U^%L1FRM(COMMENT)_""">",!
  .W "   <textarea cols=""75"" rows=""2"" id=""comment"" >"_$$H2U^%L1FRM(COMMENT)_"</textarea>",!
  .W "  </td>",!
  .W "  <td "_$$^%W1ALIGN_" ><input type=""checkbox"" id=""chkprv"" >"_$$^%W1DICT("PRIVATEINF")_"</td>"
  I $G(SHOW) D
  .W "  <td id=""tdcmnt"" style=""color:black;font-weight:bold"">"_$$H2U^%L1FRM(COMMENT)_"</td>",!
  .I PRV W "<td id=""tdprv"">["_$$^%W1DICT("PRIVATEINF")_"]</td>"
  W " </tr>",!
ETB ;
  W "</table>",!
 Q
 ;
PRINT(STAM) ;
 Q $G(%ARG("PRINT"))!$G(%ARG("MAIL"))
 ;
DELHB(GLHB) ;
 N TMPHB
 S TMPHB=$$TMPHB
 K @TMPHB
 ;
 S @TMPHB=$G(@GLHB)
 ;
 N I F I=1:1 Q:'$D(@GLHB@(I))  S @TMPHB@(I)=$G(@GLHB@(I))
 N A S A=$G(@TMPHB)
 N J F J=6,7,10,13,14 S $P(A,"\",J)=-$P(A,"\",J)
 S $P(A,"\",4)=$ZD($H,"DD.MM.YY")
 S $P(A,"\",8)=$ZD($H,"DD.MM.YY  24:60")
 S @TMPHB=A
 F I=1:1 Q:'$D(@TMPHB@(I))  D
 .F J=4 D
 ..S $P(^(I),"\",J)=-$P(^(I),"\",J)
 Q
 ;
SETPAID(NOMCB)
 D CLRHB(NOMCB,"S")
 Q
 ;
CADFLT(PRM) ;
 N ITRA,CRCARD
 S ITRA=$P(PRM,";")
 N LK S LK=$P(PRM,";",2)
 D PUT^%W1PRM("CBCRED",1)
 D CLEAR^W4PAYKB
 D PUT^W4TMPPAY(3,"SUM",ITRA)
 ;
 I '$$EMV^W4PRM,LK,$$CADFLT^W4L(LK) D
 .D PUT^W4TMPPAY(3,"CREDITCARDNUMBER",$$CADFLT^W4L(LK))
 .D PUT^W4TMPPAY(3,"MM",$$MMCA^W4L(LK))
 .D PUT^W4TMPPAY(3,"YY",$$YYCA^W4L(LK))
 .D PUT^W4TMPPAY(3,"IDNUMBER",$$TZCA^W4L(LK))
 Q 1
 ;
 ;
VCARD(STRING) ;
 I $$^WVLKH,STRING=$$^WVLKH,$G(@$$^W4PRM@("VCARD")) Q 1
 Q 0
 ;
ZAPCA(S21,SOUT,TRAN) ; 
 D DOS1^W4TRAN(SOUT,TRAN)
 Q 
 ;
NOBIG(STAM) ; 
 Q $$NOBIGMDP^W4PRM 
 ;
SHOWCA(NOM,I) ;
  S I=+$G(I)
  W "<tr>",!
  W " <td>",!
   W $$^%W1DICT("PAIDCRCARD")_" : "
   W $$SPANBLACK($$CA(NOM,I))_" id=""sumca""> "_$$VW($$CA(NOM,I))_"</span>"
   W " </td>",!
   W " <td colspan=""2"">",!
    W $$^%W1DICT("CRCARDNUMBER")_" : "
    N CANMB S CANMB=$$CANMB(NOM,I)
    S CANMB=$E(CANMB,$L(CANMB-3),$L(CANMB))
    W $$SPANBLACK_" > ..."_CANMB_"</span>"
   W " </td>",!
   W "</tr>",!
   W "<tr>",!
   W " <td>",!
    W $$^%W1DICT("NOMISKA")_" : "
    W $$SPANBLACK_" > "_$$NOMISKA(NOM,I)_"</span>"
   W " </td>",!
   W " <td>",!
    W $$^%W1DICT("SUGISKA")_" : "
    W $$SPANBLACK_" > "_$$CASUGI1(NOM,I)_"</span>"
   W " </td>",!
   W " <td>",!
    W $$^%W1DICT("SUGASR")_" : "
    W $$SPANBLACK_" > "_$$CASUGA1(NOM,I)_"</span>"
   W " </td>",!
  W "</tr>",!
  W "<tr>",!
   W " <td>",!
    W $$^%W1DICT("QNPAY")_" : "
    N CATSN S TACSN=$$CATSN(NOM,I) I TACSN S TACSN=TACSN+1
    W $$SPANBLACK_" > "_TACSN_"</span>"
   W " </td>",!
   W " <td>",!
    W $$^%W1DICT("FIRSTPAY")_" : "
    W $$SPANBLACK_" > "_$$CATS1(NOM,I)_"</span>",!
   W " </td>",!
   W " <td>",!
    W $$^%W1DICT("NEXTPAY")_" : "
    W $$SPANBLACK_" > "_$$CATS2(NOM)_"</span>"
   W " </td>",!
   W "</tr>",!
   W "<tr><td colspan=""8""><hr></td></tr>",!
  Q
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

W4LHB
W4LHB ; [ 24.08.21 08:19 ] [ 11.07.21 10:31 ] [ 16.05.21 18:45 ] 
 N $ZT S $ZT="S zr=$R X ^ZT  ZG "_$ZL_":SVER^%L1X"
 I $$DENIED Q
 N (JB,%ARG,%REM)
 N LKH S LKH=$$^W4CDLK($G(%ARG("CODE")))
 I LKH="",$$HMK,$$^W4LKHCSR S LKH=$$LKHDFLT^W4LKHCSR
 N SHOWKIND S SHOWKIND=$G(%ARG("SHOWKIND"))
 I 'SHOWKIND S SHOWKIND=1
 S ONCLICKSHOW=" onClick=""OnClickShow(this)"" "
 ;
 ;;I $$CODDOC="TZ",$G(%ARG("INVC"))="" S %ARG("INVC")=8
 ;
 D OPCSV^W4EX("W4LHB")
 ;
 S CODDOC=$$CODDOC
 I $G(%ARG("VD"))="HBZ" D PUT^%W1PRM("VD","HBZ")
 ;
 W "<div align=""center"" onKeyPress=""w4lhbKeyPress(event)"" >",!
 ;----------------------------------------------------
 I $G(%ARG("PRINT"))!$G(%ARG("SEND2MAIL")) D  Q  ; PRINT INVOICES LIST
 .D LIST
 .W "</div>",!
 ;----------------------------------------------------
 ;
 D CUSTCARD(LKH)
 ;
 W "<tr><td colspan=""6"">&nbsp;</td></tr>",!
 ;
 D BUTTONS
 ;
 D LINE
 ;
 W "</table>",!
 W "</div>",!
 ;
 W "<br />",!
 W "<div>",!
 ;
 D LIST
 W "</div>",!
 D CLCSV^W4EX
 Q
 ;
 ;
LIST ;
 N VD S VD=$G(%ARG("VD"))
 D
 .I $$HB,'$$HI D:$$^W4LKH!$$NEWMLY^W3PRM  D INVOICESLIST("ALL") Q
 ..Q:$G(PRINT)
 ..Q:$$HBZ(VD)
 ..S %ARG("VD")="TM"
 ..N TMHB S TMHB=1
 ..D INVOICESLIST("TM") ; -----TM LIST
 ..S %ARG("VD")=VD
 .
 .I $$HBZ(VD) D:$$^W4LKH!$$NEWMLY^W3PRM  D INVOICESLIST("ALL") Q
 ..Q:$G(PRINT)
 ..N VD S VD=$G(%ARG("VD"))
 ..Q:$$HBZ(VD)
 ..S %ARG("VD")="TMZ"
 ..N TMHBZ S TMHBZ=1
 ..D INVOICESLIST("TMZ") ; -----TM LIST
 ..S %ARG("VD")=VD
 .
 .I $$HI D INVOICESLIST("HI") Q
 .
 .I $$CB D RECEIPTLIST D:'$G(PRINT)  Q
 ..W "<br /><br />",!
 ..D INVOICESLIST("ALL")
 .
 .I $$HMK D INVOICESLIST("HMK") Q
 .
 .I $$TM D INVOICESLIST("TM") Q
 .
 .I $$TMZ D INVOICESLIST("TMZ") Q
 .
 .I $$HZ D ORDLIST("HZ") Q
 .
 .I $$HZMH D ORDLIST("HZMH") Q
 .
 .I $$HZMHC D PRCOFRCLIST Q
 .
 .I $$SRV D SRVCARDLIST Q
 .
 Q
 ;
 ;
WEX(VL,PR)
 Q:$G(TMHB)
 Q:$G(TMHBZ)
 D ^W4EX(VL,$G(PR))
 Q
 ;
WEXR ;
 D WEXR^W4EX
 Q
 ;
CUSTCARD(LKH) ;
 N W4HSB
 I $G(%ARG("NOM")),$G(%ARG("NEWCUST"))=""!($G(%ARG("NEWCUST"))=0) D
 .N NOM S NOM=$G(%ARG("NOM"))
 .D ^W4HSBGET(NOM,$$CODDOC)
 ;
 W "<br><span style=""color:red;text-align:center"">"_$$^%W1DICT("FLDMUSTASTR")_"</span><br><br>",!
 W "<table width=""85%"" cellpadding=""3"" border=""0"" style=""padding:10px;border:ridge;2px"" dir="""_$$^%W1DIR_""">",!
  D FIRSTLINE
  W "<tr>"
   D TDCUST
   D TDNAME
  W "</tr>",!
     ;
  W "<tr>",!
   D TDTEL
   D TDPELE
  W "</tr>",!
  ;
  W "<tr>",!
   D TDFAX
   D TDEMAIL 
  W "</tr>",!
  ;
  D TRADDR
  ;
  W "<tr>",!
   D TDHOV
   D TDDATE 
  W "</tr>",!
  ;
  I $$HZ D
  .W "<tr>"
  . D TDDOCNUM
  .W "</tr>",!
 Q
 ;
 ;
TDCUST ;
 W "<td width=""16%""> "
  W $$ZV_$$^%W1DICT("CUSTCODE")
  I $$W4LKH D
  .W "<br><span style=""font-size:"_$$^W3FSZ(8)_";color:gray"">"
  . W $$^%W1DICT("TELREC")
  .W "</span>"
 W "</td>",!
 ;
 W "  <td width=""34%"">"
  W "<input type=""text"" tabindex=""1"" id=""custcd""  "
  W "maxlength=""14"" size=""14"" value="""_LKH_""" "
  I $$VIEW W " readonly=""readonly"" "
  I '$$VIEW D
  .W " onClick=""this.select()"" onKeyDown=""OnKeyDownCd(event,this)"" "
  .W " onChange=""Find('custcd','custcd!','LKH')"" "
  .;;W " onBlour=""ClrCookieCd()"" "
  W ">",!
  I '$$VIEW D
  .W "&nbsp;<img id=""filter"" src=""w3filter.jpg"" onClick=""Find('custcd','custcd!','LKH')"" >",!
 W "  </td>",!
 Q
 ;
TDNAME ;
 W "  <td width=""12%"" >"_$$ZV_$$^%W1DICT("NAME")_"</td>",!
 W "  <td "_$$^%W1ALIGN_" colspan=""3"">"
  N LKHNAME S LKHNAME=$$LKH^W4L(LKH)
  I $L($G(W4HSB("LKHNAME"))) S LKHNAME=W4HSB("LKHNAME")
  I $$^W4LKHCSR,LKHNAME="",LKH=$$LKHDFLT^W4LKHCSR S LKHNAME="oncfn gewl"
  W "<input type=""text"" tabindex=""2"" id=""custnm"" "
   W $S($$W4LKH:"",1:" readonly=""readonly"" ")
   W " size=""40"" maxlength=""45"" value="""_$$H2U^%L1FRM(LKHNAME)_""">",!
 W "  </td>",!
 Q
 ;
TDTEL ;
 W " <td >"_$$^%W1DICT("TEL")_"</td>"
 W " <td >"
   D
   .N TELB S TELB=$$TELB^W4L(LKH)
   .I TELB="",$L(LKH)>6 S TELB=$TR(LKH,"! ","")
   .I $L($G(W4HSB("TEL"))) S TELB=W4HSB("TEL")
   .W "<input tabindex=""3"" id=""TELB"" type=""text"" "
   .  W $S($$W4LKH:"",1:" readonly=""readonly"" ")_" size=""11"" "
   .  W "value="""_TELB_""" >"
  W " </td>",!
  W " <td >"_$$^%W1DICT("PELE")_"</td>"
 Q
 ;
TDPELE ;
 ;;W " <td >"_$$^%W1DICT("PELE")_"</td>"
 W " <td colspan=""3"">"
  N PELE S PELE=$$PELE^W4L(LKH)
  I $L($G(W4HSB("PELE"))) S PELE=W4HSB("PELE")
  W "<input tabindex=""4"" id=""PELE"" type=""text"" "
   W $S($$W4LKH:"",1:" readonly=""readonly"" ")_" size=""11"" "
   W "value="""_PELE_""" >"
 W " </td>",!
 Q
 ;
TDFAX ;
 W " <td>"_$$^%W1DICT("FAX")_"</td>"
 W " <td>"
   W "<input tabindex=""5"" id=""FAX"" type=""text"" "
   W $S($$W4LKH:"",1:" readonly=""readonly"" ")_" size=""11"" "
   W "value="""_$$FAX^W4L(LKH)_""" >"
  W " </td>",!
 Q
 ;
TDEMAIL ;
 W " <td>"_$$^%W1DICT("EMAIL")_"</td>"
 W " <td colspan=""3"">"
  W "<input tabindex=""6"" id=""EMAIL"" type=""text"" size=""40"" value="""_$$EMAIL^W4L(LKH)_""""
  I $$W4LKH D
  .W " onKeyUp=""EnglishOnly(event,'EMAIL')"""
  I '$$W4LKH D
  .W "readonly=""readonly"" "
  W ">"
 W " </td>",!
 Q 
 ;
 ;
TRADDR ;
 I $$W4LKH D
 .D ^W4LKADR
 ;
 I '$$W4LKH D
 .W "<tr>",!
 .W " <td>"_$$^%W1DICT("ADDR")_"</td>",!
 .W "<td colspan=""4"">",!
 .  W " <input type=""text"" onKeyUp=""NoChangeCd()"" readonly=""readonly"" size=""45"" value="""_$$H2U^%L1FRM($$KTVMM^W4L(LKH))_"""</td>",!
 .W "</td>",!
 .W "</tr>",!
 Q
 ;
TDHOV ;
 W "    <td > "_$$^%W1DICT("HOVHBC")_" </td>",!
 W "    <td dir=""LTR"" "_$$^%W1ALIGN_" >",!
 W "     <input type=""text"" style=""text-align:right;font-weight:bold"" "
  W " id=""balance"" size=""10"" readonly=""readonly"" "
  W " value="""_$S($G(LKH):$J($$CBH^W4KLOST(LKH,+$H),2,2),1:"")_""" >",!
 W "    </td>",!
 Q
 ;
TDDATE ;
 W "    <td >"_$$ZV_$$^%W1DICT("TODATE")_" </td>",!
 W "    <td colspan=""5"" id=""todate"" dir=""LTR"" "_$$^%W1ALIGN_" style=""font-weight:bold"">"
 D
 .I $$HB!$$HZ D  Q
 ..S %W1DAT("NODAY")=""
 ..N TODATE S TODATE=$ZD($H,"DD.MM.YY")
 ..I $$GET^%W1PRM("DAT") S TODATE=$$GET^%W1PRM("DAT")
 ..I TODATE<3,$G(@$$^W4GL("W3PRM")@("ENDMONTHDATE")) S TODATE=$$^%L1DC($$LM^%L1DC($H-5),1)
 ..W "&nbsp;&nbsp;"
 ..D
 ...N DT,DT0,DTLAST,DTCUR,MIN,PLUS
 ...S DTCUR=$$^%L1DC(TODATE,3)
 ...S (MIN,PLUS)=60
 ...S DT0=DTCUR-MIN
 ...S DTLAST=DTCUR+PLUS
 ...N LASTDT S LASTDT=$$LASTDT
 ...I '$G(@$$^W4PRM@("NOCHKDAT")),'$D(W4SPK) D
 ....I '$$W4LKH,'$$HZ D ^W4IN S PLUS=P1DZ
 ....I DT0<LASTDT S MIN=LASTDT
 ....I DTLAST<DT0 S PLUS=DT0
 ...D SELDAT(TODATE,MIN,PLUS)
 .
 .I $$CB!$$SRV!$$TM!$$TMZ!$$HZMH!$$HMK!$$HMKI D
 ..D ^W4IN W $ZD($S($$W4LKH:$H,1:P1DZ),"DD.MM.YY")
 W " </td>",!
 Q
 ;
TDDOCNUM ;
 W "<td width=""16%"">"_$$^%W1DICT("DOCNUMBER")_"</td>"
  W "<td width=""34%"" >"
   W "<input type=""text"" size=""11"" maxlength=""8"" id=""docnumber"" "
   W " onClick=""this.select()"" >"
 W "</td>"
 Q
 ;
BUTTONS ;
 W "<tr>",!
 W " <td colspan=""6"" align=""center"">",!
 W "  <table "
 W ">",!
  S FS=11
  I $$^W4LKHCSR S FS=9
  W "<tr>",!
   W " <td>"
   I $$VIEWONLY!$$DENIED W "&nbsp;" G ETD
   I $$^W4ISCDLK($G(LKH)),$$CUSTCLOSED(LKH)!$$VIEW W "&nbsp;" G ETD
   ;
   S W4BUTTON("CLICK")=""
   I $$HB D
   .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWINVOICE"),"NewInvoice()","color:green","wh,22,,,"_FS)
   I $$HMK!$$HMKI D
   .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWINVOICERECEIPT"),"NewInvoice()","color:green","wh,22,,,"_FS)
   I $$CB D
        .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWRECEIPT"),"NewReceipt()","color:green","wh,22,,,"_FS)
   I '$$CB,$$SRV D
        .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWSERVICECARD"),"NewSrvCard()","color:green","wh,22,,,"_FS)
   I $$TM D
        .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWDLVDOC"),"NewInvoice()","color:green","wh,22,,,"_FS)
   I $$TMZ D
        .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWDLVBACKDOC"),"NewInvoice()","color:green","wh,22,,,"_FS)
   I $$HZMH D
        .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWPRCOFR"),"NewInvoice()","color:green","wh,22,,,"_FS)
   I $$HZMHC D
        .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWPRCOFR"),"NewPrcOfr()","color:green","wh,22,,,"_FS)
   I $$HZ D
        .D ROUNDBUT^%W1JS("new",$$^%W1DICT("NEWORDER"),"NewInvoice()","color:green","wh,22,,,"_FS)
ETD ;
   W " </td>",!
   ;
   I $G(%ARG("VIEW"))'=1 D
   .W " <td align=""center"">",!
   .      D ROUNDBUT^%W1JS("custrep",$$^%W1DICT("SHOWCUSTREPORT"),"ShowCustReport()","color:darkblue","wh,22")
   .W " </td>",!
   ;
   I '$$VIEW D
   .W " <td align=""center"">",!
   .      D ROUNDBUT^%W1JS("custcard",$$^%W1DICT("FULLCUSTCARD"),"ShowCustCard()","color:brown","wh,22")
   .W " </td>",!
   .;
   .W " <td align=""center"">",!
   .      D ROUNDBUT^%W1JS("custlist",$$^%W1DICT("ADVCUSTSEARCH"),"AdvCustSearch()","color:darkviolet","wh,22")
   .W " </td>",!
   .;
   .W " <td align=""center"">",!
   .      D ROUNDBUT^%W1JS("clear",$$^%W1DICT("CLEAR"),"ClearHrf()","color:blue","wh,22")
   .W " </td>",!
   .;
   .I $$^W4LKHCSR!'$$^W4LKH D
   ..W " <td align=""center"">",!
   ..      D ROUNDBUT^%W1JS("clear",$$^%W1DICT("SERKUPREPORT"),"CSRFilm()","color:blue","wh,22")
   ..W " </td>",!
   ..I $$^W4LKHCSR D
   ...W " <td align=""center"">",!
   ...      D ROUNDBUT^%W1JS("opendraw",$$^%W1DICT("OPENDRAW"),"OpenDraw()","color:brown","wh,22")
   ...W " </td>",!
   .;
   .Q:$$DENIED
   .W "  <td align=""center"">",!
   . D ROUNDBUT^%W1JS("backid",$$^%W1DICT("BACK"),"Back()","color:red","wh,22")
   .W "  </td>",!
  W " </tr></table>",!
 W " </td>",!
 W "</tr>",!
 ;
 I '$$VIEW,$G(%ARG("DOC"))="HBW",$$GETP^%W1PRM("ELPOS") D
 .W "<tr><td colspan=""10"" style=""text-align:center;color:red;font-weight:bold"">"
 . W $$^%W1DICT("TO-ISSUE-CONC-INVOICE-GO")
 .W "</td></tr>",!
 Q
 ;
 ;
VIEW(STAM)
 I $G(%ARG("VIEW")) Q 1
 I $G(%ARG("SEND2MAIL")) Q 1
 Q 0
 ;
VIEWONLY(STAM)
 Q $$VIEWONLY^W3PRM
 ;
ARM(LK0) ;
 I LK0'["+",LK0'["^",LK0'["W" Q 1
 I LK0["W" Q 2
 Q 0
 ;
TD W "<td width=""32%"">"
 Q
 ;
FIRSTLINE ;
 W "<tr style=""color:red;font-weight:bold"">"
  W "<td colspan=""2"">"
  D
  .I $$^W4ISCDLK(LKH),$$CUSTCLOSED(LKH) D  Q
  ..W $$^%W1DICT("CUSTCLOSED")
  .W "&nbsp;"
  W "</td>",!
  W "<td colspan=""2"">"
  D
  .I $$^W4ISCDLK($G(LKH)),$L($$CMNT^W4L(LKH)) D  Q
  ..W $$H2U^%L1FRM($$CMNT^W4L(LKH))
  .W "&nbsp;"
  W "</td>",!
 W "</tr>",!
 Q
 ;
LINE ;
 W "<tr>"
  W "<td>"
  W "</td>",!
  W "<td>"
  W "</td>",!
 W "</tr>",!
 Q
 ;
TEST(LKH) ;
 N ID S ID=""
 I LKH[";" S ID=$P(LKH,";",2),LKH=$P(LKH,";")
 S ID=$$FUNC^%UCASE(ID)
 I $E(ID)="S" Q $$TEST^W4SPDOC(LKH)
 I $$ISCODE(LKH),$L(LKH)<4 Q "SHORT"
 I $$DC^W4L(LKH) Q 1
 I $$ISCODE(LKH),'$$DC^W4L(LKH) Q 0
 Q "FIND"
 ;
ISCODE(LKH) ;
 Q $$^W4ISCDLK(LKH)
 ;
CHKDAT(PRM) ;
 N LKH,DAT D ^W4IN
 D PUT^%W3DEB("W4LHB","PRM=PRM")
 ;
 S PRM=$$CLEAR^%L1FRM($$CNWEB^%L1FRM(PRM))
 S LKH=$P(PRM,";",1)
 S DATF=$P(PRM,";",2)
 S P1LHBS=$P(PRM,";",3)
 S P1LHBM=$P(PRM,";",4)
 ;
 S DF=$$^%L1DC(DATF,3)
 ;
 D IFNEWLKH(LKH) ; -- WRITE CUST DETAILS TO ^LKH ( LKH - ALL CUST DETAILS )
 ;
 S LKH=$$^W4CDLK($P(LKH,"~"))
 ;
 Q $$CHKDT(DF)
 ;
 ;
CHKDT(DF) ;
 D ^W4IN
 I '$$W4LKH,DF>P1DZ Q "INVOICEISSUENOTLATER;"_$ZD(P1DZ,"DD.MM.YY")
 I '$$W4LKH,DF=P1DZ,'$D(@$$^W4GL("Z")@(P1DZ)),'$G(P1LHBS),'$G(P1LHBM) Q "AFTERZONLY;"_DATF
 ;
 N H,D,LK0,LK
 N CODDOC S CODDOC=$$CODDOC
 D KLIN
 S H=$O(@KLIN@(CODDOC,999999),-1) I 'H Q 1
 ;
 D ^W4HSBGET(H,CODDOC) I '$D(W4HSB("DT")) Q 1
 ;
 S D=$G(W4HSB("DT"))
 ;;I $G(@$$^W4PRM@("BDDTH")),DF<D Q "LASTINVOICEWAS;"_H_";"_D
 I DF<D Q "LASTINVOICEWAS;"_H_";"_$ZD(D,"DD.MM.YY")
 ;
 Q 1
 ;
 ;
HB(STAM) ;
 I '$$CB,'$$SRV,'$$HMK,'$$TM,'$$TMZ,'$$HZMH,'$$HZ,'$$IPY Q 1
 Q 0
 ;
CB(STAM) ;
 I $G(%ARG("CB")) Q 1
 Q 0
 ;
SRV(STAM) ;
 I $G(%ARG("SRVC")) Q 1
 Q 0
 ;
HI(STAM) ;
 I $G(%ARG("VD"))'="" Q $G(%ARG("VD"))="HI"
 Q $$GETP^%W1PRM("VD")="HI"
 ;
HIDOC(CODDOC) ;
 Q $G(CODDOC)="HI"
 ;
HBHI(NOM) ;
 Q $G(W4HSB("HBHI"))
 ;
HMK(STAM)
 I $G(%ARG("VD"))="HMK" Q 1
 I $$GET^%W1PRM("VD")="HMK" Q 1
 I $G(%ARG("VD"))="HMKI" Q 2
 I $$GET^%W1PRM("VD")="HMKI" Q 2
 Q 0
 ;
HMKI(STAM)
 I $$HMK=2 Q 1
 Q 0
 ;
TM(STAM)
 I $G(%ARG("VD"))="TM" Q 1
 I $$GET^%W1PRM("VD")="TM" Q 1
 Q 0
 ;
TMZ(STAM)
 I $G(%ARG("VD"))="TMZ" Q 1
 I $$GET^%W1PRM("VD")="TMZ" Q 1
 Q 0
 ;
HZ(STAM)
 I $G(%ARG("VD"))="HZ" Q 1
 I $$GETP^%W1PRM("VD")="HZ" Q 1
 Q 0
 ;
HZMH(STAM)
 I $G(%ARG("VD"))="HZMH" Q 1
 I $$GETP^%W1PRM("VD")="HZMH" Q 1
 Q 0
 ;
HZMHC(STAM)
 I $G(%ARG("VD"))="HZMHC" Q 1
 I $$GETP^%W1PRM("VD")="HZMHC" Q 1
 Q 0
 ;
IPY(STAM)
 I $G(%ARG("VD"))="IPY" Q 1
 I $$GETP^%W1PRM("VD")="IPY" Q 1
 Q 0
 ;
 ;
INVOICESLIST(CODDOC,PRINT) ;
 D INVLISTKOT
 ;
 ;------------------------ BODY ----------------------------------
 N STOT,SHSB,SITRA,SSHUL,N,LK,LK0,A
 S (STOT,STOPAY,SHSB,SSHB,SSHUL,SITRA)=0
 N KLIN D KLIN
 N GLHB S GLHB=$$^W4GL("P1LHB")
 ;
 I $$^W4ISCDLK($G(LKH)),$$HB,'$$HI,'$$LKHMKDFLT,$$HBNOW^W4L(LKH),$G(@$$^W4PRM@("NOVWIMD")) D  Q
 .W "</table>",!
 .W "<script>",!
 . W "MsgA(""NOSHOWCUSTIMD"")",!
 .W "</script>",!
 ;
 I $$^W4ISCDLK($G(LKH)),'$$LKHMKDFLT D
 .I CODDOC="ALL" D SHOWALL(LKH) Q
 .S N="" F  S N=$O(@KLIN@(CODDOC,N),-1) Q:N=""  D LINEINVC(N,LKH,CODDOC,$G(PRINT))
 ;
 I '$$^W4ISCDLK($G(LKH))!$$LKHMKDFLT D
 .N II,MAX
 .S MAX=$$SHOWLAST
 .I $G(PRINT)!($$SHOWKIND>1)!$G(%ARG("OPNINV")) S MAX=99999999
 .I $G(%ARG("OPNINV")),'$$CB D
 ..S MAX=$S($G(%ARG("COLMAX")):%ARG("COLMAX"),1:999999)
 .;;W "CODDOC="_CODDOC,!
 .I CODDOC="ALL" D SHOWALL("",MAX) Q
 .N ENDCYC S ENDCYC=0
 .S N="" F II=1:1 S N=$O(@KLIN@(CODDOC,N),-1) Q:N=""  D LINEINVC(N,"",CODDOC,$G(PRINT)) Q:ENDCYC
 ;
INVCTB1 ;------------- TOTALS --------------------
 I $G(%ARG("OPNINV"))!$G(%ARG("NPDT"))!$$^W4ISCDLK($G(LKH))!(SHOWKIND=2) D
 .W "<tr style=""background-color:yellow;color:black;font-weight:bold"">",!
 .W "<td>&nbsp;</td>",!
 .W "<td>&nbsp;</td>",!
 .I '$G(PRINT) W "<td>&nbsp;</td>",!
 .W "<td>"_$$^%W1DICT("TOTAL")_"</td>",!
 .W "<td "_$$NUM^%W1ALIGN_" >"_SHSB_"</td>",!
 .W "<td "_$$NUM^%W1ALIGN_" >"_$$RKVN(STOT)_"</td>",!
 .I $$HMK!$$TM!$$TMZ W "</tr>",! Q
 .I '$$HI W "<td "_$$NUM^%W1ALIGN_" >"_$$RKVN(STOPAY)_"</td>",!
 .W "<td "_$$NUM^%W1ALIGN_" >"_$$RKVN(SSHUL)_"</td>",!
 .I '$G(PRINT) W "<td>&nbsp;</td>",!
 .W "<td "_$$NUM^%W1ALIGN_" >"_$$RKVN(STOT-SSHUL)_"</td>",!
 .I $$HI D
 ..I '$G(PRINT) W "<td>&nbsp;</td>",!
 ..W "<td "_$$NUM^%W1ALIGN_" >"_$$RKVN(SSHB)_"</td>",!
 .I $$CORR^W4PRM D
 ..W "<td>"
 .. W "&nbsp;"
 ..W "</td>"
 .W "</tr>",!
 ;
INVCTBEND ;
 W "</table>",!
 W "<table id=""dlvfoot"" style=""visibility:hidden"">",!
 D LINE,LINE
 W "</table>",!
 Q
 ;
 ;
INVLISTKOT ;
 N INVLIST
 N KW S KW="INVOICESLIST"
 S INVLIST=$$^%W1DICT(KW)
 I $$HMK S KW="INVCRCPLIST"
 I $$TM S KW="DLVDOCLIST"
 I $$TMZ S KW="DLVBACKDOCLIST"
 I $G(TMHB) S KW="DLVDOCLISTWITHOUTINVOICE"
 I $G(TMHBZ) S KW="DLVBACKDOCLISTWITHOUTINVOICE"
 I $$HZ S KW="ORDLIST"
 I $$HBZ(CODDOC) S KW="DEBETINVOICESLIST"
 I $$HI S KW="DEALINVOICESLIST"
 S INVLIST=$$^%W1DICT(KW)
 ;
 S WD="30%"
 ;
 I $$^W4ISCDLK($G(LKH)) D
 .N LKHLKH1 S LKHLKH1=LKH_"<>"_$$LKH^W4L(LKH)
 .S INVLIST=$$^%W1DICT("CUSTOMERINVOICESLIST",LKHLKH1)
 .I $$HMK S INVLIST=$$^%W1DICT("CUSTINVCRCPLIST",LKHLKH1)
 .I $$TM S INVLIST=$$^%W1DICT("CUSTDLVDOCLIST",LKHLKH1)
 .I $$TMZ S INVLIST=$$^%W1DICT("CUSTDLVBACKDOCLIST",LKHLKH1)
 .I $G(TMHB) S INVLIST=$$^%W1DICT("CUSTDLVDOCLISTWITHOUTINVOICE",LKHLKH1)
 .I $G(TMHBZ) S INVLIST=$$^%W1DICT("CUSTDLVBACKDOCLISTWITHOUTINVOICE",LKHLKH1)
 .I $$HZ S INVLIST=$$^%W1DICT("CUSTORDLIST",LKHLKH1)
 .;I $$HZMH S INVLIST=$$^%W1DICT("CUSTPRCOFRLIST",LKHLKH1)
 .I $$HI S INVLIST=$$^%W1DICT("CUSTDEALINVOICESLIST",LKHLKH1)
 .S WD="16%"
 ;
 I $G(TMHB)!$G(TMHBZ) D  G INVCTB
 .W "<div id=""dlvdochd"" dir="""_$$^%W1DIR_""" style=""color:black;font-size:"_$$^W3FSZ(14)_""" >"
 .W INVLIST
 .W "</div>",!
 ;
 W "<table dir="""_$$^%W1DIR_""" width="""_$$WDTBL_"%"" dir="""_$$^%W1DIR_""" ",!
  I $G(PRINT) D PRINTSIZE
 W ">",!
 W "<tr>"
 W " <td width="""_WD_""">"
  I '$$CB D GROUPS
 W " </td>",!
 W "<td width=""2%"">&nbsp;</td>",!
 W " <td"
 W "  style=""color:black;font-size:"_$$^W3FSZ(14)
 W """>"_INVLIST_"</td>"
 W " <td width=""2%"">&nbsp;</td>",!
 ;
 D PRNEX
 ;
 W "</tr>",!
 W "</table>",!
 ;
 I '$$CB D RADIOSHOW
 ;
 S INVC=$G(%ARG("INVC"))
 S BORDER="border:solid gray 1px"
 ;
 I $$HMK!$$TM!$$TMZ G INVCTB
 ;
 D INVCHK ; ---- CHECK BOXES
 ;
INVCTB ;
 D INVCHD ; ---- KOTERET
 Q
 ;
 ;
INVCHK ;
 N PRINT S PRINT=$G(%ARG("PRINT"))
 W "<table dir="""_$$^%W1DIR_""" width="""_$$WDTBL_"%"" "
  I $G(PRINT) D PRINTSIZE
 W ">",!
   W "<tr>",!
   ;
   I $$HI G INVCHK1
   ;
   D
    .W " <td style=""border:solid gray 1px"" >",!
    . W " "_$$^%W1DICT("AUTOINVOICES")_" "
    . W "<input type=""checkbox"" id=""autoinvc"" "
    .  W $S($$INVCAU(INVC):" checked=""checked"" ",1:"")
    .  W " onClick=""ShowRed()"" "
    . W "/>"
    .W " </td>",!
    .W "<td>&nbsp;</td>",!
    ;
   W " <td style=""background-color:lightblue;"_BORDER_""" >",!
    W " "_$S($$W4LKH:$$^%W1DICT("SERVICEINVOICES"),1:$$^%W1DICT("ARMINVOICES"))_" "
    W "<input type=""checkbox"" id=""arminvc"" "
      W $S($$INVCARM(INVC):" checked=""checked"" ",1:"")
      W " onClick=""ShowRed()"" "
    W " />"
   W "</td>",!
   ;
   I $$W4LKH!$$NEWMLY^W3PRM D
   .W "<td>&nbsp;</td>",!
   .W " <td style=""background-color:lightyellow;"_BORDER_""" >",!
   . W " "_$$^%W1DICT("ITEMINVOICES")_" "
   . W "<input type=""checkbox"" id=""iteminvc"" "
   .  W $S($$INVCIT(INVC):" checked=""checked"" ",1:"")
   .  W " onClick=""ShowRed()"" "
   . W " />"
   .W " </td>",!
   ;
   W "<td>&nbsp;</td>",!
   W " <td style=""background-color:pink;"_BORDER_""" >",!
    W " "_$$^%W1DICT("DEBETINVOICES")_" "
    W "<input type=""checkbox"" id=""debetinvc"" "
      W $S($$INVCDEB(INVC):" checked=""checked"" ",1:"")
      W " onClick=""ShowRed()"" "
    W " />"
   W " </td>",!
   ;
   W "<td>&nbsp;</td>",!
   W " <td style=""background-color:lightgreen;"_BORDER_""" >",!
    W " "_$$^%W1DICT("DEALINVOICES")_" "
    W "<input type=""checkbox"" id=""dealinvc"" "
      W $S($$INVCHI(INVC):" checked=""checked"" ",1:"")
      W " onClick=""ShowRed()"" "
    W " />"
   W " </td>",!
   ;
INVCHK1 ;
   W "<td>&nbsp;</td>",!
   W "<td>"
   ;D
   .W $$^%W1DICT("SHOWOPENINVOICESONLY")
   .W "<input type=""checkbox"" id=""openinv"""
   .  W $S($G(%ARG("OPNINV")):" checked='checked'",1:"")
   .  W " onClick=""ClickOpenInvoices()"""
   .  W " onClick=""ShowRed()"" "
   .W " >",!
    W "&nbsp;"
   W "</td>",!
   ;
   I $$HI D
   .W "<td>"
   .W $$^%W1DICT("SHOWOPENDEALSONLY")
   .W "<input type=""checkbox"" id=""opendeal"""
   .  W $S($G(%ARG("OPNDEAL")):" checked='checked'",1:"")
   .  W " onClick=""ClickOpenDeals()"""
   .  W " onClick=""ShowRed()"" "
   .W " >",!
   .W "</td>",!
   ;
   W "<td>&nbsp;</td>"
   D SHOWBUT("ShowInvc")
   W " </td>",!
   D TDMAIL
  W "</tr>",!
  ;
 W "</table>",!
 Q
 ;
 ;
SHOWBUT(ID) ;
 W " <td>",!
  I '$G(PRINT) D
  .;;D ROUNDBUT^%W1JS(ID,$$^%W1DICT("SHOW"),"ShowInvoices()","color:green","wh,22")
  .D ^W4BUTTON(ID,$$^%W1DICT("SHOW"),"ShowInvoices()","color:green")
  W " </td>",!
 Q
 ;
INVCHD ;
 N WDT,ID S WDT=98
 I $$HMK!$$TM!$$TMZ S WDT=70
 S ID="listinvoices"
 I $G(TMHB)!$G(TMHBZ) S ID="listdlvdoc"
 W "<table id="""_ID_""" border=""1""  width="""_WDT_"%"" cellspacing=""0"" dir="""_$$^%W1DIR_""" "
  I $G(PRINT) D PRINTSIZE
 W ">",!
 W "  <tr>",!
 W "   <th>",!
 S KW=$S($$HMK:"INVCRCP",$$TM:"DELIVERYDOC",$$TMZ:"DLVBACKDOC",1:"INVOICE")
 W "    "_$$^%W1DICT(KW)
 W "   </th>",!
  D WEX(KW,"DICT")
 W "   <th>",!
 S KW="TODATE"
 W "    "_$$^%W1DICT(KW)
 W "   </th>",!
  D WEX(KW,"DICT")
 I '$G(PRINT) D
 .W "   <th>",!
 .W "    "_$$^%W1DICT("ISSUETIME")
 .W "   </th>",!
 W "   <th>",!
 S KW="CUSTOMNUMBER"
 W "    "_$$^%W1DICT(KW)
  D WEX(KW,"DICT")
 W "   </th>",!
 W "   <th>",!
 S KW="CUSTOMNAME"
 W "    "_$$^%W1DICT(KW)
 W "   </th>",!
  D WEX(KW,"DICT")
 W "   <th>",!
 S KW="SUM"
 W "    "_$$^%W1DICT(KW)
 W "   </th>",!
  D WEX(KW,"DICT")
 ;
 I '$$HMK,'$$TM,'$$TMZ D
 .I '$$HI D
 ..W "   <th>",!
 ..S KW="TOPAY"
 ..W "    "_$$^%W1DICT(KW)
 ..W "   </th>",!
 .. D WEX(KW,"DICT")
 .W "   <th>",!
 .S KW="PAID"
 .W "    "_$$^%W1DICT(KW)
 .W "   </th>",!
 . D WEX(KW,"DICT")
 .I '$G(PRINT) D
 ..W "   <th>",!
 ..W "    "_$$^%W1DICT("RECEIPT")
 ..W "   </th>",!
 .W "   <th>",!
 .S KW="BALANCE"
 .W "    "_$$^%W1DICT(KW)
 . D WEX(KW,"DICT")
 .W "   </th>",!
 .I $$HI D
 ..I '$G(PRINT) D
 ...W "   <th>",!
 ...W "    "_$$^%W1DICT("INVOICETX")
 ...W "   </th>",!
 ..W "   <th>",!
 ..S KW="INVOICEBALANCE"
 ..W "    "_$$^%W1DICT(KW)
 ..W "   </th>",!
 .. D WEX(KW,"DICT")
 ..
 .I $$CORR^W4PRM D
 ..W "<th>"
 .. W $$^%W1DICT("CORRESPONDENCE")
 ..W "</th>"
 W "  </tr>",!
 D WEXR
 Q
 ;
 ;
PRNEX ;
 W " <td>"
 N PRINT S PRINT=$G(%ARG("PRINT"))
 I '$G(PRINT) D
 .D ROUNDBUT^%W1JS("print",$$^%W1DICT("PRINT"),"PrintInvoices()","color:blue","wh,22")
 W " </td>",!
 W "<td width=""2%"">&nbsp;</td>"
 I '$G(PRINT) W "<td id=""excel"">&nbsp;</td>"
 Q
 ;
SHOWLAST(STAM) ;
 N LAST
 I $G(%ARG("COLMAX")) Q %ARG("COLMAX")
 S LAST=$G(@$$^W4PRM@("SHOWLAST"))
 ;
 I LAST<10 S LAST=100
 Q LAST
 ;
 ;
CHECKED(SK,I) ;
 I SK=I Q " checked=""checked"" "
 Q ""
 ;
RADIOSHOW ;
 S PRINT=$G(%ARG("PRINT"))
 W "<table dir="""_$$^%W1DIR_""" border=""0"" width="""_$G(WDTB,90)_"%"" ",!
  I $G(PRINT) D PRINTSIZE
 W ">",!
  W "<tr>",!
   W "<td>",!
    I '$$^W4ISCDLK($G(LKH))!$$LKHMKDFLT W $$^%W1DICT("BYLASTMOVEMENTS")_"&nbsp;"
    I $$^W4ISCDLK($G(LKH)),'$$LKHMKDFLT W $$^%W1DICT("SHOWALLMOVEMENTS")_"&nbsp;"
    W "<input type=""radio"" name=""showkind"" "_$$CHECKED(SHOWKIND,1)_" "_ONCLICKSHOW_" />"
   W "</td>",!
   W "<td>",!
    W $$^%W1DICT("BYDATERANGE")_"&nbsp;"
    W "<input type=""radio"" name=""showkind"" "_$$CHECKED(SHOWKIND,2)_" "_ONCLICKSHOW_"/>"
   W "</td>",!
   W "<td>",!
    W $$^%W1DICT("BYDOCNUMBER")_"&nbsp;"
    W "<input type=""radio"" name=""showkind"" "_$$CHECKED(SHOWKIND,3)_" "_ONCLICKSHOW_"/>"
   W "</td>",!
   ;
   S CODD=$$CODDOC
   I CODD="H"!(CODD="TZ")!(CODD="CB")!(CODD="HMK")!(CODD="HI")!(CODD="IPY") D
   .W "<td>",!
   . W $$^%W1DICT("BYCONTENT")_"&nbsp;"
   . W "<input type=""radio"" name=""showkind"" "_$$CHECKED(SHOWKIND,4)_" "_ONCLICKSHOW_"/>"
   .W "</td>",!
   .
   .W "<td>",!
   . W $$^%W1DICT("BYSUM")_"&nbsp;"
   . W "<input type=""radio"" name=""showkind"" "_$$CHECKED(SHOWKIND,5)_" "_ONCLICKSHOW_"/>"
   .W "</td>",!
   ;
   W "<td id=""tdprm"" >",!
    W "<table id=""tblprm"" border=""0"" width=""100%"">",!
     W "<tr id=""tblprmtr""><td>",!
      W $$SHOWPRM(SHOWKIND_";"_$$SHOWLAST_";"_$G(%ARG("CODE"))_";"_$G(%ARG("MEDAT"))_";"_$G(%ARG("ADDAT"))_";"_$G(%ARG("NOMDOC"))_";"_$G(%ARG("OPNINV"))_";"_$$CONT_";"_$G(%ARG("MESUM"))_";"_$G(%ARG("ADSUM")))
     W "</td></tr>",!
    W "</table>",!
   W "</td>",!
   I '$$HB,'$G(PRINT) D
   .D SHOWBUT("Show")
   .D TDMAIL
  W "</tr>",!
  ;
  W "<tr >"
  I $$PRKUP?1N D
  . W "<td style=""font-weight:bold"">"
  .   I '$$PRKUP W $$^%W1DICT("MLYITEMSDOCS")
  .   I $$PRKUP W $$^%W1DICT("CSRITEMSDOCS")
  .   W "&nbsp;"
  .   W "<input type=""radio"" id=""typedocs"" name=""showdocs"" "
  .    I '$$ALLDOCS W " checked=""checked"" "
  .    W " onClick=""ShowInvoices()"" "
  .   W " />"
  .   W "</td>"
  . W "<td style=""font-weight:bold"">"
  .   W $$^%W1DICT("ALLDOCS")
  .   W "&nbsp;"
  .   W "<input type=""radio"" id=""alldocs"" name=""showdocs"" "
  .    I $$ALLDOCS W " checked=""checked"" "
  .    W " onClick=""ShowInvoices()"" "
  .   W " />"
  . W "</td>"
  I $E(CODD)="H" D VWOPNINV
  W "</tr>",!
 ;
 W "</table>",!
 Q
 ;
 ;
VWOPNINV ;
 ;;W "<table>",!
 ;; W "<tr>"
   W "<td>"
    W $$^%W1DICT("SHOWOPENINVOICESONLY")
    W "<input type=""checkbox"" id=""openinv"""
     W $S($G(%ARG("OPNINV")):" checked='checked'",1:"")
     W " onClick=""ClickOpenInvoices()"""
     W " onClick=""ShowRed()"" "
    W " >",!
   W "</td>",!
   W "<td>"
    W $$^%W1DICT("SHOWINVOICESNOTPAIDEDINTIME")
    W "<input type=""checkbox"" id=""npdt"""
     W $S($G(%ARG("NPDT")):" checked='checked'",1:"")
     W " onClick=""ClickNpdtInvoices()"""
     W " onClick=""ShowRed()"" "
    W " >",!
   W "</td>",!
 ;; W "</tr>",!
 ;;W "</table>",!
 Q
 ;
 ;
SHOWPRM(PRM)
 N SHOWKIND,MEDAT,ADDAT,NOMDOC,LKH,CONTENT,MESUM,ADSUM
 S SHOWKIND=$P(PRM,";")
 S COLMAX=$P(PRM,";",2)
 S LKH=$P(PRM,";",3)
 S MEDAT=$P(PRM,";",4)
 S ADDAT=$P(PRM,";",5)
 S NOMDOC=$P(PRM,";",6)
 S OPNINV=$P(PRM,";",7)
 S CONTENT=$P(PRM,";",8)
 S MESUM=$P(PRM,";",9)
 S ADSUM=$P(PRM,";",10)
 N A
 I SHOWKIND=1 S A=$$LASTPRM(COLMAX) G SHOWPRME
 I SHOWKIND=2 S A=$$MEADDAT(MEDAT,ADDAT,SHOWKIND) G SHOWPRME
 I SHOWKIND=3 S A=$$NOMDOCPRM(NOMDOC,SHOWKIND) G SHOWPRME
 I SHOWKIND=4 S A=$$BYCONTENT G SHOWPRME
 I SHOWKIND=5 S A=$$BYSUM(MESUM,ADSUM,SHOWKIND) G SHOWPRME
 ;;Q "<td>&nbsp;</td>"
 Q "&nbsp;"
 ;
SHOWPRME Q "<table dir="""_$$^%W1DIR_""" width=""100%""><tr>"_A_"</tr></table>"
 ;
 ;
LASTPRM(MAX)
 I $$^W4ISCDLK($G(LKH)) Q "<td>&nbsp;</td>"
 I '$$^W4ISCDLK($G(LKH)),$G(SPK) Q "<td>&nbsp;</td>"
 N ST S ST="<td id=""tdcolmax"" >"
 S ST=ST_$$^%W1DICT("SHOW")_"&nbsp;"
 S ST=ST_"<input type=""text"" id=""colmax"" size=""1"" maxlength=""4"" value="""_MAX_""" onClick=""ShowRed();this.select()"" />"
 S ST=ST_"&nbsp;"_$$^%W1DICT("LASTMOVEMENTS")
 S ST=ST_"</td>"
 Q ST
 ;
LASTPRMCB(MAX)
 N ST S ST="<td>"
 S ST=ST_$$^%W1DICT("SHOW")_"&nbsp;"
 S ST=ST_"<input type=""text"" id=""colmaxcb"" size=""1"" maxlength=""4"" value="""_MAX_""" />"
 S ST=ST_"&nbsp;"_$$^%W1DICT("LASTMOVEMENTS")
 S ST=ST_"</td>"
 Q ST
 ;
MEADDAT(MEDAT,ADDAT,SHOWKIND) ;
 S SHOWKIND=$G(SHOWKIND)
 N DD1,MM1,YY1,DD2,MM2,YY2
 I $G(MEDAT)="" S MEDAT=$ZD($H,"DD.MM.YY")
 I $G(ADDAT)="" S ADDAT=$ZD($H,"DD.MM.YY")
 S DD1=MEDAT,DD2=ADDAT
 S (MM1,MM2,YY1,YY2)=""
 ;
 D  ;; I $$SF^W4PRM D
 .S %ARG("OLDDAT")=1
 .S DD1=$E($TR(MEDAT,"./",""),1,2)
 .S MM1=$E($TR(MEDAT,"./",""),3,4)
 .S YY1=$E($TR(MEDAT,"./",""),5,6)
 .S DD2=$E($TR(ADDAT,"./",""),1,2)
 .S MM2=$E($TR(ADDAT,"./",""),3,4)
 .S YY2=$E($TR(ADDAT,"./",""),5,6)
 ;
 N ST
 S ST=""
   I $G(SHOWKIND) S ST=ST_"<td width=""2%"">&nbsp;</td>"
   S ST=ST_"<td id=""ASKMEDAT"" "_$$HIDDEN(SHOWKIND,2)_" >"_$$^%W1DICT("MEDAT")
   I $$1024^W4WDSCR D
   .S %W1DAT("NOEQ")=""
   .S ST=ST_"<BR><BR><BR>"_$$^%W1DICT("ADDAT")
   ;
   S ST=ST_"</td>"
   N DOPVSB S DOPVSB="text-align:right"
   S ST=ST_"<td id=""VMEDAT"" "_$$HIDDEN(SHOWKIND,2)_">"
   I '$G(PRINT) D
   .S ST=ST_$$STDT^%W1DAT("MEDAT","",DD1,MM1,YY1)
   I $G(PRINT) D
   .S ST=ST_MEDAT
   ;
  I $$1024^W4WDSCR D  Q ST
   .S ST=ST_"<BR>"
   .S ST=ST_$$STDT^%W1DAT("ADDAT","",DD2,MM2,YY2)
   .S ST=ST_"</td>"
   ;
   S ST=ST_"</td>"
   S ST=ST_"<td width=""2%"">&nbsp;</td>"
   K DOPVSB
   S ST=ST_"<td id=""ASKADDAT"" "_$$HIDDEN(SHOWKIND,2)_" >"_$$^%W1DICT("ADDAT")_"</td>"
   S DOPVSB="text-align:right"
   S ST=ST_"<td id=""VADDAT"" "_$$^%W1ALIGN_$$HIDDEN(SHOWKIND,2)_">"
   I '$G(PRINT) D
   .S ST=ST_$$STDT^%W1DAT("ADDAT","",DD2,MM2,YY2)
   I $G(PRINT) D
   .S ST=ST_ADDAT
   S ST=ST_"</td>"
 Q ST
 ;
NOMDOCPRM(NOMDOC,SHOWKIND) ;
 N ST
  S ST="<td id=""asknomdoc"" "_$$HIDDEN(SHOWKIND,3)_" >"_$$^%W1DICT("DOCNUMBER")_"</td>"
  S ST=ST_"<td id=""vnomdoc"" "_$$HIDDEN(SHOWKIND,3)_">"
  S ST=ST_"<input type=""text"" id=""nomdoc"" size=""6"" maxlength=""7"" value="""_NOMDOC_""" onClick=""this.select()"" />"
  S ST=ST_"</td>"
 Q ST
 ;
BYCONTENT(STAM) ;
 N ST
  S ST="<td id=""askcont"" "_$$HIDDEN(SHOWKIND,4)_" >"_$$^%W1DICT("CONTENT")_"</td>"
  S ST=ST_"<td id=""tdcont"" "_$$HIDDEN(SHOWKIND,4)_">"
  S ST=ST_"<input type=""text"" id=""content"" size=""20"" maxlength=""20"" value="""_$$H2U^%L1FRM($$CONT)_"""/>"
  S ST=ST_"</td>"
 Q ST
 ;
BYSUM(MESUM,ADSUM,SHOWKIND) ;
 S SHOWKIND=$G(SHOWKIND)
 N ST
 S ST=""
   I $G(SHOWKIND) S ST=ST_"<td width=""2%"">&nbsp;</td>"
   S ST=ST_"<td id=""ASKMESUM"" "_$$HIDDEN(SHOWKIND,5)_" >"_$$^%W1DICT("FROMSUM")_"</td>"
   S ST=ST_"<td dir=""LTR"" "_$$^%W1ALIGN_" "_$$HIDDEN(SHOWKIND,5)_">"
   I '$G(PRINT) D
   .S ST=ST_"<input type=""text"" id=""MESUM"" size=""6"" maxlength=""8"" value="""_MESUM_""" onClick=""this.select()"" />"
   I $G(PRINT) D
   .S ST=ST_MESUM
   S ST=ST_"</td>"
   S ST=ST_"<td width=""2%"">&nbsp;</td>"
   S ST=ST_"<td id=""ASKADSUM"" "_$$HIDDEN(SHOWKIND,5)_" >"_$$^%W1DICT("UNTILSUM")_"</td>"
   S ST=ST_"<td dir=""LTR"" "_$$^%W1ALIGN_$$HIDDEN(SHOWKIND,5)_">"
   ;
   I '$G(PRINT) D
   .S ST=ST_"<input type=""text"" id=""ADSUM"" size=""6"" maxlength=""8"" value="""_ADSUM_""" onClick=""this.select()"" />"
   I $G(PRINT) D
   .S ST=ST_ADSUM
   ; 
   S ST=ST_"</td>"
 Q ST
 ;
 ;
SHOWKIND(STAM) ;
 Q $G(%ARG("SHOWKIND"))
 ;
HIDDEN(SK,I) ;
 I $G(SK)="" Q ""
 N VSB S VSB=" style=""visibility:visible"
 I $L($G(DOPVSB)) S VSB=VSB_";"_DOPVSB
 S VSB=VSB_""" "
 I $G(SK)=$G(I) Q VSB
 Q " style=""visibility:hidden"" "
 ;
LKN(CODDOC,N) ;
 N LK S N=$$SPA^%L1FRM(N)
 I $E(N)="[" S N=$TR(N,"[] ","") ; -- H-I
 S LK0=$G(@KLIN@(CODDOC,+N))
 I LK0'="IN" S LK=$$LK(LK0)
 Q LK
 ;
LK(LK0)
 N LK
 S LK=LK0
 I LK0["+" S LK=$P(LK0,"+")
 I LK0["^" S LK=$P(LK0,"^")
 I LK0["W" S LK=$P(LK0,"W")
 Q LK
 ;
 ;
LINEINVC(N,LKH,CODDOC,PRINT) ;
 ;
 I $$DENIED Q
 ;
 D PUT^%W3DEB("W4LHB-LINEINVC","N=N&LKH=LKH&CODDOC=CODDOC&PRINT=PRINT")
 S INVC=$G(%ARG("INVC"))
 N LK0
 S LK=$$LKN(CODDOC,N)
 Q:LK0="IN"
 ;
 I LKH,$TR(LK,"-","")'=$TR(LKH,"-","") Q
 ;
 I '$$LKH,$G(%ARG("GROUP")),$$SUGL^W4L(LK)'=%ARG("GROUP") Q
 ;
 D ^W4HSBGET(+N,CODDOC) Q:$D(W4HSB)<10
 ;
 N NDOC S NDOC=$P(LK0,"W",2)
 I $G(TMHB),'NDOC Q
 I $G(TMHB),$D(@$$^W4GL("W4DOC")@(NDOC,"TM","HB")) Q
 I $G(TMHB),$$DEL^W4DOCVW("TM",NDOC) Q
 I $G(TMHB) G LI2
 ;
 I $G(TMHBZ),'NDOC Q
 I $G(TMHBZ),$D(@$$^W4GL("W4DOC")@(NDOC,"TMZ","HB")) Q
 I $G(TMHBZ),$$DEL^W4DOCVW("TMZ",NDOC) Q
 I $G(TMHBZ) G LI2
 ;
 I '$$CB,$$SHOWKIND=2,$G(W4HSB("DT"))<$$^%L1DC($G(%ARG("MEDAT")),3)!($G(W4HSB("DT"))>$$^%L1DC($G(%ARG("ADDAT")),3)) Q
 I '$$CB,$$SHOWKIND=3,$G(%ARG("NOMDOC"))'=+N Q
 I '$$CB,$$SHOWKIND=4,$$CONT'="",'$$FINDCONT(CODDOC,N,$$CONT) Q
 I '$$CB,$$SHOWKIND=5,$G(%ARG("MESUM"))!$G(%ARG("ADSUM")),$G(W4HSB("TOT"))<($G(%ARG("MESUM"))-.1)!($G(W4HSB("TOT"))>($G(%ARG("ADSUM"))+.1)) Q
 ;
 I $$TM!$$TMZ G LI1
 ;
 I $$HBZ(CODDOC),$$INVCDEB(INVC) G LI1
 I $$HBZ(CODDOC),'$$INVCDEB(INVC) Q
 ;
 I $$ARM(LK0)=1,'$$INVCARM(INVC),'$$HIDOC(CODDOC) Q
 I $$ARM(LK0)=2,'$$INVCARM(INVC) Q
 ;
 I INVC=2,CODDOC'="H" Q
 I INVC=16,'$$HIDOC(CODDOC) Q
 I $$HIDOC(CODDOC),'$$INVCHI(INVC) Q
 I $$HIDOC(CODDOC),$$INVCHI(INVC) G LI1
 ;
 I $$HMK G LI1
 S ^D=10
 I '$$ARM(LK0),'$$INVCAU(INVC) Q
 ;
LI1 N ITRA,ITRAHB S ITRA=""
 S ^D=11
 S ITRA=$G(W4HSB("TOT"))-$G(W4HSB("PAID"))
 S ITRAHB=$G(W4HSB("TOT"))-$G(W4HSB("HBHITOT"))
 ;
 I $G(%ARG("OPNINV")),+$J(ITRA,0,0)=0,'$$HMK,'$$TM,'$$TMZ Q
 I $G(%ARG("OPNINV")),$$^W4CLOSED(CODDOC,+N) Q
 I $G(%ARG("NPDT")),$$^W4CLOSED(CODDOC,+N) Q
 I $G(%ARG("OPNDEAL")),+ITRAHB=0,'$$HMK,'$$TM,'$$TMZ Q
 I $G(MAX),SHSB+1>MAX S ENDCYC=1 Q
 ;
LI2 ;
 I '$$ALLDOCS,$$PRKUP?1N,$G(W4HSB("PRKUP"))?1N,$$PRKUP'=$G(W4HSB("PRKUP")) Q
 ;
 S II=$G(II)+1
 S SHSB=$G(SHSB)+1
 ;
 W "<tr "
 W " style="""
 D
 .I $$HBZ(CODDOC)!$$DEL^W4DOCVW(CODDOC,NDOC) W "background-color:pink" S STYLE=1 Q
 .I $$HIDOC(CODDOC) W "background-color:lightgreen" Q
 .I $$ARM(LK0)=1 W "background-color:lightblue" Q
 .I $$ARM(LK0)=2 W "background-color:lightyellow" Q
 ;
 I $$ALLDOCS,$$PRKUP?1N,$G(W4HSB("PRKUP"))?1N,$$PRKUP'=W4HSB("PRKUP") D
 .W ";color:grey"
 ;
 W """ "
 W ">"
 ;
 W " <td dir=""LTR"" "
 N LHBCUR
 S LHBCUR=$$GET^%W1PRM("LHBCUR")
 S LHBCUR=+LHBCUR_";"_$P(LHBCUR,";",2)
 I (+N_";"_LK)=LHBCUR W " id=""curtd"" "
 W "style="""
 I (+N_";"_LK)=LHBCUR W "border:solid 2px brown;"
 I N["[-]" W "color:darkred;"
 W "text-align:center;cursor:pointer"
 W """ "
 ;
 D ONCLICKHB(CODDOC,N)
 W ">&nbsp;&nbsp;&nbsp;"_N_"</td>"
 D WEX(N)
 ;
 W "<td " D ONCLICKHB(CODDOC,N) W " style=""cursor:pointer"">"
  S KW=$G(W4HSB("TODATE"))
  W "&nbsp;&nbsp;"_KW
  D WEX(KW,"D")
 W "</td>",!
 ;
 I '$G(PRINT) D
 .W "<td " D ONCLICKHB(CODDOC,N) W " style=""cursor:pointer"" >"
 . W "&nbsp;&nbsp;"_W4HSB("ISSUETIME")
 .W "</td>",!
 ;
 W "<td " D ONCLICKHB(CODDOC,N) W " style=""cursor:pointer"">"
  W "&nbsp;"_LK
 W "</td>",!
 D WEX(LK)
 ;
 W "<td " D ONCLICKHB(CODDOC,N) W " style=""cursor:pointer"">"
  W "&nbsp;"_$$H2U^%L1FRM(W4HSB("LKHNAME"))
  D WEX(W4HSB("LKHNAME"),"H")
 W "</td>",!
 ;
 S W4HSB("TOT")=$J($G(W4HSB("TOT")),1,1)
 S W4HSB("PAID")=$J($G(W4HSB("PAID")),1,1)
 S ITRA=$J($G(ITRA),1,1)
 S ITRAHB=$J($G(ITRAHB),1,1)
 ;
 I CODDOC="TZ",'$G(PRALL) D
 .S W4HSB("TOT")=-W4HSB("TOT"),ITRA=-ITRA
 .S W4HSB("PAID")=-W4HSB("PAID")
 ;
 N COLOR I CODDOC="TZ" S COLOR="style=""color:darkred"" "
 W "<td dir=""LTR"" "_$$^%W1ALIGN_" " D ONCLICKHB(CODDOC,N) W "style=""cursor:pointer"" "
 W ">"
  W "&nbsp;"_$$RKVN(W4HSB("TOT"))
  D WEX(W4HSB("TOT"),"N")
 W "</td>",!
 ;
 S STOT=$G(STOT)+W4HSB("TOT")
 ;
 I $$HMK!$$TM!$$TMZ G ELINE
 ;
 I '$$HI D
 .N TOPAY S TOPAY=$G(W4HSB("TOT"))
 .S STOPAY=$G(STOPAY)+TOPAY
 .W "<td dir=""LTR"" "_$$^%W1ALIGN
 .  I $$HBHI(N),'$$HIDOC(CODDOC) D
 .   .W " style=""cursor:pointer;background-color:lightgreen"" "
 .   .S TOPAY="[ "_$$HBHI(N)_" ]"
 .   .D SHOWHI($$HBHI(N)_"<"_N,LK)
 .  W ">&nbsp;"_$$RKVN(TOPAY)
 .  D WEX(TOPAY)
 .W "</td>",!
 ;
 S SSHUL=SSHUL+W4HSB("PAID")
 ;
 W "<td dir=""LTR"" "_$$^%W1ALIGN_" " D ONCLICKCB(N) W " style=""cursor:pointer"""
   W ">&nbsp;"_$$RKVN(W4HSB("PAID"))
   D WEX(W4HSB("PAID"),"N")
 W "</td>",!
 ;
 I '$G(PRINT) D
 .W "<td "_$$^%W1ALIGN_" >"
 .D SHOWCB
 .W "</td>",!
 ;
 W "<td dir=""LTR"" "_$$^%W1ALIGN
 W " >"
  W "&nbsp;"_$S(ITRA'="":$$RKVN(ITRA),1:"")
  D WEX(ITRA,"N")
 W "</td>",!
 ;
 S SITRA=SITRA+ITRA
 ;
 I $$HI D
 .I '$G(PRINT) D
 ..W "<td "_$$^%W1ALIGN_" >"
 .. D SHOWHBMAS
 ..W "</td>",!
 .;
 .W "<td dir=""LTR"" "_$$^%W1ALIGN
 .N ITRAHB S ITRAHB=$G(W4HSB("TOT"))-$G(W4HSB("HBHITOT"))
 .S SSHB=SSHB+ITRAHB
 .W " >"
 . W "&nbsp;"_$S(ITRAHB'="":$$RKVN(ITRAHB),1:"")
 .W "</td>",!
 ;
 I $$CORR^W4PRM D
 .W "<td align=""center"" >"
  .N CLRBUT S CLRBUT="green"
  .I $$ISCORHB(N) S CLRBUT="red"
  .D ^W4BUTTON("corr"_N,$$^%W1DICT("CORRESPONDENCE"),"ShowCorr('"_N_"')","color:"_CLRBUT)
 .W "</td>"
 ;
ELINE W "</tr>",!
 D WEXR
 Q
 ;
 ;
ISCORHB(N) ;
 N LK0,LK
 S LK=$$LKN("H",N)
 Q:LK0="IN"  Q:'LK
 I $D(@$$^W4GL("W4CORHB")@(LK,N))>9 Q 1
 Q 0
 ;
 ;
RECEIPTLIST ;
 I $$DENIED Q
 ;
 N STOT,SCB S (STOT,SCB)=0
 W "<table dir="""_$$^%W1DIR_""" width="""_$$WDTBL_"%"" ",!
  I $G(PRINT) D PRINTSIZE
 W ">",!
 W " <tr>"
  W "<td width=""20%"" "_$$^%W1ALIGN_" >" D GROUPS W "</td>"
  W "<td style=""font-size:"_$$^W3FSZ(14)_";text-align:center"">"_$$^%W1DICT("RECEIPTESLIST")_"</td>"
  W "<td width=""20%"">&nbsp;</td>"
 W " </tr>",!
 W "</table>",!
 ;;W "<span style=""color:black;font-size:"_$$^W3FSZ(14)_""">"_$$^%W1DICT("RECEIPTESLIST")_"</span>"
 D RADIOSHOW
 ;
 W "<table id=""listreceiptes"" border=""1""  width=""70%"" cellspacing=""0"" dir="""_$$^%W1DIR_""">",!
 W "  <tr>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("RECEIPT")
  D WEX("RECEIPT","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("TODATE")
  D WEX("TODATE","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("ISSUETIME")
  D WEX("ISSUETIME","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("CUSTOMNUMBER")
  D WEX("CUSTOMNUMBER","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("CUSTOMNAME")
  D WEX("CUSTOMNAME","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("SUM")
  D WEX("SUM","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("PAYMENTKIND")
  D WEX("PAYMENTKIND","DICT")
 W "   </th>",!
 W "  </tr>",!
 D WEXR
 ;
 N KLIN S KLIN=$$^W4GL("KLIN")
 N GLHB S GLHB=$$^W4GL("P1LHB")
 ;
 N N,LK,LK0,A,ENDCYC S ENDCYC=0
 I $$^W4ISCDLK($G(LKH)) D
 .S N="",MAX=999999
 .F  S N=$O(@KLIN@("CB",N),-1) Q:N=""  D LINECB(N,LKH)
 I '$$^W4ISCDLK($G(LKH)) D
 .N MAX S MAX=$$SHOWLAST
 .S N="" F II=1:1 S N=$O(@KLIN@("CB",N),-1) Q:N=""  D LINECB(N,"") Q:ENDCYC
 ;
 I $$^W4ISCDLK($G(LKH))!(SHOWKIND=2) D
 .W "<tr style=""background-color:yellow;color:black;font-weight:bold"">",!
 .W "<td>&nbsp;</td>",!
 .D WEX("")
 .W "<td>&nbsp;</td>",!
 .D WEX("")
 .W "<td>&nbsp;</td>",!
 .D WEX("")
 .W "<td>"_$$^%W1DICT("TOTAL")_"</td>",!
 .D WEX("TOTAL","DICT")
 .W "<td "_$$NUM^%W1ALIGN_" ><b>"_SCB_"</b></td>",!
 . D WEX(SCB,"N")
 .W "<td "_$$NUM^%W1ALIGN_" >"_$$RKVN(STOT)_"</td>",!
 . D WEX(STOT,"N")
 .W "<td "_$$NUM^%W1ALIGN_" >&nbsp;</td>",!
 . D WEX(" ","E")
 .W "</tr>",!
 .D WEXR
 W " </table>",!
 Q
 ;
LINECB(N,LKH) ;
 N LK
 S LK=$G(@KLIN@("CB",N))
 Q:LK="IN"
 I $$^W4ISCDLK($G(LKH)),$TR(LK,"-","")'=$TR(LKH,"-","") Q
 I '$$LKH,$G(%ARG("GROUP")),$$SUGL^W4L(LK)'=%ARG("GROUP") Q
 ;
 D ^W4CBGET(N) Q:$D(W4CB)<10
 ;
 I $$CB,$$SHOWKIND=2,$G(W4CB("DT"))<$$^%L1DC($G(%ARG("MEDAT")),3)!($G(W4CB("DT"))>$$^%L1DC($G(%ARG("ADDAT")),3)) Q
 I $$CB,$$SHOWKIND=3,$G(%ARG("NOMDOC"))'=+N Q
 I $$CB,$$SHOWKIND=4,$$CONT'="",'$$FINDCONT("CB",N,$$CONT) Q
 I $G(%ARG("MESUM")),W4CB("TOT")<%ARG("MESUM") Q
 I $G(%ARG("ADSUM")),W4CB("TOT")>%ARG("ADSUM") Q
 I $G(MAX),SCB+1>MAX S ENDCYC=1 Q
 S SCB=SCB+1
 ;
 W "<tr style=""cursor:pointer"
 I W4CB("TOT")<0!$$^W4DELCB(N) W ";background-color:pink"
 W """"
 W " onClick=""ShowReceipt('"_N_"','"_LK_"','ifr')"""
 W " >",!
 W " <td id=""td"_N_""" "
 ;;I (N_";"_LK)=$$GET^%W1PRM("LHBCUR") W " style=""border:solid 2px brown"""
 W ">&nbsp;&nbsp;&nbsp;"_N_"</td>"
 D WEX(N)
 W "<td>&nbsp;&nbsp;"_W4CB("TODATE")_"</td>",!
 D WEX(W4CB("TODATE"))
 ;
 W "<td>&nbsp;&nbsp;"_W4CB("ISSUETIME")_"</td>",!
 D WEX(W4CB("ISSUETIME"))
 ;
 W "<td>&nbsp;"_LK_"</td>",!
 D WEX(LK)
 ;
 W "<td>&nbsp;"_$$H2U^%L1FRM(W4CB("LKHNAME"))_"</td>",!
 D WEX(W4CB("LKHNAME"),"H")
 ;
 W "<td dir=""LTR"" "_$$^%W1ALIGN
 I $P($G(@$$^W4GL("KLF")@(LK,"CBV",N,1)),"*",7) D
 .W " style=""font-weight:bold"" "
 W ">&nbsp;"_$J(W4CB("TOT"),2,2)_"</td>",!
 D WEX(W4CB("TOT"),"N")
 S STOT=STOT+W4CB("TOT")
 ;
 N SUGTS1 S SUGTS1=$$SUGTS($G(W4CB("SUGTS")))
 W "<td>&nbsp;"_$$H2U^%L1FRM(SUGTS1)_"</td>",!
 D WEX(SUGTS1,"H")
 
 W "</tr>",!
 D WEXR
 Q
 ;
SHOWCB ;
  I '$G(W4HSB("NCB")) W "&nbsp;" Q
  ;
  W "<table width=""100%"" cellspacing=""0"" ><tr>",!
  W " <td width=""55%"">",!
  I W4HSB("NCB")'["," D
  . W " <input type=""text"" size=""4"" id=""hbcb"_N_""" readonly=""readonly"""
  . W " value="""_W4HSB("NCB")_""" >",!
  ;
  I W4HSB("NCB")["," D
  .W "<select id=""hbcb"_N_""" >"
  .N K F K=1:1:$L(W4HSB("NCB"),",") D
  ..W "<option>"_$P(W4HSB("NCB"),",",K)_"</option>",!
  .W "</select>",!
  W "</td>",!
  ;
  W "<td width=""45%"">"
   I '$G(PRINT) D
   .D ROUNDBUT^%W1JS("showcb",$$^%W1DICT("SHOW"),"ShowReceipt(GetVl('hbcb"_N_"'),'"_LK_"','ifr')","color:green","wh,22")
   .;;D TDMAIL
  W "</td>",!
  W "</tr></table>",!
  Q
  ;
  ;
SHOWHBMAS ;
  I '$G(W4HSB("HBHI")) W "&nbsp;" Q
  ;
  W "<table width=""100%"" cellspacing=""0"" ><tr>",!
  W " <td width=""55%"">",!
  I W4HSB("HBHI")'["," D
  . W " <input type=""text"" size=""4"" id=""hbhi"_N_""" readonly=""readonly"""
  . W " value="""_W4HSB("HBHI")_""" >",!
  ;
  I W4HSB("HBHI")["," D
  .W "<select id=""hbhi"_N_""" >"
  .N K F K=1:1:$L(W4HSB("HBHI"),",") D
  ..W "<option>"_$P(W4HSB("HBHI"),",",K)_"</option>",!
  .W "</select>",!
  W "</td>",!
  ;
  W "<td width=""45%"">"
   I '$G(PRINT) D
   .D ROUNDBUT^%W1JS("showcb",$$^%W1DICT("SHOW"),"ShowArmInvoice(GetVl('hbhi"_N_"'),'"_LK_"','ifr')","color:green","wh,22")
   .;;D TDMAIL
  W "</td>",!
  W "</tr></table>",!
  Q
  ;
  ;
SRVCARDLIST ;
 W "<span style=""color:black;font-size:"_$$^W3FSZ(14)_""">"_$$^%W1DICT("SRVCARDLIST")_"</span>"
 D RADIOSHOW
 W "<table id=""srvcards"" border=""1""  width=""50%"" cellspacing=""0"" dir="""_$$^%W1DIR_""">",!
 W "  <tr>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("SERVICECARD")
   D WEX("SERVICECARD","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("DATE")
   D WEX("DATE","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("CUSTOMNUMBER")
   D WEX("CUSTOMNUMBER","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("CUSTOMNAME")
   D WEX("CUSTOMNAME","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("DEVICE")
   D WEX("DEVICE","DICT")
 W "   </th>",!
 W "  </tr>",!
 D WEXR
 ;
 N I,N,A,CUST,CUSTNAME,SRV,STOT
 S (SRV,STOT)=0
 N GLS S GLS=$$^W4GL("SRVC")
 N ENDCYC S ENDCYC=0
 ;
 S N="",I=0 F  S N=$O(@GLS@(N),-1) Q:N=""  D  Q:ENDCYC
 .S A=$G(^(N))
 .S CUST=$P(A,"\",2) I $$^W4ISCDLK($G(LKH)),$TR(CUST,"-","")'=$TR(LKH,"-","") Q
 .N DT S DT=$$^%L1DC($$DAT^W4LSRVW(N),3)
 .I $$SHOWKIND=2,DT<$$^%L1DC($G(%ARG("MEDAT")),3)!(DT>$$^%L1DC($G(%ARG("ADDAT")),3)) Q
 .I $$SHOWKIND=3,$G(%ARG("NOMDOC"))'=+N Q
 .I $G(MAX),SRV+1>MAX S ENDCYC=1 Q
 .S SRV=SRV+1
 .S CUSTNAME=$P(A,"\",3)
 .
 .W "<tr style=""cursor:pointer"
 .W """"
 .W " onClick=""ShowSrvCard('"_N_"')"""
 .W " >",!
 .W " <td>"
 .W " &nbsp;&nbsp;"_N
 . D WEX(N)
 .W " </td>"
 .W " <td>"
 .W $$DAT^W4LSRVW(N)
 . D WEX($$DAT^W4LSRVW(N),"D")
 .W " </td>"
 .W " <td>"
 .W $$LKH^W4LSRVW(N)
 . D WEX($$LKH^W4LSRVW(N))
 .W " </td>"
 .W " <td>"
 .W $$H2U^%L1FRM($$LKH1^W4LSRVW(N))
 . D WEX($$LKH1^W4LSRVW(N),"H")
 .W " </td>"
 .W " <td>"
 .W $$H2U^%L1FRM($$DEV^W4LSRVW(N))
 . D WEX($$DEV^W4LSRVW(N),"H")
 .W " </td>"
 .W "</tr>",!
 .D WEXR
 ;
 W " </table>",!
 Q
 ;
 ;
ORDLIST(DOC) ;
 W "<table dir="""_$$^%W1DIR_""">",!
 W "<tr>"
 W "<td style=""color:black;font-size:"_$$^W3FSZ(14)_""">"
 W $$^%W1DICT($S(DOC="HZMH":"PRICEOFFERSLIST",$G(LKH):"CUSTORDLIST",1:"ORDLIST"))
 W "</td>",!
 D PRNEX
 W "</tr>",!
 W "</table>",!
 ;
 N MAX S MAX=$$SHOWLAST
 D RADIOSHOW
 ;
 W "<table id=""orderlist"" border=""1""  width=""98%"" cellspacing=""0"" dir="""_$$^%W1DIR_""">",!
 W "  <tr>",!
 W "   <th>"_$$^%W1DICT("NPP")_"</th>",!
   D WEX("NPP","DICT")
 W "   <th>",!
 N DOCNAME S DOCNAME=$S(DOC="HZ":"ORDER",1:"PRICEOFFER")
 W "    "_$$^%W1DICT(DOCNAME)
   D WEX(DOCNAME,"DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("DATE")
   D WEX("DATE","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("CUSTOMNUMBER")
   D WEX("CUSTOMNUMBER","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("CUSTOMNAME")
   D WEX("CUSTOMNAME","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("TEL1")
   D WEX("TEL1","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("TEL2")
   D WEX("TEL2","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("SUM")
   D WEX("SUM","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("INVOICE")
   D WEX("INVOICE","DICT")
 W "   </th>",!
 W "  </tr>",!
 D WEXR
 ;
 N I,N,A,CUST,CUSTNAME
 N GLHZ S GLHZ=$S(DOC="HZ":$$^W4GL("W4ORD"),1:$$^W4GL("W4DOC"))
 N ENDCYC S ENDCYC=0
 N SHZ,STOT S (SHZ,STOT)=0
 ;
 S N="",I=0 F  S N=$O(@GLHZ@(N),-1) Q:N=""  D  Q:ENDCYC
 .N A,LK,NUMBER S A=$G(^(N)) Q:A=""
 .;
 .I DOC="HZMH",'$G(@GLHZ@(N,"HZMH")) Q
 .D ^W4HSBGET(N,DOC)
 .S NUMBER=+$G(@GLHZ@(N,"NUMBER"))
 .I DOC="HZMH" S NUMBER=$G(@GLHZ@(N,"HZMH"))
 .;
 .S LK=$G(W4HSB("LKH")) Q:LK=""
 .I $$^W4ISCDLK($G(LKH)),$TR(LK,"-","")'=$TR(LKH,"-","") Q
 .I '$$ALLDOCS,$$PRKUP?1N,$G(W4HSB("PRKUP"))?1N,$$PRKUP'=W4HSB("PRKUP") Q
 .N DT S DT=$G(W4HSB("DT"))
 .I $$SHOWKIND=2,DT<$$^%L1DC($G(%ARG("MEDAT")),3)!(DT>$$^%L1DC($G(%ARG("ADDAT")),3)) Q
 .I $$SHOWKIND=3,$G(%ARG("NOMDOC"))'=NUMBER Q
 .I $G(MAX),SHZ+1>MAX S ENDCYC=1 Q
 .S SHZ=SHZ+1
 .
 .W "<tr "
 .I $$ALLDOCS,$$PRKUP?1N,$G(W4HSB("PRKUP"))?1N,$$PRKUP'=W4HSB("PRKUP") D
 ..W " style=""color:grey"" "
 .I $D(@GLHZ@(N,"DELETED")) W " style=""background-color:pink"" "
 .W " >",!
 .
 .W " <td style=""background-color:lightgrey;color:black;font-size:"_$$^W3FSZ(8)_";text-align:center"">"
 .  W SHZ
 . D WEX(SHZ)
 .
 .W " <td style=""cursor:pointer"
 .I +NUMBER=+$$GETP^%W1PRM("LHBCUR") W ";border:solid 2px brown;"
 .W """ "
 .W " onClick=""ShowItemsInvoice('"_+NUMBER_DOC_"','"_LK_"',self,'','0')"""
 .W ">"
 .W " &nbsp;&nbsp;"_NUMBER
 . D WEX(NUMBER)
 .W " </td>"
 .
 .W " <td>"
 . W $$RKV(W4HSB("TODATE"))
 . D WEX(W4HSB("TODATE"),"D")
 .W " </td>"
 .
 .W " <td>"
 . W LK
 . D WEX(LK)
 .W " </td>"
 .
 .W " <td>"
 . W $$RKV(W4HSB("LKHNAME"),"H")
 . D WEX(W4HSB("LKHNAME"),"H")
 .W " </td>"
 .
 .W " <td>"
 . W $$RKV($$TELB^W4L(LK))
 . D WEX($$TELB^W4L(LK))
 .W " </td>"
 .
 .W " <td>"
 . W $$RKV($$PELE^W4L(LK))
 . D WEX($$PELE^W4L(LK))
 .W " </td>"
 .
 .W " <td>"
 . W $J(W4HSB("TOT"),2,2)
 . S STOT=STOT+W4HSB("TOT")
 . D WEX(W4HSB("TOT"),"N")
 .W " </td>"
 .
 .W "<td "
 . W " style=""cursor:pointer"" "
 . W " onClick=""ShowItemsInvoice('"_$P($G(W4HSB("NHB")),";")_"','"_LK_"',self,'','0')"" "
 .W ">"
 . W $$RKV($P($G(W4HSB("NHB")),";"))
 . D WEX($P($G(W4HSB("NHB")),";"))
 .W "</td>"
 .W "</tr>",!
 .D WEXR
 ;
 D  ;
 .W "<tr style=""background-color:yellow;color:black;font-weight:bold"">",!
 .N J F J=1:1:6 D
 ..W "<td>&nbsp;</td>",!
 .W "<td>"_$$^%W1DICT("TOTAL")_"</td>",!
 . D WEX("TOTAL","DICT")
 .W "<td>"_$J(STOT,2,2)_"</td>",!
 . D WEX(STOT,"N")
 .W "<td>&nbsp;</td>",!
 .D WEX("")
 .W "</tr>",!
 .D WEXR
 Q
 ;
 ;
PRCOFRCLIST ;
 W "<span style=""color:black;font-size:"_$$^W3FSZ(14)_""">"_$$^%W1DICT($S($$^W4ISCDLK($G(LKH)):"CUSTPRCOFRLIST",1:"PRCOFRLIST"))_"</span>"
 N MAX S MAX=$$SHOWLAST
 D RADIOSHOW
 W "<table id=""prcofrcards"" border=""1""  width=""98%"" cellspacing=""0"" dir="""_$$^%W1DIR_""">",!
 W "  <tr>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("HZMH")
  D WEX("HZHMH","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("DATE")
  D WEX("DATE","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("CUSTOMNUMBER")
  D WEX("CUSTOMNUMBER","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("CUSTOMNAME")
  D WEX("CUSTOMNAME","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("TEL1")
  D WEX("TEL1","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("TEL2")
  D WEX("TEL2","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("DESCRIPTION")
  D WEX("DESCRIPTION","DICT")
 W "   </th>",!
 W "   <th>",!
 W "    "_$$^%W1DICT("SUM")
  D WEX("SUM","DICT")
 W "   </th>",!
 W "  </tr>",!
 D WEXR
 ;
 N I,N,A,CUST,CUSTNAME
 N GLHM S GLHM=$$^W4GL("HZMHC")
 N ENDCYC S ENDCYC=0
 N SHM,STOT S (SHM,STOT)=0
 ;
 S N="",I=0 F  S N=$O(@GLHM@(N),-1) Q:N=""  D  Q:ENDCYC
 .N A,LK S A=$G(^(N))
 .S LK=$$LKH^W4HZMHCV(N)
 .I $$^W4ISCDLK($G(LKH)),$TR(LK,"-","")'=$TR(LKH,"-","") Q
 .N DT S DT=$$^%L1DC($$DAT^W4HZMHC(N),3)
 .I $$SHOWKIND=2,DT<$$^%L1DC($G(%ARG("MEDAT")),3)!(DT>$$^%L1DC($G(%ARG("ADDAT")),3)) Q
 .I $$SHOWKIND=3,$G(%ARG("NOMDOC"))'=+N Q
 .I $G(MAX),SHM+1>MAX S ENDCYC=1 Q
 .S SHM=SHM+1
 .W "<tr style=""cursor:pointer"
 .W """"
 .W " onClick=""ShowPrcOfr('"_N_"','"_LK_"',self)"""
 .W " >",!
 .W " <td"
 .I +N=+$$GET^%W1PRM("LHBCUR") W " style=""border:solid 2px brown;"" "
 .W ">"
 .W " &nbsp;&nbsp;"_N
 . D WEX(N)
 .W " </td>"
 .W " <td>"
 . W $$DAT^W4HZMHC(N)
 . D WEX($$DAT^W4HZMHC(N),"D")
 .W " </td>"
 .W " <td>"
 . W LK
 . D WEX(LK)
 .W " </td>"
 .W " <td>"
 . W $$LKHNAME^W4HZMHC(N)
 . D WEX($$LKHNM^W4HZMHC(N),"D")
 .W " </td>"
 .W " <td>"
 . W $$TEL1^W4HZMHC(N)
 . D WEX($$TEL1^W4HZMHC(N))
 .W " </td>"
 .W " <td>"
 . W $$TEL2^W4HZMHC(N)
 . D WEX($$TEL2^W4HZMHC(N))
 .W " </td>"
 .W " <td>"
 . W $$DESCR^W4HZMHC(N)
 . D WEX($$DSCR^W4HZMHC(N))
 .W " </td>"
 .W " <td>"
 . W $J($$SUMTD^W4HZMHC(N),2,2)
 . D WEX($$SUMTD^W4HZMHC(N),"N")
 . S STOT=STOT+$$SUMTD^W4HZMHC(N)
 .W " </td>"
 .W "</tr>",!
 .D WEXR
 ;
 I $$SHOWKIND=2 D
 .W "<tr style=""background-color:yellow;color:black;font-weight:bold"">",!
 .W "<td>&nbsp;</td>",!
 . D WEX("")
 .W "<td>&nbsp;</td>",!
 . D WEX("")
 .W "<td>&nbsp;</td>",!
 . D WEX("")
 .W "<td>&nbsp;</td>",!
 . D WEX("")
 .W "<td>&nbsp;</td>",!
 . D WEX("")
 .W "<td>"_$$^%W1DICT("TOTAL")_"</td>",!
 . D WEX("TOTAL","DICT")
 .W "<td "_$$NUM^%W1ALIGN_" ><b>"_SHM_"</b></td>",!
 . D WEX(SHM)
 .W "<td "_$$NUM^%W1ALIGN_" >"_$$RKVN(STOT)_"</td>",!
 . D WEX(STOT,"N")
 .W "</tr>",!
 .D WEXR
 W " </table>",!
 Q
 ;
 ;
W4LKH(STAM) ;
 Q +$$^W4LKH
 ;
 ;
IFNEWLKH(LKH) ;
 N W4LKH,W4LKH1,W4KTV,W4CITY,W4STREET,W4HOME,W4FLAT,W4FAX,W4EMAIL,W4ZIP,W4TZ
 S W4LKH=0,W4LKH1="",W4KTV=""
 ;
 I LKH["~" D GETDETLKH(LKH)
 ;
 S LKH=$P(LKH,"~")
 S:'$$DEFISLK^W4PRM LKH=$TR(LKH,"-","") Q:LKH=""
 ;
 I W4LKH,$L(W4LKH1) D
 .S @$$^W4GL("LKH")@(LKH)=W4LKH1
 .D
 ..I W4TEL'?.P D PUT^W4L(LKH,W4TEL,"TELB")
 ..I W4PELE'?.P D PUT^W4L(LKH,W4PELE,"PELE")
 ..I W4STREET'?.P D PUT^W4L(LKH,W4STREET,"KTV")
 ..I W4CITY'?.P D PUT^W4L(LKH,W4CITY,"IR")
 ..I W4HOME'?.P D PUT^W4L(LKH,W4HOME,"BAIT")
 ..I $L(W4FLAT) D PUT^W4L(LKH,W4FLAT,"DIRA")
 .I W4FAX D PUT^W4L(LKH,W4FAX,"FAX")
 .I $L(W4EMAIL) D PUT^W4L(LKH,W4EMAIL,"EMAIL")
 .I W4ZIP D PUT^W4L(LKH,W4ZIP,"MIKUD")
 .I W4TZ D PUT^W4L(LKH,W4TZ,"TZ")
 .I '$$D2^W4L(LKH) S @$$^W4GL("LKH")@(LKH,2)="*1*90000"
 .I '$$D3^W4L(LKH) S @$$^W4GL("LKH")@(LKH,3)=""
 ;
 Q
 ;
GETDETLKH(LKH) ;
 S W4LKH=$P(LKH,"~",2),W4LKH1=$P(LKH,"~",3)
 S W4LKH1=$$INVH^%L1FRM($$CNWEB^%L1FRM(W4LKH1))
 S W4TEL=$$CNWEB^%L1FRM($P(LKH,"~",4))
 I W4TEL?.P,$L($P(LKH,"~"))>6 S W4TEL=$$TEL($P(LKH,"~"))
 S W4PELE=$$CNWEB^%L1FRM($P(LKH,"~",5))
 S W4FAX=$$CNWEB^%L1FRM($P(LKH,"~",6))
 S W4EMAIL=$$CNWEB^%L1FRM($P(LKH,"~",7))
 S W4CITY=$P(LKH,"~",8)
 S W4CITY=$$INVH^%L1FRM($$CNWEB^%L1FRM(W4CITY))
 S W4STREET=$P(LKH,"~",9)
 S W4STREET=$$INVH^%L1FRM($$CNWEB^%L1FRM(W4STREET))
 S W4HOME=$$CNWEB^%L1FRM($P(LKH,"~",10))
 S W4FLAT=$$CNWEB^%L1FRM($P(LKH,"~",11))
 S W4ZIP=$$CNWEB^%L1FRM($P(LKH,"~",12))
 S W4TZ=$$CNWEB^%L1FRM($P(LKH,"~",13))
 ;S W4KTV=W4STREET
 ;I $L(W4HOME) S W4KTV=W4KTV_" "_W4HOME
 ;I $L(W4FLAT) S W4KTV=W4KTV_"/"_W4FLAT
 ;I $L(W4CITY) S W4KTV=W4KTV_" , "_W4CITY
 ;I $L(W4ZIP) S W4KTV=W4KTV_" "_W4ZIP
 Q
 ;
 ;
TEL(LKH) ;
 S LKH=$TR(LKH,"-","")
 I $E(LKH)="1" Q $E(LKH)_"-"_$E(LKH,2,4)_"-"_$E(LKH,5,20)
 I $E(LKH)'="0" Q LKH
 I $E(LKH,1,2)="02"!($E(LKH,1,2)="03")!($E(LKH,1,2)="04")!($E(LKH,1,2)="08") Q $E(LKH,1,2)_"-"_$E(LKH,3,20)
 Q $E(LKH,1,3)_"-"_$E(LKH,4,20)
 ;
NOIDKKTV(LKH) ;
 I '$$^W4ISCDLK($G(LKH)) Q 0
 I $L($$BAIT^W4L(LKH)) Q 1
 I $L($$DIRA^W4L(LKH)) Q 1
 I $L($$CITY^W4L(LKH)) Q 1
 Q 0
 ;
ONCLICKHB(CODDOC,N) ;
 I CODDOC="HI" D
 .S N=$TR(N,"[] ","")
 ;
 N LK0 I '$G(N) Q
 S LK=$$LKN(CODDOC,N)
 I LK=""!(LK=0) Q
 ;
 I CODDOC="HMK" W " onClick=""ShowArmInvoice('"_+N_"HMK','"_LK_"','ifr','','0',this)"" " Q
 ;
 I $$HIDOC(CODDOC) D SHOWHI(N,LK) Q
 ;
 I CODDOC="HZMHC" W " onClick=""ShowPrcOfr('"_+N_"','"_LK_"','ifr')"" " Q
 ;
 I $$HBZ(CODDOC) D  Q
 .I $$ARM(LK0)=1 W " onClick=""ShowArmInvoice('"_+N_"','"_LK_"','ifr','1','0',this)"" " Q
 .I $$ARM(LK0)=2 W " onClick=""ShowItemsInvoice('"_+N_"Z','"_LK_"','ifr','','',this)""" Q
 .W " onClick=""ShowInvoice('"_-N_"','"_LK_"',self)"""
 ;
 I '$$ARM(LK0) W " onClick=""ShowInvoice('"_N_"','"_LK_"','ifr',this)"""
 ;
 N DOP S DOP=""
 ;
 I $$TM S DOP="T"
 I $$TMZ S DOP="TMZ"
 ;
 I $$ARM(LK0) D
 .I $$ARM(LK0)=1 W " onClick=""ShowArmInvoice('"_N_"','"_LK_"','ifr','','0',this)""" Q
 .I $$ARM(LK0)=2 W " onClick=""ShowItemsInvoice('"_N_DOP_"','"_LK_"','ifr','','"_$S($G(TMHB):1,$G(TMHBZ):1,1:0)_"',this)""" Q
 Q
 ;
 ;
ONCLICKCB(N) ;
 W " style=""cursor:pointer"" onClick=""ShowReceipt(GetVl('hbcb"_N_"'),'"_LK_"','ifr')"""
 Q
 ;
ONCLICKHBHI(N) ;
 W " style=""cursor:pointer"" onClick=""ShowReceipt(GetVl('hbcb"_N_"'),'"_LK_"','ifr')"""
 Q
 ;
CODDOC(STAM) ;
 I $G(%ARG("VD"))="HBZ" Q "TZ"
 I $G(%ARG("VD"))="HMK" Q "HMK"
 I $G(%ARG("VD"))="HMKI" Q "HMK"
 I $G(%ARG("VD"))="HZMH" Q "HZMH"
 I $G(%ARG("VD"))="HZMHC" Q "HZMHC"
 I $G(%ARG("VD"))="HI" Q "HI"
 I $G(%ARG("VD"))="TM" Q "TM"
 I $G(%ARG("VD"))="TMZ" Q "TMZ"
 I $$INP($G(%ARG("VD"))) Q %ARG("VD")
 ;
 I $$GET^%W1PRM("VD")="HBZ" Q "TZ"
 I $$GET^%W1PRM("VD")="HMK" Q "HMK"
 I $$GET^%W1PRM("VD")="HMKI" Q "HMK"
 I $$GET^%W1PRM("VD")="HZMH" Q "HZMH"
 I $$GET^%W1PRM("VD")="HZMHC" Q "HZMHC"
 I $$GET^%W1PRM("VD")="HI" Q "HI"
 I $$GET^%W1PRM("VD")="TM" Q "TM"
 I $$GET^%W1PRM("VD")="TMZ" Q "TMZ"
 I $$INP($$GETP^%W1PRM("VD")) Q $$GETP^%W1PRM("VD")
 Q "H"
 ;
HBZ(CODDOC)
 I CODDOC="TZ" Q 1
 I CODDOC="HBZ" Q 1
 Q 0
 ;
KLIN ;
 S KLIN=$$^W4GL("KLIN")
 Q
 ;
SHOWALL(LKH,MAX) ;
 N N,VRM,DT,CODDOC,PRALL,II
 I '$G(MAX) S MAX=9999999999
 S PRALL=1
 ;
 S VRM=$$^W4MAIN("VRM") K @VRM
 ;
 D CRVRM("H",LKH,MAX)
 D CRVRM("TZ",LKH,MAX)
 D CRVRM("HI",LKH,MAX)
 ;;W "SHOWALL",! ;
 S II=0,ENDCYC=0
 S DT="" F  S DT=$O(@VRM@(DT),-1) Q:DT=""  D  Q:ENDCYC
 .S N="" F  S N=$O(@VRM@(DT,N),-1) Q:N=""  D  Q:ENDCYC
 ..S CODDOC="H"
 ..I N["[-]" S CODDOC="TZ"
 ..I $E($TR(N," ",""))="[" S CODDOC="HI"
 ..D LINEINVC(N,LKH,CODDOC,$G(PRINT))
 Q
 ;
 ;
CRVRM(CODDOC,LKH,MAX) ;
 ;;W "CODDOC="_CODDOC,!
 N N,A,LK0,LK,SH S SH=0
 S N=999999999 F  S N=$O(@KLIN@(CODDOC,N),-1) Q:N=""  D  I $G(MAX) Q:SH>MAX
 .S LK=$$LKN(CODDOC,N)
 .I $$^W4ISCDLK($G(LKH)),$TR(LK,"-","")'=$TR(LKH,"-","") Q
 .D ^W4HSBGET(N,CODDOC)
 .S DT=$G(W4HSB("DT")) Q:'DT
 .S SH=SH+1
 .N HB S HB=N
 .I CODDOC="TZ" S HB=N_" [-]"
 .I CODDOC="HI",($G(W4HSB("TOT"))-$G(W4HSB("HBHITOT")))'>0 Q
 .I CODDOC="HI" S HB="[ "_N_" ]"
 .N OKNPDT S OKNPDT=0
 .I $G(%ARG("NPDT")) D  Q:'OKNPDT
 ..I CODDOC'="H",CODDOC'="HBW" Q
 ..N DT S DT=$G(W4HSB("DT"))
 ..N SHOTEF S SHOTEF=$$SHOTEF^W4L(LK) Q:'SHOTEF
 ..I '$G(W4HSB("PAID")),DT+SHOTEF<$H S OKNPDT=1
 .S @VRM@(DT,HB)=LK0
 Q
 ;
RKVN(RKV) ;
 N ST S ST=""
 I RKV<0 S ST="<span style=""color:darkred"">"
 S ST=ST_$S(RKV?."-"1N.E!(RKV=""):$J(RKV,2,2),1:RKV)
 I RKV<0 S ST=ST_"</span>"
 Q ST
 ;
ZV(STAM) ;
 Q "<span style=""color:red"">*</span>"
 ;
SELDAT(TODATE,MIN,PLUS,ID,ONCHNG) ;
  W $$^W4SELDAT(TODATE,$G(MIN),$G(PLUS),$G(ID),$G(ONCHNG)) ;
 Q
 ;
LASTDT(STAM) ;
 N W4HSB
 N CODDOC S CODDOC=$$CODDOC
 D KLIN
 N H S H=$O(@KLIN@(CODDOC,999999),-1) I 'H Q 0
 D ^W4HSBGET(H,CODDOC) I '$D(W4HSB("DT")) Q 0
 Q W4HSB("DT")
 ;
INVCAU(INVC) ;
 I +$G(INVC)#2=1 Q 1
 ;;I '$G(INVC),$G(%ARG("VD"))'="HBZ",$G(%ARG("DOC"))'="HBW" Q 1
 I '$G(INVC),$G(%ARG("VD"))'="HBZ" Q 1
 Q 0
 ;
INVCARM(INVC) ;
 I (+$G(INVC)\2)#2 Q 1
 I '$G(INVC),$G(%ARG("VD"))'="HBZ" Q 1
 Q 0
 ;
INVCIT(INVC) ;
 I (+$G(INVC)\4)#2 Q 1
 I '$G(INVC),$G(%ARG("VD"))'="HBZ" Q 1
 Q 0
 ;
INVCDEB(INVC) ;
 I (+$G(INVC)\8)#2 Q 1
 I '$G(INVC) Q 1
 Q 0
 ;
INVCHI(INVC) ;
 I (+$G(INVC)\16)#2 Q 1
 I '$G(INVC) Q 1
 Q 0
 ;
INIT ;
 I $G(%ARG("FIRST")) D
 .D KILL^%W1PRM("DAT")
 .D KILL^%W1PRM("LHBCUR")
 ;
 I +$G(MSD)=0 S MSD=$$GET^%W1PRM("MSD")
 I $G(%ARG("MSD")) D PUT^%W1PRM("MSD",%ARG("MSD"))
 D KILL^%W1PRM("VD")
 I $L($G(%ARG("VD"))) D PUT^%W1PRM("VD",%ARG("VD"))
 D KILL^%W1PRM("DOC")
 I $L($G(%ARG("DOC"))) D PUT^%W1PRM("DOC",%ARG("DOC"))
 D KILL^%W1PRM("NOMHB")
 D KILL^%W1PRM("SUMHB")
 K @$$^W4MAIN("TMP")
 K @$$^W4MAIN("TMPHM")
 K @$$^W4MAIN("TMPCB")
 K @$$^W4MAIN("TMPHB")
 Q
 ;
 ;
KOT ;
 N VD S VD=$$GET^%W1PRM("VD")
 ;
 I VD="HBZ" D  Q
 .I $G(%ARG("DOC"))="HBW" W $$^%W1DICT("DEBETITEMSINVOICE") D DOPZAG Q
 .W $$^%W1DICT("DEBETINVOICE") Q
 ;
 I $$HI W $$^%W1DICT("DEALARMINVOICE") Q
 ;
 I VD="HBY"!(VD["UNDEF")!(VD="") D  Q
 .I $G(%ARG("DOC"))="HBW" W $$^%W1DICT("ITEMSINVOICE") D DOPZAG Q
 .W $$^%W1DICT("SINGLECUSTOMARMINVOICE")
 ;
 I $$HMK^W4LHB=1 D  Q
 .W $$^%W1DICT("ARMINVOICERECEIPT")
 ;
 I $$HMKI^W4LHB D  Q
 .W $$^%W1DICT("ITEMSINVOICERECEIPT")
 ;
 I VD="TM" D  Q
 .W $$^%W1DICT("SHIPPINGRECORDSISSUE") D DOPZAG
 ;
 I VD="TMZ" D  Q
 .W $$^%W1DICT("SHIPPINGBACKRECORDSISSUE") D DOPZAG
 ;
 I $$HZ D  Q
 .W $$^%W1DICT("CUSTOMERORDER") D DOPZAG
 ;
 I $$HZMH D  Q
 .W $$^%W1DICT("PRICEOFFER") D DOPZAG
 Q
 ;
 ;
HEAD ;
 I $$CB D  Q
 .W $$^%W1DICT("RECEIPTES")
 ;
 I $$SRV D  Q
 .W $$^%W1DICT("SERVICECARD")
 ;
 I $$HZMH D  Q
 .W $$^%W1DICT("HZMH")
 ;
 I $$HI D  Q
 .W $$^%W1DICT("DEALARMINVOICE")
 ;
 D
 .W $$^%W1DICT("SINGLECUSTOMINVOICE")
 Q
 ;
DOPZAG ;
 I $$PRKUP W " - "_$$^%W1DICT("CSRITEMS")
 I $$PRKUP=0 W " - "_$$^%W1DICT("MLYITEMS")
 Q
 ;
CUSTCLOSED(LKH) ;
 I $$MAZAV^W4L(LKH)=0 Q 1
 Q 0
 ;
CONT(STAM) ;
 Q $$INVH^%L1FRM($G(%ARG("CONTENT")))
 ;
FINDNMB(ST,CONT) ;
 N J F J=1:1:$L(ST,"\") I +$P(ST,"\",J)=+CONT S OK=1 Q
 Q
 ;
FINDCONT(CODDOC,NDOC,CONT) ;
 N LK0,LK,OK,SH S OK=0
 S LK=$$LKN(CODDOC,NDOC)
 Q:LK0="IN"
 ;
 I CODDOC="H"!(CODDOC="TZ")!(CODDOC="HI")!(CODDOC="HMK") D
 .I LK0["+" D  Q
 ..N ST S ST=$G(@$$^W4GL("P1LHB")@(LK,+NDOC,"PR"))
 ..I 'CONT,ST[CONT S OK=1 Q
 ..I CONT D
 ...N J F J=1:1:$L(ST,"\") I +$P(ST,"\",J)=+CONT S OK=1 Q
 .I LK0["^" D  Q
 .I LK0["W" D  Q
 ..N NOM S NOM=$P(LK0,"W",2)
 ..S SH="" F  S SH=$O(@$$^W4GL("W4DOC")@(NOM,SH)) Q:SH=""  D:SH  Q:OK
 ...N ST S ST=$G(^(SH))
 ...I 'CONT,ST[CONT S OK=1 Q
 ...I CONT D FINDNMB(ST,CONT)
 .
 .D  Q  ;-- YAD
 ..N SH
 ..I 'CONT,$G(@$$^W4GL("KLF")@(LK,CODDOC,+NDOC))[CONT S OK=1
 ..S SH="" F  S SH=$O(@$$^W4GL("KLF")@(LK,CODDOC,+NDOC,SH)) Q:SH=""  D:SH  Q:OK
 ...N ST S ST=$G(^(SH))
 ...I 'CONT,ST[CONT S OK=1 Q
 ...I CONT D FINDNMB(ST,CONT)
 ..I 'OK," "_$G(@$$^W4GL("KLF")@(LK,CODDOC_"P",+NDOC))_" "[(" "_CONT_" ") S OK=1
 ..Q:OK
 ..I CODDOC="HMK" D
 ...S SH="" F  S SH=$O(@$$^W4GL("KLF")@(LK,CODDOC,+NDOC,"HB",SH)) Q:SH=""  D:SH  Q:OK
 ....N ST S ST=$G(^(SH))
 ....I 'CONT,ST[CONT S OK=1 Q
 ....I CONT D FINDNMB(ST,CONT)
 ;
 I CODDOC="CB" D
 .I 'CONT,$G(@$$^W4GL("KLF")@(LK,CODDOC,+NDOC))[CONT S OK=1
 .S SH="" F  S SH=$O(@$$^W4GL("KLF")@(LK,CODDOC,+NDOC,SH)) Q:SH=""  D:SH  Q:OK
 ..N ST S ST=$G(^(SH))
 ..I 'CONT,ST[CONT S OK=1 Q
 ..I CONT D FINDNMB(ST,CONT)
 .I $G(@$$^W4GL("KLF")@(LK,CODDOC_"P",+NDOC))[CONT S OK=1
 .
 I $$INP(CODDOC),$G(SPK) D
 .I 'CONT,$G(@$$^W4GL("W4INP")@(SPK,CODDOC,+NDOC))[CONT S OK=1
 .S SH="" F  S SH=$O(@$$^W4GL("W4INP")@(SPK,CODDOC,+NDOC,SH)) Q:SH=""  D  Q:OK
 ..N ST S ST=$G(^(SH))
 ..I 'CONT,ST[CONT S OK=1 Q
 ..I CONT D FINDNMB(ST,CONT)
 ;
 Q OK
 ;
 ;
LKHMKDFLT(STAM) ;
 I $$HMK,$$^W4LKHCSR,LKH=$$LKHDFLT^W4LKHCSR Q 1
 Q 0
 ;
RKV(TXT,PRM) ;
 I $G(TXT)="" Q "&nbsp;"
 I $G(PRM)="H" Q $$H2U^%L1FRM(TXT)
 Q TXT
 ;
GROUPS ;
 W "<select id=""group"" "
 N LKH S LKH=$$LKH
 I '$$^W4ISCDLK(LKH) W " onChange=""ShowInvoices()"" "
 W ">",!
 I LKH S %ARG("GROUP")=+$$SUGL^W4L(LKH)
 W "<option value=""0"">"_$$^%W1DICT("ALLGROUPS")_"</option>",!
 N N S N="" F  S N=$O(@$$^W4GL("SUGL")@(N)) Q:N=""  D
 .I LKH,N'=%ARG("GROUP") Q
 .W "<option value="""_N_""" "
 .I $G(%ARG("GROUP")),N=%ARG("GROUP") W " selected=""selected"" "
 .W "> "_N_" "_$$H2U^%L1FRM($G(^(N)))_"</option>",!
 W "</select>",!
 Q
 ;
LKH(STAM) ;
 I $G(%ARG("CODE")) Q %ARG("CODE")
 I $G(%ARG("LKH")) Q %ARG("LKH")
 Q ""
 ;
PRINTSIZE ;
 W "style=""font-size:10pt"" "
 Q
 ;
DOCEXIST(PRM) ;
 N LKH,VD,NUMBER
 S LKH=$$^W4CDLK($P(PRM,";"))
 S VD=$P(PRM,";",2)
 S NUMBER=$P(PRM,";",3)
 I '$G(NUMBER) Q 0
 I $G(LKH)=""!($G(LKH)=0) Q ""
 I $$D^W4ORDD(LKH,NUMBER) Q 1
 Q 0
 ;
PRKUP(STAM) ;
 Q $$GETP^%W1PRM("PRKUP")
 ;
INP(VDOC) ;
 I $E(VDOC)="I" Q 1
 Q 0
 ;
ALLDOCS(STAM) ;
 Q $G(%ARG("ALLDOCS"))
 ;
SHOWHI(N,LK)
 N N1 S N1=N
 I N["<" S N1=$P(N,"<")_"HI"_"<"_$P(N,"<",2)
 E  S N1=N_"HI"
 W " onClick=""ShowArmInvoice('"_N1_"','"_LK_"','ifr','','0',this)"" "
 Q
 ;
TDMAIL ;
 W " <td id=""mail"">"
 W " </td>"
 Q
 ;
DENIED(STAM) ;
 I $$^W4LKH,$$GETP^%W1PRM("MSD")=7001,'$$VIEW,'$G(@$$^W4GL("ISHUR")@(%REM,+$H)) Q 1
 Q 0
 ;
WDTBL(STAM) ; 
 Q 95
 ;
SUGTS(SUGTS) ;
 N ST S ST="" 
 S ST=$$RPL^%L1FRM(SUGTS,1,$$TV^%W1DICT($$^%W1LNG,"CASH"))
 S ST=$$RPL^%L1FRM(ST,2,$$TV^%W1DICT($$^%W1LNG,"CHECK"))
 S ST=$$RPL^%L1FRM(ST,3,$$TV^%W1DICT($$^%W1LNG,"CA"))
 S ST=$$RPL^%L1FRM(ST,4,$$TV^%W1DICT($$^%W1LNG,"AVBANK"))
 Q ST 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

W4SPPY
W4SPPY ; [ 24.08.21 10:50 ] [ 10.09.20 19:25 ] [ 16.02.20 09:44 ] 
 N (JB,%ARG,%REM)
 D ^%W1ARG
 S NOM=$$NOM
 I 'NOM S (STRING,SPK)=$$LK^W4LHB($G(%ARG("SPK")))
 I NOM S (STRING,SPK)=$$SPK^W4PY(NOM)
 ;
 I SPK="" D  Q
 .W "<script>",!
 . W "MsgA('SUPPLNUMBERISWRONG')",!
 . W "Back()",!
 .W "</script>",!
 ;
 I NOM,$G(%ARG("EDIT"))=2 D
 .K @$$TMPY
 .M @$$TMPY=@$$GLPY(NOM)
 ;
 D PUT^%W3DEB("W4SPPY","ARG=[%ARG")
 ;
 I $G(%ARG("ADV"))=1 D PAYMADV Q  ; -- TASHLUM MIROSH
 ;
 I $G(%ARG("SUMADV")) D SUMADV(%ARG("SUMADV"))
 ;
 I $G(%ARG("COLPM")),NOM,$$COLPM^W4PY(NOM)>%ARG("COLPM") D  Q
 .W "<script>",!
 . W "MsgA('PAYMENTSNUMBERISWRONG')",!
 . W "Back()",!
 .W "</script>",!
 ;
 I $G(%ARG("COLPM")) D
 .S $P(@$$TMPY,"\",11)=%ARG("COLPM")
 .I $D(%ARG("FIRSTNUM")) S $P(@$$TMPY@("C",1),"\",4)=%ARG("FIRSTNUM")
 .I $D(%ARG("FIRSTDAT")) S $P(@$$TMPY@("C",1),"\",5)=%ARG("FIRSTDAT")
 .I $D(%ARG("NH")) S $P(@$$TMPY,"\",4)=%ARG("NH")
 .I $D(%ARG("SUGT")) S $P(@$$TMPY,"\",10)=%ARG("SUGT")
 .I $D(%ARG("DATT")) S $P(@$$TMPY,"\",2)=%ARG("DATT")
 .I $D(%ARG("MZ")) S $P(@$$TMPY,"\",9)=%ARG("MZ")
 ;
 ;
 S CODDOC=$$CODDOC
 ;
 D KOTPY(SPK)
 ;
 D DAF1
 ;
 I $$SHOW,$D(@$$GLPY(NOM)@("H"))>9 D
 .;;I $$PRINT W "<p style=""page-break-before:always"">",!
 .;;W "<br />",!
 .D ^W4HBPY(SPK,NOM,1)
 ;
 ;;W "<br/>"
 ;
 I '$$PRINT D
 .W "<div id=""divbut"">"
 .W "<table dir="""_$$^%W1DIR_""" width=""30%"" border=""0"" cellspacing=""0"" align=""center"" >",!
 . W "<tr>"
 .  W "<td>"
 .  I '$$SHOW D
 ..    D ROUNDBUT^%W1JS("Submit",$$^%W1DICT("SUBMIT"),"Submit('"_SPK_"')","color:green",",,,100")
 .  I $$SHOW D
 ..    D ROUNDBUT^%W1JS("Print",$$^%W1DICT("PRINT"),"Print('"_SPK_"','"_$$NOM_"')","color:green",",,,100")
 .  W "</td>",!
 .  W "<td>&nbsp;</td>",!
 .
 . I $$SHOW,'$G(%ARG("VIEWONLY")) D
 ..  W "<td>"
 ..   D ROUNDBUT^%W1JS("Delete",$$^%W1DICT("CANCEL"),"Delete('"_$$NOM_"')","color:black",",,,100")
 ..  W "</td>",!
 ..  W "<td>&nbsp;</td>",!
 ..  I $$PRINTCHK($$NOM)'="" D
 ...  W "<td>"
 ...   D ROUNDBUT^%W1JS("Update",$$^%W1DICT("UPDATE"),"Update('"_$$NOM_"')","color:darkblue",",,,100")
 ...  W "</td>",!
 ...  W "<td>&nbsp;</td>",!
 ...  W "<td>"
 ...   D ROUNDBUT^%W1JS("PrintChk",$$^%W1DICT("PRINTCHK"),"PrnChk('"_$$NOM_"')","color:blue",",,,100")
 ...  W "</td>",!
 .
 . W "<td>&nbsp;</td>",!
 . W "<td>"
 .  D ROUNDBUT^%W1JS("Back",$$^%W1DICT("BACK"),"Back()","color:red",",,,100")
 . W "</td>",!
 . W "</tr>",!
 .W "</table>",!
 .W "</div>",!
 ;
 Q
 ;
 ;
KOTPY(SPK) ;
  N (SPK,JB,%ARG,%REM)
  N DAT S NOM=$$NOM
  ;
  I '$$SHOW D
  .S DAT=$$NEWDAT
  .W "<br />",!
  .W "<span style=""font-size:"_$$^W3FSZ(16)_""">"
  . W $$^%W1DICT("TOPAYMENT")_" "_$$RKVB($$TOPAY($S($$SHOW:NOM,1:0)),"N")
  .W "</span>"
  .W "<br /><br />",!
  .
  .W "<table dir="""_$$^%W1DIR_""" width=""80%"" >",!
  .
  .I NOM W " <tr><td colspan=""4"" style=""font-size:"_$$^W3FSZ(16)_""">"_$$^%W1DICT("PAYMENT")_" "_NOM_"</td><tr>"
  .N N,A,BANK,SNIF,HESBON
  .W " <tr>",!
  . W "<td>"
  .  W $$^%W1DICT("PAYMENTFROM")
  . W "</td>"
  . W "<td>",!
  .  W " <select id=""NH"" >",!
  .   ;;W "<option value=""0"" >"_$$^%W1DICT("ACCOUNTNOTDEFINED")_"</option>",!
  .   S N="" F  S N=$O(@$$^W4GL("W4ACNT")@(N)) Q:N=""  D
  .   . S A=$G(^(N))
  .   . S BANK=$P(A,"\")
  .   . S SNIF=$P(A,"\",3)
  .   . S HESBON=$P(A,"\",4)
  .   . W " <option value="""_N_""""
  .   .  I N=$$NH(NOM) W " selected=""selected"" "
  .   . W " >"
  .   .  W $$^%W1DICT("BANK")_BANK_" "_$$^%W1DICT("SNIF")_" "_SNIF_" "_$$^%W1DICT("ACCOUNT")_" "_HESBON
  .   . W " </option>",!
  .  W " </select>",!
  . W "</td>",!
  . W "<td>",!
  .  W $$^%W1DICT("PAYMENTDAT")
  . W "</td>",!
  .
  . W "<td>",!
  .  S TODATE=$S($$PAYMDAT(NOM):$$PAYMDAT(NOM),1:$ZD($H,"DD.MM.YY"))
  .  W $$^W4SELDAT(TODATE,30,15,"paymdate") ;
  . W "</td>",!
  .W " </tr>",!
  .D LINE
  .D SUPPLDET(SPK)
  .D LINE
  .W "<tr><td colspan=""6"" style=""font-size:"_$$^W3FSZ(14)_";text-align:center"">"_$$^%W1DICT("CHOICEIFNOTCASH")_"</td></tr>",!
  .W "<tr>",!
  . W " <td>"
  .  W $$^%W1DICT("KINDOFPAYMENT")
  . W " </td>"
  . W " <td>"
  .  D SELSUGT(NOM)
  . W " </td>"
  . W " <td>"
  .  W $$^%W1DICT("COLPM")
  . W " </td>"
  . W " <td>"
  .  N COLPM S COLPM=$$COLPM(NOM) I 'COLPM S COLPM=1
  .  W " <input type=""text"" id=""colpm"" size=""2"" maxlength=""2"" value="""_COLPM_""" onKeyUp=""ColPm()"" onClick=""this.select()"" />"
  . W " </td>"
  .W "</tr>",!
  .;;N VIS S VIS="hidden" I $$COLPM(NOM) S VIS="visible"
  .N VIS S VIS="visible"
  .W "<tr id=""firstdetails"" style=""visibility:"_VIS_""">"
  . W " <td id=""firstnm"">"
  . W $$SUGT1($G(%ARG("SUGT")))
  . W " </td>"
  . W " <td>"
  .  W " <input type=""text"" id=""first"" size=""10"" maxlength=""10"" value="""_$$FIRST(NOM)_""" />"
  . W " </td>"
  . W " <td>"
  .  W $$^%W1DICT("FIRSTPAYMENTDATE")
  . W " </td>"
  . N FIRSTDAT
  . S FIRSTDAT=$$FIRSTDAT(NOM)
  . W " <td>"
  .  W $$^W4SELDAT(FIRSTDAT,60,120,"firstdate")
  . W " </td>"
  . W " <td>"
  .  D ROUNDBUT^%W1JS("DoPaym",$$^%W1DICT("DO"),"DoPayments()","color:yellow;background-color:red",",,,60")
  . W " </td>"
  .W "</tr>"
  .W "</table>",!
  .W "<br />",!
  ;
  ;
  I $$SHOW D
  .S DAT=$$PAYMDAT(NOM)
  .D ^W4KOTHSB(NOM,SPK,DAT,"IPY")
  .W "<br />",!
  .W "<span style=""font-size:"_$$^W3FSZ(16)_""">"
  . W $$^%W1DICT("TOPAYMENT")_" "_$$RKVB($$TOPAY($S($$SHOW:NOM,1:0)),"N")
  .W "</span>"
  .W "<br /><br />",!
  .W "<table dir="""_$$^%W1DIR_""" width=""80%"" border=""0"">",!
  .W "<tr>"
  . W "<td width=""15%"" >"
  .  W $$^%W1DICT("PAYMENTDAT")
  . W "</td>"
  . W "<td>"
  .  W $$PAYMDAT(NOM)
  . W "</td>"
  . W "<td>"
  .  W $$^%W1DICT("BANK")_" : "_$$RKVB($$BANK^W4PY(NOM))_" "_$$RKVB($$BANK1^W4PY(NOM),"H")
  . W "</td>"
  . W "<td>"
  .  W $$^%W1DICT("SNIF")_" : "_$$RKVB($$SNIF^W4PY(NOM))
  . W "</td>"
  . W "<td>"
  .  W $$^%W1DICT("ACCOUNT")_" : "_$$RKVB($$HSBB^W4PY(NOM))
  . W "</td>"
  .W "</tr>",!
  .D SUPPLDET(SPK)
  .W "<tr>"
  . W "<td>"
  . W "</td>"
  . W "<td>"
  . W "</td>"
  .W "</tr>",!
  .W "</table>",!
EKPY Q
  ;
TD W "<td width=""30%"">"
 Q
 ;
LINE ;
 W "<tr><td>&nbsp;</td></tr>"
 Q
 ;
SUPPLDET(SPK) ;
 I '$$SHOW D
 .W "<tr>"
 . W " <td>"
 .  W $$^%W1DICT("SPKNUMBER")
 . W " </td>"
 . W "<td>"
 .  W $$RKVB(SPK)
 . W " </td>"
 . W "<td>"
 .  W $$^%W1DICT("SPKNAME")
 . W " </td>"
 . W " <td>"
 .  W $$RKVB($$NAME^W4SPK(SPK),"H")
 . W " </td>"
 . W "<td>"
 .  W $$^%W1DICT("BUSINESSID")
 . W " </td>"
 . W " <td>"
 .  W $$TZ^W4SPK(SPK)
 . W " </td>"
 .W "</tr>",!
 ;
 W "<tr>"
  W " <td>"
   W $$^%W1DICT("AHNIKMAS")
  W " </td>"
  W " <td id=""ahnik"">"
   W $$RKVB($$AHNIKMAS^W4SPK(SPK),"N")
  W " </td>"
  W " <td>"
   W $$^%W1DICT("NIKMASAD")
  W " </td>"
  W " <td>"
   W $$RKVB($$NIKMASAD^W4SPK(SPK))
  W " </td>"
  W " <td width=""15%"">"
   W $$^%W1DICT("SHOTEF")
  W " </td>"
  W " <td>"
   W $$RKVB($$SHOTEF^W4SPK(SPK))
  W " </td>"
 W "<tr>"
 Q
 ;
TDLEFT ;
 W "<td "_$$INV^%W1ALIGN
 W ">&nbsp;"
 Q
 ;
SELSUGT(NOM) ;
 N SELECTED
 S SELECTED=" selected=""selected"" "
 W "<select id=""sugt"" onChange='SetSugt1()' >",!
  W "<option value=""1"" "_$S($$SUGT(NOM)=1:SELECTED,1:"")_">"_$$^%W1DICT("CHECK")_"</option>",!
  W "<option value=""2"" "_$S($$SUGT(NOM)=2:SELECTED,1:"")_">"_$$^%W1DICT("CREDITCARD")_"</option>",!
  W "<option value=""3"" "_$S($$SUGT(NOM)=3:SELECTED,1:"")_">"_$$^%W1DICT("BANKMOVING")_"</option>",!
  W "<option value=""4"" "_$S($$SUGT(NOM)=4:SELECTED,1:"")_">"_$$^%W1DICT("CASH")_"</option>",!
 W "</select>",!
 Q
 ;
DAF1 ;
  N (JB,%ARG,SPK,DAT,CMNT,BFTAX,AFTAX,SHUM,LMAM)
  S STRING=SPK
  ;
  S NOM=$$NOM
  S COLST=$G(%ARG("COLPM"))
  I COLST<1 S COLST=$$COLPM(NOM)
  ;
  I $G(%ARG("SUGT"))=4 S COLST=0
  D DIVPYM(COLST)
  ;
  W "<br />"
  W "<table id=""TblPymBt"" dir="""_$$^%W1DIR_""" width=""80%"" border=""0"" cellspacing=""0"">",!
   W "<tr>",!
   W " <td>"
    W $$^%W1DICT("PAIDCASH")_" : "
    I '$$SHOW D
    .W "<input type=""text"" size=""8"" id=""cash"" "
    .W "onClick=""FocSel(this)"" maxlength=""8"" "
    .W "onKeyUp=""ChangeSum('CASH');VisBut()"" onChange=""ChangeValue(this)"" "
    .N MZ S MZ=$$MZ(NOM)
    .W "value="""_MZ_""">"
    ;
    I $$SHOW W $$RKVB($$MZ(NOM))
   W " </td>",!
   ;
  D LINE
  W "<tr>",!
  N PAID
  W " <td style=""font-size:"_$$^W3FSZ(14)_""">"
   W $$^%W1DICT("TOTAL")_" : "
   S PAID=$$TOTPAID(NOM)
   I '$$SHOW,$G(%ARG("COLPM")) D
   .S PAID=$G(SSUM)+$G(%ARG("MZ"))
   W "<span id=""total"">"_$$RKVB(PAID,"N")_"</span>"
  W " </td>",!
  ;
  W " <td style=""font-size:"_$$^W3FSZ(14)_""">"
   W $$^%W1DICT("ITRA2PAY")_" : "
   W "<span id=""iditra"">"
   W $$RKVB($$TOPAY($S($$SHOW:NOM,1:0))-PAID,"N")
   W "</span>",!
  W " </td>"
  ;
  W "</table>",!
  W "<br />",!
  ;
 Q
 ;
 ;
DIVPYM(COLST) ;
 W "<div id=""TblPymDiv"" >",!
  I '$$SHOW D
  .W "<div id=""divchkdet"" dir="""_$$^%W1DIR_""">",!
  . N CHECKED
  . S CHECKED=""
  . I '$G(%ARG("NOCHECKED")) S CHECKED=" checked=""checked"" "
  . W $$^%W1DICT("CHECKFIELDSFILLING")_" <input type=""checkbox"" id=""chkdet"" "_CHECKED_" >"
  .W "</div>",!
 ;
 W "<br>"
 W "<table id=""TblPymBd"" dir="""_$$^%W1DIR_""" width=""70%"" border=""1"" cellspacing=""0"">",!
  ;
  W $$TRTH
  ;
  S NOM=$$NOM
  ;
  I '$$SHOW D
  .S SSUM=0
  .S SNIC=0
  .S SNET=0
  .S SUMCH=0
  .F I=1:1:COLST D
  ..W "<tr align=""center"" >"_$$STPY(I)_"</tr>",!
  ..S SSUM=SSUM+$$SUM($$NOM,I)
  ..S SNIC=SNIC+$$NICUY($$NOM,I)
  ..S SNET=SNET+$$NETTO($$NOM,I)
  .;---------------------------- TOTALS
  .W "<tr>"
  . W " <td "_$$^%W1ALIGN_" id=""sumch"" >"_$$^%W1DICT("TOTAL")_"&nbsp; "_$$RKVB(SSUM,"N")_"</td>"
  . W " <td "_$$^%W1ALIGN_" id=""sumnic"" >"_$$RKVB(SNIC,"N")_"</td>"
  . W " <td "_$$^%W1ALIGN_" id=""sumnetto"" >"_$$RKVB(SSUM-SNIC,"N")_"</td>"
  .W "</tr>",!
  ;
  I $$SHOW D
  .S SUMCH=0
  .F I=1:1 Q:'$D(@$$GLPY(NOM)@("C",I))  W $$TRVW(NOM,I)
  .
  .N SUMCH S SUMCH=$$SUMTS(NOM) ;
  .W "<tr>"
  . W " <td "_$$^%W1ALIGN_" id=""sumch"" >"_$$^%W1DICT("TOTAL")_"&nbsp; "_$$RKVB(SUMCH,"N")_"</td>"
  . W " <td "_$$^%W1ALIGN_" id=""sumnic"" >"_$$RKVB($$NIKMAS(NOM),"N")_"</td>"
  . W " <td "_$$^%W1ALIGN_" id=""sumnetto"" >"_$$RKVB(SUMCH-$$NIKMAS(NOM),"N")_"</td>"
  .W "</tr>",!
  ;
  W "</table>",!
  W "</div>",! ; ----------- END PAYMTBLDIV
  Q
  ;
  ;
TRTH(STAM) ;
  N ST
  S ST="<tr>"
  S ST=ST_"<th>"_$$^%W1DICT("SUM")_"</th>"
  S ST=ST_"<th>"_$$^%W1DICT("NIKMAS")_"</th>"
  S ST=ST_"<th>"_$$^%W1DICT("NETTO")_"</th>"
  S ST=ST_"<th id=""sugt1"">"_$$SUGT1($$SUGT(NOM),1)_"</th>"
  ;
  S ST=ST_"</th>"
  S ST=ST_"<th>"_$$^%W1DICT("TODATE")_"</th>"
  S ST=ST_"</tr>"
 Q ST
 ;
TRVW(NOM,I) ;
 N ST
 S ST="<tr>"
 S ST=ST_" <td dir=""LTR"" "_$$^%W1ALIGN_" >"_$$RKV($$SUM(NOM,I),"N")_"&nbsp;&nbsp;&nbsp;</td>" S SUMCH=SUMCH+$$SUM(NOM,I)
 S ST=ST_" <td>"_$$RKV($$NICUY(NOM,I))_"</td>"
 S ST=ST_" <td>"_$$RKV($$NETTO(NOM,I))_"</td>"
 S ST=ST_" <td>"_$$RKV($$CHECK(NOM,I))_"</td>"
 S ST=ST_" <td align=""center"" >"_$$RKV($$DATPR(NOM,I))_"</td>"
 S ST=ST_"</tr>"
 Q ST
 ;
STPY(I) ;
 I $$NOM,$D(@$$^W4GL("W4TSHL")@($$NOM,"C",I,"PC")) Q $$TRVW($$NOM,I)
 ;
 S ST="<td ><input type=""text"" size=""9"" id=""sum"_I_""" maxlength=""10"" onClick=""FocSel(this)"" onKeyUp=""ChangeSum('"_I_"')"" onChange=""ChangeValue('"_I_"','1')"" value="""_$$SUM($$NOM,I)_"""></td>"
 S ST=ST_"<td ><input type=""text"" size=""8"" id=""nicuy"_I_""" maxlength=""8"" readonly=""readonly"" value="""_$$NICUY($$NOM,I)_"""></td>"
 S ST=ST_"<td ><input type=""text"" size=""9"" id=""netto"_I_""" maxlength=""9"" readonly=""readonly"" value="""_$$NETTO($$NOM,I)_"""></td>"
 N READONLY S READONLY=""
 I $$SUGT($$NOM)>1 S READONLY=" readonly=""readonly"" "
 S ST=ST_"<td ><input type=""text"" "_READONLY_" size=""10"" id=""check"_I_""" maxlength=""9"" onChange=""ChangeValue('"_I_"','4')"" onClick=""FocSel(this)"" value="""_$$CHECK($$NOM,I)_"""></td>"
 ;;S %W1DAT("CHANGE")=" ChangeValue('"_I_"','5') "
 S ST=ST_"<td dir=""LTR"" onClick=""ChangeValue('"_I_"','5')"" >"_$$STDT^%W1DAT("DATPR"_I,"",$$DATPR($$NOM,I))_"</td>"
 Q ST
 ;
RKVB(VL,PR)
 Q "<span style=""font-weight:bold"">"_$$RKV($G(VL),$G(PR))_"</span>"
 ;
RKV(VL,PR) ;
 I $G(VL)="" Q "&nbsp;"
 I $G(PR)="H" Q $$H2U^%L1FRM(VL)
 I $G(PR)="N" Q $S(VL<0:"<span style=""color:red"">",1:"")_$J(VL,2,2)_$S(VL<0:"</span>",1:"")
 Q VL
 ;
VW(VL) ;
 I 'VL Q VL
 Q "<b>"_VL_"</b>"
 ;
PUTC(PRM) ;
 N (JB,PRM,%ARG,%REM)
 S SH=$P(PRM,";") I 'SH Q 0
 S ST=$P(PRM,";",2)
 S @$$TMPY@("C",SH)=$TR(ST,"~","\")
 Q 1
 ;
 ;
PUTTMP(PRM) ;
 N (JB,%ARG,PRM)
 I '$D(@$$TMPY) Q "NOSPKNMB"
 ;
 S COLPM=$P(PRM,";",2)
 S FIRSTDAT=$P(PRM,";",3)
 S FIRSTNUM=$P(PRM,";",4)
 S NH=$P(PRM,";",5) I 'NH Q "NONH;NH"
 S PAYMDAT=$P(PRM,";",6) I PAYMDAT="" Q "NOPAYMDAT;paymdate"
 S SUGT=$P(PRM,";",7)
 S MZ=$P(PRM,";",8)
 S BDIKA=$P(PRM,";",9)
 ;
 S SUMCH=0
 S SUMB=0
 ;
 S ER=""
 S MC="SUM~NIKMAS~NETTO~CHECK~DATPR"
 S ID="sum~nicuy~netto~check~DATPR"
 ;
 K CHK
 F SH=1:1 Q:'$D(@$$TMPY@("C",SH))  D  Q:$L(ER)
 .N ST S ST=$G(^(SH))
 .S ST=$$CNWEB^%L1FRM(ST)
 .F J=1:1:$L(MC,"~") D  Q:$L(ER)
 ..N VL S VL=$P(ST,"\",J),IDJ=$P(ID,"~",J)
 ..S @$P(MC,"~",J)=VL
 ..I BDIKA D
 ...I VL="",J'=2 S ER="NO"_$P(MC,"~",J)_";"_IDJ_SH_$S(IDJ["DAT":"IDdd",1:"") Q
 ...I $P(MC,"~",J)="DATPR",$E(VL,1,2)<1!($E(VL,1,2)>31)!($E(VL,1,2)'?2N) S ER="DATERR"_";"_$P(ID,"~",J)_SH_"IDdd" Q
 ...I $P(MC,"~",J)="DATPR",$E(VL,4,5)<1!($E(VL,4,5)>12)!($E(VL,4,5)'?2N) S ER="DATERR"_";"_$P(ID,"~",J)_SH_"IDmm" Q
 ...I $P(MC,"~",J)="DATPR",$E(VL,7,8)'?2N S ER="DATERR"_";"_$P(ID,"~",J)_SH_"IDyy" Q
 ...I $P(MC,"~",J)="CHECK",VL,$D(CHK(VL)),SUGT=1 S ER="SAMECHECK;"_$P(ID,"~",J)_SH Q
 ...N OLDT I SUGT=1 S OLDT=$$CHECKINUSE(SH) I OLDT,+OLDT'=$$NOM D  Q
 ....N NT,CH S NT=+OLDT,CH=$P(OLDT,",",2)
 ....S ER="CHECKINUSE;"_CH_"<>"_NT_";"_$P(ID,"~",J)_SH
 ...I $P(MC,"~",J)="CHECK",VL S CHK(VL)=""
 .
 .I 'SUM,$G(CHECK)!$G(DATPR) S ER="NOSUM;sum"_SH Q
 ;
 I SUGT=4 D
 .I 'MZ S ER="NOSUM;cash" Q
 .S ER=""
 ;
 S SUMTS=$$SUMTS(0)
 I SUMTS-.1>$$TOPAY(0) S ER="PAIDTOOMUCH"
 ;
 I $L(ER) Q ER
 ;
 S COLST=SH-1
 ;
 D PUT^%W3DEB("W4SPPY-PUTTMP","PRM=PRM")
 ;
 I NH D
 .N AC S AC=$G(@$$^W4GL("W4ACNT")@(NH))
 .S BANK=$P(AC,"\",1)
 .S BANK1=$P(AC,"\",2)
 .S SNIF=$P(AC,"\",3)
 .S HESB=$P(PRM,"\",4)
 .S $P(@$$TMPY,"\",21)=BANK
 .S $P(@$$TMPY,"\",22)=BANK1
 .S $P(@$$TMPY,"\",23)=SNIF
 .S $P(@$$TMPY,"\",24)=HESB
 ;
 S $P(@$$TMPY,"\",2)=PAYMDAT
 S $P(@$$TMPY,"\",4)=NH
 S $P(@$$TMPY,"\",9)=MZ
 ;
 S $P(@$$TMPY,"\",8)=$$SUMPAID(0)
 ;
 I SUGT=1 S $P(@$$TMPY,"\",12)=SUMTS ; - CHECK
 I SUGT=2 S $P(@$$TMPY,"\",13)=SUMTS ; - CA
 I SUGT=3 S $P(@$$TMPY,"\",14)=SUMTS ; - HAAV BANK
 I SUGT=4 S $P(@$$TMPY,"\",15)=SUMTS ; - KEVA
 ;
 S $P(@$$TMPY,"\",16)=$$SUMNIC(0)
 ;
 L  ;
 ;
PUTTMPE ;
 Q 1
 ;
 ;
PUT(NUMBER) ;
 N SPK,SPK1,SPK,SPK10
 I $G(NUMBER) D CLR(NUMBER) D
 .S SPK0=$$SPK^W4PY(NUMBER)
 .S SPK10="" I SPK S SPK1=$$NAME^W4SPK(SPK)
 ;
 I '$G(NUMBER) S NUMBER=$O(@$$GLPY(999999),-1)+1
 ;
 K @$$GLPY(NUMBER)
 M @$$GLPY(NUMBER)=@$$TMPY
 ;
 S SPK=$$SPK^W4PY(NUMBER)
 S SPK1="" I SPK S SPK1=$$NAME^W4SPK(SPK)
 I SPK="",SPK0'="" S SPK=SPK0,SPK1=SPK10
 ;
 I '$P($G(@$$GLPY(NUMBER)),"\") D
 .S $P(@$$GLPY(NUMBER),"\")=SPK
 .S $P(@$$GLPY(NUMBER),"\",3)=SPK1
 ;
 N N S N="" F  S N=$O(@$$GLPY(NUMBER)@("C",N))  Q:N=""  D
 .N A S A=$G(^(N))
 .S CHK=$P(A,"\")
 ;
 D ^%S2GLSV($$GLPY(NUMBER),$$^W4FGIB)
 ;
 N PAID S PAID=$$TOTPAID^W4PY(NUMBER)
 N HBPAY,HBPAID
 N N S N="" F  S N=$O(@$$GLPY(NUMBER)@("H",N))  Q:N=""  D  Q:PAID'>0
 .S HBPAY=+$G(^(N))-$P(^(N),"\",3)
 .S HBPAID=$S(PAID'<HBPAY:HBPAY,1:PAID)
 .S $P(^(N),"\",2)=HBPAID
 .N CODDOC S CODDOC="IHB"
 .N HB S HB=N
 .I N<0 S CODDOC="IHBZ",HB=-N
 .I '$D(@$$^W4GL("W4INP")@(SPK,CODDOC,HB)) Q
 .N A S A=$G(^(HB)) Q:$P(A,"\",1,5)?.P
 .S $P(@$$^W4GL("W4INP")@(SPK,CODDOC,HB),"\",19)=$P($G(@$$^W4GL("W4INP")@(SPK,CODDOC,HB)),"\",19)+HBPAID
 .N NPY S NPY=$P($G(@$$^W4GL("W4INP")@(SPK,CODDOC,HB)),"\",20)
 .S $P(@$$^W4GL("W4INP")@(SPK,CODDOC,HB),"\",20)=$S($L(NPY):NPY_",",1:"")_HBPAID_":"_NUMBER
 .D ^%S2GLSV($$^W4GL("W4INP")_"("""_SPK_""","""_CODDOC_""","""_HB_""")",$$^W4FGIB)
 .S PAID=PAID-HBPAID
 ;
 Q NUMBER
 ;
 ;
CLR(NUMBER) ;
 N PAID S PAID=$$TOTPAID^W4PY(NUMBER)
 N SPK S SPK=$$SPK^W4PY(NUMBER)
 N HBPAY,HBPAID
 N N S N="" F  S N=$O(@$$GLPY(NUMBER)@("H",N))  Q:N=""  D
 .N CODDOC S CODDOC="IHB"
 .S HBPAID=$P(^(N),"\",2)
 .N HB S HB=N
 .I N<0 S CODDOC="IHBZ",HB=-N
 .
 .I $D(@$$^W4GL("W4INP")@(SPK,CODDOC,HB)) D
 ..S $P(@$$^W4GL("W4INP")@(SPK,CODDOC,HB),"\",19)=$P($G(@$$^W4GL("W4INP")@(SPK,CODDOC,HB)),"\",19)-HBPAID
 ..N ST,TS S ST=$P($G(@$$^W4GL("W4INP")@(SPK,CODDOC,HB)),"\",20)
 ..N OK S OK=0
 ..N J F J=1:1:$L(ST,",")  S TS=$P(ST,",",J) I $P(TS,":",2)=NUMBER S OK=J
 ..I OK D
 ...N ST1,ST2
 ...S ST1=$P(ST,",",1,OK-1)
 ...S ST2=$P(ST,",",OK+1,255)
 ...S ST=ST1_$S($L(ST1)&$L(ST2):",",1:"")_ST2
 ..S $P(@$$^W4GL("W4INP")@(SPK,CODDOC,HB),"\",20)=ST
 .
 .S $P(@$$GLPY(NUMBER)@("H",N),"\",2)=0
 Q
 ;
 ;
DELETE(NUMBER) ;
 N (JB,%REM,NUMBER)
 I '$G(NUMBER) Q "NONUMBER"
 D CLR(NUMBER)
 M @$$^W4GL("W4TSHLD")@(NUMBER)=@$$GLPY(NUMBER)
 D ^%S2GLSV($$^W4GL("W4TSHLD")_"("""_NUMBER_""")",$$^W4FGIB)
 K @$$GLPY(NUMBER)
 D ^%S2GLSV($$GLPY(NUMBER),$$^W4FGIB,"K")
 Q 1
 ;
 ;
GLHB(NOM) ;
 Q $$^W4GLS_"(SPK,""IHB"",NOM)"
 ;
 ;
 ;
GETKOT(STRING,NOM) ;
 N A S A=$G(@$$GLPY(NOM))
 S ORGTIME=$ZD($P(A,"\",13),"DD.MM.YY  24:60")
 I ORGTIME="" S ORGTIME=$$^%L1DC($P(A,"\",4),1)
 S SPKNAME=$P(A,"\",3)
 I SPKNAME="" S SPKNAME=$$NAME^W4SPK(STRING)
 S SPKKTV=$$KTVM^W4SPK(STRING)
 Q
 ;
NH(NOM) ;
 I $$SHOW Q $$NH^W4PY(NOM)
 N NH 
 I '$G(%ARG("NH")) D  Q NH
 .S NH=$P($G(@$$TMPY),"\",4)
 .I 'NH,$G(NOM) S NH=$$NH^W4PY(NOM)
 Q %ARG("NH")
 ;
SUGT(NOM) ;
 I $$SHOW Q $$SUGT^W4PY(NOM)
 N SUGT
 I '$G(%ARG("SUGT")) D  Q SUGT
 .S SUGT=$P($G(@$$TMPY),"\",10)
 .I $G(NOM),'SUGT S SUGT=$$SUGT^W4PY(NOM)
 Q %ARG("SUGT")
 ;
SUGT1(SUGT,PR) ;
 I SUGT=2 Q $$^%W1DICT("ASH4")
 I SUGT=3 Q $$^%W1DICT("BANKMOVING")
 I '$G(PR) Q $$^%W1DICT("FIRSTCHECKNUMBER")
 I $G(PR) Q $$^%W1DICT("CHECKNUMBER")
 ;
COLPM(NOM) ;
 I $$SHOW Q $$COLPM^W4PY(NOM)
 I $G(%ARG("COLPM")) Q %ARG("COLPM")
 N COLPM S COLPM=$P($G(@$$TMPY),"\",11)
 I 'COLPM,$G(NOM) S COLPM=$$COLPM^W4PY(NOM)
 Q COLPM
 ;
FIRST(NOM) ;
 N FIRST
 I $$SHOW Q $$FIRST^W4PY(NOM)
 I '$G(%ARG("FIRSTNUM")) D  Q FIRST
 .S FIRST=$P($G(@$$TMPY@("C",1)),"\",4)
 .I 'FIRST,$$SUGT(+$G(NOM))<2 S FIRST=$G(@$$^W4GL("W4TSHL"))+1
 Q %ARG("FIRSTNUM")
 ;
FIRSTDAT(NOM) ;
 I $$SHOW Q $$FIRSTDAT^W4PY(NOM)
 I $G(%ARG("FIRSTDAT")) Q %ARG("FIRSTDAT")
 N FDAT S FDAT=$P($G(@$$TMPY@("C",1)),"\",5)
 I FDAT Q FDAT
 S FDAT=$S($$PAYMDAT(NOM):$$PAYMDAT(NOM),1:$ZD($H,"DD.MM.YY"))
 Q $$^%L1DC($$^%L1DC(FDAT,3)+$$SHOTEF^W4SPK(SPK),1)
 ;
 ;
BANK(NOM) ;
 I $$SHOW Q $$BANK^W4PY(NOM)
 Q $P($G(@$$TMPY),"\",21)
 ;
BANK1(NOM) ;
 I $$SHOW Q $$BANK1^W4PY(NOM)
 Q $P($G(@$$TMPY),"\",22)
 ;
SNIF(NOM) ;
 I $$SHOW Q $$SNIF^W4PY(NOM)
 Q $P($G(@$$TMPY),"\",23)
 ;
HSBB(NOM) ;
 I $$SHOW Q $$HSBB^W4PY(NOM)
 Q $P($G(@$$TMPY),"\",24)
 ;
NEWDAT(STAM) ;
 Q $ZD($H,"DD.MM.YY")
 ;
MZ(NOM) ;
 I $$SHOW Q $$MZ^W4PY(NOM)
 I $G(%ARG("MZ"))="" Q $J($P($G(@$$TMPY),"\",9),2,2)
 Q %ARG("MZ")
 ;
SUMCH(NOM) ;
 I $$SHOW Q $$SUMCH^W4PY(NOM)
 I $$SUGT(NOM)=1 Q $$SUMTS(0)
 Q 0
 ;
SUMCA(NOM) ;
 I $$SHOW Q $$SUMCA^W4PY(NOM)
 I $$SUGT(NOM)=2 Q $$SUMTS(0)
 Q 0
 ;
SUMB(NOM) ;
 I $$SHOW Q $$SUMB^W4PY(NOM)
 I $$SUGT(NOM)=3 Q $$SUMTS(0)
 Q 0
 ;
SUMKEVA(NOM) ;
 I $$SHOW Q $$SUMKEVA^W4PY(NOM)
 I $$SUGT(NOM)=4 Q $$SUMTS(0)
 Q 0
 ;
NIKMAS(NOM) ;
 I $$SHOW Q $$NIKMAS^W4PY(NOM)
 Q $$SUMNIC(0)
 ;
PAYMDAT(NOM) ;
 I $$SHOW Q $$PAYMDAT^W4PY(NOM)
 I '$G(%ARG("DATT")) Q $P($G(@$$TMPY),"\",2)
 Q %ARG("DATT")
 ;
 ;
NOM(STAM) ;
 I $G(%ARG("NOM")) Q %ARG("NOM")
 Q 0
 ;
EDIT(STAM) ;
 I $G(%ARG("EDIT")) Q %ARG("EDIT")
 Q 0
 ;
PRINT(STAM) ;
 I $G(%ARG("PRINT")) Q %ARG("PRINT")
 Q 0
 ;
SHOW(STAM)
 I '$$NOM!$$EDIT Q 0
 Q 1
 ;
TMPY(STAM) ;
 Q $$^W4MAIN("TMPY")
 ;
SPANBLACK(VL) ;
 Q "<span dir=""LTR"" "_$$^%W1ALIGN_" style=""color:"_$S($G(VL)<0:"red",1:"black")_""""
 ;
TOPAY(NOMPY) ;
 I '$G(NOMPY)!$$EDIT Q $P($G(@$$TMPY),"\",7)
 Q $P($G(@$$GLPY(NOMPY)),"\",7)
 ;
 ;
ITRAPY(NOMPY) ;
 Q $$TOPAY(NOMPY)-$$SUMPAID(NOMPY)
 ;
TOTPAID(NOMPY) ;
 I '$G(NOMPY) Q $$SUMPAID(NOMPY)
 Q $P($G(@$$GLPY(NOMPY)),"\",8)
 ;
SUMPAID(NOMPY) ;
 Q $$SUMTS(NOMPY)+$$MZ(NOMPY)
 ;
SUMTS(NOMPY) ;
 N SSUM,I,N S SSUM=0
 D
 .I '$G(NOMPY)!$$EDIT D  Q
 ..F I=1:1 Q:'$D(@$$TMPY@("C",I))  S SSUM=SSUM+$G(^(I))
 .S N="" F  S N=$O(@$$GLPY(NOMPY)@("C",N)) Q:N=""  D
 ..S SSUM=SSUM+$G(^(N))
 Q SSUM
 ;
SUMNIC(NOMPY) ;
 N SSUM,I,N S SSUM=0
 D
 .I '$G(NOMPY)!$$EDIT D  Q
 ..F I=1:1 Q:'$D(@$$TMPY@("C",I))  S SSUM=SSUM+$$NICUY(0,I)
 .S N="" F  S N=$O(@$$GLPY(NOMPY)@("C",N)) Q:N=""  D
 ..S SSUM=SSUM+$$NICUY(NOMPAY,I)
 Q SSUM
 ;
UPDHB(A,NOMPY,NDLM1,NDLM2) ;
 N PYO,SUMO
 S PYO=$P(A,"\",NDLM2)
 S SUMO=$P(A,"\",NDLM1)
 S PYO=","_PYO_","
 S PYO=$P(PYO,","_NOMPY_",")_","_$P(PYO,","_NOMPY_",",2)
 S:$E(PYO)="," PYO=$E(PYO,2,120)
 S:$E(PYO,$L(PYO))="," PYO=$E(PYO,1,$L(PYO)-1)
 S $P(A,"\",NDLM1)=$J(SUMO-SUM,2,2)
 S $P(A,"\",NDLM2)=PYO
 Q A
 ;
CODDOC(STAM) ;
 Q "IPY"
 ;
SUM(NOM,I) ;
 N COLPM,SUM,SUMCH S COLPM=$G(%ARG("COLPM"))
 S SUM=$P($G(@$$GLPY(NOM)@("C",I)),"\",1)
 I $$SHOW Q $J(SUM,2,2)
 I $G(NOM),SUM Q SUM
 I $G(NOM) D  Q SUM
 .S SUM=$J($$TOPAY(0)-$$MZ(0)-$$SUMCH^W4PY(NOM)/(COLPM-$$COLPM^W4PY(NOM)),2,2)
 .I SUM<0 S SUM=""
 .S $P(@$$TMPY@("C",I),"\",1)=SUM
 ;
 I 'COLPM Q $P($G(@$$TMPY@("C",I)),"\",1)
 ;
 S SUMCH=$$TOPAY(0)-$$MZ(0)
 S SUM=$J(SUMCH/COLPM,2,2)
 N SUMP S SUMP=$J(SUMCH/COLPM,2,2)*(COLPM-1)
 I I=COLPM S SUM=$J(SUMCH-SUMP,2,2)
 S $P(@$$TMPY@("C",I),"\",1)=SUM
 Q SUM
 ;
NICUY(NOM,I) ;
 N NIC S NIC=$P($G(@$$GLPY(NOM)@("C",I)),"\",2)
 I $$SHOW Q NIC
 I $G(NOM),NIC Q NIC
 N AHNIK S AHNIK=$G(%ARG("AHNIK"))
 I AHNIK="" Q NIC
 S NIC=$J($$SUM(NOM,I)*AHNIK/(100+AHNIK),2,2)
 S $P(@$$TMPY@("C",I),"\",2)=NIC
 Q NIC
 ;
NETTO(NOM,I) ;
 N NETTO S NETTO=$P($G(@$$GLPY(NOM)@("C",I)),"\",3)
 I $$SHOW Q NETTO
 I $G(NOM),NETTO Q NETTO
 S NETTO=$$SUM(NOM,I)-$$NICUY(NOM,I)
 S $P(@$$TMPY@("C",I),"\",3)=NETTO
 Q NETTO
 ;
CHECK(NOM,I) ;
 N NUM S NUM=$P($G(@$$GLPY(NOM)@("C",I)),"\",4)
 I $$SHOW Q NUM
 I $G(NOM),NUM Q NUM
 I $G(%ARG("SUGT"))=3 S NUM="BANK" G CHECKE
 I $G(%ARG("FIRSTNUM"))="" S NUM=$P($G(@$$TMPY@("C",I)),"\",4) G CHECKE
 I $G(%ARG("SUGT"))=1 S NUM=%ARG("FIRSTNUM")+I-1 G CHECKE
 I $G(%ARG("SUGT"))=2 S NUM=%ARG("FIRSTNUM") G CHECKE
 Q ""
CHECKE S $P(@$$TMPY@("C",I),"\",4)=NUM Q NUM
 ;
DATPR(NOM,I) ;
 N DAT,DD,MM,YY,DD1,MM1,YY1,DTPR
 S DTPR=$P($G(@$$GLPY(NOM)@("C",I)),"\",5)
 I $$SHOW Q DTPR
 I $G(NUM),DTPR Q DTPR
 ;
 I '$G(%ARG("FIRSTDAT")) Q DTPR
 S DAT=%ARG("FIRSTDAT")
 S DD=$E(DAT,1,2)
 S MM=$E(DAT,4,5)
 S YY=$E(DAT,7,8)
 S MM1=$S(MM+I-1<13:$TR($J(MM+I-1,2)," ",0),1:$TR($J(MM+I-1.1#12+.1,2)," ",0))
 S YY1=$S(MM+I-1<13:YY,1:YY+((MM+I-1.1)\12))
 S DD1=DD
 I DD=29,+MM1=2 S DD1=28
 N DTPR S DTPR=DD1_"."_MM1_"."_YY1
 S $P(@$$TMPY@("C",I),"\",5)=DTPR
 Q DTPR
 ;
GLPY(NUMBER) ;
 Q $$^W4GL("W4TSHL")_"("""_NUMBER_""")"
 ;
PAYMADV ; 
 W "<br><br><br>",!
 W "<div dir="""_$$^%W1DIR_""">",!
 W " <span style=""font-size:"_$$^W3FSZ_""">"
  W $$^%W1DICT("TOPAY")
 W " </span>",!
 W " &nbsp;&nbsp;"
 W "<input type=""text"" id=""topay"" size=""8"" style=""font-size:"_$$^W3FSZ_""" onFocus=""this.select()"" >",!
 W " &nbsp;&nbsp;"
 D ^W4BUTTON("sbm","SUBMIT","SubmSum()","color:green")
 W $$NBSP^%L1FRM(4)
 D ^W4BUTTON("back","BACK","Back()","color:red")
 W "</div>",!
 Q 
 ;
SUMADV(SUM) ;
 N TMPY S TMPY=$$TMPY
 N SPK 
 S SPK=$S($G(%ARG("EDIT")):$$SPK^W4SPY($$NOM),1:$G(%ARG("SPK")))
 S $P(@TMPY,"\")=SPK
 N NAME S NAME=$$NAME^W4SPK(SPK)
 S $P(@TMPY,"\",3)=NAME
 S $P(@TMPY,"\",7)=SUM
 N AHNIK S AHNIK=$$AHNIKMAS^W4SPK(SPK)
 S $P(@TMPY,"\",17)=AHNIK
 N TOKNIK S TOKNIK=$$NIKMASAD^W4SPK(SPK)
 S $P(@TMPY,"\",18)=TOKNIK
 N YA S YA=$$SHOTEF^W4SPK(SPK)
 S $P(@TMPY,"\",19)=YA
 Q
 ;
TIKPY ; 
 N N S N="" F  S N=$O(@$$GLPY(N)) Q:N=""  D TIKPY1(N) ;
 Q
 ;
 ;
TIKPY1(N) ;
 N W4INP S W4INP=$$^W4GL("W4INP")
 N GLPY S GLPY=$$GLPY(N)
 N A,SPK,HB,HDHB
 S SPK=$P($G(@GLPY),"\") Q:'SPK
 ;
 S HB="" F  S HB=$O(@GLPY@("H",HB)) Q:HB=""  D 
 .S A=$G(^(HB)) Q:'A
 .S IND="IHB"
 .S HB1=HB I HB<0 S IND="IHBZ",HB1=-HB
 .S HDHB=$G(@W4INP@(SPK,IND,HB1)) Q:HDHB=""
 .I '$P(HDHB,"\",19),'$P(HDHB,"\",20) D
 ..S $P(@W4INP@(SPK,IND,HB1),"\",19)=$P(@W4INP@(SPK,IND,HB1),"\",19)+A
 ..S $P(@W4INP@(SPK,IND,HB1),"\",20)=+A_":"_N
 Q 
 ;
PRINTCHK(NOM) ; 
 N (JB,%ARG,%REM,NOM)
 I '$$PRINTCHK^W4PRM Q ""
 S GL=$$^W4GL("W4TSHL")
 S OU="",A=""
 S TS=$G(@GL@(NOM))
 S SPK=$P(TS,"\",1)
 S AHN=$P(TS,"\",17)
 S N="" F  S N=$O(@GL@(NOM,"C",N)) Q:N=""  D  I A'="" S OU=NOM_"\"_N_"\"_A Q
 .S A=$G(^(N))
 .I $D(^(N,"PC")) S A="" Q
 .I $P(TS,"\",10)'=1 S A="" Q  ; SUGT
 .S $P(A,"\",6)=AHN
 .S $P(A,"\",7)=SPK
 I $E(OU,$L(OU))=";" S OU=$E(OU,1,$L(OU)-1)
 Q $TR(OU,"\","^")
 ;
CHECKINUSE(SH) ; 
 N (JB,%ARG,SH)
 S NOMCHK=$P($G(@$$TMPY@("C",SH)),"\",4)
 S GL=$$^W4GL("W4TSHL")
 S NT=0
 S N="" F  S N=$O(@GL@(N)) Q:N=""  D  Q:NT
 .S N1="" F  S N1=$O(@GL@(N,"C",N1)) Q:N1=""  D  Q:NT
 ..S B=$$SPA^%L1FRM($G(^(N1)))
 ..I NOMCHK=$P(B,"\",4) S NT=N Q
 Q NT_","_NOMCHK
 ;
CHNSUM(PRM) ; 
 N (JB,PRM)
 D PRS^%L1FRM(PRM,"SH;SUM;NIK;NET",";") 
 I '$G(SH) Q 0
 S $P(@$$TMPY@("C",SH),"\",1)=SUM
 S $P(@$$TMPY@("C",SH),"\",2)=NIK
 S $P(@$$TMPY@("C",SH),"\",3)=NET
 Q 1 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 



