Ошибка «Неверное количество аргументов для функции»: Vijeo Citect v7.30 - PullRequest
0 голосов
/ 27 января 2020

Привет! Можете ли вы помочь мне отладить этот код пользователя? Это в Vijeo Citect v7.3. это единственная ошибка, остающаяся до компиляции существующей программы. Пожалуйста, помогите.

Ошибка: неверное количество аргументов для функции

Контекст: строка [43]: sPassword) {=} 0 THEN;

INT
FUNCTION
UDS_LoginForm(STRING sName="", STRING sPassword="")
INT bDone;
INT nStatus;
INT hForm;

IF UserInfo(1)<> "" THEN    
    FormNew("@(Login Message)", 35, 4, 29);
    FormPrompt(1, 0, "Are You Sure To Logout Current User ?");
    FormButton(1,2, "   Yes   ",0,1);
    FormButton(22,2," Cancel ",0,2);    

    IF FormRead(0) = 0 THEN
        Logout();

        WinGoto(0);
        PageHome();
        WinGoto(1);
        PageHome();
        UDS_LoginForm();
    END

ELSE

    bDone = FALSE;
    WHILE bDone = FALSE DO
        FormNew("@(Login Form)", 35, 5, 29);
        FormPrompt(1, 0, "@(Name)");
        FormInput(16, 0, "", sName, 16);
        FormPrompt(1, 2, "@(Password)");
        FormSecurePassword(18, 2, "", sPassword, 16);
        FormButton( 6, 4, "  " + "@(OK)" + "  ", 0, 1);
        FormButton(20, 4, "@(Cancel)", 0, 2);

        IF FormRead(0) = 0 THEN

            hForm = FormNew("@(User Login)", 36, 1, 8 + 16 + 128 + 256);
            FormPrompt(1, 0, "@(Authentication in progress ...)");
            FormRead(1);
            SleepMS(200);

            IF UserLogin(sName, sPassword) = 0 THEN;
                bDone = TRUE;
                nStatus = 0;
            ELSE
                sPassword = "";
            END

            IF FormActive(hForm) THEN
                FormDestroy(hForm);
            END
        ELSE
            bDone = TRUE;
            nStatus = 298;
        END
    END
END
RETURN nStatus;
END

Спасибо!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...