quarta-feira, 27 de novembro de 2013

Alterar Serviços RPW para usuário ( Datasul )


DEFINE VARIABLE c-serv-rpw LIKE usuar_mestre.cod_servid_exec FORMAT "!XXXXXXX" LABEL "Servidor RPW".

MESSAGE "Deseja alterar a informacao de servidor de execucao?"
    VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO
    UPDATE l-altera AS LOGICAL.

IF l-altera THEN DO:

    REPEAT:

        UPDATE c-serv-rpw
                WITH 01 COL SIDE-LABELS 01 DOWN.
       
        IF CAN-FIND ( servid_exec WHERE servid_exec.cod_servid_exec = c-serv-rpw ) THEN LEAVE.

        MESSAGE "Servidor inv lido!"
            VIEW-AS ALERT-BOX ERROR BUTTONS OK.

    END.

END.

FOR EACH usuar_mestre
    /* WHERE usuar_mestre.cod_servid_exec = "" */:

    IF l-altera THEN

        ASSIGN usuar_mestre.cod_servid_exec = c-serv-rpw.

    DISPLAY usuar_mestre.cod_usuario (COUNT)
            usuar_mestre.nom_usuario
            usuar_mestre.cod_servid_exec
            WITH STREAM-IO FRAME b 10000 DOWN.

END.

Nenhum comentário:

Postar um comentário