IF lCtl
        If !FWIsInCallStack("A103Devol") //Se não for nota de devolução entra na validação
            // LOTE CONTROLE
            IF !EMPTY(ACOLS[n,nPosLOTECTL])
                // LOTE FORNECEDOR
                IF EMPTY(ACOLS[n,nPosLOTEFOR])
                    lExecuta := .F.
                    MSGALERT("Por favor... Preencha o lote de fornecedor", "MT100LOK")
                ENDIF

                // DATA FABRICAÇÃO
                IF EMPTY(ACOLS[n,nPosDFABRIC])
                    lExecuta := .F.
                    MSGALERT("Por favor... Preencha a data de fabricação", "MT100LOK")
                ENDIF

                // DATA VALIDADE
                IF EMPTY(ACOLS[n,nPosDTVALID])
                    lExecuta := .F.
                    MSGALERT("Por favor... Preencha a data de validade", "MT100LOK")
                ENDIF
            ELSE
                lExecuta := .F.
                MSGALERT("Por favor... Preencha o lote de controle", "MT100LOK")
            ENDIF
        ENDIF
    ENDIF