Форум компании Смарт-Софт

В старой версии я разобрался все поправил. А вот в новой не могу.

Смысл в следующем. Если у пользователя при добавлении оплаты (отрицательное число) баланс становится меньше 0 то ставим его в паузу, а если нет то проводим добавление (отрицательное число)

Поправил код проверте пожалуста:

        If Cash <> "0" Then
             Dom1.loadXML "<UserList />"
             Set Root1 = Dom1.DocumentElement
             With Root1.AppendChild(Dom1.CreateElement("UserItem"))
                 .setAttribute "GUID", Node.getAttribute("GUID")
                 .setAttribute "_UpdateState_", -1
                 .setAttribute "AddCash", FromDigit(Cash)
                 .setAttribute "AdminNote", "Добавление оплаты (скрипт)"
             End With
             Srv.UpdateList itUser, Dom1.xml
        End If
       
        If IsNull(Node.getAttribute("Balance")) Then
           Set Root = Dom1.DocumentElement
           With Root.AppendChild(Dom1.CreateElement("UserItem"))
               .setAttribute "BillState", 1
           End With
           Srv.UpdateList itUser, Dom1.xml
           WScript.Echo "Клиент " & Node.getAttribute("DisplayName") & ", поставлена пауза"               
        Else
     if ToDigit(Node.getAttribute("Balance")) + ToDigit(Cash) > 0 then
                NewCash = ToDigit(Node.getAttribute("Balance")) + ToDigit(Cash)
         WScript.Echo "Клиент " & Node.getAttribute("DisplayName") & ", на счету " & NewCash                
             else
            Set Root = Dom1.DocumentElement
         With Root.AppendChild(Dom1.CreateElement("UserItem"))
                    .setAttribute "BillState", 1
         End With
            Srv.UpdateList itUser, Dom1.xml
         WScript.Echo "Клиент " & Node.getAttribute("DisplayName") & ", поставлена пауза"               
        End If