УС Лэнд:ЕГАИС – 2017. Обсуждение программы, предложения, замечания, вопросы : КИС Lack & УС Land

   
* --------------------------------------------------------------------------------------------------    
*   Проверка состояния отправленных операций автоматических режимов и создание файла лога в каталоге
*   Процедура работает, пытаясь проверять состояние прохождения документов в течении до 30 минут, а 
*   затем при неудаче анализа по документам вываливается с созданием файла сообщения
*   23.02.2017  Различаю операции auto-от минусов от null-передача под ноль... Другая логика проверки
PROC pgCheckAuto()
    LOCA nSecStart:=Seconds(), cst:=Time(), nTrans:=0, nTransNull:=0, nBalans:=0, cTxt:="", cStr:=""
    LOCA cOldCol:=SetColor(), nD:=Day(Date()-1)
    PRIV cNumbAuto:= Alltrim(Str(nD))+"_auto", cNumbNull:= Alltrim(Str(nD))+"_null", dDatAuto:=Date()-1

    //  Включаю режим бездиалоговой проверки прохождения документов и операций
    SET CURS OFF
    lgCheckAuto     := TRUE
    CLS
    DispBox(1,0,24,79,Repl(Chr(219),9),"N+/BG")
    @ 0,0 SAY Padc("Esc! Проверка проведение операций трансфера и постанов.на баланс в ТЗ",80)
    
    //  Бесконечный цикл проведения проверки или по достижению времени положенного на режим
    DO WHIL TRUE .AND. Inkey(10) <> K_ESC
        @ 0,0 SAY Alltrim(Str(Seconds() - nSecStart,5))
        
        //  Проверка происходит максимум в течении 30 минут - потом бесполезно ожидать результата
        IF Seconds() - nSecStart > 1800 THEN EXIT

        //  Анализирую трансфер со склада в торговый зал для сервиса уборки минусов и/или передачи под остаток
        pSkl_shop()
        nTrans      := ngCheckAuto
        nTransNull  := ngCheckNull
        
        //  Анализирую постановку на баланс в торговом зале
        pShopBal()
        nBalans     := ngCheckAuto
        
        //  Смотрю результат проверок прохождения документов и произвожу действия в зависимости от результата 
        IF nTrans > 0 .AND. nBalans > 0 .AND. nTransNull > 0 THEN EXIT
    END
    
    //  Имеет результат проверки. Пишу его в строку файл отчета
    cTxt    := "Check_auto.txt"
    O____A
    ? HB_OEMTOANSI(cgMyIdEga+" "+cgObosName+" ИНН: "+cgInnFirm+" КПП: "+cgKppFirm)
    ? HB_OEMTOANSI("Результат проверки прохождения автоопераций на "+Dtoc(Date())+" Начат: "+cst+" Закончен: "+Time())+CRLF+" "+CRLF
    
    cStr    := "Трансфер уборки минусов: "
    DO CASE
    CASE nTrans = 0;        cStr += "ВЫХОД по истечению времени! Не работает УТМ!"
    CASE nTrans = 1;        cStr += "нет созданных операций"
    CASE nTrans = 2;        cStr += "документ создался, но НЕ ОТПРАВЛЕН В ЕГАИС"
    CASE nTrans = 3;        cStr += "ПРОВЕДЕНО в ЕГАИС"
    CASE nTrans = 4;        cStr += "ОТКАЗ ЕГАИС. Нужно анулировать и руками отправить операцию"
    CASE nTrans = 9;        cStr += "операция и каскадное удаление произведено"
    ENDC
    ? HB_OEMTOANSI(cStr)
    
    cStr    := "Трансфер передачи под 0: "
    DO CASE
    CASE nTransNull = 0;    cStr += "ВЫХОД по истечению времени! Не работает УТМ!"
    CASE nTransNull = 1;    cStr += "нет созданных операций"
    CASE nTransNull = 2;    cStr += "документ создался, но НЕ ОТПРАВЛЕН В ЕГАИС"
    CASE nTransNull = 3;    cStr += "ПРОВЕДЕНО в ЕГАИС"
    CASE nTransNull = 4;    cStr += "ОТКАЗ ЕГАИС. Нужно анулировать и руками отправить операцию"
    CASE nTransNull = 9;    cStr += "операция и каскадное удаление произведено"
    ENDC
    ? HB_OEMTOANSI(cStr)
    
    cStr    := "Постановка на баланс ТЗ: "
    DO CASE
    CASE nBalans = 0;       cStr += "ВЫХОД по истечению времени! Не работает УТМ!"
    CASE nBalans = 1;       cStr += "нет созданных операций"
    CASE nBalans = 2;       cStr += "документ создался, но НЕ ОТПРАВЛЕН В ЕГАИС"    
    CASE nBalans = 3;       cStr += "ПРОВЕДЕНО в ЕГАИС"
    CASE nBalans = 4;       cStr += "ОТКАЗ ЕГАИС. Нужно анулировать и руками отправить операцию"
    OTHE;                   cStr += "операция и каскадное удаление произведено"
    ENDC
    ? HB_OEMTOANSI(cStr)
    C____A

    //  При наличии электронного адреса в настройке отправляю письмо по нему с результатами проверки. Ору, если есть проблемы
    IF !Empty(cgemail)
        cStr    := ""
        IF (nBalans=0) .OR. (nBalans=2) .OR. (nBalans=4) .OR. (nTrans=0) .OR. (nTrans=2) .OR. (nTrans=4) .OR. (nTransNull=0) .OR. (nTransNull=2) .OR. (nTransNull=4) THEN cStr := "ПРОБЛЕМА! "
        pzSendMail(cgemail,"УСЕга <USLandEgais_yandex_ru>",;
                   cStr+cgMyIdEga+" Проверка автоопераций на "+Dtoc(Date()),HB_ANSITOOEM(MemoRead(cTxt)),;
                   "smtp.yandex.ru","USLandEgais_yandex_ru","пароль",TRUE)
    ENDI
    
    //  Сообщение об успешности прохождения всех этапов и выход из пограммы
    pCloseUSega()
    fErr_Quit("Все этапы проверки прохождения операций трасфера и постановки на баланс произведены! Спасибо за ожидание!",cColor)    
    RETU