sexta-feira, 29 de novembro de 2013

Programa para eliminação de Família de Materiais


DEFINE VARIABLE c-fm-codigo LIKE familia.fm-codigo LABEL "Informe o codigo da familia a ser eliminada".
DEFINE VARIABLE c-item AS CHARACTER INITIAL "" NO-UNDO.

UPDATE c-fm-codigo WITH SIDE-LABEL. 
IF NOT CAN-FIND (familia WHERE familia.fm-codigo = c-fm-codigo) THEN
    MESSAGE "Familia " + c-fm-codigo + " inexistente."
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
FOR EACH familia EXCLUSIVE-LOCK
    WHERE familia.fm-codigo = c-fm-codigo:

    FOR EACH ITEM
        WHERE ITEM.fm-codigo = familia.fm-codigo NO-LOCK:
        ASSIGN c-item = c-item + ", " + ITEM.it-codigo.
    END.
    IF c-item <> "" THEN
        MESSAGE "O(s) item(s) " + c-item + " est (o) relacionado(s) … familia " + familia.fm-codigo + "." SKIP
                "Favor alterar familia deste(s) item(s) no CD0204 para poder eliminar a familia " + familia.fm-codigo
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    ELSE DO:
        DISABLE TRIGGERS FOR LOAD OF familia.
        DELETE familia.
        MESSAGE "Familia " + c-fm-codigo + " eliminada com sucesso."
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
END.

Nenhum comentário:

Postar um comentário